#学生档案系统实现步骤.docx
- 文档编号:17188053
- 上传时间:2023-07-22
- 格式:DOCX
- 页数:31
- 大小:195.69KB
#学生档案系统实现步骤.docx
《#学生档案系统实现步骤.docx》由会员分享,可在线阅读,更多相关《#学生档案系统实现步骤.docx(31页珍藏版)》请在冰点文库上搜索。
#学生档案系统实现步骤
《学生档案管理系统》课题指导资料
一、系统功能要求
(1)系统安全设计
用户进入系统,必须先进行登录,不同的用户具有不同的使用权限。
管理员可使用该系统全部功能,而一般人员对信息只有浏览、查询权。
(2)系统维护设计
对学生信息可以进行添加、修改、删除和浏览操作。
(3)相关查询设计
对学校学生信息实现按姓名和按学号两种方式进行相关查询。
二、总体结构设计
1、总体结构框架图
用户登录
学生基本信息查询
成绩查询
宿舍查询
学生名册
信息查询
系统维护
学生档案管理系统
2、总结构说明
序号
窗体标题
窗体标识 窗体功能 备注 1 登录 Form1 启动 2 学生名册 Form4 显示学生名单 非管理员登录“系统维护”按钮不可用 3 基本信息查询 Form2 浏览、查询学生基本信息 所有用户都有使用权限 4 系统维护 Form3 基本信息浏览、添加、修改、删除、查询等操作 仅管理员有使用权限 5 成绩查询维护 Form5 成绩信息浏览、添加、修改、删除、查询等操作 仅管理员有使用权限 6 成绩信息查询 Form6 浏览、查询学生成绩信息 所有用户都有使用权限 3.数据库设计 根据系统功能要求,数据库应包括“学生信息”和“学生成绩”这两个表。 数据库: yg 学生成绩表: gz 学生基本信息表: jiben 住宿表: zs 3.1数据结构设计 <1)“jiben”<学生基本信息表)表结构 字段名称 类型 大小 是否必要字段 索引 允许零字长 学号 文本 10 是 否 否 姓名 文本 10 否 否 是 性别 文本 2 否 否 是 生日 文本 20 否 否 是 系别 文本 10 否 否 是 专业 文本 10 否 否 是 班级 文本 20 否 否 是 家庭住址 文本 50 否 否 是 入学日期 文本 20 否 否 是 奖惩情况 文本 Memo 否 否 是 <2)“gz”<学生成绩)表结构 字段名称 类型 大小 是否必要字段 索引 允许零字长 学号 文本 10 是 否 否 姓名 文本 10 否 否 是 数学 文本 20 否 否 是 语文 文本 20 否 否 是 英语 文本 20 否 否 是 计算机基础 文本 20 否 否 是 3.2数据表的建立<参见VB教科书) 1)启动VB 2)选择“外接程序/可视化数据管理器”菜单命令。 三、详细设计 1.“登录”窗体 1.1界面设计 1.放放大窗体范围 WindowsState属性为Z <最大化) 2.修改窗体底色 Backcolor属性为浅红 1.2控件对象属性列表 对象名称 属性 设置值 功能 Lable1 Caption Font 学生档案管理系统 字体: 楷体字号: 小初 标题 Lable2 Caption Font 请输入用户名和密码 字体: 宋体字号: 小二 提示 Lable3 Caption Font 用户名 字体: 宋体字号: 三号 标题 Lable4 Caption Font 密码 字体: 宋体字号: 三号 标题 Text1 默认 接收输入用户名 Tent2 passwordchar * 接收密码 Command1 Caption Font 确定 宋体、四号 用户名和密码 密码确认 Command2 Caption Font 取消 宋体、四号 取消操作 Command3 Caption Font 退出 宋体、四号 退出系统 1.3编写代码 PrivateSubCommand1_Click(> IfText1.Text="people"AndText2.Text="people"OrText1.Text="guanli"AndText2.Text="guanli"Then Form1.Hide Form4.Show IfText1.Text="guanli"AndText2.Text="guanli"Then Form4.Command2.Enabled=True EndIf IfText1.Text="people"AndText2.Text="people"Then Form4.Command2.Enabled=False EndIf Else MsgBox"输入的密码和用户名不符,请重新输入! ",vbOKOnly Text1.Text="" Text2.Text="" Text1.SetFocus EndIf EndSub PrivateSubCommand2_Click(> Text1.Text="" Text2.Text="" Text1.SetFocus EndSub PrivateSubCommand3_Click(> End EndSub PrivateSubForm_Load(> Text1.Text="" Text2.Text="" EndSub PrivateSubText2_Change(> IfText2.Text="guanli"OrText2.Text="people"Then Command1.SetFocus EndIf EndSub 2.“学生名册”窗体 2.1界面设计 2.2控件属性列表 对象名称 属性 设置值 功能 DBGrid1 Visible Datasource True Data1 列表显示学生名单 Data1 Connect DataBaseName RecordSouce Visible Access C: \Users\liu\Desktop\学生档案\学生档案管理系统.mdb Jiben False 连接“jiben”表<基本信息表) Command1 Caption Font 学生名册 宋体、四号 单击,列表显示全部学生名单 Command2 Caption Font 系统维护 宋体、四号 单击,进入系统维护窗体 Command3 Caption Font 信息查询 宋体、四号 单击,进入信息查询窗体 Command4 Caption Font 返回 宋体、四号 返回登录窗体 Command5 Caption Font 退出 宋体、四号 退出系统 2.3编写代码 PrivateSubCommand1_Click(> DBGrid1.Visible=True EndSub PrivateSubCommand2_Click(> Form3.Show Form4.Hide EndSub PrivateSubCommand3_Click(> Form2.Show Form4.Hide EndSub PrivateSubCommand4_Click(> Form1.Show Form4.Hide EndSub PrivateSubCommand5_Click(> End EndSub PrivateSubForm_Load(> Data1.RecordSource="select学号,姓名,性别,专业fromjiben" Data1.Visible=False DBGrid1.Visible=False EndSub 3.“信息查询”窗体 3.1界面设计 3.2控件属性列表 对象名称 属性 设置值 功能 Frame1 Caption 个人信息 将同类信息放在框架中 Forme2 Caption 其他信息 将同类信息放在框架中 Forme3 Caption 请选择 将同类信息放在框架中 Option1 Caption 基本信息 单击,选择一项 Option2 Caption 成绩信息 单击,选择一项 Data1 Connect DataBaseName RecordSouce Visible Access C: \Users\liu\Desktop\学生档案\学生档案管理系统.mdb Jiben False 连接“jiben”表<学生基本信息表) Label1~Label10 Caption 依次分别为: 学号、姓名、性别······奖惩情况 提示 Text1~Text10 DataSouce DataField Data1 依次分别为: 学号、姓名、性别······奖惩情况 显示相应字段内容 Command1 Caption Font 上一个 宋体、四号 单击,显示上一个记录 Command2 Caption Font 下一个 宋体、四号 单击,显示下一个记录 Command3 Caption Font 按姓名查询 宋体、四号 输入姓名查询 Command4 Caption Font 按学号查询 宋体、四号 输入学号查询 Command5 Caption Font 返回 宋体、四号 返回学生名册窗体 Command6 Caption Font 退出 宋体、四号 退出系统 3.3编写代码 PrivateSubCommand1_Click(> Data1.Recordset.MovePrevious IfData1.Recordset.BOFThen Data1.Recordset.MoveFirst Command1.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf EndSub PrivateSubCommand2_Click(> Data1.Recordset.MoveNext IfData1.Recordset.EOFThen Data1.Recordset.MoveLast Command2.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf EndSub PrivateSubCommand3_Click(> ss="请输入要查询学生姓名: " instring$=InputBox$(ss,"输入提示"> Data1.Recordset.FindFirst"姓名='"&instring$&"'" IfData1.Recordset.NoMatchThen msg="没有该学生的信息! " MsgBoxmsg,vbOKOnly,"提示" EndIf IfData1.Recordset.BOFThen Data1.Recordset.MoveFirst Command1.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf IfData1.Recordset.EOFThen Data1.Recordset.MoveLast Command2.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf EndSub PrivateSubCommand4_Click(> ss="请输入要查询学生的学号" instring$=InputBox$(ss,"输入提示","0000"> Data1.Recordset.FindFirst"学号='"&instring$&"'" IfData1.Recordset.NoMatchThen msg="没有该学生的信息! " MsgBoxmsg,vbOKOnly,"提示" EndIf IfData1.Recordset.BOFThen Data1.Recordset.MoveFirst Command1.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf IfData1.Recordset.EOFThen Data1.Recordset.MoveLast Command2.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf IfData1.Recordset.BOFThen Data1.Recordset.MoveFirst Command1.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf IfData1.Recordset.EOFThen Data1.Recordset.MoveLast Command2.Enabled=False Else Command1.Enabled=True Command2.Enabled=True EndIf EndSub PrivateSubCommand5_Click(> IfForm1.Text1.Text<>"guanli"Then Form4.Command2.Enabled=False EndIf Form4.Show Form2.Hide EndSub PrivateSubCommand6_Click(> End EndSub PrivateSubForm_Activate(> Frame1.Visible=False Frame2.Visible=False Label1.Visible=False Label2.Visible=False Label3.Visible=False Label4.Visible=False Label5.Visible=False Label6.Visible=False Label7.Visible=False Label8.Visible=False Label9.Visible=False Label10.Visible=False Text1.Visible=False Text2.Visible=False Text3.Visible=False Text4.Visible=False Text5.Visible=False Text6.Visible=False Text7.Visible=False Text8.Visible=False Text9.Visible=False Text10.Visible=False EndSub PrivateSubOption1_Click(> Frame1.Visible=True Frame2.Visible=True Label1.Visible=True Label2.Visible=True Label3.Visible=True Label4.Visible=True Label5.Visible=True Label6.Visible=True Label7.Visible=True Label8.Visible=True Label9.Visible=True Label10.Visible=True Text1.Visible=True Text2.Visible=True Text3.Visible=True Text4.Visible=True Text5.Visible=True Text6.Visible=True Text7.Visible=True Text8.Visible=True Text9.Visible=True Text10.Visible=True EndSub PrivateSubOption2_Click(> Option1.Value=False Option2.Value=False Form2.Hide Form6.Show EndSub 4.“基本信息录入”窗体 4.1界面设计 4.2控件属性列表 对象名称 属性 设置值 功能 Frame1 Caption 请选择 将同类信息放在框架中 Option1 Caption 基本信息 单击,选择一项 Option2 Caption 成绩信息 单击,选择一项 Data1 Connect DataBaseName RecordSouce Visible Access C: \Users\liu\Desktop\学生档案\学生档案管理系统.mdb Jiben False 连接“jiben”表<基本信息表) DBGrid1 DataSource Data1 列表显示所有学生的基本信息 Label1~Label10 Caption 依次分别为: 学号、姓名、性别······奖惩情况 提示 Text1~Text10 DataSouce DataField Data1 依次分别为: 学号、姓名、性别······奖惩情况 显示相应字段内容 Command1 Caption Font 信息浏览 宋体、四号 单击,显示列表所有学生基本信息 Command2 Caption Font 信息录入 宋体、四号 单击,添加某个学生基本信息 Command3 Caption Font 信息修改 宋体、四号 单击,修改当前学生基本信息 Command4 Caption Font 信息删除 宋体、四号 单击,删除当前学生基本信息 Command5 Caption Font 确定 宋体、四号 单击,保存钢材所作的录入或修改 Command6 Caption Font 取消 宋体、四号 单击,取消刚才的录入或修改 Command7 Caption Font 信息查询 宋体、四号 单击,按学号查询某个学生的基本信息 Command8 Caption Font 返回 宋体、四号 单击,返回学生名册窗体 Command9 Caption Font 退出 宋体、四号 退出系统 4.3编写代码 PrivateSubCommand1_Click(> DBGrid1.Visible=True EndSub PrivateSubCommand2_Click(> srxg=True Data1.Recordset.AddNew Text1.SetFocus EndSub PrivateSubCommand3_Click(> srxg=True Data1.Recordset.Edit Text1.SetFocus EndSub PrivateSubCommand4_Click(> DimnumAsInteger num=Val(Text1.Text> ss=MsgBox("真的要删除这个记录吗? ",vbYesNo+vbInformation,"删除记录"> If(ss=vbYes>Then Data1.Recordset.Delete Data1.Recordset.MoveNext IfData1.Recordset.EOFThen Data1.Recordset.MoveLast EndIf EndIf EndSub PrivateSubCommand5_Click(> srxg=True Data1.Recordset.Update EndSub PrivateSubCommand6_Click(> srxg=True Data1.Recordset.CancelUpdate EndSub PrivateSubCommand7_Click(> srxg=True ss="请输入要查询学生的学号" instring$=InputBox$(ss,"输入提示","0000"> Data1.Recordset.FindFirst"学号='"&instring$&"'" IfData1.Recordset.NoMatchThen msg="没有记录! " MsgBoxmsg,vbOKOnly,"提示" EndIf EndSub PrivateSubCommand8_Click(> Form4.Show Form3.Hide EndSub PrivateSubCommand9_Click(> End EndSub PrivateSubForm_Activate(> DBGrid1.Visible=False Label1.Visible=False Label2.Visible=False Label3.Visible=False Label4.Visible=False Label5.Visible=False Label6.Visible=False Label7.Visible=False Label8.Visible=False Label9.Visible=False Label10.Visible=False Text1.Visible=False Text2.Visible=False Text3.Visible=False Text4.Visible=False Text5.Visible=False Text6.Visible=False Text7.V
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生档案 系统 实现 步骤