设计文件名为“bd1”的表单。表单的标题设为“部门人数统计”。表单中有一个组合框、两个文本框和两个命令按钮,标题分别为“统计”和“关闭”。 运行表单时,组合框中有部门信息“部门编号”可供选择.在做出选择以后,单击“统计”命令按钮,则第一个文本框显示

admin2010-05-08  65

问题 设计文件名为“bd1”的表单。表单的标题设为“部门人数统计”。表单中有一个组合框、两个文本框和两个命令按钮,标题分别为“统计”和“关闭”。
    运行表单时,组合框中有部门信息“部门编号”可供选择.在做出选择以后,单击“统计”命令按钮,则第一个文本框显示出部门名称,第二个文本框中显示出“职员信息”表中该部门的人数。
    单击“关闭”按钮关闭表单。

选项

答案①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值终改为“部门人数统计”,再添加一个组合框、两个文本框和两个命令按钮。 ②分别选择命令按钮,在按钮属性窗口中将命令按钮command1的Caption属性值修改为“统计”,将命令按钮Command2的Caption属性值修改为“关闭”,如图83-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm。Release,用来关闭表单。 ③选择组合框,在组合框属性窗口中,双击“Init Event”,打开Init事件 代码编辑窗口,输入以下代码: SELECT*INTO ARRAY aa FROM部门 FOR i=1 TO ALEN(aa)/2 ThisForm.Combo1.AddItem(aa(i,1)) NEXT ④双击“统计”命令按钮,在Click事件中输入代码: SELECT部门名称,COUNT(*)AS人数INTO CURSOR aa FROM部门,职员信息WHERE部门.部门编号=职员信息.部门编号AND部门.部门编号=ThisForm.Combo1.displayvalue ThisForm.text1.valuc=aa.部门名称 ThisForm.text2.value=aa.人数 ⑤选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd1”,保存在考生文件夹下,然后运行表单。

解析
转载请注明原文地址:https://jikaoti.com/ti/trkiFFFM
0

相关试题推荐
最新回复(0)