vf课程设计模板

1、哈尔滨理工大学课程设计数据库管理系统课程设计   学生信息管理系统的设计与实现 班级: 学号： 姓名（小组）： 指导教师： 年 月 日20一、系统的总体说明（需求分析）总体功能介绍在学生选课信息管理系统中，首先输入用户名和密码等登录信息，进入主界面，有以下模块“数据查询”、“记录修改”、“报表”、“密码安全”。在“数据查询”中，包含“课程查询”；在“记录修改”中包含“课程和学生选课修改”和“学生选课”；在“报表”中包含以下两项子菜单：“学生选课情况”，“可选课程”；在“密码安全”中有“密码修改”子菜单。在“可选课程信息”中输入相应的内容，即可显示相应的结果。原用户还可通过密码修改来不

2、定期修改自己的原始密码，保证了数据的真实性和安全性。用户还可通过查询课程信息来实现选课功能。管理员也可通过打印报表来查看学生的选课记录和学生个人信息。二、系统功能设计（总体设计）通过该系统可以基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除。系统功能模块如下图所示。学生信息录入学生信息查询学生信息浏览学生信息修改学生信息删除学生信息管理系统主界面登录管理三、系统设计（分步设计）1. 数据库及数据库表的设计第一，设计数据表的结构，数据表的结构如下：字段名字段类型字段宽度学号数值型12姓名字符型10性别字符型2出生日期日期型8籍

3、贯字符型20备注备注型4照片通用型4政治面貌字符型14第二，建立数据库及表的操作如下：（1）选择项目管理器中的“数据”。（2）选择数据中的“数据库”，按“新建”，弹出对话框，选择“新建数据库”按钮。弹出保存对话框，数据库命名为“学生管理”，并保存。（3）按数据库设计器工具栏上的“新建表”按钮，弹出新建表对话框，按“新建表”，输入新表名（学生信息），按“保存”。 单击“确定”以后出现对话框询问“现在输入数据记录吗？”，选择“是”，输入学生信息，输入后关闭。成绩表与系名表的建立同上2.菜单设计文件查询维护统计打印报表打开学生信息查询学生信息维护保存学生成绩查询另存为退出可调用菜单设计器创建主菜单。

4、本系统的各个子菜单大多是执行一条相关命令。如对于“查询”菜单下的“学生信息查询”菜单项，创建时可在菜单设计器对应该菜单项的“选项”栏中输入一条可执行查询表单的命令“do form xsxxcx”。其他创建步骤与此类似。设计完成后生成名为“main.mpr”的菜单程序文件。四、系统的实现1.表单实现第一，封面设计（1）选择项目管理器中的“文档”。（2）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单。（3）在表单中放入两个标签控件，其标题分别为“经济管理学院”“教学管理系统”（4）设置表单form1的autocenter的属性值.t.,picture属性值为

5、：d:/1104010110/vf/photo/pictur，titlebar属性值为“0-关闭”，shouwindow的属性值为“2-作为顶层表单”。（5）拉入计时器，在interval中输入3000（6）保存后关闭第二，身份验证表单的制作（1）选择文档中的“表单”，点击“新建”按钮，弹出对话框，选择“新建表单”，先制作一个空表单。（2）将空表单的标题属性Caption修改成“用户身份验证”。（3）在表单中放入两个标签控件，其标题分别为“用户名”、“密码”，继续放入两个命令按钮控件，分别设置其标题属性为“登录”、“退出”。（4）保存后关闭。第三，查询模块实现3.1（1）选择项目管理器中的“文

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

7、的标题属性Caption修改成“学生成绩查询”。（2）在表单中放入五个命令按钮，分别是“上一条”，“下一条”，“首条记录”，“开始查找”，“尾条记录”。（3）单击工具栏的“显示”中的“数据环境”将学生信息表中的每个字段单击拖进表单即可。（4）保存后关闭。五、测试及分析以VF6.0表单设计开发的“学生信息管理系统”，不但通过表单向导进行开发，而且结合自己引入数据编辑控件进行数据表单窗体的设计和数据录入。此系统功能齐全，设计合理，使用方便，适合各种学校对繁杂的学生信息进行统筹管理，具有严格的系统使用权限管理，具有完善的管理功能，强大的查询功能。它可以融入学校的信息管理系统中，不仅方便了学生信息各方

8、面的管理，同时也为教师的管理带来了极大地便利。此外，通过对该系统的设计可以更进一步清楚数据库表单设计是如何实现的，掌握它可以设计出自己满意的应用程序。此系统设计简单、有实用性，通过该系统我们可以熟悉数据库系统开发工具，逐步熟练使用各种设计工具、技术和手段，掌握程序调试方法和技术，使我们能够按照数据库系统开发的程序和规范进行，熟练掌握方案选择、总体设计、数据库设计、详细设计、系统测试等环节，系统能够实现预定的功能，运行稳定，操作方便，唯一不足的地方就是整个各个环节都要求我们自己动手，并且命令程序过于繁杂。此外，由于时间短暂，学生所做的课程设计还不是很完美，某些程序还不能顺利运行，希望以后学校能够

9、为我们提供更多的时间来操作训练。六、结束语 当今世界，信息科学技术已经渗透到经济、文化和社会的各个领域，迅速改变着人们的观念、生活和社会结构，作为大学生的我们应该紧跟时代潮流，不断丰富自己的知识，以适应知识经济发展的需要。通过这次关于学生信息管理系统的课程设计，让我更加深刻地感受到了掌握计算机知识的重要，并在这短暂的实践中熟练的掌握了数据库的设计、表单的设计、表单与数据库的连接、SQL语言的使用和了解它的功能：数据定义、数据操纵、数据控制，以及简单VF程序的编写。基本实现了学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除，并对Vis

10、ual FoxPro6.0的各种功能有了进一步的了解，并且使我的动手操作能力得到了很大提高，为我们以后更加深入的学习奠定了基础。我通过这次对学生信息管理系统的设计，在让我充分感受信息技术带给我们方便的同时，也让我充分认识到自己知识的匮乏，所以，我们平时要加强知识的积累来提高我们的知识水平和操作能力，从而提高我们的基本素质，使能更好的满足社会需求。这次实验的成功很大程度上依赖于老师的讲解，在此对老师表示深深的谢意。同时，也希望学校以后能给我们提供更多的实践机会，把课堂上的理论知识运用到实践当中，来提高我们各方面的素质，为我们步出校门，及早融入社会打下坚实基础。 总之，这次课程设计让我们受益匪浅，

11、我以后会更加注重这方面知识的学习与积累，使我们在经济全球化的今天能够经得起时代的考验。附录：源代码清单（相应的一些代码）封面代码 timerthisform.releasedo form check.scx登陆 Command1num=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

12、 num< 3 messagebox("用户名或密码有误,请重新输入!",0,"用户输入错误") thisform.text1.value="" thisform.text2.value="" thisform.text1.setfocus else thisform.release release num clear events endif useendifcommand2thisform.releaserelease num学生成绩查询Command1temp=alltrim(thisform.text

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

14、p=alltrim(thisform.text1.value)n=recno()go topscan if 学生表.学号=temp.or.学生表.姓名=temp thisform.text1.value="" thisform.text1.setfocus thisform.refresh return endifendscanmessagebox("该学生不存在!",0,"查找失败!")go nthisform.text1.value=""thisform.text1.setfocusthisiform.refr

15、escommand 首条记录go topmand3.enabled=.F.mand4.enabled=.T.mand5.enabled=.T.thisform.refreshcommand 下条记录skip -1if bof() messagebox("已经是首条记录!",40,"信息窗口") mand2.enabled=.F. mand3.enabled=.F. skipelse mand2.enabled=.T. mand3.enabled=.T.endifmand4.enabled=.T.mand5.enabled=.T.thisform.refr

16、eshcommand 上条记录skipif eof() messagebox("已经是尾条记录!",40,"信息窗口") skip -1 mand4.enabled=.F. mand5.enabled=.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.this

17、form.refresh学生信息维护Command 添加if this.caption="添加" tj=.T. n=recno() append blank Thisform.refresh thisform.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="还原

18、" mand7.caption="保存" mand8.enabled=.F. mand1.visible=.F. mand2.visible=.F. mand3.visible=.F. mand4.visible=.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

19、endif thisform.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=.T. mand1.visible=.T. mand2.visible=.T. mand3.visi

20、ble=.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=.F. thisform.Txt籍贯.readonly=.F. mand6.caption="还原" mand7.caption=&qu