- 1、本文档共21页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数据库课程设计报告-学生档案管理系统汇
学生档案管理系统
课程设计报告
学院:信息科学与工程学院
专业班级:智能科学与技术1001班
姓名:
学号:
指导老师:
目录
需求分析 2
概念结构设计 3
系统功能模块示意及E-R图 3
数据库实施 4
系统程序实施 6
1.流程 6
2.代码展示 7
3.系统运行效果展示 24
课程设计心得 27
需求分析
系统功能描述:
院系信息管理功能
院系信息的录入,包括院系编号、院系名称、院系职能描述和上级院系等信息;
院系信息的修改;
院系信息的删除;
院系信息的查询;
学生基本信息管理功能
学生基本信息的录入,包括学生编号、姓名、性别、生日等信息
学生基本信息的修改;
学生基本信息的删除;
学生基本信息的查询。
学生奖惩管理功能
学生奖惩信息的录入,包括奖惩日期、奖惩内容等信息;
学生奖惩信息的修改;
学生奖惩信息的删除;
学生奖惩信息的查询。
学生成绩管理功能
学生成绩信息的录入,包括课程编号、学生编号、分数等信息;
学生成绩信息的修改;
学生成绩信息的删除;
学生成绩信息的查询。
系统用户管理功能
系统用户信息的录入,包括用户名、密码等信息;
系统用户信息的修改;
系统用户信息的删除;
系统用户信息的查询。
概念结构设计
学生管理系统管理系统功能模块示意图
数据库实施
用户表:
学生表:
课程表:
成绩表:
奖惩表:
院系表:
系统程序实施
流程:
代码展示:
Dim chkStr As String 通用区声明,用于记录随机码
Private Sub Command1_Click()
Dim sql As String
Dim cnt As Integer
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
cnt = 0
Set conn = New ADODB.Connection
conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=StudentSystem
If Trim(Text1.Text) = Then
MsgBox 用户名不能为空,请重新输入!
Text1.SetFocus
Else: sql = select * from Users where UserName= Trim(Text1.Text)
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then
MsgBox 没有这个用户,请重输入!, vbOKOnly + vbExclamation,
Text1.Text =
Text1.SetFocus
Else: UserName = Text1.Text
If rs(Pwd) = Trim(Text2.Text) And Text3.Text = chkStr Then
Unload Me
Form2.Show
Else: MsgBox 验证码或密码错误,请重新输入!, vbOKOnly + vbExclamation,
Text2.SetFocus
Text2.Text =
Text3.Text =
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Picture1.Cls
Picture1.AutoRedraw = True
Picture1.Appearance = 0
Call RndBack
Call InitStr
End Sub
Private Sub RndBack() 在图片
您可能关注的文档
最近下载
- 网络空间信息安全(第2版)习题与思考题参考答案.pdf
- 微肿瘤PTC体外药敏检测服务2023年.pdf VIP
- 教科版四年级科学上册第三单元《第1课让小车运动起来》优秀教学设计.docx VIP
- 病例报告表完整版.doc
- 电影售票管理平台.docx
- 统编版语文三年级上册《对话中提示语的位置及标点》课件.pptx VIP
- AQ_ 4272-2016 铝镁制品机械加工粉尘防爆安全技术规范.pdf
- 4第四章-金融市场及其构成(货币金融学(蒋先玲编著)第3版ppt课件可编辑).pptx
- 部编版语文二年级下册 第三单元大单元任务群“发现汉字的秘密”(一等奖创新教学设计).pdf VIP
- 《活着》读书分享.pptx VIP
文档评论(0)