对考生文件夹中的“公司”数据库完成如下综合应用:设计名为“bd2”的表单,表单的标题设为“工资发放统计”。表单中订一个组合框、两个文本框和一个命令按钮“关闭”。 运行表单时。组合框中有“部门信息”表中的“部门编号”可供选择,选择某个“部门编号”以后

admin2013-06-10  20

问题 对考生文件夹中的“公司”数据库完成如下综合应用:设计名为“bd2”的表单,表单的标题设为“工资发放统计”。表单中订一个组合框、两个文本框和一个命令按钮“关闭”。
    运行表单时。组合框中有“部门信息”表中的“部门编号”可供选择,选择某个“部门编号”以后。第一个文本框显示出该部门的“名称”,第二个文本框显示应该发给该部门的“工资总额”。
   单击“关闭”按钮,关闭表单。

选项

答案①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将“Caption”属性值修改为“工资发放统计”。单击表单控件工具栏上的“组合框”控件图标,为表单添加一个组合框combo1,单击表单控件工具 栏上的“文本框”控件图标,为表单添加两个文本框Text1和Text2,单击表单控件工具栏上的“命令按钮”控件图标,为表单添加一个命令按钮Command1。 ②选择命令按钮,在按钮属性窗口中将命令按钮Command1的Name属性值修改为“cmdClose”,将Caption属性值修改为“关闭”,如图59-1所示。双击命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。 [*] ③选择组合框,在组合框属性窗口中,双击“Init Event”,打开lnit事件代码编辑窗口,输入以下过程代码: SELECT*INTO ARRAY aa FROM部门 FOR i=1 TO ALEN(aa)/2 ThisForm.Combo1.AddItem(aa(i,1)) NEXT ④选择组合框,在组合框属性窗口中,双击“Click Event”,打开Click事件代码编辑窗口,输入以下过程代码: SELECT部门名称,SUM(工资)AS工资总额INTO CURSOR aa FROM部门,职员信息,工资WHERE部门.部门编号=职员信息.部门编号AND工资.职员编号=职员信息.职员编号AND部门.部门编号=ThisForm.Combol.displayvalue ThisForm.text1.value=aa.部门名称 ThisForm.text2.value=aa.工资总额 ⑤选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd2”,保存在考生文件夹下,然后运行表单。

解析
转载请注明原文地址:https://kaotiyun.com/show/yTop777K
0

最新回复(0)