VB課程設(shè)計(jì)-學(xué)生綜合管理系統(tǒng).doc

學(xué)生綜合管理系統(tǒng)姓 名：學(xué) 號：指導(dǎo)老師: 設(shè)計(jì)時(shí)間：2006年12月26日-2007年1月7日目錄第1章 設(shè)計(jì)的目的和意義1第2章 系統(tǒng)的功能流程圖1第3章 數(shù)據(jù)庫的設(shè)計(jì)3第4章 主要內(nèi)容（設(shè)計(jì)過程、界面、代碼）741登錄窗體 742主控界面 943檔案管理14431檔案瀏覽 14432檔案添加 16433檔案查詢 1944成績管理22441成績?yōu)g覽與修改 22442成績添加 24443考試類型設(shè)置 28 45、學(xué)費(fèi)管理 33451學(xué)費(fèi)設(shè)置瀏覽 33452學(xué)費(fèi)設(shè)置添加 35453學(xué)生交費(fèi)瀏覽 39454學(xué)生交費(fèi)添加 41455學(xué)生交費(fèi)查詢 45 46、課程設(shè)定 48461基本課程設(shè)計(jì) 48462班級課程瀏覽 54462班級課程設(shè)置 56 47、系統(tǒng)維護(hù) 60471增加用戶 60472密碼修改 64第5章 設(shè)計(jì)的體會 66第6章 附錄 67 61、實(shí)現(xiàn)主要功能的核心源程序 67 62、附錄參考書 67第1章 設(shè)計(jì)的目的和意義 系統(tǒng)是對高校教師及管理人員提供的對在校學(xué)生有效管理的一個(gè)信息系統(tǒng)。系統(tǒng)設(shè)計(jì)的目的是實(shí)現(xiàn)紀(jì)錄、查詢和修改學(xué)生檔案信息；對于學(xué)生繳費(fèi)情況能有效的處理，以及設(shè)置課程信息及考試相關(guān)信息。本系統(tǒng)的開發(fā)具有很強(qiáng)的使用價(jià)值及實(shí)踐意義。開發(fā)本系統(tǒng)不僅能很好的鞏固我們在學(xué)習(xí)中的所掌握的知識，而且系統(tǒng)本身就是應(yīng)用于實(shí)踐，為學(xué)校教學(xué)管理提供了很大的方便性，提高了工作效率；同時(shí)方便了我們自己。第2章 系統(tǒng)功能流程圖學(xué)生綜合管理系統(tǒng) 用戶登陸系統(tǒng)主控界面檔案管理成績管理學(xué)費(fèi)管理課程設(shè)置用戶管理管理添加查詢?yōu)g覽提交查詢權(quán)限設(shè)定增加設(shè)置學(xué)費(fèi)增加圖2.1 系統(tǒng)功能流程圖第3章 數(shù)據(jù)庫的設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫是Access數(shù)據(jù)庫，在Access環(huán)境下創(chuàng)建數(shù)據(jù)庫Stud.mdb文件。該數(shù)據(jù)庫包括學(xué)生檔案表、班級信息表、各專業(yè)學(xué)生學(xué)費(fèi)表、管理人員表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫表結(jié)構(gòu)如下所示：字段名類型大小說明學(xué)號文本10學(xué)生學(xué)號姓名文本8學(xué)生姓名性別文本2學(xué)生性別班級文本10班級出生年月日期/時(shí)間家庭住址文本30入學(xué)時(shí)間日期/時(shí)間學(xué)生入學(xué)時(shí)間表3.1 學(xué)生檔案表字段名類型大小說明年級文本16班級文本20年制文本8學(xué)習(xí)年限班主任文本8備注備注表3.2 班級信息表字段名類型大小說明課程名稱文本20紀(jì)錄課程名稱教材文本30所使用教材表3.3 課程種類表字段名類型大小說明學(xué)號文本10學(xué)生學(xué)號學(xué)期文本50類型文本16期中/期末課程名稱文本20分?jǐn)?shù)數(shù)字單精度型考試成績表3.4 學(xué)生成績表字段名類型大小說明年級文本16專業(yè)文本12專業(yè)類型年制文本8學(xué)習(xí)年限學(xué)期文本50課程名稱文本20開設(shè)課程表3.4 課程信息表字段名類型大小說明username文本20用戶名uerpassword文本20密碼admin文本2是否為管理員readonly文本2是否為只讀用戶qx1文本2是否有系統(tǒng)管理權(quán)限qx2文本2是否有檔案管理權(quán)限qx3文本2是否有交費(fèi)管理權(quán)限qx4文本2是否有成績管理權(quán)限表3.4 管理人員表字段名類型大小說明年級文本16專業(yè)文本50年制文本20學(xué)習(xí)年限學(xué)期文本40學(xué)費(fèi)貨幣應(yīng)繳納學(xué)費(fèi)表3.4 學(xué)費(fèi)表字段名類型大小說明學(xué)號文本10學(xué)期文本50繳費(fèi)貨幣貨幣已交納費(fèi)用欠費(fèi)貨幣貨幣欠費(fèi)額日期日期日期/時(shí)間紀(jì)錄時(shí)間操作員文本10添加紀(jì)錄人員表3.4 學(xué)身繳費(fèi)情況第4章 主要內(nèi)容41登錄窗體圖4.1 登錄窗體設(shè)計(jì)過程：用于輸入用戶名和密碼登錄，提示中寫可以以用戶名和密碼都為guest進(jìn)入系統(tǒng)，不過是只讀用戶。點(diǎn)擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。設(shè)計(jì)代碼：Private Sub cmdCancel_Click()EndEnd SubPrivate Sub cmdOK_Click()Dim sql As String使用sql語言進(jìn)行數(shù)據(jù)庫的查找sql = select userpassword from use where username= & txtUserName & 使用find語句查找數(shù)據(jù)庫；（不能刷新）Adodc1.Recordset.Find username= & txtUserName & , , adSearchForward, 1Adodc1.RecordSource = sqlAdodc1.RefreshIf Not Adodc1.Recordset.EOF Then If Adodc1.Recordset!userpassword txtPassword Then MsgBox 密碼錯(cuò)誤！ txtPassword.SetFocus txtPassword = ElseIf Adodc1.Recordset!userpassword = txtPassword Then MsgBox 登陸成功，歡迎進(jìn)入本系統(tǒng)！, vbOKOnly + vbInformation, 提示 MDIForm1.Show Me.Hide End IfElseIf Adodc1.Recordset.EOF Then MsgBox 無此用戶 txtUserName.SetFocus txtUserName = txtPassword = End IfEnd SubPrivate Sub Command1_Click()MsgBox 可以以用戶名和密碼均為guest進(jìn)入, vbOKOnly + vbInformation, 提示txtUserName.SetFocusEnd SubPrivate Sub Form_Load()OpenTable Adodc1, useAdodc1.RefreshEnd Sub42主控界面圖4.2 主控界面設(shè)計(jì)過程：所有功能都在菜單中打開來實(shí)現(xiàn)，在最下面添加了工具欄，來顯示時(shí)間，操作員，狀態(tài)等信息。在代碼中判斷登陸時(shí)的用戶權(quán)限，不同權(quán)限有不同的權(quán)限來瀏覽各個(gè)窗體。設(shè)計(jì)代碼：Private Sub adddangan_Click()If QX2 = True Then Form1.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub addjiaofei_Click()If QX3 = True Then Form10.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub banjikechengliulan_Click()Form13.ShowEnd SubPrivate Sub cengdie_Click() MDIForm1.Arrange 0End SubPrivate Sub chengji_Click()End SubPrivate Sub chengjiadd_Click()If QX4 = True Then flAg = True Form6.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub chongpai_Click() MDIForm1.Arrange 3End SubPrivate Sub chuizhi_Click()MDIForm1.Arrange 2End SubPrivate Sub classkechengset_Click()If QX4 = True Then Form15.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub danganfind_Click()Form4.ShowEnd SubPrivate Sub liulanbiao_Click()Form2.ShowEnd SubPrivate Sub jiaofeifind_Click()Form12.ShowEnd SubPrivate Sub jiaofeiliulan_Click()Form11.ShowEnd SubPrivate Sub jibenkechengset_Click()If QX4 = True Then Form14.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub kecheng_Click()Form13.ShowEnd SubPrivate Sub liulanchengjibiao_Click()Form5.ShowEnd SubPrivate Sub liulandanganbiao_Click()Form2.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1.Panels(2) = NowOpenTable Adodc1, useAdodc1.RefreshAdodc1.RecordSource = select * from use where username = & frmLogin.txtUserName & Adodc1.Refresh If Adodc1.Recordset!admin = y Then QXstr = admin ElseIf Adodc1.Recordset!userreadonly = y Then QXstr = userreadonly End If If Adodc1.Recordset!QX1 = y Then QX1 = True End If If Adodc1.Recordset!QX2 = y Then QX2 = True End If If Adodc1.Recordset!QX3 = y Then QX3 = True End If If Adodc1.Recordset!QX4 = y Then QX4 = True End IfStatusBar1.Panels(3) = 當(dāng)前操作員： & frmLogin.txtUserNameIf QXstr = admin Then ZhuangTai = 超級管理員ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶Else ZhuangTai = 普通用戶End IfStatusBar1.Panels(4) = 狀態(tài)： & ZhuangTaiEnd SubPrivate Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)彈出式菜單If Button = 2 Then PopupMenu tanEnd IfEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer)Call quit_ClickEnd SubPrivate Sub quit_Click()If MsgBox(確定要要退出本系統(tǒng)么？, vbOKCancel + vbExclamation, 警告) = vbOK ThenEndEnd IfEnd SubPrivate Sub shuiping_Click() MDIForm1.Arrange 1End SubPrivate Sub textleixing_Click()If QX4 = True Then Form7.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2) = NowEnd SubPrivate Sub useradd_Click()If QX1 = True Then Form16.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub viewchengji_Click()Form5.ShowEnd SubPrivate Sub viewdangan_Click()Form2.ShowEnd SubPrivate Sub viewjiaofei_Click()Form11.ShowEnd SubPrivate Sub xiugaimima_Click()Form17.ShowEnd SubPrivate Sub xuefeiadd_Click()If QX3 = True Then Form9.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub xuefeishezhi_Click()Form8.ShowEnd Sub43檔案管理431檔案瀏覽圖4.3.1 檔案瀏覽設(shè)計(jì)過程：用控件可以實(shí)現(xiàn)檔案的瀏覽，在此窗體所有上用戶可以瀏覽，查找，有權(quán)限的用戶可以進(jìn)行修改和刪除。此窗體與數(shù)據(jù)輪中的student表進(jìn)行連接。設(shè)計(jì)代碼：Private Sub Command1_Click()Form4.ShowEnd SubPrivate Sub Command2_Click()If QX2 = True Then Form3.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command3_Click()If QX2 = True Then 刪除語句 If MsgBox(確定要?jiǎng)h除學(xué)號為 & Adodc1.Recordset!學(xué)號 & 的記錄么？ & Chr(10) + Chr(13) & 會導(dǎo)致該學(xué)生的信息丟失! & Chr(10) + Chr(13) & 確定么?, vbYesNo + vbExclamation, 警告) = vbYes Then If MsgBox(真的要?jiǎng)h除么？, vbYesNo + vbExclamation, 警告！) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.Update MsgBox 刪除成功！, vbOKOnly + vbInformation, 提示！ End If End IfElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()打開數(shù)據(jù)庫中的student表OpenTable Adodc1, studentAdodc1.Refresh連接DataGrid1表到數(shù)據(jù)庫Set DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd Sub432檔案添加圖4.3.2 檔案登記設(shè)計(jì)過程：用于檔案的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進(jìn)行了連接，可以直接進(jìn)行添加，前提是必須有權(quán)限，加入了text 和combo控件的keypress事件，讓用戶可以更輕松的進(jìn)行添加。設(shè)計(jì)代碼：Private Sub combo1_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub combo2_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Command1_Click()定義變量Dim msgDim f As BooleanDim g As BooleanDim j As Integerf = Trueg = True判斷文本框是否為空For j = 0 To 4 If Text1(j).Text = Then MsgBox Label2(j).Caption & 不能為空 ！, vbExclamation + vbOKOnly, 警告 f = False Text1(j).SetFocus Exit Sub End IfNext j判斷出生年月是否為日期If Not IsDate(Text1(2).Text) Then MsgBox 應(yīng)輸入日期 yy-mm-dd, vbOKOnly + vbInformation, 提示 g = False反白錯(cuò)誤的框 Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = 10 Exit SubEnd If判斷入學(xué)時(shí)間是否為日期If Not IsDate(Text1(4).Text) Then MsgBox 應(yīng)輸入日期 yy-mm-dd, vbOKOnly + vbInformation, 提示 g = False反白錯(cuò)誤的框 Text1(4).SetFocus Text1(4).SelStart = 0 Text1(4).SelLength = 10End If判斷是否要保存If f = True And g = True Then msg = MsgBox(確定要添加么？, vbYesNo + vbInformation, 提示)End If確定后執(zhí)行的語句If msg = vbYes ThenMsgBox 添加成功！, vbOKOnly + vbInformation, 提示 Adodc1.Recordset.AddNew數(shù)據(jù)傳遞到數(shù)據(jù)庫 Adodc1.Recordset!學(xué)號 = Text1(0).Text Adodc1.Recordset!姓名 = Text1(1).Text Adodc1.Recordset!出生年月 = Text1(2).Text Adodc1.Recordset!家庭住址 = Text1(3).Text Adodc1.Recordset!入學(xué)時(shí)間 = Text1(4).Text Adodc1.Recordset!備注 = Text1(5).Text Adodc1.Recordset!性別 = Combo1.Text Adodc1.Recordset!班級 = Combo2.Text Adodc1.Recordset.Update添加保存后清空文本For j = 0 To 5 Text1(j).Text = Next jEnd IfForm2.ShowEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub Form_Load()打開數(shù)據(jù)庫中的student表OpenTable Adodc1, student初始化combo的初值Combo1.Text = Combo1.List(ListIndex)Combo2.Text = Combo2.List(ListIndex)End SubPrivate Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd Sub433檔案查詢圖4.3.3 學(xué)生信息查找設(shè)計(jì)過程：用戶可以根據(jù)自己的需要按學(xué)號，姓名，班級查找，查找的學(xué)生信息會顯示在檔案瀏覽的窗體上，用的是sql語言。在此窗體上必須輸入至少一條記錄，不然會提示。若沒有找到一條符合的記錄，則會提示無此記錄。設(shè)計(jì)代碼：Private Sub Command1_Click()定義sql語言Dim sqlxuehao As StringDim sqlxingming As StringDim sqlbanji As Stringsqlxuehao = select * from student where 學(xué)號= & Text1.Text & sqlxingming = select * from student where 姓名= & Text2.Text & sqlbanji = select * from student where 班級= & Combo1.Text & If Combo1.Text = And Text1.Text = And Text2.Text = Then Label1.Caption = 至少一條記錄不空 Exit SubEnd IfIf Text1.Text Then Form2.Adodc1.RecordSource = sqlxuehao Form2.Adodc1.Refresh Form2.DataGrid1.RefreshEnd IfIf Text2.Text Then Form2.Adodc1.RecordSource = sqlxingming Form2.Adodc1.Refresh Form2.DataGrid1.RefreshEnd IfIf Combo1.Text Then Form2.Adodc1.RecordSource = sqlbanji Form2.Adodc1.Refresh Form2.DataGrid1.RefreshEnd IfIf Form2.Adodc1.Recordset.EOF Then MsgBox 無此記錄, vbOKOnly + vbInformation, 提示End IfUnload MeEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub combo1_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text2_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Sub44成績管理441成績?yōu)g覽與修改圖4.4.1 考試成績?yōu)g覽設(shè)計(jì)過程：通過一個(gè)combo數(shù)組（4個(gè)），來實(shí)現(xiàn)各個(gè)信息的選擇，符合的信息會在下面顯示出來，同時(shí)此窗體同樣可以連接到其它的窗體上，例如修改。若是有權(quán)限的話還可以直接刪除。此窗體是連接到數(shù)據(jù)庫中的scorei表。設(shè)計(jì)代碼：Private Sub Command1_Click()If QX4 = True Then flAg = False Form6.ShowElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command2_Click()If QX4 = True Then 刪除語句 If MsgBox(確定要?jiǎng)h除學(xué)號為 & Adodc1.Recordset!學(xué)號 & 的記錄么？ & Chr(10) + Chr(13) & 會導(dǎo)致該學(xué)生的信息丟失! & Chr(10) + Chr(13) & 確定么?, vbYesNo + vbExclamation, 警告) = vbYes Then If MsgBox(真的要?jiǎng)h除么？, vbYesNo + vbExclamation, 警告！) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.Update MsgBox 刪除成功！, vbOKOnly + vbInformation, 提示！ End If End IfElse MsgBox 對不起,您沒有權(quán)限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command3_Click()定義sql語言Dim sqlxuwqi As StringDim sqlleixing As Stringsqlxuwqi = select * from score where 學(xué)期= & Combo1(2).Text & sqlleixing = select * from score where 類型= & Combo1(3).Text & Adodc1.RecordSource = sqlxuwqiAdodc1.RecordSource = sqlleixingAdodc1.RefreshDataGrid1.RefreshIf Adodc1.Recordset.EOF Then MsgBox 無此記錄, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()打開數(shù)據(jù)庫中的score和leixing表OpenTable Adodc1, scoreOpenTable Adodc2, leixing初始化combo的初值For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex)Next i連接DataGrid1表到數(shù)據(jù)庫Set DataGrid1.DataSource = Adodc1DataGrid1.Refresh初始化combo1(3)的值Combo1(3).ClearAdodc2.Recordset.MoveFirstDo Until Adodc2.Recordset.EOF Combo1(3).AddItem Adodc2.Recordset!類型 Adodc2.Recordset.MoveNextLoop Combo1(3).ListIndex = 0End Sub442成績添加圖4.4.2 成績添加設(shè)計(jì)過程：有權(quán)限的用戶可以進(jìn)行成績的添加或刪除的操作，學(xué)期，專業(yè)，類型都可以從combo框中選擇，學(xué)號，姓名是用戶自己輸入的，且不能為空，還有考試成績，使用了keypress事件，只能鍵入數(shù)字，而且限定長度為3位數(shù)。設(shè)計(jì)代碼：Private Sub combo1_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub combo2_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Combo3_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Command1_Click()判斷文本框是否為空If Text1.Text = Then MsgBox Label3.Caption & 不能為空 ！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfIf Text2.Text = Then MsgBox Label2(2).Caption & 不能為空 ！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Exit SubEnd IfIf Text3.Text = Then MsgBox Label2(4).Caption & 不能為空 ！, vbExclamation + vbOKOnly, 警告 Text3.SetFocus Exit SubEnd IfIf flAg = True Then 確定后執(zhí)行的語句 If MsgBox(確定要添加么？, vbYesNo + vbInformation, 提示) = vbYes Then MsgBox 添加成功！, vbOKOnly + vbInformation, 提示 Form5.Adodc1.Recordset.AddNew 數(shù)據(jù)傳遞到數(shù)據(jù)庫 Form5.Adodc1.Recordset!學(xué)期 = Combo1.Text Form5.Adodc1.Recordset!班級 = Combo2.Text Form5.Adodc1.Recordset!學(xué)號 = Text2.Text Form5.Adodc1.Recordset!姓名 = Text3.Text Form5.Adodc1.Recordset!課程名稱 = Visual Basic Form5.Adodc1.Recordset!類型 = Combo3.Text Form5.Adodc1.Recordset!分?jǐn)?shù) = Text1.Text Form5.Adodc1.Recordset!年級 = 2005級 Form5.Adodc1.Recordset.Update End IfElse 確定后執(zhí)行的語句 If MsgBox(確定要修改么？, vbYesNo + vbInformation, 提示) = vbYes Then MsgBox 修改成功！, vbOKOnly + vbInformation, 提示 數(shù)據(jù)傳遞到數(shù)據(jù)庫 Form5.Adodc1.Recordset!學(xué)期 = Combo1.Text Form5.Adodc1.Recordset!班級 = Combo2.Text Form5.Adodc1.Recordset!學(xué)號 = Text2.Text Form5.Adodc1.Recordset!姓名 = Text3.Text Form5.Adodc1.Recordset!課程名稱 = Visual Basic Form5.Adodc1.Recordset!類型 = Combo3.Text Form5.Adodc1.Recordset!分?jǐn)?shù) = Text1.Text Form5.Adodc1.Recordset!年級 = 2005級 Form5.Adodc1.Recordset.Update End IfEnd IfUnload MeEnd SubPrivate Sub Form_Load()Combo1.Text = Combo1.List(ListIndex)Combo2.Text = Combo2.List(ListIndex)初始化combo3的值Combo3.ClearForm5.Adodc2.Recordset.MoveFirstDo Until Form5.Adodc2.Recordset.EOF Combo3.AddItem Form5.Adodc2.Recordset!類型 Form5.Adodc2.Recordset.MoveNextLoop Combo3.ListIndex = 0判斷是否是修改的窗體If flAg = False Then Label1.Caption = 成績修改 Command1.Caption = 修改 數(shù)據(jù)庫數(shù)據(jù)傳遞到文本里 Combo1.Text = Form5.Adodc1.Recordset!學(xué)期 Combo2.Text = Form5.Adodc1.Recordset!班級 Text2.Text = Form5.Adodc1.Recordset!學(xué)號 Text3.Text = Form5.Adodc1.Recordset!姓名 Combo3.Text = Form5.Adodc1.Recordset!類型 Text1.Text = Form5.Adodc1.Recordset!分?jǐn)?shù)End IfEnd SubPrivate Sub Form_Activate()Combo1.SetFocusEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text2_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfIf KeyAscii = 8 Then Text2 = End IfEnd SubPrivate Sub text3_KeyPress(KeyAscii As Integer)回車換下一個(gè)輸入項(xiàng)目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Sub443考試類型設(shè)置圖4.4.3 考試類型設(shè)置設(shè)計(jì)過程： 有權(quán)限的用戶盒超級管理員可以進(jìn)行考試類型的增加，修改，刪除等操作。在此窗體修改過的東西會在其它具有選擇類型的combo控件的窗體中作出相應(yīng)的修改。最大特點(diǎn)是在點(diǎn)擊增加或修改按鈕時(shí)，其他按鈕的enable屬性會變成false，以免造成不正確的操作。設(shè)計(jì)代碼：Private Sub Command1_Click()增加考試類型的代碼If Command1.Caption = 加入列表 Then Adodc1.RecordSource = select * from leixing where 類型= & Text1.Text & Adodc1.Refresh 判斷是否重復(fù) If Adodc1.Recordset.EOF = False Then MsgBox 已經(jīng)存在該類型名稱！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub Else 增加 Adodc1.Recordset.AddNew Adodc1.Recordset!類型 = Text1.Text Adodc1.Recordset.Update Command1.Caption = 增加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Visible = False Text1.Text = End If 這個(gè)Form_Load是刷新list列表用的 Form_Load MsgBox 設(shè)置成功！, vbOKOnly + vbInformation, 提示Else Text1.Text = InputBox(輸入考試類型！, 輸入) If Text1.Text = Then MsgBox 類型名稱不能為空！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If Command1.Caption = 加入列表 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Visible = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Text1.Text = Then MsgBox 你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告Else If MsgBox(確定要?jiǎng)h除 類型名稱 為 & List1.List(List1.ListIndex) & 的記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then Adodc1.RecordSource = select * from leixing where 類型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Recordset.Delete Text1.Text = End IfEnd If這個(gè)Form_Load是刷新list列表用的Form_LoadEnd SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox 你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Command3.Caption = 保存修改 Then Adodc1.RecordSource = select * from leixing where 類型= & Text1.Text & Adodc1.Refresh 判斷是否重復(fù) If Adodc1.Recordset.EOF = False Then MsgBox 已經(jīng)存在該類型名稱！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub Else 修改 Adodc1.RecordSource = select * from leixing where 類型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Reco