实验六简单学生信息查询系统的设计与实现.docx

1、实验六简单学生信息查询系统的设计与实现实验四 简单“学生信息查询系统”的设计与实现实验题目简单的“学生信息查询系统”的设计与实现日期2013.9.23一、实验目的1、掌握应用程序设计规划的基本方法；、掌握使用VFP设计简单的查询系统；、掌握数据表的建立，及表单控件与数据源的连接方法；、掌握查询、修改、添加、删除记录的基本实现方法。二、设备与环境PC兼容机、Windows系列操作系统、Visual FoxPro数据库编程环境三、实验内容（一）设计简单的“学生信息查询系统”；要求：设计一个简单的“学生信息查询系统”，其功能包括系统的登陆、学生信息的添加/删除、根据不同条件进行模糊查询等。（二）设计

2、3个自由表；包括：密码表、系表、学生信息表，表中记录自行输入，记录应尽量真实，每个表记录数不得少于条。表结构如下。1. 密码表passwd.dbf字段名字段类型字段宽度说明用户名字符型字符密码字符型英文字母或数字2. 系表department.dbf字段名字段类型字段宽度说明系编号字符型字符型（数字）系名字符型汉字联系电话字型数字3.学生信息表student_info.dbf字段名字段类型字段宽度说明学号字符型数字姓名字符型汉字性别字符型汉字年龄数值型数值系编号字符型字符型（数字）（三）欢迎界面 要求：设计时可参考图1创建系统欢迎界面，单击窗口开始系统登陆2设计查询登陆系统（四）查询系统登陆界

3、面 要求： 1.填入正确的用户名和密码，登陆系统； 2.假若用户名或密码错误，应给出相应提示； 3.重试次数不得超过三次； 4.加入“重新填写”功能； 5.设计时可参考给出的图。 （五）系统主界面 要求：“学生信息查询系统”主界面包括四个按钮；1.学生信息查询；2.信息的修改/添加；3.信息的删除；4.退出。（六）查询模块要求：1.查询能够实现按照不同条件进行查询；2.查找到的信息显示在查询内容下方的列表中；3.当没有找到符合条件的记录时，能够给出友好的提示信息。 （七）信息添加/修改界面 要求： 1.完成信息的添加/修改操作；2.实现将不同系部的学生分类显示。 （八）记录的删除界面 要求：

4、1.了解逻辑删除和物理删除的区别；2.编程实现逻辑删除、物理删除两种删除方式的选择。四、实验结果及分析（一）自由表 图一：密码表 图二：系表 图三：学生信息表（二）欢迎界面 欢迎界面属性设置：对象属性名值作用FormCaption欢迎使用学生信息查询系统设置欢迎界面表达标题内容Piture瓢虫.Jpg为表单插入图画背景Label1Caption学生信息查询系统界面标题1内容Autosize.t.区域大小自适应标题Backstyle0透明标签与表单颜色一致Fontname楷体指定用于显示文本的字体名Fontsize36指定对象文本的字体大小Forecolor128,0,255指定用于显示对象文本

5、和图形的前景色Label2Caption单击窗口开始登陆界面标题2内容Autosize.t.区域大小自动适应标题Backstyle0透明标签与表单颜色一致Fontname楷体指定用于显示文本的字体名Fontsize20指定对象文的字体大小Forecolor0.128.255指定用于显示对象文本和图形的前景色代码:Label2的click的事件代码:do form pass.scx(3)学生信息查询系统登陆界面 图五：登陆界面属性设置:对象属性名值作用FormCaptionPass设置表单的标题内容Label1Caption学生信息查询登陆系统标签1的内容Autosize.t.区域大小自动适应标

6、题Backstyle0透明标签与表单颜色一致Fontname黑体指定用于显示文本的字体名Fontsize20指定对象文本的字体大小Label2Caption用户名标签2的内容Autosize.t.区域大小自动适应标题Backstyle0透明标签与表单颜色一致Fontsize12指定对象文本的字体大小Label3Caption密码标签3的内容Autosize.t.区域大小自动适应标题Backstyle0透明标签与表单颜色一致Fontsize12指定对象文本的字体大小文本框1CaptionText1设置文本框标识Value无清空文本框文本框2CaptionText2设置文本框标识Value无清空文

7、本框Command1Name确定设置密令按钮的标题Command2Name重新填写设置密令按钮的标题Command3Name退出设置密令按钮的标题代码:Command1(确定)的click事件：j=j+1do while not eof()if thisform.text1.value=用户名username=.t.if thisform.text2.value=密码userpassword=.t.exitelsei=i+1exitendifelseskipendifenddogo topif username=.t.if userpassword=.t.messagebox(欢迎使用学生信息

8、查询系统！)thisform.releasedo form 主界面elseif i3messagebox(密码错误，请重新输入密码！)thisform.text2.value=thisform.text2. setfocuselsemessagebox(密码尝试超过3次，退出系统！)thisform.releasequitendifendifelseif j3messagebox(用户名输入错误，请重新输入！)thisform.text1.value=thisform.text2.setfocuselsemessagebox(用户名尝试超过3次，退出系统！)thisform.releasequ

9、itendifendifcommand2(重新填写)的click事件：thisform.text1.value=thisform.text2.value=thisform.text1.setfocuscommand3(退出)的click事件thisform.release（四）系统主界面图六：主界面属性设置:对象属性名值作用Form1Caption系统主界面设置表单的标题内容Command1Caption学生信息查询设置命令按钮的标题Command2Caption信息的修改/添加设置命令按钮的标题Command3Caption信息的删除设置命令按钮的标题Command4Caption退出设置命

10、令按钮的标题代码：Command1（学生信息查询）的click事件：do form 信息查询Command2（信息的修改/添加）的click事件：do form 信息的添加与修改Command3（信息的删除）的click事件; do form 信息的删除Command4（退出）的click事件;thisform.release(五)学生信息查询模块此模块需要插入表单,添加学生信息表到数据环境并进行设置 图七:查询界面属性设置：对象属性名值作用Form1Caption学生信息查询模块设置表单的标题Label1Caption请选择学生信息查询方式：标签1的内容Backstyle0透明标签的背景透明

11、Autosize.t.区域大小自动适应标题内容Label2Caption填入待查询的内容标签2的内容Backstyle0透明标签的背景透明Autosize.t.区域大小自动适应标题内容Optiongroup1Backstyle0透明选项按钮组的背景透明Text1NameText1设置文本框标识Command1Caption确定查找设置命令按钮1的标题Autosize.t.区域大小自动适应标题内容Command2Caption取消并退出设置命令按钮2的标题Autosize.t.区域大小自动适应标题内容代码：optiongroup1的click事件:LPARAMETERS cName, cClas

12、sOption1 set filter to 学号=allt(thisform.text1.value)Option 2set filter to 姓名=allt(thisform.text1.value)Option3 set filter to 性别=allt(thisform.text1.value) Option4 set filter to 年龄=val(allt(thisform.text1.value) Option5set filter to 系编号=allt(thisform.text1.value)command1 （确定查找）的click事件：thisform.refre

13、sh command2（取消并退出）的click事件：thisform.release（6）信息的添加修改图八;信息的添加修改1. 打开“文件”中的新建命令，选定“表单”中的“向导”按钮；2. 打开“表单向导”，选择“一对多表单向导”；3. 从父表中选定字段：单击“数据库和表”的对话按钮，在“打开”对话框中选定“系表”，然后将“可用字段”中的所有字段移到“选定字段”列表框中，选定“下一步”；4. 从字表中选定字段：单击“数据库和表”的对话按钮，在“打开”对话框中选定“学生信息表”，然后将“可用字段”中的所有字段移到“选定字段”列表框中，选定“下一步”；5. 建立表之间的关系：选定“下一步”；6

14、. 设置完成对话框：在“请键入表单标题”文本框中输入“信息的添加修改”选定“完成”；7. 运行并进行调试；8. 表单“信息的添加修改”执行后，父表提供分类数据，子表数据则显示在表格中，用按钮翻页时子表的内容随父表变化。属性设置:对象属性名值作用From1Caption信息的添加修改设置表单的标题内容Label1Caption系编号标签1的内容Label2Caption系名标签2的内容Label3Caption系联系电话标签3的内容Text1Caption系编号1文本框1的内容Controlsouce系表.系编号指定与对象建立联系的数据源Text2Caption系名1文本框2的内容Control

15、souce系表.系名指定与对象建立联系的数据源Text2Caption系联系电话1文本框3的内容Controlsouce系表.系联系电话指定与对象建立联系的数据源（7）信息的删除图九：信息的删除属性设置:对象属性名值作用FormCaption信息的删除设置表单的标题Label1Caption系编号标签1的内容Autosize.t.区域大小自动适应标题内容Backstyle0透明标签的背景透明Label2Caption系名称标签2的内容Autosize.t.区域大小自动适应标题内容Backstyle0透明标签的背景透明Label3Caption系联系电话标签3的内容Autosize.t.区域大小

16、自动适应标题内容Backstyle0透明标签的背景透明Gird1Recordsource学生信息表指定数据的来源Command1Caption下一个设置命令按钮1的标题Command2Caption上一个设置命令按钮2的标题Command3Caption仅从表中删除设置命令按钮3的标题Command4Caption从磁盘中删除设置命令按钮4的标题Command5Caption退出设置命令按钮5的标题代码：command1 (仅从列表中删除数据)的click事件：use 学生信息表delete allcommand2（从磁盘上删除数据）的click事件：use 学生信息表zap错误分析：在“学生信息查询模块”中单击“按学号查询”时，系统没有反应。解决方法：将代码中的过程由click改为init