学生学籍管理信息系统分析设计

第第#页共46页

E-R图转换成二维表学生信息表学生信息专业班级学号姓名出生年月家庭住址联系电话学生成绩表学生成绩专业班级学号姓名课程名称学生档案表学生档案专业班级学号姓名政治面貌奖惩是否留级注册表注册专业班级学号姓名出生年月家庭住址联系电话用户管理表用户用户名密码2.数据字典数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后获得的主要成果。数据字典通常包括以下几部分：（1）数据项:数据项是不可在分的数据单位。（2）数据结构:数据结构反映了数据之间的组合关系。一个数据结构可以由若干个数据结构组成，或由若干数据项和数据结构混合组成。（3）数据流:数据流是数据结构在系统内传输的路径。（4）数据存储:数据存储是数据及结构停留或保存的地方，也是数据流的来源和去向之一。（5）处理过程:处理过程的具体处理逻辑一般用判定表或判定树来描述。（6）数据字典:是关于数据库中数据的描述，即对原数据的描述。本系统的数据字典如下：学生信息表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL性别逻辑型（2）NOTNULL籍贯文本型（8）NOTNULL出生年月日期型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL政治面貌文本型（4）NOTNULL备注备注型（50）NOTNULL注册表列名数据类型及长度可否为空主键用户名文本型（16）NOTNULL密码文本型（16）NOTNULL

学生档案表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL性别文本型（4）NOTNULL民族文本型（8）NOTNULL籍贯文本型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL奖惩情况文本型（100）NOTNULL留级情况文本型（60）NOTNULL表现情况文本型（200）NOTNULL备注备注型（50）NOTNULL学生成绩表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL计算机网络数字型（4）NOTNULL计算机组成原理数字型（4）NOTNULL计算机应用与提高数字型（4）NOTNULL管理信息系统数字型（4）NOTNULL信息法律规程数字型（4）NOTNULL办公软件数字型（4）NOTNULL备注备注型（50）NOTNULL

.系统实现界面、代码设计与实现学生]主窗口1.主窗口界面说明：用户直接单击“进入”按钮进入登录界面。2.主窗口界面代码：PrivateSubCommand1_Click()主界面.Hide '隐藏主界面登录界面.Show '显示登录界面EndSub登录窗口1.登录窗口界面说明此登录界面分为“管理员”和“普通用户”登录。“管理员”需输入用户名和密码登录“信息管理”窗口；而普通用户则直接单击“登录”按钮进入“普通用户学生学籍窗口”。2.登录窗口界面代码(1)管理员登录代码：PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringdb.Open用户管理表rs.Opensql,db,adOpenStatic,adLockReadOnlyWhilers.EOF=FalseIfrs.Fields(0).Value=Text1.TextThenIfrs.Fields(1).Value=Text2.TextThen登录界面.Hide学生学籍信息管理窗口.ShowElse密码错误,请重新输入！EndIfEndIfrs.MoveNextWendEndSubPrivateSubCommand2_Click()登录界面.Hide主界面.ShowEndSub(2)普通用户窗口代码PrivateSubCommand3_Click()普通用户学生学籍窗口.Show登录界面.HideEndSubPrivateSubCommand4_Click()登录界面.Hide主界面.ShowEndSub信息管理窗口1.信息管理界面说明信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用户管理”，下设相应的子菜单。管理员可根据需要进行内容的查询、添加、删除等。2.信息管理界面代码（1）（学生学籍信息管理）信息查询窗口弹出代码：PrivateSubxxcx_Click(IndexAsInteger)查询学生信息窗口.ShowEndSub（2）（学生学籍信息管理）信息添加窗口弹出代码：PrivateSubxxtj_Click（IndexAsInteger）添加学生信息窗口.ShowEndSub（3）（学生学籍信息管理）信息修改窗口弹出代码：PrivateSubxxg_Click（IndexAsInteger）修改学生信息窗口.ShowEndSub（4）（学生学籍成绩管理）成绩查询窗口弹出代码：PrivateSubchjcx_Click（IndexAsInteger）查询学生成绩窗口.ShowEndSub（5）（学生学籍成绩管理）成绩添加窗口弹出代码：PrivateSubchjtj_Click（IndexAsInteger）添加学生成绩窗口.ShowEndSub（6）（学生学籍成绩管理）成绩修改窗口弹出代码：PrivateSubchjxg_Click（IndexAsInteger）修改学生成绩窗口.ShowEndSub（7）（学生学籍档案管理）档案查询窗口弹出代码：PrivateSubdacx_Click（IndexAsInteger）用户档案查询窗口.ShowEndSub（8）（学生学籍档案管理）注册查询窗口弹出代码：PrivateSubdazccx_Click（IndexAsInteger）用户注册查询窗口.ShowEndSub（9）（用户管理）用户修改窗口弹出代码：PrivateSubyhxg_Click（IndexAsInteger）用户修改窗口.ShowEndSub（10）（用户管理）用户添加窗口弹出代码：PrivateSubyhtj_Click（IndexAsInteger）用户添加窗口.ShowEndSub（11）信息管理返回按钮代码：PrivateSubCommand1_Click（）学生学籍信息管理窗口.Hide登录界面.ShowEndSub查询学生信息窗口1.查询学生信息界面说明用户选择所要查询的对象，单击“确定”按钮，得出相应信息。2.查询学生信息界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生信息表rs.Opensql,db,adOpenStatic,adLockReadOnly学生信息表where姓名rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).ValueText8.Text=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).Value查询成功Adodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()查询学生信息窗口.Hide学生学籍信息管理窗口.ShowEndSub添加学生信息窗口1.添加学生信息界面说明管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加成功。2.添加学生信息界面代码PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsql,rtAsStringDimzy,bj,xh,xm,xb,jg,csny,jtzz,lxdh,zzmm,bzAsStringdb.ConnectionString=db.Open学生信息表rs.Opensql,db,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields(0).Value=Text1.Textrs.Fields(1).Value=Text2.Textrs.Fields(2).Value=Text3.Textrs.Fields(3).Value=Text4.Textrs.Fields(4).Value=Text5.Textrs.Fields(5).Value=Text6.Textrs.Fields(6).Value=Text7.Textrs.Fields(7).Value=Text8.Textrs.Fields(8).Value=Text9.Textrs.Fields(9).Value=Text10.Textrs.Fields(10).Value=Text11.Textrs.Update增加成功EndSubPrivateSubCommand2_Click()UnloadMeEndSub修改学生信息窗口1.修改学生信息界面说明管理员可根据需要对学生信息进行修改（在相应信息处正确进行修改），修改完毕后单击“修改”按钮即可成功修改学生信息。2.修改学生信息界面代码PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimggAsNewADODB.RecordsetDimsql,rtAsStringDimz,aAsStringDimzy,bj,xh,xm,xb,jg,csny,jtzz,lxdh,zzmm,bzAsStringdb.ConnectionStringdb.Open学生信息表rs.Opensql,db,adOpenStatic,adLockOptimistic学生信息表set专业 班级学号 姓名性别 出生年月 家庭住址联系电话 政治面貌备注 姓名gg.Opena,db,adOpenStatic,adLockOptimistic修改成功EndSubPrivateSubCommand2_Click()UnloadMeEndSub成绩查询窗口1.成绩查询界面说明管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。2.成绩查询界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生成绩表rs.Opensql,db,adOpenStatic,adLockReadOnly学生成绩表1where学号rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录 如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).ValueText8.Text=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).Value查询成功Adodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub添加学生成绩窗口1.添加学生成绩界面说明管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加成功。2.添加学生成绩界面代码PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsql,rtAsStringDimzy,bj,xh,xm,jsjwl,jsjzcyl,jsjyyytg,glxxxt,xxflgc,bgrj,bzAsStringdb.ConnectionString=db.Open学生成绩表rs.Opensql,db,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields(0).Value=Text1.Textrs.Fields(1).Value=Text2.Textrs.Fields(2).Value=Text3.Textrs.Fields(3).Value=Text4.Textrs.Fields(4).Value=Text5.Textrs.Fields(5).Value=Text6.Textrs.Fields(6).Value=Text7.Textrs.Fields(7).Value=Text8.Textrs.Fields(8).Value=Text9.Textrs.Fields(9).Value=Text10.Textrs.Update增加成功EndSubPrivateSubCommand2_Click()UnloadMeEndSub修改学生成绩窗口1.修改学生成绩界面说明管理员可根据需要对学生信息进行修改（在相应信息处正确进行修改），修改完毕后单击“修改”按钮即可成功修改学生信息。2.修改学生成绩界面代码PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimggAsNewADODB.RecordsetDimsql,rtAsStringDimz,aAsStringDimzy,bj,xh,xm,jsjwl,jsjzcyl,jsjyyytg,glxxxt,xxfgc,bgrj,bzAsStringdb.ConnectionString=db.Open学生成绩表rs.Opensql,db,adOpenStatic,adLockOptimistic学生成绩表1set专业 班级学号 姓名计算机网络 计算机组成原理计算机应用与提高=&Text7.Text&管理信息系统&Text8.Text&信息法律规程 办公软件 备注 姓名gg.Opena,db,adOpenStatic,adLockOptimistic修改成功DataGrid1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSub档案查询窗口1.档案查询界面说明管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。2.档案查询界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生档案表rs.Opensql,db,adOpenStatic,adLockReadOnly学生档案表where学号rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录 如果为空，弹出对话框Elsers.MoveFirst '如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).ValueText8.Text=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueText11.Text=rs1.Fields(10).ValueText12.Text=rs1.Fields(11).ValueText13.Text=rs1.Fields(12).Value查询成功Adodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub注册查询窗口1.注册查询界面说明管理员根据需要选择所要查询的对象，单击“查询”得到该对象的注册信息。2.注册查询界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生注册表rs.Opensql,db,adOpenStatic,adLockReadOnly学生注册表where姓名rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).Value查询成功Adodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub用户修改窗口1.用户修改界面说明管理员根据需要修改用户权限信息。单击“修改”即可成功。2.用户修改界面代码PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimggAsNewADODB.RecordsetDimsql,rtAsStringDimz,aAsStringDimyhm,mm,bzAsStringdb.ConnectionString=db.Open

用户管理表密码用户名rs.Opensql,db,adOpenStatic,adLockOptimistic用户管理表set密码用户名备注修改成功EndSubPrivateSubCommand2_Click()UnloadMeEndSub用户添加窗口EndSub用户添加窗口1.用户添加界面说明管理员根据需要添加用户信息。单击“添加”按钮即可添加成功。2.用户添加界面代码PrivateSubCommand1_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsql,rtAsStringDimyhm,mm,bzAsStringdb.ConnectionString=db.Open用户管理表rs.Opensql,db,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields(0).Value=Text1.Textrs.Fields(1).Value=Text2.Textrs.Fields(2).Value=Text3.Textrs.Update增加成功EndSubPrivateSubCommand2_Click()UnloadMeEndSub普通用户学生学籍管理窗口1.普通用户学生学籍管理界面说明普通用户学生学籍管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理”的查询。普通用户根据需要对所需的信息进行查询。2.普通用户学生学籍管理界面代码(1)普通用户学生成绩查询窗口弹出代码PrivateSubcjcx_Click()普通用户学生成绩查询窗口.ShowEndSub(2)普通用户学生学籍窗口“返回”代码PrivateSubCommand1_Click()普通用户学生学籍窗口.Hide登录界面.ShowEndSub(3)普通用户学生档案查询窗口弹出代码PrivateSubdacx_Click(IndexAsInteger)普通用户学生档案查询窗口.ShowEndSub(4)普通用户学生信息查询窗口弹出代码PrivateSubxxcx_Click(IndexAsInteger)普通用户学生信息查询窗口.ShowEndSub普通用户学生信息查询窗口1.普通用户学生信息查询界面说明普通用户根据需要选择所要查询的对象，单击“确定”按钮查询成功。2.普通用户学生信息查询界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生信息表rs.Opensql,db,adOpenStatic,adLockReadOnly学生信息表where姓名rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).ValueText8.Text=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).Value查询成功Adodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()普通用户学生信息查询窗口.HideEndSub普通用户学生成绩查询窗口1.普通用户学生成绩查询界面说明普通用户根据需要选择所要查询的对象，单击“确定”按钮查询成功。2.普通用户学生成绩查询界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生成绩表rs.Opensql,db,adOpenStatic,adLockReadOnly学生成绩表1where姓名rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).ValueText8.Text=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).Value查询成功EndIfEndSubPrivateSubCommand2_Click()普通用户学生成绩查询窗口.HideEndSub通用户学生档案查询窗口1.普通用户学生档案查询界面说明普通用户根据需要选择所要查询的对象，单击“确定”按钮查询成功。2.普通用户学生档案查询界面代码PrivateSubCommand1_Click()DimklAsStringDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimrs1AsNewADODB.RecordsetDimsql1AsStringkl=Combo1.Textdb.ConnectionString=db.Open学生档案表rs.Opensql,db,adOpenStatic,adLockReadOnly学生档案表where姓名rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0Then表内无记录如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).ValueText2.Text=rs1.Fields(1).Value'显示相应字段的内容Text3.Text=rs1.Fields(2).ValueText4.Text=rs1.Fields(3).ValueText5.Text=rs1.Fields(4).ValueText6.Text=rs1.Fields(5).ValueText7.Text=rs1.Fields(6).ValueText8.Text=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueText11.Text=rs1.Fields(10).ValueText12.Text=rs1.Fields(11).ValueText13.Text=rs1.Fiel