




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
千里之行,始于足下让知识带有温度。第第2页/共2页精品文档推荐(完整版)数据库毕业课程设计实例同学成果管理系统设计说明
(本设计以VB为前台对数据库举行操作)
1.需求
本系统主要用于小学的同学成果管理。
1.用户身份的验证
2.同学基本信息管理
3.按班级选课
4.同学成果的管理
2.总体设计
本系统包括:标准模块、系统登录模块、主界面模块、系统管理模块、同学基本信息管理模块、选课模块、成果管理模块。
1.标准模块
定义公共变量和过程。
2.系统登录模块
举行用户身份的验证。
3.主界面模块
作为系统总界面,供用户举行各项挑选。
4.系统管理模块
用户管理及系统退出。
5.同学基本信息管理模块
同学基本信息的录入和查询。
6.选课模块
为班级选课。
7.成果管理模块
举行同学成果的录入及查询。
3.数据库设计及配置
3.1.数据库设计
该数据库由以下几个表组成:
用户表、同学基本信息表、班级课程表、同学成果表。
3.1.1用户表
包括用户名、密码、是否是超级用户。
3.1.2同学基本信息表
包括学号、姓名、电话、地址、班级名称、性别。
3.1.3班级课程表
包括班级名称、课程名称。
3.1.4同学成果表
包括学号、课程名称、成果。
3.2.数据库中各表关系
同学基本信息表与班级课程表通过班级名称字段相关联,同学基本信息表与
同学成果表通过学号字段相关联,班级课程表与同学成果表通过课程名称字
段相关联。
4.系统实现
4.1.标准模块(公有模块)
4.1.1标准模块中的数据定义
用于定义全局变量及过程。本系统定义了当前用户名及用户类型。
4.1.2标准模块代码设计
OptionExplicit
PublicUserNameAsString
PublicUserTypeAsBoolean
4.2.系统登录模块
4.2.1说明
举行用户身份的验证。特定的用户才干登录到系统。
4.2.2窗体设计
系统登录窗体的窗体类型为Form,界面如下图所示:主要控件属性如下表所示:
4.2.3代码设计
●公共定义
OptionExplicit
DimCount1AsInteger
●窗体装载处理程序(Load)
PrivateSubForm_Load()
Count1=0‘错误次数清零EndSub
●取消按钮(cmdCancel)处理程序(Click)
PrivateSubcmdCancel_Click()
UnloadMe‘系统退出EndSub
●确定按钮(cmdOk)处理程序(Click)
PrivateSubcmdOk_Click()
Dims1AsString
DimPasswordAsString
OnErrorResumeNext
IfText1.Text=""Then‘用户名为空,则退出
MsgBox("用户名不能为空,请重新输入")
Text1.SetFocus
ExitSub
EndIf
‘按输入的用户名举行查询
s1="SELECT*from用户表WHERE用户名='"&Text1.Text&"'"
Adodc1.RecordSource=s1
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen‘推断查询结果
UserName=Adodc1.Recordset.Fields(0)‘有该用户名,即用户名正确
Password=Adodc1.Recordset.Fields(1)
UserType=Adodc1.Recordset.Fields(2)
IfPassword=Text2.TextThen‘推断密码是否正确
UnloadMe‘密码正确,关闭当前窗体
FrmMain.Show‘显示主界面窗体
ExitSub
Else
MsgBox("密码错误,请重新输入")‘密码错误,提醒
Text2.SetFocus
Text2.Text=""
EndIf
Else‘没有该用户名,即用户名错误
MsgBox"用户名错误,请重新输入"
Text1.SetFocus
Text1.Text=""
Text2.Text=""
EndIf
Count1=Count1+1‘错误次数累计
IfCount1>=3Then
MsgBox"错误超过3次,系统退出"
UnloadMe
EndIf
EndSub
4.3.主界面模块
4.3.1说明
作为系统总界面,供用户举行各项挑选。
4.3.2窗体设计
主界面模块窗体类型为MDIForm,界面如下图所示。
4.3.3代码设计
窗体变为活动窗体处理程序(MDIForm-Activate)
PrivateSubMDIForm_Activate()
WindowState=2‘窗体最大化状态
StatusBar1.Panels(1).Text="用户名:"&UserName‘在状态栏显示用户名、用户类型
IfUserType=TrueThen
StatusBar1.Panels(2).Text="用户类型:管理员"
Else
StatusBar1.Panels(2).Text="用户类型:一般用户"
EndIf
IfUserType=FalseThen‘对一般用户设某些菜单项不行用
AA1.Enabled=False
BB1.Enabled=False
CC.Enabled=False
DD1.Enabled=False
Toolbar1.Buttons(1).Enabled=False‘对一般用户设工具栏的某些按钮不行用
Toolbar1.Buttons(3).Enabled=False
Toolbar1.Buttons(6).Enabled=False
Toolbar1.Buttons(7).Enabled=False
Toolbar1.Buttons(9).Enabled=False
EndIf
EndSub
●定时器(Timer1)处理程序(Timer)
PrivateSubTimer1_Timer()
StatusBar1.Panels(3).Text=Now‘在状态栏中显示当前时光
EndSub
●工具栏(Toolbar1)处理程序(ButtonClick)
PrivateSubToolbar1_ButtonClick(ByValButtonAs
MSComctlLib.Button)
SelectCaseButton.Index
Case1
Form11.Show(1)‘用户管理
Case3
Form21.Show(1)‘同学基本信息维护Case4
Form22.Show(1)‘同学基本信息查询Case6
Form31.Show(1)‘课程添加
Case7
Form32.Show(1)‘课程删除
Case9
Form41.Show(1)‘同学成果维护
Case10
Form42.Show(1)‘同学成果查询
Case12
UnloadMe‘系统退出
EndSelect
EndSub
●“用户管理”菜单项处理程序(AA1-Click)
PrivateSubAA1_Click()
Form11.Show(1)
EndSub
●“退出”菜单项处理程序(AA3-click)
PrivateSubAA3_Click()
UnloadMe
EndSub
●“同学基本信息维护”菜单项处理程序(BB1-click)PrivateSubBB1_Click()
Form21.Show(1)
EndSub
●“同学基本信息查询”菜单项处理程序(BB2-click)PrivateSubBB2_Click()
Form22.Show(1)
EndSub
●“课程添加”菜单项处理程序(CC1-click)PrivateSubCC1_Click()
Form31.Show(1)
EndSub
●“课程删除”菜单项处理程序(CC2-click)PrivateSubCC2_Click()
Form32.Show(1)
EndSub
●“同学成果维护”菜单项处理程序(DD1-click)PrivateSubDD1_Click()
Form41.Show(1)
EndSub
●“同学成果查询”菜单项处理程序(DD2-click)PrivateSubDD2_Click()
Form42.Show(1)
EndSub
4.4.用户管理模块
4.4.1说明
创建、删除用户。设定用户权限。4.4.2窗体设计
4.4.3代码设计
●上一条(Command1)处理(Click)PrivateSubCommand1_Click()
Command2.Enabled=True
Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenCommand1.Enabled=FalseAdodc1.Recordset.MoveFirstEndIf
EndSub
●下一条(Command2)处理(Click)PrivateSubCommand2_Click()
Command1.Enabled=True
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenCommand2.Enabled=FalseAdodc1.Recordset.MoveLastEndIf
EndSub
●添加(Command3)处理(Click)
PrivateSubCommand3_Click()
IfCommand3.Caption="添加"ThenCommand3.Caption="确定"
Command1.Enabled=False
Command2.Enabled=False
Command4.Enabled=False
Adodc1.Recordset.AddNew
Text1.SetFocus
Else
IfText1.Text=""Then
MsgBox("用户名不能为空")ExitSub
EndIf
Command3.Caption="添加"
Adodc1.Recordset.Update
Command1.Enabled=True
Command2.Enabled=True
Command4.Enabled=True
EndIf
EndSub
●删除(Command4)处理(Click)
PrivateSubCommand4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
EndSub
退出(Command5)处理(Click)
PrivateSubCommand5_Click()
UnloadMe
EndSub
4.5.同学基本信息管理模块
4.5.1说明
同学基本信息的添加、删除、查询。
该模块有两个窗体:同学基本信息维护窗体和同学基本信息查询窗体4.5.2同学基本信息维护窗体
4.5.2.1.窗体设计
主要控件属性如下表所示:
4.5.2.2.代码设计
●窗体装载处理程序(Load)
PrivateSubForm_Load()
DataGrid1.AllowAddNew=TrueDataGrid1.AllowDelete=TrueDataGrid1.AllowUpdate=TrueEndSub
●退出(Command1)处理(Click)PrivateSubCommand1_Click()
UnloadMe
EndSub
4.5.3同学基本信息查询窗体4.5.3.1.窗体设计
主要控件属性如下表所示:
4.5.3.2.代码设计
查询(Command1)处理(Click)PrivateSubCommand1_Click()Dims1AsString
s1=""
IfCheck1.Value=1Then
IfText1.Text""Then
s1=s1&"姓名='"&Text1.Text&"'"
EndIf
EndIf
IfCheck2.Value=1Then
IfText2.Text""Then
Ifs1""Then
s1=s1&"and"
EndIf
s1=s1&"学号='"&Text2.Text&"'"
EndIf
EndIf
IfCheck3.Value=1Then
IfDataList1.Text""Then
Ifs1""Then
s1=s1&"and"
EndIf
s1=s1&"班级名称='"&DataList1.Text&"'"
EndIf
EndIf
Ifs1""Then
s1="where"&s1
EndIf
Adodc1.RecordSource="select*from同学基本信息表"&s1
Adodc1.Refresh
SetDat
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度房屋买卖合同小额贷款与房产评估机构合作服务协议
- 2025年度高科技企业研发资金过桥借款协议
- 2025年度人工智能医疗诊断系统合同范本
- 体育体育课程改革与提升方案计划
- 产品经理工作回顾与市场需求分析计划
- 心理科心理咨询工作成果与发展计划
- 建设学生艺术素养的美术教学工作方案计划
- 时间管理技巧的深入探索计划
- 加强医院绿色低碳建设的实施计划
- 2025年药品批发零售项目建议书
- 《反电信网络诈骗法》知识考试题库150题(含答案)
- 2025年上海市各区初三一模语文试卷(打包16套无答案)
- 2025年度新能源汽车充电站运营权转让合同样本4篇
- 统编版五年级语文下册1古诗三首《四时田园杂兴(其三十一)》课件
- 《人工智能基础》课件-AI的前世今生:她从哪里来
- 《学习共同体-走向深度学习》读书分享
- 英语四线三格模板
- 大智慧指标公式函数大全(完整可打印版)
- JIS G4305-2021 冷轧不锈钢板材、薄板材和带材
- 《中国近现代史纲要》上编教学案例分享
- 新加坡环境治理与保护
评论
0/150
提交评论