《管理信息系统》课内实验指导书5、6

《《管理信息系统》课内实验指导书5、6》由会员分享，可在线阅读，更多相关《《管理信息系统》课内实验指导书5、6（9页珍藏版）》请在金锄头文库上搜索。

1、管理信息系统课内实验指导书管理信息系统课内实验指导书 实验五 系统设计（二）数据库设计 实验五 系统设计（二）数据库设计 一、实验目的 一、实验目的 建立新系统的逻辑模型并在 SQLSEVER 或其它数据库环境下创建数据库 二、实验设备与仪器 二、实验设备与仪器 Win2000 以上软件操作系统，SQLSEVER2000 或其它数据库开发环境。 三、实验内容 三、实验内容 1、熟悉由概念模型向逻辑模型（主要指关系数据库模型）转化的过程； 2、根据系统分析的结果，创建数据库并在数据库中创建数据表； 3、根据所创建的数据表，绘制数据库的逻辑关系模型。 四、实验步骤四、实验步骤 1、利用相关工具，根

2、据实验三、四的结果，创建数据库并在数据库中创建数据表。 2、添加数据库记录。 五、实验要求 五、实验要求 提交本次实验结果的 WORD 文档，并保留创建的数据库文件。 1实验六 系统实施MIS 应用程序设计 实验六 系统实施MIS 应用程序设计 一、实验目的 一、实验目的 在 VB 或其它开发环境下创建信息系统应用程序 二、实验设备与仪器 二、实验设备与仪器 Win2000 以上软件操作系统，VB 或其它软件开发环境。 三、实验内容 三、实验内容 1、新系统应用程序的登录界面的实施； 2、创建应用程序的主界面并进行菜单设计； 3、连接应用程序和数据库，并完成对数据的查询、更新等数据操作程序设计

3、； 4、完成统计报表的程序设计和打印模块的程序设计； 5、制作简单的应用程序帮助系统； 6、调试、编译程序； 7、运行测试应用程序。 四、实验步骤四、实验步骤 本部分实验内容较多，同学们需要有计划有条理地独立完成各部分的功能。下面给出应用程序的主要界面及大部分代码，以供参考，希望对同学们进行程序设计有所帮助和启迪，同学们在实验过程中应该侧重理解，不要盲目照抄代码。 程序的体系结构及参考实例如下程序的体系结构及参考实例如下： 2、设计数据库：、设计数据库：按照上述要求用 Access 建立数据库与表 院系信息表：Department(deptID,deptName) 班级信息表：Class(cl

4、assName,studentNum,detpID) 学生信息表：Student(studentID,studentName,ClassName) 课程信息表：Course(courseID,courseName,ExamTime,deptID) 教室信息表：Classroom(classroomName,holdNum) 考试性质表：KSXZ(KSXZID,KSXZ) 补考信息表： BK_Stud(xn,xq,studentID,courseID,KSXZ,BKID,BKClassroom,BKTime,score,reason) 补考分配表：BK_Flag(BKBH,BKnum,xn,xq

5、,courseID,BKTime) 补考教室分配表：Exam_Classroom(BKBH,BKClassroom) 用户信息表：User(userID,UserName,Userpassword) 2、系统功能结构图 2、系统功能结构图 高校补考管理系统 系统维护 数据 操作 报表打印 退出系统 补考名单录入 补考成绩录入 基本信息录入 自动安排考试时间与地点打印补考安排单 打印补考成绩单 统计查询3、用、用 VB6.0 实现系统实现系统 （1） 、创建工程项目 BKXT。 启动 VB，单击“文件新建工程”菜单，选择“VB 企业版控件” ，将自动产生一个窗 体，其属性都是默认设置。将默认窗体

6、移去，重命名工程全称为 BKXY，然后单击“文件 保存工程” ，选择保存工程位置，将工程保存。 （2） 、创建 BKXT 的主窗体。 单击“工程添加 MDI 窗体” ，生成一个 MDI 窗体，设置窗体属性（参见主窗体及其 控件属性设置） 。 在主窗体中加入状态栏控件， 设置状态栏的一般属性 （参见主窗体及其控件属性设置） ； 然后选中状态栏，右键单击，在弹出菜单中选中“属性” ，在弹出的属性页中，在“窗格” 选项卡中两次单击“插入空格” ，使状态栏的窗格为个，然后分别设置不同窗格的样式： 表：状态栏空格样式属性设置 面板索引 样式属性 SbrText SbrDate SbrTime 单击“工具

7、菜单编辑器” ，为主窗体加入菜单（参见主窗体菜单属性设置） 。 3表：主窗体及其控件属性设置 控件 属性 属性取值 Name FrmMain Caption 补考系统 StartUpPosition 屏幕中心 VindowState Maximized FrimMain（Form） BackColor Data Source=db.mdb;Persist Security Info=false“ End Function Public Sub Main() Call DBConn FrmMain.Show End Sub Public Sub DBConn() Set Cnn = New AD

8、ODB.Connection cnn.Open ConnectString End Sub Public Sub DBClose() cnn.Close Set cnn = Nothing End Sub MdlCheckData(此模块主要验证输入的信息正确与否此模块主要验证输入的信息正确与否)，代码如下：，代码如下： Public Function Testtxt(ByVal txt As String) As Boolean If Trim(txt) = “ Then Testtxt = False Else Testtxt = True End If End Function Publ

9、ic Function checkStudentID(ByVal stuID As String) As Boolean checkStudentID = True If Len(stuID) 50 Then MsgBox (“学生姓名不能为空，而且不能超过 50 个字符！“) checkStudentName = False End If End Function Public Function checkClassName(ByVal clsName As String) As Boolean checkClassName = True If Len(clsName) 8 Then Msg

10、Box (“课程编号必须为 8 位整数“) checkCourseID = False End If End Function Public Function checkCourseName(ByVal couName As String) As Boolean checkCourseName = True If Len(couName) = 0 Or Len(couName) 50 Then MsgBox (“课程名称不能为空，而且不能超过 50 个字符！“) checkCourseName = False End If End Function Public Function checkE

11、xamTime(ByVal ExamTime As Integer) As Boolean checkExamTime = True If checkExamTime 120 Then MsgBox “考试时间必有为 60120 分钟之间!“ checkExamTime = False End If End Function Public Function checkdeptID(ByVal deptID As String) As Boolean checkdeptID = True If Len(couID) 50 Then MsgBox (“课程名称不能为空，而且不能超过 50 个字符！

12、“) checkdeptName = False End If End Function Public Function checkKSXZID(ByVal KSXZID As String) As Boolean checkKSXZID = True If Len(KSXZID) 50 Then MsgBox (“考试性质不能为空，而且不能超过 50 个字符！“) checkKSXZ = False End If End Function Public Function checkClassroomName(ByVal classroomName As String) As Boolean

13、checkClassroomName = True If Len(classroomName) = 0 Or Len(classroomName) 50 Then MsgBox (“教室名称不能为空，而且不能超过 50 个字符！“) checkClassroomName = False End If End Function MdlShowData（此模块主要在窗体中显示数据之用） ，代码如下：（此模块主要在窗体中显示数据之用） ，代码如下： 6Public Sub readDataKcmc(ByRef CboKcmc As ComboBox) CboKcmc.Clear Dim tem As

14、 String Dim MsgText As String Dim rs As New ADODB.Recordset Dim i As Integer Dim txtSQL As String txtSQL = “select * from Course order by courseID asc“ Set rs = ExecuteSQL(txtSQL, MsgText) For i = 1 To rs.RecordCount CboKcmc.AddItem rs(“courseID“) & “ “ & rs(“courseName“) rs.MoveNext Next i rs.Close

15、 End Sub Public Sub readDataKsxz(ByRef CboKsxz As ComboBox) CboKsxz.Clear Dim tem As String Dim MsgText As String Dim rs As New ADODB.Recordset Dim i As Integer Dim txtSQL As String txtSQL = “select * from KSXZ order by KSXZID asc“ Set rs = ExecuteSQL(txtSQL, MsgText) For i = 1 To rs.RecordCount Cbo

16、Ksxz.AddItem rs(“KSXZID“) & “ “ & rs(“KSXZ“) rs.MoveNext Next i rs.Close End Sub Public Sub readDataYx(ByRef CboYx As ComboBox) CboYx.Clear Dim tem As String Dim MsgText As String Dim rs As New ADODB.Recordset Dim i As Integer Dim txtSQL As String txtSQL = “select * from Department order by deptID asc“ Set rs = ExecuteSQL(txtSQL, MsgText) 7For i = 1 To rs.RecordCount CboYx.AddItem rs(“deptID“) & “ “ & rs(“deptName“) rs.MoveNext Next i rs