数据库课程设计实例

学生成绩管理系统设计说明SQL数据库课程设计1学生成绩管理系统设计说明（本设计以VB为前台对数据库进行操作）1.需求本系统主要用于学校的学生成绩管理。1.用户身份的验证2.学生基本信息管理3.按班级选课4.学生成绩的管理2.总体设计本系统包括：标准模块、系统登录模块、主界面模块、系统管理模块、学生基本信息管理模块、选课模块、成绩管理模块。1.标准模块定义公共变量和过程。2.系统登录模块进行用户身份的验证。3.主界面模块作为系统总界面，供用户进行各项选择。4.系统管理模块用户管理及系统退出。5.学生基本信息管理模块学生基本信息的录入和查询。6.选课模块为班级选课。7.成绩管理模块进行学生成绩的录入及查询。3.数据库设计及配置3.1.数据库设计该数据库由以下几个表组成：用户表、学生基本信息表、班级课程表、学生成绩表。3.1.1用户表包括用户名、密码、是否是超级用户。字段名称数据类型用户名文本密码文本是否为超级用户布尔3.1.2学生基本信息表包括学号、姓名、电话、地址、班级名称、性别。字段名称数据类型学号文本学生成绩管理系统设计说明SQL数据库课程设计2姓名文本电话文本地址文本班级名称文本性别文本3.1.3班级课程表包括班级名称、课程名称。字段名称数据类型班级名称文本课程名称文本3.1.4学生成绩表包括学号、课程名称、成绩。字段名称数据类型学号文本课程名称文本成绩数值（单精度浮点型）3.2.数据库中各表关系学生基本信息表与班级课程表通过班级名称字段相关联，学生基本信息表与学生成绩表通过学号字段相关联，班级课程表与学生成绩表通过课程名称字段相关联。4.系统实现4.1.标准模块（公有模块）4.1.1标准模块中的数据定义用于定义全局变量及过程。本系统定义了当前用户名及用户类型。序号变量名数据类型1UserNameString2UserTypeBoolean4.1.2标准模块代码设计OptionExplicitPublicUserNameAsStringPublicUserTypeAsBoolean4.2.系统登录模块4.2.1说明进行用户身份的验证。特定的用户才能登录到系统。学生成绩管理系统设计说明SQL数据库课程设计34.2.2窗体设计系统登录窗体的窗体类型为Form，界面如下图所示：主要控件属性如下表所示：对象名类型属性值说明FrmLogin窗体Caption学生成绩管理系统登录学生成绩管理系统登录窗体Label1标签Caption用户名：Label2标签Caption密码：Text1文本框Text用于输入用户名Text2文本框Text用于输入密码cmdOk命令按钮Caption确定确定当前输入的用户名和密码，进行用户登录。登录成功后进入主界面。如果三次输入错误的用户和密码，程序将自动退出cmdCancel命令按钮Caption取消取消操作，退出程序Adodc1AdodcConnectionString连接所使用的数据库，ConnectionString属性在界面中设置，RecordSource属性在代码中设置。4.2.3代码设计公共定义OptionExplicitDimCount1AsInteger窗体装载处理程序（Load）PrivateSubForm_Load()Count1=0‘错误次数清零EndSub取消按钮（cmdCancel）处理程序（Click）PrivateSubcmdCancel_Click()UnloadMe‘系统退出学生成绩管理系统设计说明SQL数据库课程设计4EndSub确定按钮（cmdOk）处理程序（Click）PrivateSubcmdOk_Click()Dims1AsStringDimPasswordAsStringOnErrorResumeNextIfText1.Text=Then‘用户名为空，则退出MsgBox(用户名不能为空,请重新输入)Text1.SetFocusExitSubEndIf‘按输入的用户名进行查询s1=SELECT*from用户表WHERE用户名='&Text1.Text&'Adodc1.RecordSource=s1Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThen‘判断查询结果UserName=Adodc1.Recordset.Fields(0)‘有该用户名，即用户名正确Password=Adodc1.Recordset.Fields(1)UserType=Adodc1.Recordset.Fields(2)IfPassword=Text2.TextThen‘判断密码是否正确UnloadMe‘密码正确，关闭当前窗体FrmMain.Show‘显示主界面窗体ExitSubElseMsgBox(密码错误,请重新输入)‘密码错误，提示Text2.SetFocusText2.Text=EndIfElse‘没有该用户名，即用户名错误MsgBox用户名错误,请重新输入Text1.SetFocusText1.Text=Text2.Text=EndIfCount1=Count1+1‘错误次数累计IfCount1=3ThenMsgBox错误超过3次,系统退出UnloadMeEndIfEndSub学生成绩管理系统设计说明SQL数据库课程设计54.3.主界面模块4.3.1说明作为系统总界面，供用户进行各项选择。4.3.2窗体设计主界面模块窗体类型为MDIForm，界面如下图所示。学生成绩管理系统设计说明SQL数据库课程设计64.3.3代码设计窗体变为活动窗体处理程序（MDIForm－Activate）PrivateSubMDIForm_Activate()WindowState=2‘窗体最大化状态StatusBar1.Panels(1).Text=用户名:&UserName‘在状态栏显示用户名、用户类型IfUserType=TrueThenStatusBar1.Panels(2).Text=用户类型:管理员ElseStatusBar1.Panels(2).Text=用户类型:普通用户EndIfIfUserType=FalseThen‘对普通用户设某些菜单项不可用AA1.Enabled=FalseBB1.Enabled=FalseCC.Enabled=FalseDD1.Enabled=FalseToolbar1.Buttons(1).Enabled=False‘对普通用户设工具栏的某些按钮不可用Toolbar1.Buttons(3).Enabled=FalseToolbar1.Buttons(6).Enabled=FalseToolbar1.Buttons(7).Enabled=FalseToolbar1.Buttons(9).Enabled=FalseEndIfEndSub定时器（Timer1）处理程序（Timer）PrivateSubTimer1_Timer()StatusBar1.Panels(3).Text=Now‘在状态栏中显示当前时间EndSub工具栏（Toolbar1）处理程序（ButtonClick）PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Form11.Show(1)‘用户管理Case3Form21.Show(1)‘学生基本信息维护Case4Form22.Show(1)‘学生基本信息查询Case6Form31.Show(1)‘课程添加Case7Form32.Show(1)‘课程删除Case9Form41.Show(1)‘学生成绩维护学生成绩管理系统设计说明SQL数据库课程设计7Case10Form42.Show(1)‘学生成绩查询Case12UnloadMe‘系统退出EndSelectEndSub“用户管理”菜单项处理程序（AA1－Click）PrivateSubAA1_Click()Form11.Show(1)EndSub“退出”菜单项处理程序（AA3－click）PrivateSubAA3_Click()UnloadMeEndSub“学生基本信息维护”菜单项处理程序（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学生成绩管理系统设计说明SQL数据库课程设计84.4.用户管理模块4.4.1说明创建、删除用户。设定用户权限。4.4.2窗体设计4.4.3代码设计上一条（Command1）处理（Click）PrivateSubCommand1_Click()Command2.Enabled=TrueAdodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenCommand1.Enabled=FalseAdodc1.Recordset.MoveFirstEndIfEndSub下一条（Command2）处理（Click）PrivateSubCommand2_Click()Command1.Enabled=TrueAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenCommand2.Enabled=FalseAdodc1.Recordset.MoveLastEndIfEndSub添加（Command3）处理（Click）PrivateSubCommand3_Click()IfCommand3.Caption=添加ThenCommand3.Caption=确定Command1.Enabled=False学生成绩管理系统设计说明SQL数据库课程设计9Command2.Enabled=FalseCommand4.Enabled=FalseAdodc1.Recordset.AddNewText1.SetFocusElseIfText1.Text=ThenMsgBox(用户名不能为空)ExitSubEndIfCommand3.Caption=添加Adodc1.Recordset.UpdateCommand1.Enabled=TrueCommand2.Enabled=TrueCommand4.Enabled=TrueEndIfEndSub删除（Command4）处理（Click）PrivateSubCommand4_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSub退出（Command5）处理（Click）PrivateSubCommand5_Click()UnloadMeEndSub4.5.学生基本信息管理模块4.5.1说明学生基本信息的添加、删除、查询。该模块有两个窗体：学生基本信息维护窗体和学生基本信息查询窗体学生成绩管理系统设计说明SQL数据库课程设计104.5.2学生基本信息维护窗体4.5.2.1.窗体设计主要控件属性如下表所示：对象名类型属性值说明Form21窗体Capti