学生档案管理系统--实现步骤.doc

学生档案管理系统-实现步骤 作者： 日期：2 个人收集整理 勿做商业用途学生档案管理系统课题指导资料一、 系统功能要求（1） 系统安全设计 用户进入系统，必须先进行登录,不同的用户具有不同的使用权限。管理员可使用该系统全部功能,而一般人员对信息只有浏览、查询权。（2） 系统维护设计 对学生信息可以进行添加、修改、删除和浏览操作。（3） 相关查询设计 对学校学生信息实现按姓名和按学号两种方式进行相关查询。二、 总体结构设计1、 总体结构框架图用户登录学生基本信息查询成绩查询宿舍查询学生名册信息查询系统维护学生档案管理系统2、 总结构说明序号窗体标题（caption)窗体标识（name)窗体功能备注1登录Form1启动2学生名册Form4显示学生名单非管理员登录“系统维护”按钮不可用3基本信息查询Form2浏览、查询学生基本信息所有用户都有使用权限4系统维护Form3基本信息浏览、添加、修改、删除、查询等操作仅管理员有使用权限5成绩查询维护Form5成绩信息浏览、添加、修改、删除、查询等操作仅管理员有使用权限6成绩信息查询Form6浏览、查询学生成绩信息所有用户都有使用权限3。数据库设计根据系统功能要求,数据库应包括“学生信息”和“学生成绩”这两个表。数据库：yg学生成绩表：gz学生基本信息表:jiben住宿表：zs31数据结构设计（1）“jiben”（学生基本信息表）表结构字段名称类型大小是否必要字段索引允许零字长学号文本10是否否姓名文本10否否是性别文本2否否是生日文本20否否是系别文本10否否是专业文本10否否是班级文本20否否是家庭住址文本50否否是入学日期文本20否否是奖惩情况文本Memo否否是（2）“gz”（学生成绩)表结构字段名称类型大小是否必要字段索引允许零字长学号文本10是否否姓名文本10否否是数学文本20否否是语文文本20否否是英语文本20否否是计算机基础文本20否否是3。2 数据表的建立（参见VB教科书）1）启动VB2）选择“外接程序/可视化数据管理器”菜单命令。三、详细设计1。“登录”窗体（Form1)1。1界面设计1。放放大窗体范围WindowsState 属性为Z（最大化）2.修改窗体底色Backcolor属性为浅红1.2控件对象属性列表对象名称属性设置值功能Lable1CaptionFont学生档案管理系统字体：楷体 字号：小初标题Lable2CaptionFont请输入用户名和密码字体：宋体 字号:小二提示Lable3CaptionFont用户名字体:宋体 字号：三号标题Lable4CaptionFont密码字体：宋体 字号：三号标题Text1默认接收输入用户名Tent2passwordchar*接收密码Command1CaptionFont确定宋体、四号用户名和密码密码确认Command2CaptionFont取消宋体、四号取消操作Command3CaptionFont退出宋体、四号退出系统1.3 编写代码Private Sub Command1_Click（）If Text1.Text = ”people” And Text2.Text = ”people Or Text1.Text = guanli” And Text2.Text = ”guanli” Then Form1。Hide Form4.Show If Text1.Text = ”guanli” And Text2.Text = guanli Then Form4。Command2.Enabled = True End If If Text1.Text = people” And Text2。Text = ”people” Then Form4.Command2.Enabled = False End IfElse MsgBox 输入的密码和用户名不符，请重新输入!”, vbOKOnly Text1。Text = ” Text2.Text = ” Text1。SetFocusEnd If End SubPrivate Sub Command2_Click（)Text1.Text = ”Text2.Text = Text1。SetFocusEnd SubPrivate Sub Command3_Click（）EndEnd SubPrivate Sub Form_Load（)Text1.Text = ”Text2.Text = ”End SubPrivate Sub Text2_Change()If Text2.Text = ”guanli Or Text2。Text = people” Then Command1.SetFocusEnd IfEnd Sub2. “学生名册”窗体（Form4）2.1 界面设计2.2 控件属性列表对象名称属性设置值功能DBGrid1VisibleDatasourceTrueData1列表显示学生名单Data1ConnectDataBaseNameRecordSouceVisibleAccessC：UsersliuDesktop学生档案学生档案管理系统.mdbJibenFalse连接“jiben表(基本信息表）Command1CaptionFont学生名册宋体、四号单击，列表显示全部学生名单Command2CaptionFont系统维护宋体、四号单击,进入系统维护窗体Command3CaptionFont信息查询宋体、四号单击，进入信息查询窗体Command4CaptionFont返回宋体、四号返回登录窗体（Form1)Command5CaptionFont退出宋体、四号退出系统2。3 编写代码Private Sub Command1_Click()DBGrid1。Visible = TrueEnd SubPrivate Sub Command2_Click（)Form3.ShowForm4.HideEnd SubPrivate Sub Command3_Click()Form2。ShowForm4.HideEnd SubPrivate Sub Command4_Click(）Form1.ShowForm4.HideEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Form_Load(）Data1.RecordSource = ”select 学号，姓名,性别，专业 from jiben”Data1。Visible = FalseDBGrid1。Visible = FalseEnd Sub3. “信息查询窗体（Form2）3.1 界面设计3。2 控件属性列表对象名称属性设置值功能Frame1Caption个人信息将同类信息放在框架中Forme2Caption其他信息将同类信息放在框架中Forme3Caption请选择将同类信息放在框架中Option1Caption基本信息单击,选择一项Option2Caption成绩信息单击，选择一项Data1ConnectDataBaseNameRecordSouceVisibleAccessC：UsersliuDesktop学生档案学生档案管理系统.mdbJibenFalse连接“jiben”表（学生基本信息表)Label1Label10Caption依次分别为：学号、姓名、性别奖惩情况提示Text1Text10DataSouceDataFieldData1依次分别为：学号、姓名、性别奖惩情况显示相应字段内容Command1CaptionFont上一个宋体、四号单击，显示上一个记录Command2CaptionFont下一个宋体、四号单击，显示下一个记录Command3CaptionFont按姓名查询宋体、四号输入姓名查询Command4CaptionFont按学号查询宋体、四号输入学号查询Command5CaptionFont返回宋体、四号返回学生名册窗体(Form4）Command6CaptionFont退出宋体、四号退出系统3.3 编写代码Private Sub Command1_Click()Data1。Recordset。MovePrevious If Data1。Recordset.BOF Then Data1。Recordset。MoveFirst Command1.Enabled = False Else Command1。Enabled = True Command2.Enabled = True End IfEnd SubPrivate Sub Command2_Click(）Data1.Recordset.MoveNext If Data1。Recordset.EOF Then Data1.Recordset。MoveLast Command2。Enabled = False Else Command1.Enabled = True Command2。Enabled = True End IfEnd SubPrivate Sub Command3_Click（）ss = ”请输入要查询学生姓名：”instring$ = InputBox$（ss, 输入提示)Data1.Recordset.FindFirst ”姓名=” instring$ ”If Data1。Recordset。NoMatch Then msg = ”没有该学生的信息! MsgBox msg， vbOKOnly， ”提示End IfIf Data1.Recordset.BOF Then Data1.Recordset。MoveFirst Command1。Enabled = FalseElse Command1.Enabled = True Command2.Enabled = TrueEnd IfIf Data1。Recordset.EOF Then Data1。Recordset。MoveLast Command2.Enabled = FalseElse Command1.Enabled = True Command2。Enabled = TrueEnd IfEnd SubPrivate Sub Command4_Click（）ss = ”请输入要查询学生的学号instring$ = InputBox（ss, 输入提示， 0000）Data1.Recordset。FindFirst ”学号=” instring & ”If Data1。Recordset。NoMatch Then msg = ”没有该学生的信息！ MsgBox msg, vbOKOnly， ”提示”End IfIf Data1。Recordset.BOF Then Data1。Recordset。MoveFirst Command1。Enabled = FalseElse Command1.Enabled = True Command2。Enabled = TrueEnd IfIf Data1.Recordset.EOF Then Data1。Recordset.MoveLast Command2。Enabled = FalseElse Command1。Enabled = True Command2。Enabled = TrueEnd IfIf Data1.Recordset。BOF Then Data1.Recordset。MoveFirst Command1.Enabled = FalseElse Command1。Enabled = True Command2。Enabled = TrueEnd IfIf Data1。Recordset。EOF Then Data1。Recordset。MoveLast Command2.Enabled = FalseElse Command1.Enabled = True Command2。Enabled = TrueEnd IfEnd SubPrivate Sub Command5_Click(）If Form1。Text1.Text ”guanli Then Form4.Command2。Enabled = FalseEnd IfForm4。ShowForm2。HideEnd SubPrivate Sub Command6_Click(）EndEnd SubPrivate Sub Form_Activate(）Frame1.Visible = FalseFrame2。Visible = FalseLabel1。Visible = FalseLabel2.Visible = FalseLabel3.Visible = FalseLabel4.Visible = FalseLabel5.Visible = FalseLabel6.Visible = FalseLabel7。Visible = FalseLabel8。Visible = FalseLabel9.Visible = FalseLabel10.Visible = FalseText1。Visible = FalseText2。Visible = FalseText3。Visible = FalseText4.Visible = FalseText5.Visible = FalseText6.Visible = FalseText7。Visible = FalseText8.Visible = FalseText9.Visible = FalseText10.Visible = FalseEnd SubPrivate Sub Option1_Click()Frame1.Visible = TrueFrame2。Visible = TrueLabel1。Visible = TrueLabel2。Visible = TrueLabel3。Visible = TrueLabel4。Visible = TrueLabel5.Visible = TrueLabel6.Visible = TrueLabel7。Visible = TrueLabel8.Visible = TrueLabel9。Visible = TrueLabel10.Visible = TrueText1.Visible = TrueText2.Visible = TrueText3.Visible = TrueText4。Visible = TrueText5。Visible = TrueText6.Visible = TrueText7。Visible = TrueText8.Visible = TrueText9.Visible = TrueText10。Visible = TrueEnd SubPrivate Sub Option2_Click(）Option1.Value = FalseOption2。Value = FalseForm2。HideForm6.ShowEnd Sub4。 “基本信息录入”窗体（Form3)4.1 界面设计4.2 控件属性列表对象名称属性设置值功能Frame1Caption请选择将同类信息放在框架中Option1Caption基本信息单击，选择一项Option2Caption成绩信息单击，选择一项Data1ConnectDataBaseNameRecordSouceVisibleAccessC：UsersliuDesktop学生档案学生档案管理系统.mdbJibenFalse连接“jiben”表（基本信息表）DBGrid1DataSourceData1列表显示所有学生的基本信息Label1Label10Caption依次分别为：学号、姓名、性别奖惩情况提示Text1Text10DataSouceDataFieldData1依次分别为：学号、姓名、性别奖惩情况显示相应字段内容Command1CaptionFont信息浏览宋体、四号单击，显示列表所有学生基本信息Command2CaptionFont信息录入宋体、四号单击，添加某个学生基本信息Command3CaptionFont信息修改宋体、四号单击，修改当前学生基本信息Command4CaptionFont信息删除宋体、四号单击,删除当前学生基本信息Command5CaptionFont确定宋体、四号单击，保存钢材所作的录入或修改Command6CaptionFont取消宋体、四号单击,取消刚才的录入或修改Command7CaptionFont信息查询宋体、四号单击，按学号查询某个学生的基本信息Command8CaptionFont返回宋体、四号单击,返回学生名册窗体（Form4）Command9CaptionFont退出宋体、四号退出系统4.3 编写代码Private Sub Command1_Click（)DBGrid1。Visible = TrueEnd SubPrivate Sub Command2_Click（)srxg = TrueData1。Recordset.AddNewText1.SetFocusEnd SubPrivate Sub Command3_Click()srxg = TrueData1。Recordset。EditText1。SetFocusEnd SubPrivate Sub Command4_Click(）Dim num As Integernum = Val(Text1。Text）ss = MsgBox(”真的要删除这个记录吗？”, vbYesNo + vbInformation， ”删除记录”)If (ss = vbYes） Then Data1.Recordset。Delete Data1.Recordset。MoveNext If Data1.Recordset.EOF Then Data1。Recordset。MoveLast End IfEnd IfEnd SubPrivate Sub Command5_Click（)srxg = TrueData1.Recordset.UpdateEnd SubPrivate Sub Command6_Click()srxg = TrueData1.Recordset。CancelUpdateEnd SubPrivate Sub Command7_Click（）srxg = Truess = 请输入要查询学生的学号instring$ = InputBox(ss, 输入提示， ”0000”）Data1。Recordset。FindFirst ”学号=” instring & ”If Data1.Recordset.NoMatch Then msg = 没有记录！ MsgBox msg， vbOKOnly, 提示”End IfEnd SubPrivate Sub Command8_Click()Form4.ShowForm3.HideEnd SubPrivate Sub Command9_Click(）EndEnd SubPrivate Sub Form_Activate(）DBGrid1.Visible = FalseLabel1。Visible = FalseLabel2。Visible = FalseLabel3。Visible = FalseLabel4。Visible = FalseLabel5。Visible = FalseLabel6。Visible = FalseLabel7.Visible = FalseLabel8.Visible = FalseLabel9.Visible = FalseLabel10。Visible = FalseText1.Visible = FalseText2.Visible = FalseText3.Visible = FalseText4.Visible = FalseText5。Visible = FalseText6。Visible = FalseText7.Visible = FalseText8.Visible = FalseText9。Visible = FalseText10.Visible = FalseEnd SubPrivate Sub Option1_Click（）Label1。Visible = TrueLabel2.Visible = TrueLabel3。Visible = TrueLabel4。Visible = TrueLabel5.Visible = TrueLabel6。Visible = TrueLabel7。Visible = TrueLabel8。Visible = TrueLabel9。Visible = TrueLabel10。Visible = TrueText1。Visible = TrueText2。Visible = TrueText3.Visible = TrueText4.Visible = TrueText5.Visible = TrueText6.Visible = TrueText7。Visible = TrueText8.Visible = TrueText9。Visible = TrueText10。Visible = TrueEnd SubPrivate Sub Option2_Click()Form3。HideOption2 = FalseOption1 = FalseForm5.ShowEnd Sub5. “成绩录入”窗体（Form5）5.1 界面设计5。2 控件属性列表对象名称属性设置值功能Data1ConnectDataBaseNameRecordSouceVisibleAccessC:UsersliuDesktop学生档案学生档案管理系统。mdbgzFalse连接“gz”表（学生成绩表）DBGrid1DataSoureData1列表显示所有学生的成绩信息Label1Label6Caption依次分别为：学号、姓名、数学、计算机基础提示Text1Text6DataSouceDataFieldData1依次分别为：学号、姓名、数学、计算机基础显示相应字段内容Command1CaptionFont信息浏览宋体、四号单击，显示列表所有学生成绩信息Command2CaptionFont信息录入宋体、四号单击，添加某个学生成绩信息Command3CaptionFont信息修改宋体、四号单击，修改当前学生成绩信息Command4CaptionFont信息删除宋体、四号单击，删除当前学生成绩信息Command5CaptionFont确定宋体、四号单击，保存刚才所作的录入或修改Command6CaptionFont取消宋体、四号单击,取消刚才的录入或修改Command7CaptionFont信息查询宋体、四号单击，按学号查询某个学生的成绩信息Command8CaptionFont返回宋体、四号单击，返回学生名册窗体（Form4）Command9CaptionFont退出宋体、四号退出系统5.3 编写代码Private Sub Command1_Click（)DBGrid1.Visible = TrueEnd SubPrivate Sub Command2_Click（）srxg = TrueData1.Recordset.AddNewText1.SetFocusEnd SubPrivate Sub Command3_Click()srxg = TrueData1.Recordset.EditText1.SetFocusEnd SubPrivate Sub Command4_Click()Dim num As Integernum = Val（Text1.Text）ss = MsgBox（”真的删除这个记录吗？”, vbYesNo + vbInformation， 删除记录)If （ss = vbYes） Then Data1.Recordset.Delete Data1。Recordset.MoveNext If Data1。Recordset。EOF Then Data1。Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command5_Click（）srxg = TrueData1.Recordset.UpdateEnd SubPrivate Sub Command6_Click()srxg = FalseData1.Recordset。CancelUpdateEnd SubPrivate Sub Command7_Click（)srxg = Truess = 请输入要查询学生学号instring = InputBox(ss， 输入提示”， 0000”）Data1。Recordset.FindFirst ”学号= instring If Data1.Recordset。NoMatch Then msg = 没有该记录！ MsgBox msg, vbOKOnly， ”提示”End IfEnd SubPrivate Sub Command8_Click（)Form4.ShowForm5。HideEnd SubPrivate Sub Command9_Click（)EndEnd SubPrivate Sub Form_Load(）End Sub6. “成绩查询”窗体（Form6）6.1 界面设计6.2 控件属性列表对象名称属性设置值功能Data1ConnectDataBaseNameRecordSouceVisibleAccessC:UsersliuDesktop学生档案学生档案管理系统。mdbgzFalse连接“gz”表（学生成绩表）Label1Label6Caption依次分别为:学号、姓名、数学、计算机基础提示Text1Text6DataSouceDataFieldData1依次分别为：学号、姓名、数学、计算机基础显示相应字段内容Command1CaptionFont上一个宋体、四号单击，显示上一个记录Command2CaptionFont下一个宋体、四号单击,显示下一个记录Command3CaptionFont按姓名查询宋体、四号输入姓名查询Command4CaptionFont按学号查询宋体、四号输入学号查询Command5CaptionFont返回宋体、四号返回学生名册窗体（Form4）Command6CaptionFont退出宋体、四号退出系统6.3 编写代码Private Sub Command1_Click()Data1.Recordset。MovePreviousIf Data1。Recordset。BOF Then Data1。Recordset.MoveFirst Command1。Enabled = FalseElse Command1。Enabled = True Command2。Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click（)Data1。Recordset。MoveNextIf Data1.Recordset.EOF Then Data1。Recordset.MoveLast Command2。Enabled = FalseElse Command1.Enabled = True Command2。Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click（)ss = ”请输入要查询的学生姓名:”instring = InputBox$(ss， ”输入提示”）Data1。Recordset.FindFirst ”姓名=” & instring & If Data1.Recordset.NoMatch Then msg = 没有该学生信息！” MsgBox msg， vbOKOnly， ”提示End IfIf Data1.Recordset.BOF Then Data1.Recordset。MoveFirst Command1。Enabled = FalseElse Command1。Enabled = True Command2.Enabled = TrueEnd IfIf Data1。Recordset.EOF Then Data1。Recordset.MoveLast Command2。Enabled = FalseElse Command1。Enabled = True Command2.Enabled = TrueE