对“公司”数据库中的表“职员信息”和“部门”,建立文件名为“bd3”的表单,标题为“公司管理”。表单上有一个表格控件和3个命令按钮,标题分别为“按部门查看”“人数统计”和“关闭”。 当表单运行时: ①单击“按部门查看”按钮,以“部门编号”排

admin2010-12-13  28

问题 对“公司”数据库中的表“职员信息”和“部门”,建立文件名为“bd3”的表单,标题为“公司管理”。表单上有一个表格控件和3个命令按钮,标题分别为“按部门查看”“人数统计”和“关闭”。
    当表单运行时:
    ①单击“按部门查看”按钮,以“部门编号”排序查询职员信息表中的记录,结果在表格控件中显示。
    ②单击“人数统计”按钮,查询职员信息表中各部门的人数,结果中含“部门编号”和“人数”等字段,结果在表格控件中显示。
    ③单击“关闭”按钮,关闭表单。

选项

答案①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,将Caption属性值修改为“公司管理”,单击表单控件工具栏上的“命令按钮”控件图标。为表单添加3个命令按钮Command1、Command2和Command3,单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件。 ②分别选择3个命令按钮,在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“按部门查看”,Command2的caption属性值修改为“人数统计”,Command3的Caption属性值修改为“关闭”,如图60-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。 [*] ③选择表格控件“Grid1”,在表格控件属性窗口中将“。RecordSource”属性值修改为“""”,将“RecordSourceType”属性值修改为“1”。 ④双击“按部门查看”命令按钮,在Click事件中输入代码: SELECT*INTO CURSOR tmp FROM职员信息ORDER BY部门 编号 ThisForm.Grid1.RecordSourceType=1 ThisForm.Grid1.RecordSource="tmp" ThisForm.Grid1.Refresh ⑤双击“人数统计”命令按钮,在Click事件中输入代码: SELECT部门编号,COUNT(*)AS人数INTO CURSOR tmp FROM职员信息 ThisForm.Grid1.RecordSourceType=1 ThisForm.Grid1.ReeordSource="tmp" ThisForm.Grid1.Refresh ⑥选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd3”,保存在考生文件夹下,然后运行表单。

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

最新回复(0)