第8章表单设计与控件应用.docVIP

第8章 表单设计与控件应用 8.1 学习指导 8.1.1 基本概念 图8-1 表单加入“数据环境” ③ 系统打开“数据环境设计器”的同时列出当前工作目录下可供选择是表文件，本例选择student .DBF，单击“确定”按钮，如图8-2所示。 图8-2 选择的表文件 分别将student表中的字段拉到表单上，如图8-3所示。再在“表单”的下部加入5个命令按钮Command1~Command5。 图8-3 字段拉到表单上 2．设置对象属性 对象属性如表8-1所示。 表8-1 对象属性 对 象 名 属 性 名 属 性 值 对 象 名 属 性 名 属 性 值 Form1 Command1 Command2 Caption Caption Caption 查看学生表 第一个 上一个 Command3 Command4 Command5 Caption Caption Caption 下一个 最后一个 记录扫描 3．编写代码 “第一个”命令按钮（Command1）的Click事件代码： GO TOP Thisform.Refresh “上一个”命令按钮（Command2）的Click事件代码： IF !BOF（） SKIP -1 ENDIF Thisform.Refresh “下一个”命令按钮（Command3）的Click事件代码： IF !EOF（） SKIP ENDIF Thisform.Refresh “最后一个”命令按钮（Command4）的Click事件代码： GO BOTTOM Thisform.Refresh “记录扫描”命令按钮（Command5）的Click事件代码： SET EXACT OFF js=0 LOCA FOR 学号=”01” SCAN FOR 学号=”01” Thisform.Refresh Wait “” Timeout 1 等待1秒 js=js+1 ENDSCAN MessageBox(“学号01打头共”+STR(js)+”人”) 4．运行表单 运行表单后的界面如图8-4所示。 图8-4 运行表单界面 【例8-10】设计表单czcj，要求通过输入学号和课程号，查找相关学生的姓名、课程名和成绩。 【操作步骤】 1．建好学生信息管理数据库，作为查找的数据源，建立相关关联和索引，如图8-5所示： 图8-5-1数据库及关联 Student表索引建立 Score表索引建立 Course表索引建立 图8-5-2三个表的索引建立 2.设计表单 新建一个空白表单CZCJ，在表单上放置表单控件对象（5个标签,5个文本框，一个命令按钮），并设置各个控件对象的属性，对象属性设置如表8-2所示。 表8-2 设置对象属性 对象名 属性名 属性值 对象名 属性名 属性值 Form1 Label1 Label2 Label3 Label4 Label5 Text1 Text2 Caption Caption Caption Caption Caption Caption Name Name 查找成绩表 学 号： 课程号： 姓 名： 课程名： 成 绩： TextXH TextKCH Text3 Text4 Text5 Command1 Name ReadOnly Name ReadOnly Name ReadOnly Value Caption TextXM .T. TextKCM .T. TextCJ .T. 0 查找 设计后的表单界面如图8-6所示。 图8-6 “查找成绩表”表单的界面 编写事件代码 “查找”命令按钮（Command1）的Click事件代码： txh=ALLTRIM(THISFORM.TextXH.Value) tkch=ALLTRIM(THISFORM.TextKCH.Value) IF EMPTY(txh).OR.EMPTY(tkch) MESSAGEBOX(学号和课程号不能为空！) RETURN ENDIF CLOSE ALL OPEN DATABASE 学生信息管理 USE student IN 0 ORDER TAG 学号 USE score IN 0 ORDER TAG 学号课号 USE course IN 0 ORDER TAG 课程编号 Select score SEEK txh+tkch IF !EOF( ) THISFORM.TextCJ.Value=成绩 THISFORM.Refresh Select student SEEK txh IF !EOF( ) THISFORM.Textxm.Value=姓名 THISFORM.Refresh Select course SEEK tkch