对考生文件夹下的“学生住宿”管理数据库设计一个表单myf,表单标题为“宿舍查询”,表单中有 3个文本框和2个命令按钮“查询”和“关闭”。 运行表单时,在第一个文本框里输入某学生的学号(S1—S9),单击查询按钮,则在第二个文本框内会显示该学生的“姓名

admin2009-02-15  38

问题 对考生文件夹下的“学生住宿”管理数据库设计一个表单myf,表单标题为“宿舍查询”,表单中有
3个文本框和2个命令按钮“查询”和“关闭”。
   运行表单时,在第一个文本框里输入某学生的学号(S1—S9),单击查询按钮,则在第二个文本框内会显示该学生的“姓名”,在第三个文本框里会显示第三个学生的“宿舍号”。
   如果输入的某个学生的学号对应的学生不存在,则在第二个文本框内显示“该生不存在”,第三个文本框不显示内容;如果输入的某个学生的学号对应的学生存在,但在宿舍表中没有该学号对应的记录,则在第二个文本框内显示该生的“姓名”,第三个文本框显示“该生不住校”。
   单击“关闭”按钮关闭表单。

选项

答案单击“文件”菜单中的“新建”,在类型选择框中选择“表单”,单击“新建文件”按钮,打开表单设计器。 在属性窗口中设置表单的Caption属性为“宿舍查询”,从“表单控件”工具栏中选择3个文本框,2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption属性分别为“查询”和“关闭”,结果如图3-108所示。 [*] 双击命令按钮“查询”,编写该控件的Click事件,程序代码如下: ******命令按钮Command1(查询)的Click事件代码***** SET TALK OFF OPEN DATABASE 学生住宿管理 USE学生 GO TOP LOCATE FOR 学生.学号==ALLTRIM(Thisform.Text1.Value) IF 学生.学号<>ALLTRIM(Thisform.Text1.Value) Thisform.Text2.Value="该生不存在!" Thisform.Text3.Value="" ELSE SELECT 学生.姓名; FROM 学生; WHERE 学生.学号=ALLTRIM(Thisform.Text1.Value); INTO CURSOR temp Thisform.Text2.Value=temp.姓名 USE 宿舍 LOCATE FOR 宿舍.学号==ALLTRIM(Thisform.Text1.Value) IF宿舍.学号<>ALLTRIM(Thisform.Text1.Value) Thisform.Text3.Value="该生不住校!" ELSE SELECT 学生.姓名.宿舍.宿舍; FROM 宿舍,学生; WHERE 学生.学号=ALLTRIM(Thisform.Text1.Value)AND宿舍.学号=学生.学号; INTO CURSOR temp Thisform.Text2.Value=temp.姓名 Thisform.Text3.Value=temp.宿舍 ENDIF ENDIF CLOSEALL SET TALK ON *********************************************************** 以同样的方法为“关闭”命令按钮编写Click事件代码;Thisform. Release。 保存表单文件为myf.scx到考生文件夹下,表单运行结果如图3-109所示。 [*]

解析 本大题考查了表单常用控件的基本设置,在程序设计部分,可将查询结果存放到一个临时表中,然后通过文本框的Value属性值来显示查询结果。
转载请注明原文地址:https://jikaoti.com/ti/Q0M7FFFM
0

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