对“出勤”数据库中的表“出勤情况”,建立文件名为myf的表单,标题为“出勤情况查询”,表单上有1个表格控件和3个命令按钮“未迟到查询”、 “迟到查询”和“关闭”。 单击“未迟到查询”按钮,查询出勤情况表中每个人的“姓名”、“出勤天数”和“未迟到天数”

admin2009-02-15  26

问题 对“出勤”数据库中的表“出勤情况”,建立文件名为myf的表单,标题为“出勤情况查询”,表单上有1个表格控件和3个命令按钮“未迟到查询”、 “迟到查询”和“关闭”。
   单击“未迟到查询”按钮,查询出勤情况表中每个人的“姓名”、“出勤天数”和“未迟到天数”,其中“未迟到天数”为“出勤天数”减去“迟到次数”。结果在表格控件中显示,同时保存在表table1中。
   单击“迟到查询”按钮,查询迟到天数在l天以上的人的所有信息,结果在表格控件中显示,同时保存在表table2中。
   单击“关闭”按钮关闭表单。

选项

答案在命令窗口中输入命令:CREATE FORM myf,打开表单设计器,通过“表单控件”工具栏向表单添加1个表格和3个命令按钮。 选中表单,在属性面板中将Caption的属性值改为“出勤情况查询”,然后在属性面板顶端的下拉框中选择Commandl,修改该命令按钮控件的Caption属性值为“未迟到查询”,以同样的方法将第二个、第三个命令按钮设置Caption属性值分别改为“迟到查询”和“关闭”。双击命令按钮,编写各命令按钮的Click事件,程序代码如下。 ******命令按钮Commandl(迟到查询)的Click事件代码***** SELECT姓名,出勤天数,(出勤天数-迟到次数)AS未迟到天数; FROM出勤情况; INTO TABLE tablel Thisform.Cridl.RecordSourceType=1 Thisform.Gridl.RecordSource="tablel" ******************************************************** ******命令按钮Command2(迟到查询)的Click事件代码***** SELECT工号,员工档案.姓名,职位,出勤天数,迟到次数,性别,工资; FROM 出勤情况,员工档案; WHERE迟到次数>1AND员工档案.姓名:出勤情况.姓名; INTO TABLE table2 Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="table2’, ******************************************************** 以同样的方法为“关闭”命令按钮编写Click事件代码:Thisform.Release。保存并运行表单,结果如图3-24所示。 [*]

解析 本大题考查的是表单设计,在设计控件属性中,不要将控件的标题和名称属性弄混淆,名称属性是该控件的一个内部名称,而标题属性是用来显示的一个标签名称。程序部分属于SQL的简单联接查询。
转载请注明原文地址:https://jikaoti.com/ti/O4M7FFFM
0

最新回复(0)