(完整版)数据库毕业课程设计实例

千里之行，始于足下让知识带有温度。第第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