人资一陈林治理信息系统试验申报整理版

1、重庆工商大学管理信息系统实 验 报 告课程名称 管理信息系统实验 姓 名 陈 林 专业班级 09人力资源管理一班学 号 2009032144 指导教师 涂智寿 实验时间 2010-2011第二学期 十一周-十四周实验地点 慧智楼 80702 前 言管理信息系统是一门实验性极强的课程，管理信息系统是集计算机技术、网络通讯技术为一体的信息系统工程，它能够使企业动作的数据更加准确、及时、全面、详实，同时便于对各种信息做进一步地加工；另外也进一步加强了企业管理的科学化、合理化、制度化、规范化。数据库信息管理系统是在某一数据库的支持下，进行数据库的采集、整理、存储，并对其进行查询、修改、删除、统计等操作

2、。要建立一个结构合理、处理灵活、具有一定的可充性的应用系统，必须进行数据库设计。数据库设计是指对于给定的软、硬件环境，针对现实问题，设计一个较优的数据库模型，依据此模型建立数据库中表的结构并以此为基础构建数据库信息管理应用系统。09人资一陈林2009032144管理信息系统实验报告重庆工商大学管理信息系统实 验 报 告课程名称 管理信息系统实验 姓 名 陈 林 专业班级 09人力资源管理一班学 号 2009032144 指导教师 涂智寿 实验时间 2010-2011第二学期 十一周-十绎笑捅啡才哑陪独券课庐扎脾弓设胳辨打间轻地当棠艰盯锁琢豌镇缅驭尉叮届羌蚌沏津租共宋州布嗅啄帐蛤惟扬扳毖厄祖竞棒

3、坛删笔抄贵高谐局蒜一、 实验项目：利用Visual FoxPro，建立起学生信息管理系统，用于学生选课。二、 实验时间：2010-2011第二学期十一到十四周周二下午6-9节三、 实验地点：启智楼80702教室四、实验目的：本系统用于学校学生信息管理，主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还对学生选课信息进行管理。针对这些要求，该系统主要包括学生信息录入、查询、维护和选课4部分。（1） 学生信息录入：主要是录入学生班级名单、学生基本情况。（2） 学生信息查询：主要是按指定系统检索该系的学生信息，其中包括所有的学生记录。（3） 学生信息维护：主要是维护学生、

4、系、课程和学生选课及成绩等方面的基本信息，包括增加、删除、修改等功能。（4） 学生选课:为学生提供选课界面。该界面要列出所有课程信息供学生查询和选课。学生在进入该界面前要输入自己正确的信息。该界面核对学号和姓名后显示该学生所得学分，同时显示出该生的选课课表，课表反映该生选课情况。学生选课收一些条件的约束，如果该课程名额限制等。该界面允许学生选课和退课。五、系统功能结构系统的运行以封面表单开始，要求用户输入登录口令，并设置检查功能，若输入的口令出错，则自动退出系统；否则出现系统菜单，接受用户的操作，操作完毕后用户可以从系统菜单中退出系统。系统的功能分为6个模块，它们是：信息录入、数据查询、数据修

5、改、学生选课、打印输出和退出。每个功能模块又可细化为几项子功能。（1） 数据录入模块：可以实现学生信息录入。（2） 数据查询模块：提供学生信息查询界面，用户可以选择一个系，该模块查询并显示该系信息和该系的学生信息。（3） 数据维护模块：允许用户选择一个维护对象（如课程），然后进行维护工作，该界面还提供一般的信息浏览。（4） 学生选课模块：提供选课界面，每个学生进入该界面后，先输入自己的学号和姓名，该模块检查其合法性，如果正确，显示该生的新选课表等有关信息。该界面允许学生查询课程，并进行选课、退课等操作。该模块对选课过程进行一系列必要的检查，如出现课程已选、没有名额等情况时，都会给出错误信息。（

6、5） 打印输出：实现各种所需报表的预览和打印功能。（6） 退出：用来实现退出本管理系统。六、实验方法和过程说明打开Visual FoxPro后，将进行如下操作：（一）单击“文件”“新建”“项目”，从而新建了一个项目文件，将其命名为“项目1”，保存在事先已经在桌面建立的“管理信息系统实验”文件夹中。接下来的所有操作，都必须在项目1中进行，保存在项目1中。（二）设计数据库，建立数据表（1）点击项目管理器“项目1”“数据” “数据库” “新建” “新建数据库”，从而在项目管理器中建立一个名为“学生信息管理系统”的数据库文件。简要过程如下图所示：（2）在“学生信息管理系统”数据库中添加6个表，分别是系

7、表、学生表、班级表、课程表、选课表和教务员注册表。另外还有一个表名表。在每个数据表中输入6条数据，各个表的结构和效果如下图所示：表3.2 教务员注册表（adminer.dbf)表3.3 系表(dept.dbf)表3.4 班级表（class.dbf)表3.5 学生记录表(stu.dbf)表3.6 课程表（course.dbf)表3.7 选课表（sc.dbf)表3.8 表名表（biao.dbf)建立该数据库中表的关联关系，如下图所示：（三）系统实现方案（主要描述各事件的代码和一些关键操作，具体详见习题书）1.系统登录表单（denglu.scx）它是操作人员打开本系统的必经之路，通过它可以防止非本系

8、统操作人员的进入，确保了系统安全性。“启动系统”按钮的click事件：set exact onif trim(thisform.text1.value)123456 if messagebox(请重新输入密码!,16，提示)=1 endifendifif trim(thisform.text1.value)=123456 do form mainform wait release thisformendif“退出系统”按钮的click事件：quitrue=messagebox(真的要退出学生信息管理系统吗?,20，警告)if quitrue=6 release thisformendif2.学

9、生信息查询表单（dept.scx）查询时系统的最基本而又很重要额一个功能，能让用户方便快捷、多角度地得知想查找的信息。本系统能快速浏览各系及其学生的基本情况。 设计导航条后在新建表单。新建“类”，在“类名”种输入fy，“派生于”commandgroup，选择好存储路径，单击“确定”后进入属性窗口，修改buttoncount的值为4。“上一个”按钮的click事件skip -1if bof() messagebox(已是第一个记录,48，信息窗口) mand1.enabled=.f. mand2.enabled=.f. skipelse mand1.enabled=.t. mand2.enabl

10、ed=.t.endifmand3.enabled=.t.mand4.enabled=.t.thisform.refresh“第一个”按钮的click事件goto topmand1.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.thisform.refresh“下一个”按钮的click事件skip if eof() messagebox(已是最后一个记录,48，信息窗口) skip -1 mand3.enabled=.f. mand4.enabled=.f. skipelse mand3.enabled=.t.mand4.enabled=.t.endi

11、fmand1.enabled=.t.mand1.enabled=.t.thisform.refresh“最后一个”按钮的click事件goto bottomd=.f.mand1.enabled=.t.mand2.enabled=.t.thisform.refresh“退出”按钮的click事件?chr(7)result=messagebox(是否退出,4+32+256,信息)if result=6 thisform.releaseendif3.信息维护表单（weihu.scx）本模块的目的在于对系统的数据库中的表进行维护，进行日常的增加、删除。在该界面中，用户通过下拉式组合框选择要维护的表，单

12、击“进入维护”按钮后，下方的表格即显示要维护的内容，用户通过“增加&删除”按钮可实现修改功能。注意要往表单中的数据环境添加各数据表。“进入维护”按钮的click事件do case case bo1.value=adminer thisform.grid1.recordsource=adminer case bo1.value=course thisform.grid1.recordsource=course case bo1.value=dept thisform.grid1.recordsource=dept case bo1.value=sc thisform.grid1.recordso

13、urce=sc case bo1.value=stu thisform.grid1.recordsource=stu thisform.grid1.refresh case bo1.value=class thisform.grid1.recordsource=classendcasebo1.enabled=.f.mand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.“退出维护”按钮的click事件?chr(7)result=messagebox(是否退出?,4+32+256,信息)if result=6 thi

14、sform.releaseendif“增加&删除”按钮的click事件thisform.grid1.enabled=.t.thisform.grid1.allowaddnew=.t. &允许表格执行更改操作“确定&退出”按钮的click事件used=.f.thisform.grid1.allowaddnew=.f. &不允许表格执行更改操作thisform.grid1.recordsource=mand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.bo1.enabled=.t. &将进入维护、退出维护控件恢复可用

15、thisfo4.输入验证表单（shuru.scx）和学生选课表单（seleclass.scx）“确定”按钮的click事件public textt1,textt2useuse stuset order to 学号if thisform.text1.value=alltrim(stu.学号) if thisform.text2.value=alltrim(stu.姓名) textt1=alltrim(thisform.text1.value) textt2=alltrim(thisform.text2.value) use do form seleclass thisform.releaseel

16、se messagebox(输入有误,48,学生管理系统)endifelse messagebox(输入有误,48,学生管理系统)endif“退出”按钮的click事件?chr(7)result=messagebox(是否退出?,4+32+256,信息)if result=6 thisform.releaseendif 创建4个本地视图，各视图所需实现的功能如下：视图1：用来存储学生选中的课程，并随学生选课操作不断刷新。视图2：用来存储学生已修合格的课程。视图3：用来存储学生选修课程的门数和选修课程的总学分，并随学生选课操作不断刷新。视图4：用来存储学生已修课程的总学分。注意：4个视图都需创建

17、参数，本系统的4个参数分别为par1、par2、par3、par4，均为字符型，对应为学生的学号。以下以视图1为例： 控件text1属性readonly为.t.。其init代码为：this.value=textt1 &textt1是全局变量，由上一个表单传递过来控件text2属性readonly为.t.。其init代码为：this.value=textt2 &textt2是全局变量，由上一个表单传递过来控件text3属性readonly为.t.，属性controlsource为“视图4.sum_学分”，属性value为“=sum(视图2.学分)”。控件text4不作任何修改。 控件text5属

18、性readonly为.t.，属性controlsource为“视图t_课程号”。 控件text6属性readonly为.t.，属性controlsource为“视图3.sum_学分”。 控件text7属性readonly为.t.，属性colorsource为“0objectcolor”，属性controlsource为“course.课程号”。“查询”按钮的click事件thisform.grdcourse.recordsource=select courseuse courseset order to 课程号if course.课程号!=alltrim(thisform.text4.valu

19、e) go top messagebox(课程不存在,48，学生管理系统)else thisform.grdcourse.recordsource=course thisfoendif“选课”按钮的click事件select scuse scset order to 课程号if sc.成绩=60 messagebox(该课程已修,48,信息窗口)else if sc.课程号=alltrim(thisform.text7.text) if sc.学号=alltrim(thisform.text1.text) messagebox(该课程已选,48，信息窗口) else append blank

20、replace sc.课程号 with alltrim(thisform.text7.text) replace sc.学号 with alltrim(thisform.text1.text) endif else append blank replace sc.课程号 with alltrim(thisform.text7.text) replace sc.学号 with alltrim(thisform.text1.text) endifendifthisform.grd视图1.recordsource= &刷新视图1及控件grd视图1select 视图1par1=textt1use 视图

21、1thisform.grd视图1.recordsource=视图1thisform.grd视图1.refresselect 视图3 &刷新视图3及控件text5,text6par3=text1use 视图3“退选”按钮的click事件thisform.grd视图1.recordsource=select sc &以防刷新新表格时出现一片空白use sc excl &以独占方式打开表sc,删除该学生退选课程delete all for(sc.课程号=alltrim(thisform.text7.text) and sc.学号=alltrim(thisform.text1.text)packsel

22、ect 视图1 &刷新视图1及控件grd视图1par1=textt1use 视图1thisform.grd视图1.recordsource=视图1thisform.grd视图1.refreshselect 视图3 &刷新视图3及控件text5,text6usepar3=textt1use 视图3resh“退出”按钮的click事件?chr(7)result=messagebox(是否退出?,4+32+256,信息)if result=6 thisform.releaseendif控件grdcource的mouseup事件thisform.text7.refresh &当鼠标点中表格时,刷新控件

23、text75.学生基本情况输入表单（stushuru.scx）“添加”按钮的click事件this.caption=继续sele classset order to 班级编号thisform.系号1.value=space(3)thisform.学号1.value=space(6)thisform.姓名1.value=space(8)thisform.性别1.value=男thisform.出生日期1.value=ctod(/)thisform.政治面貌1.value=space(4)thisform.身份证号1.value=space(18)thisform.班级编号1.value=spac

24、e(3)thisform.入学时间1.value=ctod(/)thisform.英语等级1.value=space(1)thisform.工作单位1.value=space(30)thisform.联系电话1.value=space(14)thisform.email1.value=space(20)thisform.系号1.enabled=.t.thisform.姓名1.enabled=.t.thisform.性别1.enabled=.t.thisform.出生日期1.enabled=.t.thisform.政治面貌1.enabled=.t.thisform.身份证号1.enabled=.

25、t.thisform.班级编号1.enabled=.t.thisform.英语等级1.enabled=.t.thisform.工作单位1.enabled=.t.thisform.联系电话1.enabled=.t.thisform.email1.enabled=.t.thisform.班级编号1.setfocusthisform.refreshthis.enabled=.f.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.f.“撤消”按钮的click事件?chr(7)result=messagebox(是否确认放弃添加?,4+48+256,信息窗

26、口)if result=6 thisform.系号1.enabled=.f. thisform.学号1.enabled=.f. thisform.姓名1.enabled=.f. thisform.性别1.enabled=.f. thisform.出生日期1.enabled=.f. thisform.政治面貌1.enabled=.f. thisform.身份证号1.enabled=.f. thisform.班级编号1.enabled=.f. thisform.入学时间1.enabled=.f. thisform.英语等级1.enabled=.f. thisform.工作单位1.enabled=.

27、f. thisform.联系电话1.enabled=.f. thisform.email1.enabled=.f. this.enabled=.f. mand1.enabled=.t. mand3.enabled=.f. mand4.enabled=.f.endifthisform.refresh“确认”按钮的click事件if empty(thisform.班级编号1.value)=messagebox(班级编号不能为空，请重新输入！,0+48+0,警告) thisform.班级编号1.setfocuselse if empty(thisform.姓名1.value)=messagebox(

28、姓名不能为空，请重新输入！,0+48+0,警告) thisform.姓名1.setfocuselse if empty(thisform.入学时间1.value)=messagebox(入学时间不能为空，请重新输入！,0+48+0,警告) thisform.入学时间1.setfocuselse if empty(thisform.身份证号1.value)=messagebox(身份证号不能为空，请重新输入！,0+48+0,警告) thisform.身份证号1.setfocuselse if len(alltrim(thisform.身份证号1.value)18=messagebox(身份证号不

29、足位，请重新输入！,0+48+0,警告) thisform.身份证号1.setfocuselse sele stu append blank replace stu.系号 with thisform.系号1.value replace stu.学号 with thisform.学号1.value replace stu.姓名 with thisform.姓名1.value replace stu.性别 with thisform.性别1.value replace stu.出生日期 with thisform.出生日期1.value replace stu.政治面貌 with thisform

30、.政治面貌1.value replace stu.身份证号 with thisform.身份证号1.value replace stu.入学时间 with thisform.入学时间1.value replace stu.班级编号 with thisform.班级编号1.value replace stu.工作单位 with thisform.工作单位1.value replace stu.联系电话 with thisform.联系电话1.value replace stu.英语等级 with thisform.英语等级1.value thisform.系号1.enabled=.f. this

31、form.学号1.enabled=.f. thisform.姓名1.enabled=.f. thisform.性别1.enabled=.f. thisform.出生日期1.enabled=.f. thisform.政治面貌1.enabled=.f. thisform.身份证号1.enabled=.f. thisform.入学时间1.enabled=.f. thisform.班级编号1.enabled=.f. thisform.工作单位1.enabled=.f. thisform.联系电话1.enabled=.f. thisform.email1.enabled=.f. thisform.英语等

32、级1.enabled=.f. this.enabled=.f. mand1.enabled=.t. mand2.enabled=.f. mand4.enabled=.t. thisform.refreshendifendifendifendif endif“退出”按钮的click事件?chr(7)result=messagebox(是否退出?,4+32+256，信息)if result=6 thisform.releaseendif7.班级信息输入表单（classshuru.scx）“添加”按钮的click事件this.caption=继续sele class set order to 班级编

33、号thisform.班级名称1.value=space(10)thisform.系号1.value=space(3)thisform.学制1.value=space(1)thisform.收费金额1.value=space(7)thisform.班主任名1.value=space(10)thisform.班级编号1.value=space(3)thisform.班级名称1.enabled=.t.thisform.系号1.enabled=.t.thisform.学制1.enabled=.t.thisform.收费金额1.enabled=.t.thisform.班主任名1.enabled=.t.t

34、hisform.班级编号1.enabled=.t.thisform.班级编号1.setfocusthisform.refreshthis.enabled=.f.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.f.“撤消”按钮的click事件?chr(7)result=messagebox(是否确认放弃添加？,4+48+256,信息窗口)if result=6 thisform.班级名称1.enabled=.f. thisform.系号1.enabled=.f. thisform.学制1.enabled=.f. thisform.收费金额1.en

35、abled=.f. thisform.班主任名1.enabled=.f. thisform.班级编号1.enabled=.f. this.enabled=.f. mand1.enabled=.t. mand3.enabled=.f. mand4.enabled=.f.endifthisform.refresh“确认”按钮的click事件if empty(thisform.班级编号1.value)=messagebox(班级编号不能为空，请重新输入！,0+48+0,警告) thisform.班级编号1.setfocuselse sele class append blank replace calss.班级编号 with thisform.班级编号1.value replace calss.班级名称 with thisform.班级名称1.value replace calss.系号 with thisform.系号1.value replace calss.学制 with thisform.学制1.value replace calss.收费金额 with thisform.收费金额1.value replace calss.班主任名 with thisform.班主任名1.value thisform.班级编号1.enabled=.f. thisform.班级