MIS课程设计报告

西安郵電學院MIS课程设计报告书(学生学籍管理系统分析设计)系部名称：信息与管理工程系学生姓名：王鸣专业名称：信息管理与信息系统班级：信管0402班时间：2006年12月11日至2006年12

目录：一.可行性分析…………………4二.系统分析部分………………41.业务流程图………………52.数据流程图………………53.功能分析图………………64.数据字典…………………75.数据加工处理的描述……………………86.管理信息系统流程设想图………………9三.系统设计部分1.功能结构图设计…………92.新系统信息处理流程设计………………93.输出设计(主要指打印输出设计)………94.存储文件格式设计(数据库结构设计)…………………95.输入设计(主要指数据录入卡设计)……126.代码设计(职工证号和部门代号等)……147.程序设计说明书…………14四.系统实施部分1.程序框图…………………142.源程序……………………183.模拟运行数据……………714.打印报表…………………725.系统使用说明书…………72五.附录或参考资料设计任务书信管专业2004级MIS课程设计任务书一、设计目的：通过本次设计，要求同学们能够将所学到的信息系统分析方法与软件设计技术及方法综合运用到实际信息系统的分析与设计中，提高同学们对软件的综合分析与设计能力，主要包括对数据的分析、组织能力，数据的提取、处理能力；软件结构的分析设计，复杂界面与输入输出设计能力；学习常用软件开发工具的使用。二、设计内容：学生学籍管理系统：1、系统需求：本系统主要是用于学生基本信息的管理。该系统可以完成对学生信息添加、班级管理、查找等操作,能够对学生信息进行方便有效的科学管理。2、主要功能描述1）权限管理主要是用户的等级和权限的划分。分３级管理员，超级用户、只读用户、普通用户，权限可以自定义添加和删除。2）班级管理添加班级、浏览班级、查询班级。3）学生档案管理浏览档案、添加档案、查询档案。4）课程设置：基本课程设置和班级课程设置。5）成绩管理：考试类型设置、成绩添加浏览和查询。6）打印报表：可以打印学生的档案和成绩等相关的信息报表。三、设计要求结合所学习的系统分析与设计的具体方法，应用程序设计的基本知识和数据库知识进行详细的系统分析设计。具体要求如下：学习进行相对复杂数据的分析与设计，建立合理的数据模型。学习使用VB的数据环境设计器和数据报表设计器进行报表输出设计。学习使用visio工具进行常用软件图形的绘制。进一步熟练进行软件系统的界面设计，深入掌握界面设计元素。提供相应的软件设计报告。报告要求有系统的需求分析、系统流程图、数据流程图、软件结构图、数据库设计说明和软件说明书。提供与设计报告相一致的软件系统。每四人为一个课题组，自由组合，检查相应的小组讨论，讨论结果计入平时成绩。报告书写规范见附件。四、时间安排（共两周10天）第一周的周一、周二（2天）：查阅资料、进行系统的需求分析，要求画出系统的业务流程图及数据流程图，并设计各类报表的格式。（图书馆）第一周的周三到周五（3天）：并进行详细的数据分析，建立数据字典，并进行数据库及数据查询设计。（机房）第二周的周一周二（2天）：进行软件结构设计，包括软件功能的划分、输入输出界面的设计。（机房）第二周的周三：（1天）：进行输出报表的设计。（机房）第二周的周四：（1天）：全面进行系统调试。（机房）第二周的周五：（1天）：作业检查，提交报告及设计好的软件。（机房）五、考查方式考勤20％文档40％程序40％六、地点 信管系机房正文:（1）可行性分析计算机管理学生信息的意义：在各大中小学校，用计算机管理学校的信息已经越来越普遍了。用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了学校资料的安全性。提高了学校的管理能力，为此，用计算机来管理学校的信息，是非常必要的。我作为一个计算机应用的大学生，希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助桂阳一中进行更有效的学籍档案管理。可行性研究：目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：本系统的开发我利用MicrosoftSQLServer2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。使用VisualBasic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。运行上可行性：本系统为一个小型的学生信息管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。法律可行性：本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。（2）系统分析部分1）业务流程图2）数据流程图3）功能分析图4）数据字典数据存储字典（1）存储文件名：班级和课程标识符：class_Cour数据结构：班级号class_No课程名称course_Name(2)存储文件名：班级信息标识符：class_Form数据结构：班级号class_No班级名称class_Name导员名称class_Teacher备注信息class_Remarks(3)存储文件名：课程信息标识符：course_Form数据结构：课程名class_Name课程列表class_Rem(4)存储文件名：奖惩信息标识符：prize_Form数据结构：奖惩名class_Name奖惩列表class_Rem(5)存储文件名：奖惩信息标识符：prize_Stud数据结构：奖惩号prize_No奖惩学号prize_Stu奖惩日期prize_Data奖惩名prize_Name(6)存储文件名：成绩信息标识符：score_Form数据结构：成绩号score_No考试期号score_Per班级号score_Cla学号score_Stu科目score_Cou成绩score_Sco(7)存储文件名：个人信息标识符：student_Form数据结构：学号student_No姓名student_Name性别student_Sex出生日期student_Bir班级号student_Cla电话student_Tel入学日期student_Esd籍贯student_Add备注student_Rem(8)存储文件名：用户信息标识符：user_Form数据结构：用户名user_ID登陆密码user_PWD用户日期user_DATA5）数据加工处理的描述处理名：用户名处理处理过程：登陆学生信息管理系统后，点击“用户信息管理”后出现用户信息管理界面，可以用于添加，修改，删除用户信息。处理名：班级信息处理处理过程：登陆学生信息管理系统后，点击“班级信息管理”后出现班级信息管理界面，可以用于查询所有班级信息和添加，修改，删除班级信息。处理名：学籍信息处理处理过程：登陆学生信息管理系统后，点击“学籍信息管理”后出现学籍信息管理界面，可以用于查询所有学生学籍信息和添加，修改，删除学生学籍信息。处理名：课程信息处理处理过程：登陆学生信息管理系统后，点击“课程信息管理”后出现课程信息管理界面，可以用于查询所有班级课程信息和添加，修改，删除班级课程信息。处理名：成绩信息处理处理过程：登陆学生信息管理系统后，点击“成绩信息管理”后出现成绩信息管理界面，可以用于查询所有成绩信息和添加，修改，删除成绩信息。处理名：奖惩信息处理处理过程：登陆学生信息管理系统后，点击“奖惩信息管理”后出现奖惩信息管理界面，可以用于查询所有奖惩信息和添加，修改，删除奖惩信息。处理名：个人信息处理处理过程：登陆学生信息管理系统后，点击“个人信息管理”后出现个人信息管理界面，可以用于查询个人信息。6）管理信息系统流程设想图（新系统模型）（3）系统设计部分1）功能结构图设计2）新系统信息处理流程设计3）输出设计（主要指打印输出设计）4）存储文件格式设计（数据库结构设计）5）输入设计（主要指数据录入卡设计）6）代码设计（职工证号和部门代号等）7）程序设计说明书（4）系统实施部分1）程序框图2）源程序学生信息管理图形界面程序设计如下：DimiAsLongPrivateSubForm_Load()Label1.ForeColor=&H8000000ELabel1.FontSize=12Label1.AutoSize=Truei=Image2.WidthEndSubPrivateSubForm_Resize()Image1.Top=0Image1.Left=0Image1.Height=Me.HeightImage1.Width=Me.WidthImage2.Top=Me.Height-Image2.HeightImage2.Left=Me.Width-Image2.WidthLabel1.Top=Me.Height-Label1.Height-100EndSubPrivateSubTimer1_Timer()i=i+50Label1.Left=Me.Width-iIfi>Me.Width+Label1.WidthTheni=Image2.WidthEndIfEndSub班级信息管理界面程序设计如下：DimmrcAsADODB.RecordsetDimMsgTextAsStringDimtSQLAsStringPrivateSubCommand1_Click()IfText1(0)=""ThenMsgBox"班级编号不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"班级名称不能为空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox"导员姓名不能为空!",vbOKOnly,"提示"Text1(2).SetFocusExitSubEndIftxtSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此班级编号已存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Trim(Text1(2))mrc.Fields(3)=Trim(Text1(3))mrc.Updatemrc.CloseFori=0To3Text1(i)=""NextMsgBox"班级信息添加成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand2_Click()Fori=0To3Text1(i)=""NextEndSubPrivateSubCommand3_Click()IfText1(5)=""ThenMsgBox"班级名称不能为空!",vbOKOnly,"提示"Text1(5).SetFocusExitSubEndIfIfText1(6)=""ThenMsgBox"导员姓名不能为空!",vbOKOnly,"提示"Text1(6).SetFocusExitSubEndIftxtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(4))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(4))mrc.Fields(1)=Trim(Text1(5))mrc.Fields(2)=Trim(Text1(6))mrc.Fields(3)=Trim(Text1(7))mrc.Updatemrc.CloseFori=4To7Text1(i)=""NextMsgBox"班级信息修改成功!",vbOKOnly,"提示"ShowDataEndSubPrivateSubCommand4_Click()Fori=4To7Text1(i)=""NextEndSubPrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=8To11Text1(i)=""NextMsgBox"班级信息以经删除!",vbOKOnly,"警告"ShowDataEndSubPrivateSubCommand6_Click()Fori=8To11Text1(i)=""NextEndSubPrivateSubForm_Load()Me.Caption="班级信息->添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftShowDataFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="班级信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To11Text1(i)=""NextCommand3.Enabled=FalseCommand5.Enabled=FalseEndSubPrivateSubShowData()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)WithMSFlexGrid1.ColWidth(0)=1200.ColWidth(1)=1200.ColWidth(2)=1200.ColWidth(3)=6000.TextMatrix(0,0)="班级编号".TextMatrix(0,1)="班级名称".TextMatrix(0,2)="导员姓名".TextMatrix(0,3)="备注信息".Rows=1DoWhileNotmrcc.EOF.Rows=.Rows+1Fori=0Tomrcc.Fields.Count-1.TextMatrix(.Rows-1,i)=mrcc.Fields(i)&""Nextimrcc.MoveNextLoopEndWithmrcc.CloseEndSubPrivateSubMSFlexGrid1_Click()IfPicture1(1).Visible=TrueThenText1(4)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0))Text1(5)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1))Text1(6)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2))Text1(7)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3))Command3.Enabled=TrueEndIfIfPicture1(2).Visible=TrueThenText1(8)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0))Text1(9)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1))Text1(10)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,2))Text1(11)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,3))Command5.Enabled=TrueEndIfEndSubPrivateSubText1_Change(IndexAsInteger)IfIndex=4ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)Ifmrc.EOF=FalseThenText1(5)=mrc.Fields(1)Text1(6)=mrc.Fields(2)Text1(7)=mrc.Fields(3)Command3.Enabled=TrueExitSubElseText1(5)=""Text1(6)=""Text1(7)=""Command3.Enabled=FalseEndIfmrc.CloseEndIfIfIndex=8ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL,MsgText)Ifmrc.EOF=FalseThenText1(9)=mrc.Fields(1)Text1(10)=mrc.Fields(2)Text1(11)=mrc.Fields(3)Command5.Enabled=TrueExitSubElseText1(9)=""Text1(10)=""Text1(11)=""Command5.Enabled=FalseEndIfmrc.CloseEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub课程信息管理程序设计如下:DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCombo1_Click()List1TextEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"课程名称不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此课程名称已经存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromcourse_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"课程信息添加成功!",vbOKOnly,"提示"List2TextEndSubPrivateSubCommand2_Click()DimtxtSQLAsStringIfList2.Text<>""ThentxtSQL="deletefromcourse_Formwherecourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"课程信息已经删除!",vbOKOnly,"提示"List2TextEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsStringMe.Caption="课程信息->设置"txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"请先进行班级设置!",vbOKOnly,"提示"ElseWithCombo1DoWhileNotmrc.EOF.AddItemTrim(mrc!class_NO)mrc.MoveNextLoopCombo1.ListIndex=0EndWithEndIfList2TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(0).BackColor=&HC0C0CLabel3(1).BackColor=&HC0C0CLabel3(2).BackColor=&HC0C0CLabel3(3).BackColor=&HC0C0CEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel3_Click(IndexAsInteger)DimtxtSQLAsStringDimtSQLAsStringDimmmrcAsADODB.RecordsetIfIndex=0ThenIfCombo1.Text<>""AndList2.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=Trim(List2.Text)mrc.Updatemrc.CloseEndIfEndIfIfIndex=1ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)tSQL="select*fromcourse_Form"txtSQL="select*fromclass_Cour"Setmmrc=ExecuteSQL(tSQL,MsgText)Ifmmrc.EOF=TrueThenMsgBox"请先进行班级设置!",vbOKOnly,"提示"ElseDoWhileNotmmrc.EOFSetmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=mmrc.Fields(0)mrc.Updatemrc.Closemmrc.MoveNextLoopEndIfEndIfEndIfIfIndex=2ThenIfCombo1.Text<>""AndList1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIfIfIndex=3ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)EndIfEndIftxtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL,MsgText)List1TextEndSubPrivateSubLabel3_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label3(Index).BackColor=&HFFFFFFEndSubPrivateSubList2_Click()Text1(0)=List2.TextEndSubPrivateSubText1_Change(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenText1(1)=mrc.Fields(1)Text1(1).Locked=TrueElseText1(1)=""Text1(1).Locked=FalseEndIfEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubList1Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList2Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromcourse_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List2.ClearDoWhileNotmrcc.EOFList2.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSub用户信息管理程序设计如下：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"用户名称不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"用户密码不能为空!",vbOKOnly,"提示"Text1(1).SetFocusExitSubElseIfText1(1)<>Text1(2)ThenMsgBox"两次密码输入不同!",vbOKOnly,"提示"Text1(1)=""Text1(2)=""Text1(1).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此用户名已经存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=0To2Text1(i)=""NextMsgBox"用户信息添加成功!",vbOKOnly,"提示"ListappEndSubPrivateSubCommand2_Click()Text1(0)=""Text1(1)=""Text1(2)=""EndSubPrivateSubCommand3_Click()DimtxtSQLAsStringIfText1(3)=""ThenMsgBox"请你选择用户名称!",vbOKOnly,"提示"List1.SetFocusExitSubEndIfIfText1(4)=""ThenMsgBox"修改密码要旧密码!",vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfIfText1(5)=""ThenMsgBox"新的密码不能为空!",vbOKOnly,"提示"Text1(5).SetFocusExitSubElseIfText1(5)<>Text1(6)ThenMsgBox"两次密码输入不同!",vbOKOnly,"提示"Text1(5)=""Text1(6)=""Text1(5).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(3))&"'anduser_PWD='"&Trim(Text1(4))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThentxtSQL="deletefromuser_Formwhereuser_ID='"&Trim(Text1(3))&"'"ElseMsgBox"用户密码输入错误!",vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(3))mrc.Fields(1)=Trim(Text1(5))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=3To6Text1(i)=""NextMsgBox"用户信息修改成功!",vbOKOnly,"提示"EndSubPrivateSubCommand4_Click()Text1(3)=""Text1(4)=""Text1(5)=""Text1(6)=""EndSubPrivateSubCommand5_Click()DimtxtSQLAsStringIfText1(7)=""ThenMsgBox"请你选择用户名称!",vbOKOnly,"提示"List1.SetFocusExitSubElseIfText1(7)=UserNameThenMsgBox"不可以删除正在使用的用户!",vbOKOnly,"警告"Text1(7)=""Text1(8)=""List1.SetFocusExitSubEndIfEndIfIfText1(8)=""ThenMsgBox"删除用户需要密码!",vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(7))&"'anduser_PWD='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThentxtSQL="deletefromuser_Formwhereuser_ID='"&Trim(Text1(7))&"'"ElseMsgBox"用户密码输入错误!",vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)Text1(7)=""Text1(8)=""MsgBox"用户信息已经删除!",vbOKOnly,"提示"ListappEndSubPrivateSubCommand6_Click()Text1(7)=""Text1(8)=""EndSubPrivateSubForm_Load()Me.Caption="用户信息->添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftListappFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="用户信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To8Text1(i)=""NextEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubListapp()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromuser_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!user_ID)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList1_Click()IfPicture1(1).Visible=TrueThenText1(3)=List1.TextEndIfIfPicture1(2).Visible=TrueThenText1(7)=List1.TextEndIfEndSubPrivateSubList1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSub登陆界面程序设计如下：OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanDimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringDimmiCountAsIntegerPrivateSubForm_Load()DimiAsIntegeri=0txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)WithtxtUserNameDoWhileNotmrc.EOFi=i+1.AddItemTrim(mrc!user_ID)mrc.MoveNextLoop.ListIndex=i-1EndWithmrc.CloseOK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()txtSQL="select*fromuser_Formwhereuser_ID='"&txtUserName.Text&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"没有这个用户，请重新输入用户名!",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox"输入密码不正确，请重新输入！",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSubPrivateSubtxtPassword_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSubtxtUserName_Click()txtPassword.Text=""EndSubPrivateSubtxtUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub学生信息管理系统界面程序设计如下：PrivateSubclaiMenu_Click()frmclai.ShowEndSubPrivateSubcouiMenu_Click()frmcoui.ShowEndSubPrivateSubcusiMenu_Click()frmcusi.ShowEndSubPrivateSubMDIForm_Load()dColor.ShowEndSubPrivateSubMDIForm_Resize()IfMe.Height>1100ThendColor.Height=Me.Height-1100EndIfIfMe.Width>180ThendColor.Width=Me.Width-180EndIfEndSubPrivateSubprpiMenu_Click()frmprpi.ShowEndSubPrivateSubscoiMenu_Click()frmscoi.ShowEndSubPrivateSubstsiMenu_Click()frmstsi.ShowEndSubPrivateSubsumiMenu_Click()frmsumi.ShowEndSub奖惩信息管理界面程序设计如下：DimmrcAsADODB.RecordsetDimMsgTextAsStringPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"奖惩名称不能为空!",vbOKOnly,"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromprize_Formwhereprize_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此奖惩名称已经存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromprize_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"奖惩信息添加成功!",vbOKOnly,"提示"List1TextEndSubPrivateSubCommand2_Click()IfList1.Text<>""ThentxtSQL="deletefromprize_Formwhereprize_Name='"&Trim(List1.Text)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"奖惩信息已经删除!",vbOKOnly,"提示"List1TextEndIfEndSubPrivateSubForm_Load()MSFlexGrid1.Cols=5MSFlexGrid1.ColWidth(0)=300MSFlexGrid1.ColWidth(1)=0MSFlexGrid1.ColWidth(2)=0MSFlexGrid1.ColWidth(3)=1200MSFlexGrid1.ColWidth(4)=1200MSFlexGrid1.TextMatrix(0,3)="奖惩日期"MSFlexGrid1.TextMatrix(0,4)="奖惩名称"MSFlexGrid1.Rows=1Text3(0)=GetRknoList1TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6(0).BackColor=&HC0C0CLabel6(1).BackColor=&HC0C0CEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubList1Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromprize_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!prize_Name)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateFunctionGetRkno()AsStringGetRkno=Format(Now,"yymmddhhmmss")RandomizeGetRkno=GetRkno&Int((99-10+1)*Rnd+10)EndFunctionPrivateSubLabel6_Click(IndexAsInteger)DimtxtSQLAsStringIfIndex=0ThenIfText2=""ThenMsgBox"请输入学号!",vbOKOnly,"提示"Text2.SetFocusExitSubElsetxtSQL="select*fromstudent_Formwherestudent_NO='"&Trim(Text2)&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"请确认此学号的学籍信息已存在!",vbOKOnly,"警告"Text2.SetFocusExitSubEndIfmrc.CloseEn