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

上传人：精****

文档编号：2558631

上传时间：2024-05-31

格式：DOC

页数：21

大小：487.54KB

《学生档案管理系统--实现步骤.doc》由会员分享，可在线阅读，更多相关《学生档案管理系统--实现步骤.doc（21页珍藏版）》请在咨信网上搜索。

学生档案管理系统--实现步骤 ———————————————————————————————— 作者： ———————————————————————————————— 日期： 2 个人收集整理勿做商业用途《学生档案管理系统》课题指导资料一、系统功能要求（1）系统安全设计用户进入系统，必须先进行登录,不同的用户具有不同的使用权限。管理员可使用该系统全部功能,而一般人员对信息只有浏览、查询权。（2）系统维护设计对学生信息可以进行添加、修改、删除和浏览操作。（3）相关查询设计对学校学生信息实现按姓名和按学号两种方式进行相关查询。二、总体结构设计 1、总体结构框架图用户登录学生基本信息查询成绩查询宿舍查询学生名册信息查询系统维护学生档案管理系统 2、总结构说明序号窗体标题（caption) 窗体标识（name) 窗体功能备注 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。“登录”窗体（Form1) 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 编写代码 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 If Else MsgBox "输入的密码和用户名不符，请重新输入!”, vbOKOnly Text1。Text = ”” Text2.Text = "” Text1。SetFocus End If End Sub Private Sub Command2_Click（) Text1.Text = ”” Text2.Text = "" Text1。SetFocus End Sub Private Sub Command3_Click（） End End Sub Private Sub Form_Load（) Text1.Text = ”” Text2.Text = ”" End Sub Private Sub Text2_Change() If Text2.Text = ”guanli" Or Text2。Text = "people” Then Command1.SetFocus End If End Sub 2. “学生名册”窗体（Form4） 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 返回宋体、四号返回登录窗体（Form1) Command5 Caption Font 退出宋体、四号退出系统 2。3 编写代码 Private Sub Command1_Click() DBGrid1。Visible = True End Sub Private Sub Command2_Click（) Form3.Show Form4.Hide End Sub Private Sub Command3_Click() Form2。Show Form4.Hide End Sub Private Sub Command4_Click(） Form1.Show Form4.Hide End Sub Private Sub Command5_Click() End End Sub Private Sub Form_Load(） Data1.RecordSource = ”select 学号，姓名,性别，专业 from jiben” Data1。Visible = False DBGrid1。Visible = False End Sub 3. “信息查询"窗体（Form2） 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 返回宋体、四号返回学生名册窗体(Form4） Command6 Caption Font 退出宋体、四号退出系统 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 If End Sub Private 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 If End Sub Private Sub Command3_Click（） ss = ”请输入要查询学生姓名：” instring$ = InputBox$（ss, "输入提示") Data1.Recordset.FindFirst ”姓名=’” ＆ instring$ ＆ ”’" If Data1。Recordset。NoMatch Then msg = ”没有该学生的信息!" MsgBox msg， vbOKOnly， ”提示" End If If Data1.Recordset.BOF Then Data1.Recordset。MoveFirst Command1。Enabled = False Else Command1.Enabled = True Command2.Enabled = True End If If Data1。Recordset.EOF Then Data1。Recordset。MoveLast Command2.Enabled = False Else Command1.Enabled = True Command2。Enabled = True End If End Sub Private Sub Command4_Click（） ss = ”请输入要查询学生的学号" instring$ = InputBox＄（ss, "输入提示"， "0000"） Data1.Recordset。FindFirst ”学号=’” ＆ instring＄ & "'” If Data1。Recordset。NoMatch Then msg = ”没有该学生的信息！" MsgBox msg, vbOKOnly， ”提示” End If If Data1。Recordset.BOF Then Data1。Recordset。MoveFirst Command1。Enabled = False Else Command1.Enabled = True Command2。Enabled = True End If If Data1.Recordset.EOF Then Data1。Recordset.MoveLast Command2。Enabled = False Else Command1。Enabled = True Command2。Enabled = True End If If Data1.Recordset。BOF Then Data1.Recordset。MoveFirst Command1.Enabled = False Else Command1。Enabled = True Command2。Enabled = True End If If Data1。Recordset。EOF Then Data1。Recordset。MoveLast Command2.Enabled = False Else Command1.Enabled = True Command2。Enabled = True End If End Sub Private Sub Command5_Click(） If Form1。Text1.Text <> ”guanli" Then Form4.Command2。Enabled = False End If Form4。Show Form2。Hide End Sub Private Sub Command6_Click(） End End Sub Private Sub Form_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 End Sub Private Sub Option1_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 End Sub Private Sub Option2_Click(） Option1.Value = False Option2。Value = False Form2。Hide Form6.Show End Sub 4。 “基本信息录入”窗体（Form3) 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 返回宋体、四号单击,返回学生名册窗体（Form4） Command9 Caption Font 退出宋体、四号退出系统 4.3 编写代码 Private Sub Command1_Click（) DBGrid1。Visible = True End Sub Private Sub Command2_Click（) srxg = True Data1。Recordset.AddNew Text1.SetFocus End Sub Private Sub Command3_Click() srxg = True Data1。Recordset。Edit Text1。SetFocus End Sub Private Sub Command4_Click(） Dim num As Integer num = 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 If End If End Sub Private Sub Command5_Click（) srxg = True Data1.Recordset.Update End Sub Private Sub Command6_Click() srxg = True Data1.Recordset。CancelUpdate End Sub Private Sub Command7_Click（） srxg = True ss = "请输入要查询学生的学号" instring$ = InputBox＄(ss, "输入提示"， ”0000”） Data1。Recordset。FindFirst ”学号=’” ＆ instring＄ & ”'" If Data1.Recordset.NoMatch Then msg = "没有记录！" MsgBox msg， vbOKOnly, "提示” End If End Sub Private Sub Command8_Click() Form4.Show Form3.Hide End Sub Private Sub Command9_Click(） End End Sub Private Sub Form_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.Visible = False Text8.Visible = False Text9。Visible = False Text10.Visible = False End Sub Private Sub Option1_Click（） 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 End Sub Private Sub Option2_Click() Form3。Hide Option2 = False Option1 = False Form5.Show End Sub 5. “成绩录入”窗体（Form5） 5.1 界面设计 5。2 控件属性列表对象名称属性设置值功能 Data1 Connect DataBaseName RecordSouce Visible Access C:\Users\liu\Desktop\学生档案\学生档案管理系统。mdb gz False 连接“gz”表（学生成绩表） DBGrid1 DataSoure Data1 列表显示所有学生的成绩信息 Label1~Label6 Caption 依次分别为：学号、姓名、数学、······、计算机基础提示 Text1~Text6 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 返回宋体、四号单击，返回学生名册窗体（Form4） Command9 Caption Font 退出宋体、四号退出系统 5.3 编写代码 Private Sub Command1_Click（) DBGrid1.Visible = True End Sub Private Sub Command2_Click（） srxg = True Data1.Recordset.AddNew Text1.SetFocus End Sub Private Sub Command3_Click() srxg = True Data1.Recordset.Edit Text1.SetFocus End Sub Private Sub Command4_Click() Dim num As Integer num = 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 If End If End Sub Private Sub Command5_Click（） srxg = True Data1.Recordset.Update End Sub Private Sub Command6_Click() srxg = False Data1.Recordset。CancelUpdate End Sub Private Sub Command7_Click（) srxg = True ss = "请输入要查询学生学号" instring＄ = InputBox＄(ss， "输入提示”， "0000”） Data1。Recordset.FindFirst ”学号=’" ＆ instring＄＆ "’" If Data1.Recordset。NoMatch Then msg = "没有该记录！" MsgBox msg, vbOKOnly， ”提示” End If End Sub Private Sub Command8_Click（) Form4.Show Form5。Hide End Sub Private Sub Command9_Click（) End End Sub Private Sub Form_Load(） End Sub 6. “成绩查询”窗体（Form6） 6.1 界面设计 6.2 控件属性列表对象名称属性设置值功能 Data1 Connect DataBaseName RecordSouce Visible Access C:\Users\liu\Desktop\学生档案\学生档案管理系统。mdb gz False 连接“gz”表（学生成绩表） Label1～Label6 Caption 依次分别为:学号、姓名、数学、······、计算机基础提示 Text1~Text6 DataSouce DataField Data1 依次分别为：学号、姓名、数学、······、计算机基础显示相应字段内容 Command1 Caption Font 上一个宋体、四号单击，显示上一个记录 Command2 Caption Font 下一个宋体、四号单击,显示下一个记录 Command3 Caption Font 按姓名查询宋体、四号输入姓名查询 Command4 Caption Font 按学号查询宋体、四号输入学号查询 Command5 Caption Font 返回宋体、四号返回学生名册窗体（Form4） Command6 Caption Font 退出宋体、四号退出系统 6.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 If End Sub Private 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 If End Sub Private Sub Command3_Click（) ss = ”请输入要查询的学生姓名:” instring＄ = InputBox$(ss， ”输入提示”） Data1。Recordset.FindFirst ”姓名='” & instring＄ & "’" If Data1.Recordset.NoMatch Then msg = "没有该学生信息！” MsgBox msg， vbOKOnly， ”提示" End If If Data1.Recordset.BOF Then Data1.Recordset。MoveFirst Command1。Enabled = False Else Command1。Enabled = True Command2.Enabled = True End If If Data1。Recordset.EOF Then Data1。Recordset.MoveLast Command2。Enabled = False Else Command1。Enabled = True Command2.Enabled = True E

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档保存到电脑，查找使用更方便

10 金币

申诉本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请申请举报、认领或删除 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 学生档案管理系统实现步骤

咨信网温馨提示：
1、咨信平台为文档C2C交易模式，即用户上传的文档直接被用户下载，收益归上传人（含作者）所有；本站仅是提供信息存储空间和展示预览，仅对用户上传内容的表现方式做保护处理，对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿，我们不确定上传用户享有完全著作权，根据《信息网络传播权保护条例》，如果侵犯了您的版权、权益或隐私，请联系我们，核实后会尽快下架及时删除，并可随时和客服了解处理情况，尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据，个别因单元格分列造成显示页码不一将协商解决，平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺，下载前须认真查看，确认无误后再购买，务必慎重购买；若有违法违纪将进行移交司法处理，若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传，付费前请自行鉴别，如您付费，意味着您已接受本站规则且自行承担风险，本站不进行额外附加服务，虚拟产品一经售出概不退款（未进行购买下载可退充值款），文档一经付费（服务费）、不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印，是因预览和防盗链等技术需要对页面进行转换压缩成图而已，我们并不对上传的文档进行任何编辑或修改，文档下载后都不会有水印标识（原文档上传前个别存留的除外），下载后原文更清晰；试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓；PPT和DOC文档可被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；PDF文档不管是原文档转换或图片扫描而得，本站不作要求视为允许，下载前自行私信或留言给上传者【精****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用；网站提供的党政主题相关内容(国旗、国徽、党徽－－等)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
6、文档遇到问题，请及时私信或留言给本站上传会员【精****】，需本站解决可联系【微信客服】、【 QQ客服】，若有其他问题请点击或扫码反馈【服务填表】；文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“【版权申诉】”（推荐），意见反馈和侵权处理邮箱：1219186828@qq.com；也可以拔打客服电话：4008-655-100；投诉/维权电话：4009-655-100。

关于本文

本文标题：学生档案管理系统--实现步骤.doc
链接地址：https://www.zixin.com.cn/doc/2558631.html

精****

内容提供者

实名认证

查看上传人更多文档

部分上传会员的收益排行 01、路***（￥15400+），
02、曲****（￥15300+），
03、wei****016（￥13200+）,
04、大***流（￥12600+），
05、Fis****915（￥4200+），
06、h****i（￥4100+），
07、Q**（￥3400+），
08、自******点（￥2400+），
09、h*****x（￥1400+），
10、c****e（￥1100+）,
11、be*****ha（￥800+），
12、13********8（￥800+）。

相似文档

自信AI助手