數(shù)據(jù)庫設(shè)計報告

經(jīng)典word整理文檔，僅參考，雙擊此處可刪除頁眉頁腳。本資料屬于網(wǎng)絡(luò)整理，如有侵權(quán)，請聯(lián)系刪除，謝謝！學(xué)生成績管理系統(tǒng)設(shè)計說明附錄（本設(shè)計以ASP為前臺對數(shù)據(jù)庫進行操作）3.1.數(shù)據(jù)庫設(shè)計3.1.1用戶表3.1.2學(xué)生基本信息表SQL數(shù)據(jù)庫課程設(shè)計1學(xué)生成績管理系統(tǒng)設(shè)計說明3.1.3班級課程表3.1.4學(xué)生成績表3.2.數(shù)據(jù)庫中各表關(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è)計OptionExplicitPublicUserNameAsStringPublicUserTypeAsBoolean4.2.系統(tǒng)登錄模塊4.2.1說明SQL數(shù)據(jù)庫課程設(shè)計2學(xué)生成績管理系統(tǒng)設(shè)計說明值DimCount1AsInteger）PrivateSubcmdCancel_Click()UnloadMe3學(xué)生成績管理系統(tǒng)設(shè)計說明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次,系統(tǒng)退出"UnloadMeEndIfEndSubSQL數(shù)據(jù)庫課程設(shè)計4學(xué)生成績管理系統(tǒng)設(shè)計說明5學(xué)生成績管理系統(tǒng)設(shè)計說明4.3.3代碼設(shè)計－）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數(shù)據(jù)庫課程設(shè)計6學(xué)生成績管理系統(tǒng)設(shè)計說明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ù)庫課程設(shè)計7學(xué)生成績管理系統(tǒng)設(shè)計說明）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é)生成績管理系統(tǒng)設(shè)計說明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說明SQL數(shù)據(jù)庫課程設(shè)計9學(xué)生成績管理系統(tǒng)設(shè)計說明值）學(xué)生成績管理系統(tǒng)設(shè)計說明值學(xué)生成績管理系統(tǒng)設(shè)計說明4.5.3.2.代碼設(shè)計）PrivateSubCommand1_Click()Dims1AsStrings1=""IfCheck1.Value=1ThenIfText1.Text<>""Thens1=s1&"姓名='"&Text1.Text&"'"EndIfEndIfIfCheck2.Value=1ThenIfText2.Text<>""ThenIfs1<>""Thens1=s1&"and"EndIfs1=s1&"學(xué)號='"&Text2.Text&"'"EndIfEndIfIfCheck3.Value=1ThenIfDataList1.Text<>""ThenIfs1<>""Thens1=s1&"and"EndIfs1=s1&"班級名稱='"&DataList1.Text&"'"EndIfEndIfIfs1<>""Thens1="where"&s1EndIfAdodc1.RecordSource="select*from學(xué)生基本信息表"&s1Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DataGrid1.AllowAddNew=FalseSQL數(shù)據(jù)庫課程設(shè)計12學(xué)生成績管理系統(tǒng)設(shè)計說明DataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=False值學(xué)生成績管理系統(tǒng)設(shè)計說明4.6.2.2.代碼設(shè)計）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數(shù)據(jù)庫課程設(shè)計14學(xué)生成績管理系統(tǒng)設(shè)計說明Adodc1.RecordSource=s1Adodc1.Refresh值連接所使用的數(shù)據(jù)庫，連接所使用的數(shù)據(jù)庫，在界面中設(shè)置，學(xué)生成績管理系統(tǒng)設(shè)計說明4.6.3.2.代碼設(shè)計）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.窗體設(shè)計SQL數(shù)據(jù)庫課程設(shè)計16學(xué)生成績管理系統(tǒng)設(shè)計說明Dims1AsString,s2AsString,s3AsStringOnErrorResumeNexts2="where學(xué)號='"&List2.Text&"'and"s3="課程名稱='"&List1.Text&"'"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshAdodc3.Recordset.MoveLastAdodc3.Recordset.AddNewAdodc3.Recordset.UpdateAdodc3.Refresh學(xué)生成績管理系統(tǒng)設(shè)計說明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學(xué)號from學(xué)生基本信息表"s2="where班級名稱='"&DataList1.Text&"'"Adodc2.RecordSource=s1&s2Adodc2.RefreshIfAdodc2.Recordset.EOF=TrueThenMsgBox"請在學(xué)生信息表里添加該班級"ExitSubEndIfList2.ClearAdodc2.Recordset.MoveFirstDoWhileAdodc2.Recordset.EOF=FalseList2.AddItemAdodc2.Recordset.Fields(0)SQL數(shù)據(jù)庫課程設(shè)計18學(xué)生成績管理系統(tǒng)設(shè)計說明Adodc2.Recordset.MoveNextLoopEndSub）PrivateSubForm_Load()DataGrid1.AllowDelete=TrueDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseEndSub）PrivateSubList1_Click()Dims1AsString,s2AsString,s3AsStrings1="select學(xué)號,成績from學(xué)生成績表where課程名稱='"&List1.Text&"'"s2="and學(xué)號in(select學(xué)號from學(xué)生基本信息表"s3="where班級名稱='"&DataList1.Text&"')"Adodc3.RecordSource=s1&s2&s3Adodc3.RefreshSetDataGrid1.DataSource=Adodc3EndSub）PrivateSubList2_Click()Text1.Text=""EndSub4.7.3成績查詢窗體SQL數(shù)據(jù)庫課程設(shè)計19學(xué)生成績管理系統(tǒng)設(shè)計說明值）PrivateSubCombo1_Click()學(xué)生成績管理系統(tǒng)設(shè)計說明Dims1AsString,s2AsStringSetDataGrid1.DataSource=NothingCombo2.ClearIfopt=0Thens1="select課程名稱from班級課程表where班級名稱='"s2=Combo1.Text&"'groupby課程名稱"Adodc2.RecordSource=s1&s2Elses1="select學(xué)號from學(xué)生基本信息表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學(xué)生成績表where課程名稱='"s2=Combo2.Text&"'and學(xué)號in(select學(xué)號"s3="from學(xué)生基本信息表where班級名稱='"&Combo1.Text&"')"Adodc1.RecordSource=s1&s2&s3Adodc1.RefreshSetDataGri