数据库设计报告

经典word整理文档，仅参考，双击此处可删除页眉页脚。本资料属于网络整理，如有侵权，请联系删除，谢谢！学生成绩管理系统设计说明附录（本设计以ASP为前台对数据库进行操作）3.1.数据库设计3.1.1用户表3.1.2学生基本信息表SQL数据库课程设计1学生成绩管理系统设计说明3.1.3班级课程表3.1.4学生成绩表3.2.数据库中各表关系4.1.标准模块（公有模块）4.1.1标准模块中的数据定义124.1.2标准模块代码设计OptionExplicitPublicUserNameAsStringPublicUserTypeAsBoolean4.2.系统登录模块4.2.1说明SQL数据库课程设计2学生成绩管理系统设计说明值DimCount1AsInteger）PrivateSubcmdCancel_Click()UnloadMe3学生成绩管理系统设计说明EndSub）PrivateSubcmdOk_Click()Dims1AsStringDimPasswordAsStringOnErrorResumeNextIfText1.Text=""ThenMsgBox("用户名不能为空,请重新输入")Text1.SetFocusExitSubEndIf‘按输入的用户名进行查询s1="SELECT*from用户表WHERE用户名='"&Text1.Text&"'"Adodc1.RecordSource=s1Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenUserName=Adodc1.Recordset.Fields(0)Password=Adodc1.Recordset.Fields(1)UserType=Adodc1.Recordset.Fields(2)IfPassword=Text2.TextThenUnloadMeFrmMain.ShowExitSubElseMsgBox("密码错误,请重新输入")Text2.SetFocusText2.Text=""EndIfElseMsgBox"用户名错误,请重新输入"Text1.SetFocusText1.Text=""Text2.Text=""EndIfCount1=Count1+1IfCount1>=3ThenMsgBox"错误超过3次,系统退出"UnloadMeEndIfEndSubSQL数据库课程设计4学生成绩管理系统设计说明5学生成绩管理系统设计说明4.3.3代码设计－）PrivateSubMDIForm_Activate()WindowState=2StatusBar1.Panels(1).Text="用户名:"&UserNameIfUserType=TrueThenStatusBar1.Panels(2).Text="用户类型:管理员"ElseStatusBar1.Panels(2).Text="用户类型:普通用户"EndIfIfUserType=FalseThenAA1.Enabled=FalseBB1.Enabled=FalseCC.Enabled=FalseDD1.Enabled=FalseToolbar1.Buttons(1).Enabled=FalseToolbar1.Buttons(3).Enabled=FalseToolbar1.Buttons(6).Enabled=FalseToolbar1.Buttons(7).Enabled=FalseToolbar1.Buttons(9).Enabled=FalseEndIfEndSub）PrivateSubTimer1_Timer()StatusBar1.Panels(3).Text=NowEndSub）PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Form11.Show(1)Case3Form21.Show(1)Case4Form22.Show(1)Case6Form31.Show(1)Case7Form32.Show(1)Case9Form41.Show(1)SQL数据库课程设计6学生成绩管理系统设计说明Case10Form42.Show(1)Case12UnloadMeEndSelectEndSub）PrivateSubAA1_Click()Form11.Show(1)EndSub－）PrivateSubAA3_Click()UnloadMeEndSub－）PrivateSubBB1_Click()Form21.Show(1)EndSub－）PrivateSubBB2_Click()Form22.Show(1)EndSub）PrivateSubCC1_Click()Form31.Show(1)EndSub）PrivateSubCC2_Click()Form32.Show(1)EndSub－）PrivateSubDD1_Click()Form41.Show(1)EndSub－）PrivateSubDD2_Click()Form42.Show(1)EndSubSQL数据库课程设计7学生成绩管理系统设计说明）PrivateSubCommand1_Click()Command2.Enabled=TrueAdodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenCommand1.Enabled=FalseAdodc1.Recordset.MoveFirstEndIf）PrivateSubCommand2_Click()Command1.Enabled=TrueAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenCommand2.Enabled=FalseAdodc1.Recordset.MoveLastEndIf8学生成绩管理系统设计说明Command2.Enabled=FalseCommand4.Enabled=FalseAdodc1.Recordset.AddNewText1.SetFocusElseIfText1.Text=""ThenMsgBox("用户名不能为空")ExitSubEndIfCommand3.Caption="添加"Adodc1.Recordset.UpdateCommand1.Enabled=TrueCommand2.Enabled=TrueCommand4.Enabled=TrueEndIfEndSub）PrivateSubCommand4_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSub）PrivateSubCommand5_Click()UnloadMeEndSub4.5.学生基本信息管理模块4.5.1说明SQL数据库课程设计9学生成绩管理系统设计说明值）学生成绩管理系统设计说明值学生成绩管理系统设计说明4.5.3.2.代码设计）PrivateSubCommand1_Click()Dims1AsStrings1=""IfCheck1.Value=1ThenIfText1.Text<>""Thens1=s1&"姓名='"&Text1.Text&"'"EndIfEndIfIfCheck2.Value=1ThenIfText2.Text<>""ThenIfs1<>""Thens1=s1&"and"EndIfs1=s1&"学号='"&Text2.Text&"'"EndIfEndIfIfCheck3.Value=1ThenIfDataList1.Text<>""ThenIfs1<>""Thens1=s1&"and"EndIfs1=s1&"班级名称='"&DataList1.Text&"'"EndIfEndIfIfs1<>""Thens1="where"&s1EndIfAdodc1.RecordSource="select*from学生基本信息表"&s1Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DataGrid1.AllowAddNew=FalseSQL数据库课程设计12学生成绩管理系统设计说明DataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=False值学生成绩管理系统设计说明4.6.2.2.代码设计）PrivateSubCommand1_Click()Dims1AsString,s2AsStringOnErrorResumeNextIfText1.Text=""OrText2.Text=""ThenMsgBox("输入不能为空")ExitSubEndIfs1="select*from班级课程表where班级名称='"s2=Text1.Text&"'and课程名称='"&Text2.Text&"'"Adodc1.RecordSource=s1&s2Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenText1.SetFocusMsgBox"该记录已存在,请重新输入",,"警告"ExitSubEndIfs1="select*from班级课程表"Adodc1.RecordSource=s1Adodc1.RefreshAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("班级名称")=Text1.TextAdodc1.Recordset.Fields("课程名称")=Text2.TextAdodc1.Recordset.UpdateAdodc1.Refreshs1="select课程名称from班级课程表where班级名称='"&Text1.Text&"'"Adodc1.RecordSource=s1Adodc1.RefreshSetDataGrid1.DataSource=Adodc1.RecordsetText2.SetFocusText2.Text=""ExitSubEndSub）PrivateSubCommand2_Click()Dims1AsStrings1="select课程名称from班级课程表where班级名称='"&Text1.Text&"'"SQL数据库课程设计14学生成绩管理系统设计说明Adodc1.RecordSource=s1Adodc1.Refresh值连接所使用的数据库，连接所使用的数据库，在界面中设置，学生成绩管理系统设计说明4.6.3.2.代码设计）PrivateSubCommand1_Click()UnloadMeEndSub）PrivateSubDataList1_Click()Dims1AsStrings1="select*from班级课程表where班级名称='"&DataList1.Text&"'"Adodc2.RecordSource=s1Adodc2.RefreshSetDataGrid1.DataSource=Adodc2EndSub）PrivateSubForm_Load()DataGrid1.AllowDelete=TrueDataGrid1.AllowUpdate=TrueDataGrid1.AllowAddNew=FalseEndSub4.7.成绩管理模块4.7.1说明4.7.2成绩录入窗体4.7.2.1.窗体设计SQL数据库课程设计16学生成绩管理系统设计说明Dims1AsString,s2AsString,s3AsStringOnErrorResumeNexts2="where学号='"&List2.Text&"'and"s3="课程名称='"&List1.Text&"'"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshAdodc3.Recordset.MoveLastAdodc3.Recordset.AddNewAdodc3.Recordset.UpdateAdodc3.Refresh学生成绩管理系统设计说明s3="where班级名称='"&DataList1.Text&"')"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshSetDataGrid1.DataSource=Adodc3EndSub）PrivateSubCommand2_Click()UnloadMeEndSub）PrivateSubDataList1_Click()Dims1AsString,s2AsStringSetDataGrid1.DataSource=Nothings1="select课程名称from班级课程表"s2="where班级名称='"&DataList1.Text&"'"Adodc2.RecordSource=s1&s2Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"请在班级课程表里添加该班级的课程名称"ExitSubEndIfList1.ClearAdodc2.Recordset.MoveFirstDoWhileAdodc2.Recordset.EOF=FalseList1.AddItemAdodc2.Recordset.Fields(0)Adodc2.Recordset.MoveNextLoops1="select学号from学生基本信息表"s2="where班级名称='"&DataList1.Text&"'"Adodc2.RecordSource=s1&s2Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"请在学生信息表里添加该班级"ExitSubEndIfList2.ClearAdodc2.Recordset.MoveFirstDoWhileAdodc2.Recordset.EOF=FalseList2.AddItemAdodc2.Recordset.Fields(0)SQL数据库课程设计18学生成绩管理系统设计说明Adodc2.Recordset.MoveNextLoopEndSub）PrivateSubForm_Load()DataGrid1.AllowDelete=TrueDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseEndSub）PrivateSubList1_Click()Dims1AsString,s2AsString,s3AsStrings1="select学号,成绩from学生成绩表where课程名称='"&List1.Text&"'"s2="and学号in(select学号from学生基本信息表"s3="where班级名称='"&DataList1.Text&"')"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshSetDataGrid1.DataSource=Adodc3EndSub）PrivateSubList2_Click()Text1.Text=""EndSub4.7.3成绩查询窗体SQL数据库课程设计19学生成绩管理系统设计说明值）PrivateSubCombo1_Click()学生成绩管理系统设计说明Dims1AsString,s2AsStringSetDataGrid1.DataSource=NothingCombo2.ClearIfopt=0Thens1="select课程名称from班级课程表where班级名称='"s2=Combo1.Text&"'groupby课程名称"Adodc2.RecordSource=s1&s2Elses1="select学号from学生基本信息表where班级名称='"s2=Combo1.Text&"'"Adodc2.RecordSource=s1&s2EndIfAdodc2.RefreshDoWhileAdodc2.Recordset.EOF=FalseCombo2.AddItemAdodc2.Recordset.Fields(0)Adodc2.Recordset.MoveNextLoopEndSub组合框（Combo2）处理（Click）PrivateSubCombo2_Click()Dims1AsString,s2AsString,s3AsStringSetDataGrid1.DataSource=NothingIfopt=0Thens1="select*from学生成绩表where课程名称='"s2=Combo2.Text&"'and学号in(select学号"s3="from学生基本信息表where班级名称='"&Combo1.Text&"')"Adodc1.RecordSource=s1&s2&s3Adodc1.RefreshSetDataGri