#学生档案系统实现步骤.docx

1、#学生档案系统实现步骤学生档案管理系统课题指导资料一、 系统功能要求（1） 系统安全设计 用户进入系统，必须先进行登录，不同的用户具有不同的使用权限。管理员可使用该系统全部功能，而一般人员对信息只有浏览、查询权。（2） 系统维护设计 对学生信息可以进行添加、修改、删除和浏览操作。（3） 相关查询设计 对学校学生信息实现按姓名和按学号两种方式进行相关查询。二、 总体结构设计1、 总体结构框架图用户登录学生基本信息查询成绩查询宿舍查询学生名册信息查询系统维护学生档案管理系统2、 总结构说明序号窗体标题caption）窗体标识name）窗体功能备注1登录Form1启动2学生名册Form4显示学生名单

2、非管理员登录“系统维护”按钮不可用3基本信息查询Form2浏览、查询学生基本信息所有用户都有使用权限4系统维护Form3基本信息浏览、添加、修改、删除、查询等操作仅管理员有使用权限5成绩查询维护Form5成绩信息浏览、添加、修改、删除、查询等操作仅管理员有使用权限6成绩信息查询Form6浏览、查询学生成绩信息所有用户都有使用权限3.数据库设计根据系统功能要求，数据库应包括“学生信息”和“学生成绩”这两个表。数据库：yg学生成绩表:gz学生基本信息表：jiben住宿表:zs31数据结构设计1）“jiben”学生基本信息表）表结构字段名称类型大小是否必要字段索引允许零字长学号文本10是否否姓名文本

3、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 If Text1.Text = peopl

4、e 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 输入的密码和用户名不

5、符，请重新输入！, vbOKOnly Text1.Text = Text2.Text = Text1.SetFocusEnd IfEnd 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

6、= people Then Command1.SetFocusEnd IfEnd Sub2. “学生名册”窗体Form4）2.1 界面设计2.2 控件属性列表对象名称属性设置值功能DBGrid1VisibleDatasourceTrueData1列表显示学生名单Data1ConnectDataBaseNameRecordSouceVisibleAccessC:UsersliuDesktop学生档案学生档案管理系统.mdbJibenFalse连接“jiben”表基本信息表）Command1CaptionFont学生名册宋体、四号单击，列表显示全部学生名单Command2CaptionFont系统

7、维护宋体、四号单击，进入系统维护窗体Command3CaptionFont信息查询宋体、四号单击，进入信息查询窗体Command4CaptionFont返回宋体、四号返回登录窗体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

8、_Click(EndEnd SubPrivate Sub Form_Load(Data1.RecordSource = select 学号,姓名,性别,专业 from jibenData1.Visible = FalseDBGrid1.Visible = FalseEnd Sub3. “信息查询”窗体Form2）3.1 界面设计3.2 控件属性列表对象名称属性设置值功能Frame1Caption个人信息将同类信息放在框架中Forme2Caption其他信息将同类信息放在框架中Forme3Caption请选择将同类信息放在框架中Option1Caption基本信息单击，选择一项Option2Ca

9、ption成绩信息单击，选择一项Data1ConnectDataBaseNameRecordSouceVisibleAccessC:UsersliuDesktop学生档案学生档案管理系统.mdbJibenFalse连接“jiben”表学生基本信息表）Label1Label10Caption依次分别为：学号、姓名、性别奖惩情况提示Text1Text10DataSouceDataFieldData1依次分别为：学号、姓名、性别奖惩情况显示相应字段内容Command1CaptionFont上一个宋体、四号单击，显示上一个记录Command2CaptionFont下一个宋体、四号单击，显示下一个记录C

10、ommand3CaptionFont按姓名查询宋体、四号输入姓名查询Command4CaptionFont按学号查询宋体、四号输入学号查询Command5CaptionFont返回宋体、四号返回学生名册窗体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_Cl

11、ick(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.R

12、ecordset.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.Enabl

13、ed = True Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Command4_Click(ss = 请输入要查询学生的学号instring$ = InputBox$(ss, 输入提示, 0000Data1.Recordset.FindFirst 学号= & instring$ & If Data1.Recordset.NoMatch Then msg = 没有该学生的信息! MsgBox msg, vbOKOnly, 提示End IfIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirst

14、 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

15、 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.Sho

16、wForm2.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 = Fals

17、eLabel9.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.Vis

18、ible = 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 = T

19、rueText4.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 控件属性列表对象名称属性设置值功能Frame1

20、Caption请选择将同类信息放在框架中Option1Caption基本信息单击，选择一项Option2Caption成绩信息单击，选择一项Data1ConnectDataBaseNameRecordSouceVisibleAccessC:UsersliuDesktop学生档案学生档案管理系统.mdbJibenFalse连接“jiben”表基本信息表）DBGrid1DataSourceData1列表显示所有学生的基本信息Label1Label10Caption依次分别为：学号、姓名、性别奖惩情况提示Text1Text10DataSouceDataFieldData1依次分别为：学号、姓名、性别

21、奖惩情况显示相应字段内容Command1CaptionFont信息浏览宋体、四号单击，显示列表所有学生基本信息Command2CaptionFont信息录入宋体、四号单击，添加某个学生基本信息Command3CaptionFont信息修改宋体、四号单击，修改当前学生基本信息Command4CaptionFont信息删除宋体、四号单击，删除当前学生基本信息Command5CaptionFont确定宋体、四号单击，保存钢材所作的录入或修改Command6CaptionFont取消宋体、四号单击，取消刚才的录入或修改Command7CaptionFont信息查询宋体、四号单击，按学号查询某个学生的基

22、本信息Command8CaptionFont返回宋体、四号单击，返回学生名册窗体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.Textss = M

23、sgBox(真的要删除这个记录吗？, 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.R

24、ecordset.CancelUpdateEnd SubPrivate Sub Command7_Click(srxg = Truess = 请输入要查询学生的学号instring$ = InputBox$(ss, 输入提示, 0000Data1.Recordset.FindFirst 学号= & instring$ & If Data1.Recordset.NoMatch Then msg = 没有记录! MsgBox msg, vbOKOnly, 提示End IfEnd SubPrivate Sub Command8_Click(Form4.ShowForm3.HideEnd SubPri

25、vate 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.V