学生管理系统-系统功能分析系统开发的总体任务是实现学生信息关系的系统化，规范化和自动化。主要功能有：1 有关学籍等信息的输入，包括输入学生基本信息，所在班机，所学课程和成绩等。2 学生信息的查询，包括查询学生基本信息，所在班级，已学课程，和成绩等3 学生信息修改4 班级管理信息的输入，包括输入班级设置，年级信息等。5 班级管理信息查询6 班级管理信息修改7 学校基本课程信息输入8 基本课程信息修改9 学生课程的设置和修改10学生成绩信息的输入1 1 学生成绩信息的修改1 2 学生成绩信息的查询13学生成绩信息的统计1.1.2 系统功能模块设计二 数据库设计1.2.1数据库需求分析I学生基本信息：学 号，姓名，性别，出生日期，班号，电话，入校日期，家庭住址，备注等。2班级信息：班号，所在年级，班主任姓名，所在教室3课程基本信息：课程号，课程名称，课程类别，课程描述4课程设置信息：年级信息，所学课程等。5学生成绩信息：考试编号，所在班级，学生学号，学生姓名，所学课程，考试分数1.2.2数据库概念结构设计根据扇面的设计规划出的实体有：学生实体，班级实体，年级实体，课程实体各个实体具体的描述E-R图如下学生成绩信息实体和实体之间的关系E-R如下三数据库结构的实现1.3.1创建数据库和数据表1 创建系统用户表格user-infoCREATTABLE dbo.user-info(user-ID char(10)COLLATE Chinese-PRC-CLAS NOT NULL,user-PWD charj(10)COLLATE Chinese-PRC-CI-AS NULL,user-DesJ char(10)COLLATE Chinese-PRC-CI-AS NULL,)ON PRIMARY2 创建学生基本信息表格student_InfoCREATE TABLE dbo.student_Info(studem_ID im NOT NULL,student-IDJ char(10)COLLATE Chinese-PRC-CI-AS NULL,student-Sex char(2)COLLATE Chinese-PRC-CI-AS NULL,born_Date datetime NULL,class_NO int NULL,tele_Number char(10)COLLATE Chinese-PRC-CI-AS NULL,ru_Date datetime NULL,address LvarcharJ(50)COLLATE Chinese-PRC-CI-AS NULL,comment varchar(200)COLLATE Chinese-PRC-CI-AS NULL,)ON PRIMARY3 创建班级信息表格classjnfoCREATTABLE dbo.class-info(class_NoJ intj NOT NULL,grade char(10)COLLATE Chinese-PRC-CI-AS NULLdirector char(10)COLLATE Chinese-PRC-CI-AS NULLclassroom.No char(10)COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY14 创建课程基本信息表course_InfoCREATTABLE dbo.course-info(course_NoJ int NOT NULL,course_Name char(10)COLLATE Chinese-PRC-CI-AS NULLcourse_Type char(10)COLLATE Chinese-PRC-CI-AS NULLcourse_Des char(50)COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY5 创建年级课程设置信息表gradecourse_InfoCREATTABLE dbo.gradecourse-info(grade char(10)COLLATE Chinese-PRC-CI-AS NULLcourse_Name char(10)COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY6 创建学生成绩信息表result_InfoCREAT TABLE dbo.result-info(exam_No char(10)COLLATE Chinese-PRC-CI-AS NOT NULstudentJD int NOT NULLstudent-Name char(10)COLLATE Chinese-PRC-CI-AS NULLclass_No int NULLcourse.Name Lchar(10)COLLATE Chinese-PRC-CI-AS NULLresult float NULL)ON PRIMARY四系统用户管理模块的创建控 件属 性属性取值frmLogin(From)NamefrmLoginCaptionStartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNametxtpasswordNametxtPasswordPassword*cmdOKNamecmdOKCaption确定cmdCancelNamecmdCancelCaption取消Label 1Caption学生信息管理系统Label2Caption用户名Label3Caption用户密码LabelCaption版权提供主要实现：1 用户登录2 添加用户3 修改用户密码系统启动后，将首先出现如下图所示的用户登录窗体，用户首先输入用户名，然后输入密码，如果用户3 次输入密码不正确，将退出程序。用户登录窗体中放置两个文本文档(TextBox)，用来输入用户名和用户密码；两个按钮(CommandButton)用来确定或取消登录；4 个 标 签(Label)用来标示窗体的信息。为窗体定义全局变量O K,用来判断登陆是否成功；定 义 m iCount,用来记载输入密码的次数，并且在载入窗体时初始化这两个变量，代码如下：用户登录窗体创建 强制变量声明代码实现如下：Option ExplicitPublic OK As Boolean”记录确定次数Dim miCount As IntegerPrivate Sub Form_Load()OK=FalsemiCount=0End SubOption Explicit是用来规定所有变量使用前必须定义。这样可以避免山于输入错误而产生的新变量。当用户输入完用户名和用户密码，单击cmdOK按钮将对用户输入信息进行判断。用户单击按钮，将触发按钮cmdOK的 Click事件，代码如下：Private Sub cmdOK_Click()用来存放SQL语行Dim txtSQL As String用来存放记录集对象Dim mrc As ADODB.Recordset用来存放返回信息Dim MsgText As String,ToDo:create test for correct passwordcheck for correct passwordUserName=If Trim(txtUserName.Text=)Then判断输入用户名为空MsgBox”没有这个用户，请重新输入用户名！vbOKOnly+vbExclamation,警告”txtU serN ame.S etFocusElsetxtSQL=select*from user_Info where user_ID=&txtUserName.Text&n,Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=True ThenMsgBox”没有这个用户，请重新输入用户名二vbOKOnly+vbExclamation,警告txtU serN ame.SetFocusElseIf Trim(mrc.Fields(1)=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox”输入密码不正确，请重新输入！”,vbOKOnly+vbExclamation,警告“txtPassword.SetFocustxtPassword.Text 二”End IfEnd IfEnd IfmiCount=miCount+1If miCount=3 ThenMe.HideEnd IfExit SubEnd Subr Student_MH-MKrowfl Visual Bask,de5gnj-Sludeul _Mi*-frn4oui(i(Fortu)X 般，c I：同 理1 8 甘火64)打 1788,1488 哥 2525x288X N lU H.Id l X|0&e 匕&Vew ftroeGeneral|A fabi匕 F G国 国&Q-J国打、口 碧Q B雷_)3三 所后 浜(3 E磨 麻1 年s z s s i|tx TAlOLOJ0L0Pa,RFSCOTa2T ai ITa-JTextReturns/the text_ jn J。和-Bro皿|&5 tu d e rtg 今我的艾省|电 一 字 生 售.|力ProjectH ”|金山词2002|s（送 军 力/10:49 一 d用户如果没有输入用户名密码，将出现消息框给予提示。如果输入的用户名在用户表格中没有找到，将提示重新输入用户名，文本档txtUserName将重新获得输入焦点。如果用户输入密码不正确，文本档txtUserName将重新获得输入焦点。用户登录成功，全局变量OK将被赋值为Ture；一 旦三次输入密码均不正确，全局变量OK将被赋值为False。公用模块中的Main过程将根据O K 的值决定是退出，或者进入系统。如果用户取消登录，单 击“取消”按钮，将触发按钮的Click事件；代码如下：OK=Falseme.HideM e是 Visual Basic中一个常用的对象，用来指代当前对象本身。添加用户窗体创建控 件属 性属性取值frmLogin(From)NamefrmLoginCaptionStartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNameTxtpassword 1NametxtPassword 1password*NametxtPasswordPassword*cmdOKNamecmdOKCaption确定cmdCancelNamecmdCancelCaption取消Label 1CaptionLabel2CaptionLabel3Caption用户需要两次输入密码，用来确保输入密码的正确。用户输入信息完毕，单击“确定”按键将触发Click事件，代码如下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIfTrim(Textl(O).Text)=n ThenMsgBox”请输入用户名称！:vbOKOnly+vbExclamation,“警告”Exit SubTextl(0).SetFocusElsetxtSQL=select*from user_Info”Set mrc=ExecuteSQL(txtSQL,MsgText)判断数据集是否为空While(mrc.EOF=False)判断是否有重复记录If Trim(mrc.Fields(O)=Trim(Textl(O)ThenMsgBox”用 户 已 经 存 在，请 重 新 输 入 用 户 名！:vbOKOnly+vbExc