五设计表单及相应脚本

1、五：设计表单及相应脚本1.数据维护表单 数据维护表单主要实现对数据的增、减、改、删功能。在此以“学生情况表”为例说明，其他两个表单设计与此类似。“学生情况表”表单设计效果图如图所示。操作步骤:(1)在“项目管理器”的“文档”选项卡中，选择【表单】【新建】【新建表单】；（2）修改表单的Captiom属性，取名为（“学生情况表数据维护表单“）。（3）在表单处单击右键，在弹出菜单中选择“数据环境”添加该表单所涉及到的表，此例为“学生情况表”。并在“数据环境设计器”中选定该表，然后在“属性”窗口中将其Exclusive属性设为T真。（4）在表单添加一个表格控件（Grid），并设置相应属性；对象名属性G

2、RID1RECORDSOURCE=学生情况表（数据环境中需添加的表）DeletemarkF 假Scrollbars2垂直（5）添加4个命令按钮，【添加】【修改】【删除】【退出】并设置相应属性（Caption）如下表。（6）编写脚本。（依次 双击命令按钮，打开空白记录本）事件事件代码Form Destroypackuse【添加】按钮ClickAppe blankThisform.grid1.column1.setfocus【修改】按钮click EDIT【删除】按钮Click If messagebox(“一旦删除记录便不能恢复，真的删除吗？”,1+48+0,”信息提示”)=1deleThisf

3、orm.refreshendifThisform.grid1.column1.setfocus【退出】按钮clickThisform.release当做完一个表后，可以点菜单上的 红色叹号按钮，系统会提示是否保存到表单中，此时给此表单取名为 myform11。不带后缀。或者在表单的右上角点关闭按钮，也会提示为此表单保存的对话框。为了节约时间，以此类推，做第二个或第三个表时，可以采取简单的方式。当做完第一个表单，经【运行】后查证都可以操作时，回到第一个表单处，点【菜单】【另存为】弹出另存为对话框，先为表单取名为myform12/myform13等.然后在表单中做如下几处修改即可.(1)在表单的空

4、白处点右键数据环境找到第二个表单所涉及的表,比如此例中第二个表为“课程成绩表”,点【添加】，右键【属性】exclusive属性设为T。（2）表单form1的caption的属性（如第二个表单“课程成绩表维护表单”）（3）在对象grid1的【属性】中，修改recordsource的属性（数据环境中所添加的表，如“课程成绩表”，必须与所添加表的名称一致）。如此招葫芦画瓢，可以做出第三个查询表单。2.数据查询表单数据查询表单需根据用户输入的查询条件，显示出满足条件的记录。（表单的基本操作请见附录3）（1） 通过学号查询学生基本情况（myform21.scx）按学号查询学生学号、姓名、性别、籍贯，此表

5、单包括一个【文本控件】、一个【标签】（输入学生学号的窗口），一个【表格】控件，一个表示“退出”的【命令】控件，如图所示，在表单处单击右键，在弹出的菜单中选择“数据环境”，添加该表单所涉及的表，此例为学生基本情况表。对象名属性GridRecordsource=学生情况表（数据环境中要添加的表）DelemarkF 假事件事件代码Text1的 lostfocus事件（双击text 窗口弹出空白记录本）Set filter to学号 alltrim(thisform.text1.value)Thisform.refresh【退出】按钮ClickThisform.release（2）第二个表，通过【课程

6、号】查询课程名称、出版社、单价情况表单（myform22.scx）表单包括一个【文本】控件和一个【标签】，用于输入（输入课程号编码的窗口），一个【表格】控件，一个表示退出的【命令】按钮。其界面和属性设置类似于表单myform21.scx。（3）双查询表单通过课程号和选课时间查询当天选课学生的基本情况表单（myform23.scx）从题目要求可知道，这是通过第二个表中的选课时间和课程号，来查询第一个表中的学生基本情况表。所以这设计到两个数据环境。做此表时，表单包括两个【文本】控件和两个【标签】控件，用于输入课程号及选课时间，一个表格控件用来显查询结果，一个退出命令按钮，一个表示【查询】的命令按钮

7、。此表中，标签名字通过【属性】修改，两个【文本】控件，不需要输入任何事件代码，grid表中也无需设置，此表的重点就是在写【查询】事件的代码。（4）“查询”按钮的CLICK脚本为Select 学生情况表.学号,姓名,课程号,选课时间;From 学生情况表,课程成绩表;Where 学生情况表.学号=课程成绩表.学号 and;课程号=alltrim(thisform.text1.value) and;选课时间=ctod(alltrim(thisform.text2.value);Into table resultThisform.grid1.recordsource=”result”Thisform

8、.refresh此脚本的解释为:Select :选择 学生情况表的主索引字段”学号”,选取要显示的结果”学号,姓名”以及要通过”课程号和选课查询”的两个字段名称.From :从学生情况表和课程成绩表两个表中选择.Where :学生情况表的主索引学号.和课程成绩表的学号字段(这是两个表都共同的字段名.通过这两个共同的字段来查询两个表中的数据.)要设置第一个文本控件,即通过”课程号”来查询,在第一个文本控件text 1中输入.要设置第二个文本控件,即通过”选课时间”来查询,在第二个文本控件text 2中输入.CTOD意为.C(字符型)to 转换为D(日期型).要通过输入字符型数据来转换成日期型字段

9、.Into table result 意为:把显示结果放到表 名为 result (表名可以自取)Thisform.grid1.recordsource 意为.对这表进行编辑,让result 这个表与grid 对应起来.Thisfrom.refresh 意为刷新此表.3.数据统计表单(此统计表单,考试时只要求列出 菜单项 即可.不需要做这个表单.4.个人信息表单(此表最为重要,因为现在需要把考生做的数据库上传到阅卷老师那里,所以这里一定要写明你的【考生姓名】【准考证号】【联系电话】【考试机位】【试卷号】和一个【退出】命令按钮。六：连编应用程序（把做过的数据库连编成一个可执行的程序）步骤：（1）在“项目管理器“中选择【连编】按钮