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

1、附錄學(xué)生成績管理系統(tǒng)設(shè)計(jì)說明（本設(shè)計(jì)以VB為前臺對數(shù)據(jù)庫進(jìn)行操作）需求本系統(tǒng)主要用于學(xué)校的學(xué)生成績管理。用戶身份的驗(yàn)證學(xué)生基本信息管理按班級選課學(xué)生成績的管理總體設(shè)計(jì)本系統(tǒng)包括：標(biāo)準(zhǔn)模塊、系統(tǒng)登錄模塊、主界面模塊、系統(tǒng)管理模塊、學(xué)生基本信息管理模塊、選課模塊、成 績管理模塊。標(biāo)準(zhǔn)模塊定義公共變量和過程。系統(tǒng)登錄模塊進(jìn)行用戶身份的驗(yàn)證。主界面模塊作為系統(tǒng)總界面，供用戶進(jìn)行各項(xiàng)選擇。系統(tǒng)管理模塊用戶管理及系統(tǒng)退出。學(xué)生基本信息管理模塊學(xué)生基本信息的錄入和查詢。選課模塊為班級選課。成績管理模塊進(jìn)行學(xué)生成績的錄入及查詢。數(shù)據(jù)庫設(shè)計(jì)及配置數(shù)據(jù)庫設(shè)計(jì)該數(shù)據(jù)庫由以下幾個(gè)表組成：用戶表、學(xué)生基本信息表、班級課

2、程表、學(xué)生成績表。3.1.1 用戶表包括用戶名、密碼、是否是超級用戶。字段名稱數(shù)據(jù)類型用戶名文本密碼文本是否為超級用戶布爾3.1.2學(xué)生基本信息表包括學(xué)號、姓名、電話、地址、班級名稱、性別。字段名稱數(shù)據(jù)類型學(xué)號文本姓名文本電話文本地址文本班級名稱文本性別文本3.1.3班級課程表包括班級名稱、課程名稱。字段名稱數(shù)據(jù)類型班級名稱文本課程名稱文本3.1.4學(xué)生成績表包括學(xué)號、課程名稱、成績。字段名稱數(shù)據(jù)類型學(xué)號文本課程名稱文本成績數(shù)值（單精度浮點(diǎn)型）數(shù)據(jù)庫中各表關(guān)系學(xué)生基本信息表與班級課程表通過班級名稱字段相關(guān)聯(lián)，學(xué)生基本信息表與學(xué)生成績表通過學(xué)號字段相關(guān) 聯(lián)，班級課程表與學(xué)生成績表通過課程名稱字段

3、相關(guān)聯(lián)。系統(tǒng)實(shí)現(xiàn)4.1.標(biāo)準(zhǔn)模塊（公有模塊）4.1.1標(biāo)準(zhǔn)模塊中的數(shù)據(jù)定義用于定義全局變量及過程。本系統(tǒng)定義了當(dāng)前用戶名及用戶類型。序號變量名數(shù)據(jù)類型1UserNameString2UserTypeBoolean4.1.2標(biāo)準(zhǔn)模塊代碼設(shè)計(jì)Option ExplicitPublic UserName As StringPublic UserType As Boolean系統(tǒng)登錄模塊4.2.1 說明進(jìn)行用戶身份的驗(yàn)證。特定的用戶才能登錄到系統(tǒng)。4.2.2 窗體設(shè)計(jì)系統(tǒng)登錄窗體的窗體類型為Form，界面如下圖所示:主要控件屬性如下表所示:對象名類型屬性值說明FrmLogin窗體Caption學(xué)生成績

4、管理系統(tǒng)登錄學(xué)生成績管理系統(tǒng)登錄窗體Labell標(biāo)簽Caption用戶名：Label2標(biāo)簽Caption密碼：Textl文本框Text用于輸入用戶名Text2文本框Text用于輸入密碼cmdOk命令按鈕Caption確定確定當(dāng)前輸入的用戶名和密碼，進(jìn)行 用戶登錄。登錄成功后進(jìn)入主界面。如果三次輸入錯(cuò)誤的用戶和密碼，程 序?qū)⒆詣油顺鯿mdCancel命令按鈕Caption取消取消操作，退出程序Adodc1AdodcConnectionString連接所使用的數(shù)據(jù)庫， ConnectionString屬性在界面中設(shè)置， RecordSource屬性在代碼中設(shè)置。4.2.3代碼設(shè)計(jì)公共定義Optio

5、n ExplicitDim Countl As Integer窗體裝載處理程序(Load)Private Sub Form_Load()錯(cuò)誤次數(shù)清零系統(tǒng)退出Count1 = 0End Sub取消按鈕(cmdCancel)處理程序(Click)Private Sub cmdCancel_Click()Unload MeEnd Sub確定按鈕(cmdOk)處理程序(Click)Private Sub cmdOk_Click()Dim s1 As StringDim Password As String On Error Resume NextIf Text1.Text = Then用戶名為空，則退

6、出MsgBox (用戶名不能為空，請重新輸入) Textl.SetFocus Exit SubEnd If按輸入的用戶名進(jìn)行查詢 sl = SELECT * from 用戶表 WHERE 用戶名二 & Textl.Text & Adodcl.RecordSource = sl Adodcl.RefreshIf Adodcl.Recordset.EOF = False ThenUserName = Adodcl.Recordset.Fields(O)Password = Adodcl.Recordset.Fields(l)UserType = Adodcl.Recordset.Fields(2)

7、 If Password = Text2.Text ThenUnload MeFrmMain.ShowExit SubElseMsgBox (密碼錯(cuò)誤，請重新輸入)Text2.SetFocusText2.Text =End IfElseMsgBox ”用戶名錯(cuò)誤，請重新輸入Textl.SetFocusTextl.Text =Text2.Text =End IfCountl = Countl + lIf Countl = 3 ThenMsgBox ”錯(cuò)誤超過3次，系統(tǒng)退出Unload MeEnd IfEnd Sub判斷查詢結(jié)果有該用戶名，即用戶名正確判斷密碼是否正確密碼正確，關(guān)閉當(dāng)前窗體顯示主界

8、面窗體密碼錯(cuò)誤，提示沒有該用戶名，即用戶名錯(cuò)誤錯(cuò)誤次數(shù)累計(jì)4.3.主界面模塊4.3.1說明作為系統(tǒng)總界面，供用戶進(jìn)行各項(xiàng)選擇。4.3.2窗體設(shè)計(jì)主界面模塊窗體類型為MDIForm，界面如下圖所示。代碼設(shè)計(jì)窗體變?yōu)榛顒哟绑w處理程序(MDIFormActivate)Private Sub MDIForm_Activate()WindowState = 2窗體最大化狀態(tài)StatusBar1.Panels(1).Text = 用戶名： & UserName在狀態(tài)欄顯示用戶名、用戶類型If UserType = True ThenStatusBar1.Panels(2).Text = 用戶類型：管理員E

9、lseStatusBar1.Panels(2).Text = 用戶類型：普通用戶End IfIf UserType = False Then對普通用戶設(shè)某些菜單項(xiàng)不可用AA1.Enabled = FalseBB1.Enabled = FalseCC.Enabled = FalseDD1.Enabled = FalseToolbar1.Buttons(1).Enabled=False 對普通用戶設(shè)工具欄的某些按鈕不可用Toolbar1.Buttons(3).Enabled=FalseToolbar1.Buttons(6).Enabled=FalseToolbar1.Buttons(7).Enab

10、led=FalseToolbar1.Buttons(9).Enabled=FalseEnd IfEnd Sub定時(shí)器(Timerl)處理程序(Timer)Private Sub Timer1_Timer()StatusBar1.Panels(3).Text = Now在狀態(tài)欄中顯示當(dāng)前時(shí)間End Sub工具欄(Toolbar 1)處理程序(ButtonClick)Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Form11.Show(1)用戶管理C

11、ase 3Form21.Show(1)學(xué)生基本信息維護(hù)Case 4Form22.Show(1)學(xué)生基本信息查詢Case 6Form31.Show(1)課程添加Case 7Form32.Show(1)課程刪除Case 9Form41.Show(1)學(xué)生成績維護(hù)Case 10Form42.Show (1)學(xué)生成績查詢Case 12Unload Me系統(tǒng)退出End SelectEnd Sub“用戶管理”菜單項(xiàng)處理程序(AA1Click)Private Sub AA1_Click()Form11.Show (1)End Sub“退出”菜單項(xiàng)處理程序(AA3click)Private Sub AA3_C

12、lick()Unload MeEnd Sub“學(xué)生基本信息維護(hù)”菜單項(xiàng)處理程序(BB1click)Private Sub BB1_Click()Form21.Show (1)End Sub“學(xué)生基本信息查詢”菜單項(xiàng)處理程序(BB2click)Private Sub BB2_Click()Form22.Show (1)End Sub“課程添加”菜單項(xiàng)處理程序(C C1click)Private Sub CC1_Click()Form31.Show (1)End Sub“課程刪除”菜單項(xiàng)處理程序(CC2click)Private Sub CC2_Click()Form32.Show (1)End

13、Sub“學(xué)生成績維護(hù)”菜單項(xiàng)處理程序(DD1click)Private Sub DD1_Click()Form41.Show (1)End Sub“學(xué)生成績查詢”菜單項(xiàng)處理程序(D D2click)Private Sub DD2_Click()Form42.Show (1)End Sub用戶管理模塊4.4.1 說明4.4.2創(chuàng)建、刪除用戶。設(shè)定用戶權(quán)限。4.4.3代碼設(shè)計(jì)上一條（Commandl）處理（Click）Private Sub Command1_Click（）Command2.Enabled = TrueAdodc1.Recordset.MovePreviousIf Adodc1.R

14、ecordset.BOF Then Command1.Enabled = False Adodc1.Recordset.MoveFirstEnd IfEnd Sub下一條（Command2）處理（C lick）Private Sub Command2_Click（）Command1.Enabled = TrueAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Command2.Enabled = False Adodc1.Recordset.MoveLastEnd IfEnd Sub 添加（Command3）處理（Click）Priva

15、te Sub Command3_Click（）If Command3.Caption = 添加 ThenCommand3.Caption = 確定Command1.Enabled = FalseCommand2.Enabled = FalseCommand4.Enabled = FalseAdodcl.Recordset.AddNewTextl.SetFocusElseIf Text1.Text = ThenMsgBox （用戶名不能為空）Exit SubEnd IfCommand3.Caption = 添加Adodcl.Recordset.UpdateCommand1.Enabled = T

16、rueCommand2.Enabled = TrueCommand4.Enabled = TrueEnd IfEnd Sub刪除（Command4）處理（Click）Private Sub Command4_Click（）Adodcl.Recordset.DeleteAdodcl.Recordset.MoveNextIf Adodcl.Recordset.EOF ThenAdodcl.Recordset.MoveLastEnd IfEnd Sub退出（Commands）處理（Click）Private Sub Command5_Click（）Unload MeEnd Sub學(xué)生基本信息管理模塊

17、4.5.1 說明學(xué)生基本信息的添加、刪除、查詢。該模塊有兩個(gè)窗體：學(xué)生基本信息維護(hù)窗體和學(xué)生基本信息查詢窗體4.5.2學(xué)生基本信息維護(hù)窗體4521. 窗體設(shè)計(jì)主要控件屬性如下表所示:對象名類型屬性值說明Form21窗體Caption學(xué)生基本信息維護(hù)學(xué)生基本信息維護(hù)窗體AdodclAdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString、RecordSource屬性都在界面中設(shè)置。作為DataGrid1的數(shù)據(jù)源RecordSourceCommandType 2 adCmdTable 學(xué)生基本信息表DataGridlDataGridDataSourceAdod

18、c1用于顯示學(xué)生基本信息表內(nèi)容Commandl命令按鈕Caption退出4522.代碼設(shè)計(jì)窗體裝載處理程序（Load）Private Sub Form_Load（）DataGridl.AllowAddNew = TrueDataGridl.AllowDelete = TrueDataGrid1.AllowUpdate = True End Sub 退出（Commandl）處理（Click）Private Sub Command1_Click（）Unload MeEnd Sub4.5.3學(xué)生基本信息查詢窗體4.5.3.1.體設(shè)計(jì)對象名類型屬性值說明Form22窗體Caption學(xué)生基本信息查詢學(xué)

19、生基本信息查詢窗體AdodclAdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString屬性在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。Adodc2AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString RecordSource 屬性 都在界面設(shè)置。作為DataList 1的數(shù)據(jù)源RecordSourceCommandType1 adCmdTextSELECT DISTINCT班級名稱 FROM學(xué)生基本信息表Checkl復(fù)選按鈕Caption姓名選擇查詢條件Check2復(fù)選按鈕Caption學(xué)號Check3

20、復(fù)選按鈕Caption班級Textl文本框用于輸入姓名Text2文本框用于輸入學(xué)號DataListlDataListRowSourceAdodc2用于選擇輸入班級名稱ListField班級名稱DataSourceAdodc2DataListField班級名稱DataGridlDataGrid顯示查詢得到的學(xué)生基本信息Command1命令按鈕Caption查詢Command2命令按鈕Caption退出主要控件屬性如下表所示：4532.代碼設(shè)計(jì) 查詢（Commandl）處理（Click ）Private Sub Command1_Click（）Dim s1 As String s1 =If Che

21、ckl.Value = 1 ThenIf Textl.Text Thensl = sl & 姓名=& Textl.Text &End IfEnd IfIf Check2.Value = l ThenIf Text2.Text ThenIf sl Thensl = sl & and End Ifsl = sl & 學(xué)號=& Text2.Text &End IfEnd IfIf Check3.Value = l ThenIf DataListl.Text ThenIf sl Thensl = sl & and End Ifsl = sl & 班級名稱二& DataListl.Text &End I

22、fEnd IfIf sl Thensl = where & slEnd IfAdodcl.RecordSource = select 窗體裝載處理程序（Load）Private Sub Form_Load（）DataGridl.AllowAddNew = False from 學(xué)生基本信息表& slAdodcl.RefreshSet DataGridl.DataSource = AdodclEnd Sub退出（Command2）處理（Click）Private Sub Command2_Click（）Unload MeEnd SubDataGridl.AllowDelete = FalseDa

23、taGridl.AllowUpdate = FalseEnd Sub46.選課模塊4.6.1說明該模塊為一個(gè)班級選課。4.6.2課程添加窗體用于課程的添加和查詢4.6.2.1.窗體設(shè)計(jì)Command2命令按鈕Caption查詢Commands命令按鈕Caption退出4622.代碼設(shè)計(jì) 添加（Commandl）處理（Click）Private Sub Command1_Click（）Dim s1 As String, s2 As StringOn Error Resume NextIf Text1.Text = Or Text2.Text = ThenMsgBox （輸入不能為空）Exit S

24、ubEnd Ifsi = select * from班級課程表where班級名稱二s2 = Textl.Text & and 課程名稱二& Text2.Text & ” Adodcl.RecordSource = si & s2 Adodc1.RefreshIf Adodcl.Recordset.EOF = False ThenTextl.SetFocusMsgBox ”該記錄已存在，請重新輸入，警告 Exit SubEnd Ifsi = select * from 班級課程表Adodcl.RecordSource = slAdodcl.RefreshAdodcl.Recordset.Move

25、LastAdodcl.Recordset.AddNewAdodcl.Recordset.Fields（班級名稱）=Textl.TextAdodcl.Recordset.Fields（課程名稱）=Text2.Text Adodcl.Recordset.Update Adodcl.Refreshsl = select課程名稱from班級課程表where班級名稱二& Textl.Text & Adodcl.RecordSource = sl Adodcl.RefreshSet DataGridl.DataSource = Adodcl.RecordsetText2.SetFocusText2.Tex

26、t = Exit SubEnd Sub查詢（Command2）處理（Click）Private Sub Command2_Click（）Dim sl As Stringsl = select課程名稱from班級課程表where班級名稱二& Textl.Text & Adodcl.RecordSource = siAdodcl.RefreshSet DataGridl.DataSource = Adodcl.Recordset End Sub退出（Command3）處理（Click）Private Sub Command3_Click（）Unload MeEnd Sub窗體裝載處理程序（L oa

27、d）Private Sub Form_Load（）DataGridl.AllowAddNew = FalseDataGridl.AllowDelete = FalseDataGridl.AllowUpdate = False End Sub課程刪除窗體4.6.3.1. 窗體設(shè)計(jì)主要控件屬性如下表所示:對象名類型屬性值說明Form32窗體Caption課程添加課程刪除及修改窗體AdodclAdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString、RecordSource屬性都在界面中設(shè)置。作為DataList 1的數(shù)據(jù)源RecordSourceCommand

28、Type1 adCmdTextSELECT DISTINCT 班級名稱from班級課程表Adodc2AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString 在界面中設(shè) 置，RecordSource屬性在代碼中設(shè)置。Labell標(biāo)簽Caption班級名稱Label2標(biāo)簽Caption課程列表DataListlDataListRowSourceAdodc1用于選擇輸入班級名稱ListField班級名稱DataSourceAdodc1DataListField班級名稱DataGridlDataGrid顯示查詢得到的學(xué)生基本信息4.6.3.2.代碼設(shè)計(jì) 退出(C

29、ommandl)處理(Click)Private Sub Command1_Click()Unload MeEnd Sub 數(shù)據(jù)列表框(DataListl)處理(Click)Private Sub DataList1_Click()Dim s1 As Strings1 = select * from 班級課程表 where 班級名稱二 & DataList1.Text &Adodc2.RecordSource = s1Adodc2.RefreshSet DataGrid1.DataSource = Adodc2End Sub 窗體裝載處理程序(Load) Private Sub Form_Lo

30、ad()DataGrid1.AllowDelete = TrueDataGrid1.AllowUpdate = TrueDataGrid1.AllowAddNew = False End Sub4.7.成績管理模塊4.7.1 說明進(jìn)行學(xué)生成績的錄入及查詢。4.7.2成績錄入窗體進(jìn)行學(xué)生成績的添加、修改及刪除。4.7.2.1.窗體設(shè)計(jì)1&成績錄入課程大學(xué)英語VB程序設(shè)+大學(xué)語文 藝術(shù)欣賞請選擇班級學(xué)號成績00021100049?000655學(xué)號000200050006001S成績錄入退出錄入(Commandl)處理(Click)Private Sub Command1_Click()Dim s1

31、 As String, s2 As String, s3 As StringOn Error Resume Nexts1 = select * from 學(xué)生成績表s2 = where 學(xué)號= & List2.Text & and s3 = 課程名稱二& Listl.Text & Adodc3.RecordSource = sl & s2 & s3Adodc3.RefreshIf Adodc3.Recordset.EOF = False ThenAdodc3.Recordset.Fields(2) = Val(Textl.Text)ElseAdodc3.Recordset.MoveLastAd

32、odc3.Recordset.AddNewAdodc3.Recordset.Fields(0) = List2.TextAdodc3.Recordset.Fields(1) = List1.TextAdodc3.Recordset.Fields(2) = Val(Text1.Text)End IfAdodc3.Recordset.UpdateAdodc3.RefreshListl.Text &sl = select學(xué)號，成績from學(xué)生成績表where課程名稱二 &s2 = and學(xué)號in (select學(xué)號from學(xué)生基本信息表 s3 = where 班級名稱二 & DataListl.Te

33、xt & ) Adodc3.RecordSource = sl & s2 & s3 Adodc3.RefreshSet DataGrid1.DataSource = Adodc3End Sub退出(Commandl)處理(Click )Private Sub Command2_Click()Unload MeEnd Sub數(shù)據(jù)列表框(DataListl)處理(Click)Private Sub DataList1_Click()Dim s1 As String, s2 As StringSet DataGrid1.DataSource = Nothings1 = select課程名稱from班

34、級課程表s2 = where 班級名稱二& DataList1.Text & Adodc2.RecordSource = s1 & s2 Adodc2.RefreshIf Adodc2.Recordset.EOF = True ThenMsgBox 請?jiān)诎嗉壵n程表里添加該班級的課程名稱 Exit SubEnd IfList1.ClearAdodc2.Recordset.MoveFirstDo While Adodc2.Recordset.EOF = FalseList1.AddItem Adodc2.Recordset.Fields(0) Adodc2.Recordset.MoveNextLo

35、ops1 = select學(xué)號from學(xué)生基本信息表 s2 = where 班級名稱二& DataList1.Text & Adodc2.RecordSource = s1 & s2 Adodc2.RefreshIf Adodc2.Recordset.EOF = True ThenMsgBox 請?jiān)趯W(xué)生信息表里添加該班級Exit SubEnd IfList2.ClearAdodc2.Recordset.MoveFirstDo While Adodc2.Recordset.EOF = FalseList2.AddItem Adodc2.Recordset.Fields(0)Adodc2.Reco

36、rdset.MoveNextLoopEnd Sub窗體裝載處理程序（Load）Private Sub Form_Load（）DataGrid1.AllowDelete = TrueDataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseEnd Sub列表框（Listl）處理（Click）Private Sub List1_Click（）Dim s1 As String, s2 As String, s3 As Strings1 = select學(xué)號，成績from學(xué)生成績表where課程名稱二 & List1.Text &s2 = an

37、d學(xué)號in （select學(xué)號from學(xué)生基本信息表 s3 = where 班級名稱二& DataList1.Text & ）”Adodc3.RecordSource = s1 & s2 & s3Adodc3.RefreshSet DataGrid1.DataSource = Adodc3End Sub列表框（List2）處理（Click）Private Sub List2_Click（）Text1.Text =End Sub成績查詢窗體進(jìn)行學(xué)生成績的查詢主要控件屬，f生如下表所示：對象名類型屬性值說明Form42窗體Caption學(xué)生成績查詢學(xué)生成績查詢窗體AdodclAdodcConnec

38、tionString連接所使用的數(shù)據(jù)庫，ConnectionString在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。Adodc2AdodcConnectionString連接所使用的數(shù)據(jù)庫， ConnectionString在界面中設(shè)置， RecordSource屬性在代碼中設(shè)置。Option1(0)單選按鈕Caption按班級用于選擇查詢條件Optionl(l)單選按鈕Caption按學(xué)號Label1標(biāo)簽CaptionLabel1Label2標(biāo)簽CaptionLabel2Combo1組合框用于選擇班級名稱Combo2組合框用于選擇學(xué)號和課程名稱DataGrid1DataGrid用

39、于顯示查詢得到的學(xué)生成績Command1命令按鈕Caption退出4731.體設(shè)計(jì)4732.代碼設(shè)計(jì)公共定義Option ExplicitDim opt As Integer 組合框(Combol)處理(Click)Private Sub Combo1_Click()Dim si As String, s2 As StringSet DataGridi.DataSource = NothingCombo2.ClearIf opt = 0 Thensi = select課程名稱from班級課程表where班級名稱二s2 = Comboi.Text & group by 課程名稱Adodc2.RecordSource = si & s2Elsesi = select學(xué)號from學(xué)生基本信息表where班級名稱二s2 = Comboi.Text & Adodc2.RecordSource = si & s2End IfAdo