數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告

經(jīng)典word整理文檔，僅參考，雙擊此處可刪除頁(yè)眉頁(yè)腳。本資料屬于網(wǎng)絡(luò)整理，如有侵權(quán)，請(qǐng)聯(lián)系刪除，謝謝！學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明附錄（本設(shè)計(jì)以ASP為前臺(tái)對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作）3.1.數(shù)據(jù)庫(kù)設(shè)計(jì)3.1.1用戶表3.1.2學(xué)生基本信息表SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)1學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明3.1.3班級(jí)課程表3.1.4學(xué)生成績(jī)表3.2.數(shù)據(jù)庫(kù)中各表關(guān)系4.1.標(biāo)準(zhǔn)模塊（公有模塊）4.1.1標(biāo)準(zhǔn)模塊中的數(shù)據(jù)定義124.1.2標(biāo)準(zhǔn)模塊代碼設(shè)計(jì)OptionExplicitPublicUserNameAsStringPublicUserTypeAsBoolean4.2.系統(tǒng)登錄模塊4.2.1說(shuō)明SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)2學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明值DimCount1AsInteger）PrivateSubcmdCancel_Click()UnloadMe3學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明EndSub）PrivateSubcmdOk_Click()Dims1AsStringDimPasswordAsStringOnErrorResumeNextIfText1.Text=""ThenMsgBox("用戶名不能為空,請(qǐng)重新輸入")Text1.SetFocusExitSubEndIf‘按輸入的用戶名進(jìn)行查詢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("密碼錯(cuò)誤,請(qǐng)重新輸入")Text2.SetFocusText2.Text=""EndIfElseMsgBox"用戶名錯(cuò)誤,請(qǐng)重新輸入"Text1.SetFocusText1.Text=""Text2.Text=""EndIfCount1=Count1+1IfCount1>=3ThenMsgBox"錯(cuò)誤超過(guò)3次,系統(tǒng)退出"UnloadMeEndIfEndSubSQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)4學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明5學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明4.3.3代碼設(shè)計(jì)－）PrivateSubMDIForm_Activate()WindowState=2StatusBar1.Panels(1).Text="用戶名:"&UserNameIfUserType=TrueThenStatusBar1.Panels(2).Text="用戶類(lèi)型:管理員"ElseStatusBar1.Panels(2).Text="用戶類(lèi)型:普通用戶"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數(shù)據(jù)庫(kù)課程設(shè)計(jì)6學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明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數(shù)據(jù)庫(kù)課程設(shè)計(jì)7學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明）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學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明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.學(xué)生基本信息管理模塊4.5.1說(shuō)明SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)9學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明值）學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明值學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明4.5.3.2.代碼設(shè)計(jì)）PrivateSubCommand1_Click()Dims1AsStrings1=""IfCheck1.Value=1ThenIfText1.Text<>""Thens1=s1&"姓名='"&Text1.Text&"'"EndIfEndIfIfCheck2.Value=1ThenIfText2.Text<>""ThenIfs1<>""Thens1=s1&"and"EndIfs1=s1&"學(xué)號(hào)='"&Text2.Text&"'"EndIfEndIfIfCheck3.Value=1ThenIfDataList1.Text<>""ThenIfs1<>""Thens1=s1&"and"EndIfs1=s1&"班級(jí)名稱(chēng)='"&DataList1.Text&"'"EndIfEndIfIfs1<>""Thens1="where"&s1EndIfAdodc1.RecordSource="select*from學(xué)生基本信息表"&s1Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DataGrid1.AllowAddNew=FalseSQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)12學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明DataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=False值學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明4.6.2.2.代碼設(shè)計(jì)）PrivateSubCommand1_Click()Dims1AsString,s2AsStringOnErrorResumeNextIfText1.Text=""OrText2.Text=""ThenMsgBox("輸入不能為空")ExitSubEndIfs1="select*from班級(jí)課程表where班級(jí)名稱(chēng)='"s2=Text1.Text&"'and課程名稱(chēng)='"&Text2.Text&"'"Adodc1.RecordSource=s1&s2Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenText1.SetFocusMsgBox"該記錄已存在,請(qǐng)重新輸入",,"警告"ExitSubEndIfs1="select*from班級(jí)課程表"Adodc1.RecordSource=s1Adodc1.RefreshAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("班級(jí)名稱(chēng)")=Text1.TextAdodc1.Recordset.Fields("課程名稱(chēng)")=Text2.TextAdodc1.Recordset.UpdateAdodc1.Refreshs1="select課程名稱(chēng)from班級(jí)課程表where班級(jí)名稱(chēng)='"&Text1.Text&"'"Adodc1.RecordSource=s1Adodc1.RefreshSetDataGrid1.DataSource=Adodc1.RecordsetText2.SetFocusText2.Text=""ExitSubEndSub）PrivateSubCommand2_Click()Dims1AsStrings1="select課程名稱(chēng)from班級(jí)課程表where班級(jí)名稱(chēng)='"&Text1.Text&"'"SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)14學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明Adodc1.RecordSource=s1Adodc1.Refresh值連接所使用的數(shù)據(jù)庫(kù)，連接所使用的數(shù)據(jù)庫(kù)，在界面中設(shè)置，學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明4.6.3.2.代碼設(shè)計(jì)）PrivateSubCommand1_Click()UnloadMeEndSub）PrivateSubDataList1_Click()Dims1AsStrings1="select*from班級(jí)課程表where班級(jí)名稱(chēng)='"&DataList1.Text&"'"Adodc2.RecordSource=s1Adodc2.RefreshSetDataGrid1.DataSource=Adodc2EndSub）PrivateSubForm_Load()DataGrid1.AllowDelete=TrueDataGrid1.AllowUpdate=TrueDataGrid1.AllowAddNew=FalseEndSub4.7.成績(jī)管理模塊4.7.1說(shuō)明4.7.2成績(jī)錄入窗體4.7.2.1.窗體設(shè)計(jì)SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)16學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明Dims1AsString,s2AsString,s3AsStringOnErrorResumeNexts2="where學(xué)號(hào)='"&List2.Text&"'and"s3="課程名稱(chēng)='"&List1.Text&"'"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshAdodc3.Recordset.MoveLastAdodc3.Recordset.AddNewAdodc3.Recordset.UpdateAdodc3.Refresh學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明s3="where班級(jí)名稱(chēng)='"&DataList1.Text&"')"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshSetDataGrid1.DataSource=Adodc3EndSub）PrivateSubCommand2_Click()UnloadMeEndSub）PrivateSubDataList1_Click()Dims1AsString,s2AsStringSetDataGrid1.DataSource=Nothings1="select課程名稱(chēng)from班級(jí)課程表"s2="where班級(jí)名稱(chēng)='"&DataList1.Text&"'"Adodc2.RecordSource=s1&s2Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"請(qǐng)?jiān)诎嗉?jí)課程表里添加該班級(jí)的課程名稱(chēng)"ExitSubEndIfList1.ClearAdodc2.Recordset.MoveFirstDoWhileAdodc2.Recordset.EOF=FalseList1.AddItemAdodc2.Recordset.Fields(0)Adodc2.Recordset.MoveNextLoops1="select學(xué)號(hào)from學(xué)生基本信息表"s2="where班級(jí)名稱(chēng)='"&DataList1.Text&"'"Adodc2.RecordSource=s1&s2Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"請(qǐng)?jiān)趯W(xué)生信息表里添加該班級(jí)"ExitSubEndIfList2.ClearAdodc2.Recordset.MoveFirstDoWhileAdodc2.Recordset.EOF=FalseList2.AddItemAdodc2.Recordset.Fields(0)SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)18學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明Adodc2.Recordset.MoveNextLoopEndSub）PrivateSubForm_Load()DataGrid1.AllowDelete=TrueDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseEndSub）PrivateSubList1_Click()Dims1AsString,s2AsString,s3AsStrings1="select學(xué)號(hào),成績(jī)from學(xué)生成績(jī)表where課程名稱(chēng)='"&List1.Text&"'"s2="and學(xué)號(hào)in(select學(xué)號(hào)from學(xué)生基本信息表"s3="where班級(jí)名稱(chēng)='"&DataList1.Text&"')"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshSetDataGrid1.DataSource=Adodc3EndSub）PrivateSubList2_Click()Text1.Text=""EndSub4.7.3成績(jī)查詢窗體SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)19學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明值）PrivateSubCombo1_Click()學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)說(shuō)明Dims1AsString,s2AsStringSetDataGrid1.DataSource=NothingCombo2.ClearIfopt=0Thens1="select課程名稱(chēng)from班級(jí)課程表where班級(jí)名稱(chēng)='"s2=Combo1.Text&"'groupby課程名稱(chēng)"Adodc2.RecordSource=s1&s2Elses1="select學(xué)號(hào)from學(xué)生基本信息表where班級(jí)名稱(chēng)='"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學(xué)生成績(jī)表where課程名稱(chēng)='"s2=Combo2.Text&"'and學(xué)號(hào)in(select學(xué)號(hào)"s3="from學(xué)生基本信息表where班級(jí)名稱(chēng)='"&Combo1.Text&"')"Adodc1.RecordSource=s1&s2&s3Adodc1.RefreshSetDataGri