《《管理信息系统》课内实验指导书.doc》由会员分享，可在线阅读，更多相关《《管理信息系统》课内实验指导书.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、实验目的 管理信息系统课内实验指导书实验五 系统设计（二）数据库设计 建立新系统的逻辑模型并在 SQLSEVER 或其它数据库环境下创建数据库 二、实验设备与仪器 Win2000 以上软件操作系统，SQLSEVER2000 或其它数据库开发环境。 三、实验内容 1、熟悉由概念模型向逻辑模型（主要指关系数据库模型）转化的过程； 2、根据系统分析的结果，创建数据库并在数据库中创建数据表； 3、根据所创建的数据表，绘制数据库的逻辑关系模型。 四、实验步骤1、利用相关工具，根据实验三、四的结果，创建数据库并在数据库中创建数据表。 2、添加数据库记录。 五、实验要求 提交本次实验结果的 WORD 文
2、档，并保留创建的数据库文件。 1一、实验目的 实验六 系统实施MIS 应用程序设计 在 VB 或其它开发环境下创建信息系统应用程序 二、实验设备与仪器 Win2000 以上软件操作系统，VB 或其它软件开发环境。 三、实验内容 1、新系统应用程序的登录界面的实施； 2、创建应用程序的主界面并进行菜单设计； 3、连接应用程序和数据库，并完成对数据的查询、更新等数据操作程序设计； 4、完成统计报表的程序设计和打印模块的程序设计； 5、制作简单的应用程序帮助系统； 6、调试、编译程序； 7、运行测试应用程序。 四、实验步骤本部分实验内容较多，同学们需要有计划有条理地独立完成各部分的功能。下面给出应用
3、程序的主要界面及大部分代码，以供参考，希望对同学们进行程序设计有所帮助和启迪，同学们在实验过程中应该侧重理解，不要盲目照抄代码。程序的体系结构及参考实例如下： 2、设计数据库：按照上述要求用 Access 建立数据库与表院系信息表：Department(deptID,deptName) 班级信息表：Class(className,studentNum,detpID) 学生信息表：Student(studentID,studentName,ClassName) 课程信息表：Course(courseID,courseName,ExamTime,deptID) 教室信息表：Classroom(cl
4、assroomName,holdNum) 考试性质表：KSXZ(KSXZID,KSXZ) 补考信息表：BK_Stud(xn,xq,studentID,courseID,KSXZ,BKID,BKClassroom,BKTime,score,reason) 补考分配表：BK_Flag(BKBH,BKnum,xn,xq,courseID,BKTime) 补考教室分配表：Exam_Classroom(BKBH,BKClassroom) 用户信息表：User(userID,UserName,Userpassword) 2、系统功能结构图 高校补考管理系统系统维护3、用 VB6.0 实现系统（1）、创建工
5、程项目 BKXT。数据操作报表打印退出系统启动 VB，单击“文件新建工程”菜单，选择“VB 企业版控件”，将自动产生一个窗体，其属性都是默认设置。将默认窗体移去，重命名工程全称为 BKXY，然后单击“文件保存工程”，选择保存工程位置，将工程保存。（2）、创建 BKXT 的主窗体。单击“工程添加 MDI 窗体”，生成一个 MDI 窗体，设置窗体属性（参见主窗体及其控件属性设置）。在主窗体中加入状态栏控件，设置状态栏的一般属性（参见主窗体及其控件属性设置）；然后选中状态栏，右键单击，在弹出菜单中选中“属性”，在弹出的属性页中，在“窗格”选项卡中两次单击“插入空格”，使状态栏的窗格为个，然后分别设置
6、不同窗格的样式：表：状态栏空格样式属性设置面板索引样式属性SbrTextSbrDateSbrTime单击“工具菜单编辑器”，为主窗体加入菜单（参见主窗体菜单属性设置）。3控件FrimMain（Form）SbatatusBar(StatusBar)菜单标题文件用户信息基本信息表维护课程信息班级信息时间信息考试备注标志补考备注标志数据补考名单录入补考成绩录入学生信息录入班级信息录入课程信息录入院系信息录入教室信息录入补考性质录入操作自动安排考试地点与时间统计查询报表打印补考考试安排单补考学生成绩间退出（3）、模块代码设计：表：主窗体及其控件属性设置属性NameCaption StartUpPosi
7、tion VindowStateBackColorName表：主窗体菜单属性设置名称wjYhxxJbxxbwhL11KcxxBjxxSjxxL12KsbzbzBkbzbzsjBkmdlrL20XsxxlrBjxxlrYxxxlrL21KsxzlrczapksddsjTjcxBbdyBkksapdBkxscjdTc属性取值FrmMain补考系统屏幕中心Maximized&H00E7DFE7&SbStatusBar上层菜单无文件文件基本信息表维护基本信息表维护基本信息表维护基本信息表维护基本信息表维护基本信息表维护基本信息表维护无数据Bkcjlr 数据数据数据数据Kcxxlr 数据数据Jsxxlr
8、 数据数据数据无操作操作无报表打印报表打印无为了实验本程序的部分功能，也为了更好的分类设计程序，将功能相似的操作放在同一4创建数据库并在数据库中创建数据表模块中，设计了三个模块：MdlMain 模块（与数据库连接也和程序启动有关）：具体代码如下：Public cnn As New ADODB.Connection Public Function ExecuteSQL(ByVal SQL AsString, MsgString As String) As ADODB.Recordset Dim rst As ADODB.Recordset Dim sTokens() As String On E
9、rror GoTo ExecuteSQL_Error ExecuteSQL_Error: MsgString = 查 询 错 误 ： & Err.Description Resume ExecuteSQL_Exit End Function Public Function ConnectString() As String sTokens = Split(SQL) If InStr(INSERT,DELETE,UPDATE, UCase(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & Query Successful! Else
10、 Set rst = New ADODB.Recordset ConnectString Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=false End Function Public Sub Main() Call DBConn FrmMain.Show End Sub = rst.OpenTrim(SQL),cnn,Public Sub DBConn() Set ExecuteSQL = rstMsgString = 查 询 到 & rst.RecordCount & 条记录 End I
11、fExecuteSQL_Exit: Set rst = Nothing Exit Function Set Cnn = New ADODB.Connection End Sub Public Sub DBClose() cnn.Close Set cnn = Nothing End Sub MdlCheckData(此模块主要验证输入的信息正确与否)，代码如下：Public Function Testtxt(ByVal txt As String) AsBoolean If Trim(txt) = Then Testtxt = FalseElseTesttxt = True End IfEnd
12、 Function Public Function checkStudentID(ByVal stuID AsString) As Boolean checkStudentID = True If Len(stuID) 8 Then MsgBox (学生学号必有为 8 位整数) checkStudentID = False End IfEnd Function 5Public Function checkStudentName(ByValstuName As String) As Boolean checkStudentName = True If Len(stuName) = 0 Or Le
13、n(stuName) 50Then MsgBox (学生姓名不能为空，而且不能超过 50 个字符！) checkStudentName = FalseEnd If End Function Public Function checkClassName(ByValclsName As String) As Boolean checkClassName = True If Len(clsName) 6 ThenMsgBox (班级名称必须为 6 位整数) checkClassName = False End IfEnd Function Public Function checkCourseID(
14、ByVal couID As String) As Boolean checkCourseID = True If Len(couID) 8 Then MsgBox (课程编号必须为 8 位整数) checkCourseID = FalseEnd IfEnd Function Public Function checkCourseName(ByValcouName As String) As Boolean checkCourseName = True If Len(couName) = 0 Or Len(couName) 50 Then MsgBox (课程名称不能为空，而且不能超过50个字
15、符！) checkCourseName = FalseEnd IfEnd Function deptName As String) As Boolean checkdeptName = True If Len(deptName) = 0 Or Len(deptName) 50 Then MsgBox (课程名称不能为空，而且不能超过 50 个字符！) checkdeptName = FalseEnd If End Function Public Function checkKSXZID(ByVal KSXZIDAs String) As Boolean checkKSXZID = True I
16、f Len(KSXZID) 2 ThenMsgBox (考试性质编号必须为 2 位整数) checkKSXZID = FalseEnd If End Function Public Function checkKSXZ(ByVal KSXZ As String) As Boolean checkKSXZ = TruePublic FunctioncheckExamTime(ByVal If Len(KSXZ) = 0 Or Len(KSXZ) 50 ExamTime As Integer) As Boolean checkExamTime = True Then MsgBox (考试性质不能为
17、空，而且 If checkExamTime 120 Then MsgBox 考试时间必有为 60120 分钟之间! checkExamTime = False End IfEnd Function Public Function checkdeptID(ByVal deptID AsString) As Boolean checkdeptID = True If Len(couID) 2 Then MsgBox (院系编号必须为 2 位整数) checkdeptID = FalseEnd IfEnd Function Public Function checkdeptName(ByVal不能超
18、过 50 个字符！) checkKSXZ = FalseEnd If End Function Public Function checkClassroomName(ByValclassroomName As String) As Boolean checkClassroomName = True If Len(classroomName) = 0 Or Len(classroomName) 50 ThenMsgBox (教室名称不能为空，而且不能超过 50 个字符！) checkClassroomName = FalseEnd If End Function MdlShowData（此模块主
19、要在窗体中显示数据之用），代码如下：6Public Sub readDataKcmc(ByRef CboKcmc As ComboBox) CboKcmc.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 Course order by courseID asc Set rs = ExecuteSQL(txtSQL, MsgText) For i = 1 To rs.Rec
20、ordCount CboKcmc.AddItem rs(courseID) & & rs(courseName) rs.MoveNextNext i rs.CloseEnd 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
21、 KSXZID asc Set rs = ExecuteSQL(txtSQL, MsgText) For i = 1 To rs.RecordCount CboKsxz.AddItem rs(KSXZID) & & rs(KSXZ) rs.MoveNextNext i rs.CloseEnd 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
22、 txtSQL As String txtSQL = select * from Department order by deptID asc Set rs = ExecuteSQL(txtSQL, MsgText) 7 For i = 1 Tors.RecordCount CboYx.AddItem rs(deptID) & & rs(deptName) rs.MoveNextNext i rs.CloseEnd Sub Public Sub readDataBj(ByRef CboBj As ComboBox, ByRef CboYx As ComboBox) CboBj.Clear Di
23、m tem As String Dim MsgText As String Dim s As String Dim rs As New ADODB.Recordset Dim i As IntegerDim a, b As Integer Dim txtSQL As String b = Len(CboYx.Text) s = Left(CboYx.Text, a)txtSQL = select * from Class where deptID= & Trim(s) & Set rs = ExecuteSQL(txtSQL, MsgText) For i = 1 To rs.RecordCo
24、unt CboBj.AddItem rs(className) & & rs(deptID)rs.MoveNextNext i rs.CloseEnd Sub Public Sub readDataXs(ByRef CboXs As ComboBox, ByRef CboBj As ComboBox) CboXs.ClearDim tem As String Dim txtSQL As String Dim MsgText As String Dim rs As New ADODB.Recordset Dim i As IntegerDim a1, b1, a2, b2 As IntegerDim s1, s2 As String a2 = InStr(CboBj.Text, ) s2 = Left(CboBj.Text, a2) txtSQL = select * from Student where className= & Trim(s2) & Set rs = ExecuteSQL(txtSQL, MsgText) 8 For i = 1 Tors.RecordCount CboXs.AddItem rs(studentID) & & rs(studentName) rs.MoveNextNext i End Sub9