vf课程设计--学生信息管理系统的设计与实现

1、.数据库应用实践   学生信息管理系统的设计与实现班级:会计1101学号：11040050103姓名：宋小明指导教师：李飒2013年 12 月 24 日;17一、课程设计的目的和意义当今，人类正在步入一个以智力资源的占有和配置，知识生产、分配和使用为最重要因素的知识经济时代，为了适应知识经济时代发展的需要，大力推动信息产业的发展，我们通过对学生信息管理系统的设计，来提高学生的操作能力，及对理论知识的实践能力，从而提高学生的基本素质，使其能更好的满足社会需求。学生信息管理系统是一个简单实用的系统，它是学校进行学生管理的好帮手。此软件功能齐全，设计合理，使用方便，适合各种学校对繁杂的学生

2、信息进行统筹管理，具有严格的系统使用权限管理，具有完善的管理功能，强大的查询功能。它可以融入学校的信息管理系统中，不仅方便了学生信息各方面的管理，同时也为教师的管理带来了极大地便利。我们进行本次课程设计的主要目的是通过上机实践操作，熟练掌握数据库的设计、表单的设计、表单与数据库的连接、SQL语言的使用和了解它的功能：数据定义、数据操纵、数据控制，以及简单VF程序的编写。基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除，并对Visual FoxPro6.0的各种功能有进一步的了解，为我们更进一步深入的学习奠定基础，并在实践中提

3、高我们的实际应用能力，为我们以后的学习和工作提供方便，使我们更容易融入当今社会，顺应知识经济发展的趋势 。二、系统功能设计通过该系统可以基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除。系统功能模块如下图所示。学生信息录入学生信息查询学生信息浏览学生信息修改学生信息删除学生信息管理系统主界面登录管理三、系统设3.2 数据库及数据表的设计1. 设计数据表的结构，数据表的结构如下：字段名字段类型字段宽度学号数值型12姓名字符型10性别字符型2出生日期日期型8籍贯字符型20备注备注型4照片通用型4政治面貌字符型142. 建立数据库

4、及表的操作如下：（1）选择项目管理器中的“数据”。（2）选择数据中的“数据库”，按“新建”，弹出对话框，选择“新建数据库”按钮。弹出保存对话框，数据库命名为“学生管理”，并保存。（3）按数据库设计器工具栏上的“新建表”按钮，弹出新建表对话框，按“新建表”，输入新表名（学生信息），按“保存”。 单击“确定”以后出现对话框询问“现在输入数据记录吗？”，选择“是”，输入学生信息，输入后关闭。成绩表与系名表的建立同上二表单的制作1、封面设计（1）选择项目管理器中的“文档”。（2）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单。（3）在表单中放入两个标签控件，其标

5、题分别为“经济管理学院”“教学管理系统”（4）设置表单form1的autocenter的属性值.t.,picture属性值为：d:/1104010110/vf/photo/pictur，titlebar属性值为“0-关闭”，shouwindow的属性值为“2-作为顶层表单”。（5）拉入计时器，在interval中输入3000（6）保存后关闭2、身份验证表单的制作（1）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单。（2）将空表单的标题属性Caption修改成“用户身份验证”。（3）在表单中放入两个标签控件，其标题分别为“用户名”、“密码”，继续放入两个命

6、令按钮控件，分别设置其标题属性为“登录”、“退出”。（4）保存后关闭。3、查询模块设计3.1（1）选择项目管理器中的“文档”。（2）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单。（3）将空表单的标题属性Caption修改成“学生信息查询”，并将学生表“学生表.dbf”加入该表单的数据环境。（4）在表单顶部添加一个标签和文本，命令按钮，其caption属性值为“请输入学号或姓名”“开始查找”（5）在表单底部加入四个命令按钮caption属性值为“首条记录”“上条记录”“下条记录”“尾条记录”（6）将各字段对应的文本框readonly属性值设置为.T.（7

7、）保存并关闭3.2（1）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单，将空表单的标题属性Caption修改成“学生成绩查询”。（2）在表单中放入五个命令按钮，分别是“上一条”，“下一条”，“首条记录”，“开始查找”，“尾条记录”。（3）单击工具栏的“显示”中的“数据环境”将学生信息表中的每个字段单击拖进表单即可。（4）保存后关闭。4、维护模块设计（1）选择项目管理器中的“文档”。（2）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单。（3）将空表单的标题属性Caption修改成“学生信息维护”，并将学生表“学生表.

8、dbf”加入该表单的数据环境。（4）在表单顶部添加一个标签和文本，命令按钮，其caption属性值为“请输入学号或姓名”“开始查找”添加”“修改”“删除”（5）在表单底部加入六个命令按钮caption属性值为“首条记录”“上条记录”“下条记录”“尾条记录”（6）将各字段对应的文本框readonly属性值设置为.T.（7）保存并关闭三、主菜单的设计文件查询维护统计打印报表打开学生信息查询学生信息维护保存学生成绩查询另存为退出可调用菜单设计器创建主菜单。本系统的各个子菜单大多是执行一条相关命令。如对于“查询”菜单下的“学生信息查询”菜单项，创建时可在菜单设计器对应该菜单项的“选项”栏中输入一条可执

9、行查询表单的命令“do form xsxxcx”。其他创建步骤与此类似。设计完成后生成名为“main.mpr”的菜单程序文件。四、系统主程序设计4.1 建立主程序本系统单独创建了一个名为“main.prg”的简单主程序，该程序包含的命令序列如下：Set talk offSet default to d”1104010110vfDo form index.scxRead events2.2 设置主程序设置主程序的步骤是：1. 在项目管理器中选择要设置为主程序的某个程序、表单或菜单。在本例中，在项目管理器的“代码”选项卡中选择以上建立的“main.prg”。2. 选择vf 主窗口“项目”菜单下的“

10、设置主文件”选项，是该项前面出现选中标记。四、测试及分析以VF6.0表单设计开发的“学生信息管理系统”，不但通过表单向导进行开发，而且结合自己引入数据编辑控件进行数据表单窗体的设计和数据录入。此系统功能齐全，设计合理，使用方便，适合各种学校对繁杂的学生信息进行统筹管理，具有严格的系统使用权限管理，具有完善的管理功能，强大的查询功能。它可以融入学校的信息管理系统中，不仅方便了学生信息各方面的管理，同时也为教师的管理带来了极大地便利。此外，通过对该系统的设计可以更进一步清楚数据库表单设计是如何实现的，掌握它可以设计出自己满意的应用程序。此系统设计简单、有实用性，通过该系统我们可以熟悉数据库系统开发

11、工具，逐步熟练使用各种设计工具、技术和手段，掌握程序调试方法和技术，使我们能够按照数据库系统开发的程序和规范进行，熟练掌握方案选择、总体设计、数据库设计、详细设计、系统测试等环节，系统能够实现预定的功能，运行稳定，操作方便，唯一不足的地方就是整个各个环节都要求我们自己动手，并且命令程序过于繁杂。此外，由于时间短暂，学生所做的课程设计还不是很完美，某些程序还不能顺利运行，希望以后学校能够为我们提供更多的时间来操作训练。五、结束语 当今世界，信息科学技术已经渗透到经济、文化和社会的各个领域，迅速改变着人们的观念、生活和社会结构，作为大学生的我们应该紧跟时代潮流，不断丰富自己的知识，以适应知识经济发

12、展的需要。通过这次关于学生信息管理系统的课程设计，让我更加深刻地感受到了掌握计算机知识的重要，并在这短暂的实践中熟练的掌握了数据库的设计、表单的设计、表单与数据库的连接、SQL语言的使用和了解它的功能：数据定义、数据操纵、数据控制，以及简单VF程序的编写。基本实现了学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除，并对Visual FoxPro6.0的各种功能有了进一步的了解，并且使我的动手操作能力得到了很大提高，为我们以后更加深入的学习奠定了基础。我通过这次对学生信息管理系统的设计，在让我充分感受信息技术带给我们方便的同时，也让我

13、充分认识到自己知识的匮乏，所以，我们平时要加强知识的积累来提高我们的知识水平和操作能力，从而提高我们的基本素质，使能更好的满足社会需求。这次实验的成功很大程度上依赖于老师的讲解，在此对老师表示深深的谢意。同时，也希望学校以后能给我们提供更多的实践机会，把课堂上的理论知识运用到实践当中，来提高我们各方面的素质，为我们步出校门，及早融入社会打下坚实基础。 总之，这次课程设计让我们受益匪浅，我以后会更加注重这方面知识的学习与积累，使我们在经济全球化的今天能够经得起时代的考验。附录：源代码清单封面代码 timerthisform.releasedo form check.scx登陆 Command1n

14、um=num+1yhm=alltrim(thisform.text1.value)mm=alltrim(thisform.text2.value)use d:1104010110vf管理员表locate for 用户名=yhmif found().and.密码=mm use thisform.release release num do main.mprelse if num< 3 messagebox("用户名或密码有误,请重新输入!",0,"用户输入错误") thisform.text1.value="" thisform.

15、text2.value="" thisform.text1.setfocus else thisform.release release num clear events endif useendifcommand2thisform.releaserelease num学生成绩查询Command1temp=alltrim(thisform.text1.value)n=recno()go topscan if 成绩表.学号=temp.or.成绩表.姓名=temp thisform.text1.value="" thisform.text1.setfocus

16、 thisform.refresh return endifendscanmessagebox("该学生不存在!",0,"查找失败!")go nthisform.text1.value=""thisform.text1.setfocusthisform.refresh学生信息查询Command 开始查找temp=alltrim(thisform.text1.value)n=recno()go topscan if 学生表.学号=temp.or.学生表.姓名=temp thisform.text1.value=""

17、thisform.text1.setfocus thisform.refresh return endifendscanmessagebox("该学生不存在!",0,"查找失败!")go nthisform.text1.value=""thisform.text1.setfocusthisiform.refrescommand 首条记录go topmand3.enabled=.F.mand4.enabled=.T.mand5.enabled=.T.thisform.refreshcommand 下条记录skip -1if bof()

18、messagebox("已经是首条记录!",40,"信息窗口") mand2.enabled=.F. mand3.enabled=.F. skipelse mand2.enabled=.T. mand3.enabled=.T.endifmand4.enabled=.T.mand5.enabled=.T.thisform.refreshcommand 上条记录skipif eof() messagebox("已经是尾条记录!",40,"信息窗口") skip -1 mand4.enabled=.F. mand5.en

19、abled=.F. skipelse mand4.enabled=.T. mand5.enabled=.T.endifmand2.enabled=.T.mand3.enabled=.T.thisform.refreshcommand 尾条记录go bottommand2.enabled=.T.mand3.enabled=.T.mand4.enabled=.F.thisform.refresh学生信息维护Command 添加if this.caption="添加" tj=.T. n=recno() append blank Thisform.refresh thisform.

20、txt学号.readonly=.F. thisform.Txt姓名.readonly=.F. thisform.Txt性别.readonly=.F. thisform.Txt出生日期.readonly=.F. thisform.Txt政治面貌.readonly=.F. thisform.Txt籍贯.readonly=.F. mand6.caption="还原" mand7.caption="保存" mand8.enabled=.F. mand1.visible=.F. mand2.visible=.F. mand3.visible=.F. mand4.v

21、isible=.F. mand5.visible=.F. thisform.txt学号.setfocus thisform.Text1.lostfocus thisform.refreshelse if tj=.T. Gather memo from sz thisform.refresh else Delete Pack Go n Thisform.refresh endif thisform.txt学号.readonly=.F. thisform.Txt姓名.readonly=.F. thisform.Txt性别.readonly=.F. thisform.Txt出生日期.readonly

22、=.F. thisform.Txt政治面貌.readonly=.F. thisform.Txt籍贯.readonly=.F. mand6.caption="添加" mand7.caption="修改" mand8.enabled=.T. mand1.visible=.T. mand2.visible=.T. mand3.visible=.T. mand4.visible=.T. mand5.visible=.T. Thisform.Text1.setfocus Thisform.refreshendifcommand 修改if this.caption="修改" tj=.F. scatter memo to sz thisform.txt学号.readonly=.F. thisform.Txt姓名.readonly=.F. thisform.Txt性别.readonly=.F. thisform.Txt出生日期.readonly=.F. thisform.Txt政治面貌.readonly