《VB課程設計-學生綜合管理系統(tǒng).doc》由會員分享，可在線閱讀，更多相關《VB課程設計-學生綜合管理系統(tǒng).doc（67頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、學生綜合管理系統(tǒng)姓 名：學 號：指導老師: 設計時間：2006年12月26日-2007年1月7日目錄第1章 設計的目的和意義1第2章 系統(tǒng)的功能流程圖1第3章 數(shù)據(jù)庫的設計3第4章 主要內容（設計過程、界面、代碼）741登錄窗體 742主控界面 943檔案管理14431檔案瀏覽 14432檔案添加 16433檔案查詢 1944成績管理22441成績?yōu)g覽與修改 22442成績添加 24443考試類型設置 28 45、學費管理 33451學費設置瀏覽 33452學費設置添加 35453學生交費瀏覽 39454學生交費添加 41455學生交費查詢 45 46、課程設定 48461基本課程設計 484

2、62班級課程瀏覽 54462班級課程設置 56 47、系統(tǒng)維護 60471增加用戶 60472密碼修改 64第5章 設計的體會 66第6章 附錄 67 61、實現(xiàn)主要功能的核心源程序 67 62、附錄參考書 67第1章 設計的目的和意義 系統(tǒng)是對高校教師及管理人員提供的對在校學生有效管理的一個信息系統(tǒng)。系統(tǒng)設計的目的是實現(xiàn)紀錄、查詢和修改學生檔案信息；對于學生繳費情況能有效的處理，以及設置課程信息及考試相關信息。本系統(tǒng)的開發(fā)具有很強的使用價值及實踐意義。開發(fā)本系統(tǒng)不僅能很好的鞏固我們在學習中的所掌握的知識，而且系統(tǒng)本身就是應用于實踐，為學校教學管理提供了很大的方便性，提高了工作效率；同時方便了

3、我們自己。第2章 系統(tǒng)功能流程圖學生綜合管理系統(tǒng) 用戶登陸系統(tǒng)主控界面檔案管理成績管理學費管理課程設置用戶管理管理添加查詢?yōu)g覽提交查詢權限設定增加設置學費增加圖2.1 系統(tǒng)功能流程圖第3章 數(shù)據(jù)庫的設計本系統(tǒng)的數(shù)據(jù)庫是Access數(shù)據(jù)庫，在Access環(huán)境下創(chuàng)建數(shù)據(jù)庫Stud.mdb文件。該數(shù)據(jù)庫包括學生檔案表、班級信息表、各專業(yè)學生學費表、管理人員表用于紀錄學生的基本信息數(shù)據(jù)庫表結構如下所示：字段名類型大小說明學號文本10學生學號姓名文本8學生姓名性別文本2學生性別班級文本10班級出生年月日期/時間家庭住址文本30入學時間日期/時間學生入學時間表3.1 學生檔案表字段名類型大小說明年級文本1

4、6班級文本20年制文本8學習年限班主任文本8備注備注表3.2 班級信息表字段名類型大小說明課程名稱文本20紀錄課程名稱教材文本30所使用教材表3.3 課程種類表字段名類型大小說明學號文本10學生學號學期文本50類型文本16期中/期末課程名稱文本20分數(shù)數(shù)字單精度型考試成績表3.4 學生成績表字段名類型大小說明年級文本16專業(yè)文本12專業(yè)類型年制文本8學習年限學期文本50課程名稱文本20開設課程表3.4 課程信息表字段名類型大小說明username文本20用戶名uerpassword文本20密碼admin文本2是否為管理員readonly文本2是否為只讀用戶qx1文本2是否有系統(tǒng)管理權限qx2文

5、本2是否有檔案管理權限qx3文本2是否有交費管理權限qx4文本2是否有成績管理權限表3.4 管理人員表字段名類型大小說明年級文本16專業(yè)文本50年制文本20學習年限學期文本40學費貨幣應繳納學費表3.4 學費表字段名類型大小說明學號文本10學期文本50繳費貨幣貨幣已交納費用欠費貨幣貨幣欠費額日期日期日期/時間紀錄時間操作員文本10添加紀錄人員表3.4 學身繳費情況第4章 主要內容41登錄窗體圖4.1 登錄窗體設計過程：用于輸入用戶名和密碼登錄，提示中寫可以以用戶名和密碼都為guest進入系統(tǒng)，不過是只讀用戶。點擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。設計代碼：Private Sub cmdCa

6、ncel_Click()EndEnd SubPrivate Sub cmdOK_Click()Dim sql As String使用sql語言進行數(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.E

7、OF Then If Adodc1.Recordset!userpassword txtPassword Then MsgBox 密碼錯誤！ txtPassword.SetFocus txtPassword = ElseIf Adodc1.Recordset!userpassword = txtPassword Then MsgBox 登陸成功，歡迎進入本系統(tǒng)！, vbOKOnly + vbInformation, 提示 MDIForm1.Show Me.Hide End IfElseIf Adodc1.Recordset.EOF Then MsgBox 無此用戶 txtUserName.Se

8、tFocus txtUserName = txtPassword = End IfEnd SubPrivate Sub Command1_Click()MsgBox 可以以用戶名和密碼均為guest進入, vbOKOnly + vbInformation, 提示txtUserName.SetFocusEnd SubPrivate Sub Form_Load()OpenTable Adodc1, useAdodc1.RefreshEnd Sub42主控界面圖4.2 主控界面設計過程：所有功能都在菜單中打開來實現(xiàn)，在最下面添加了工具欄，來顯示時間，操作員，狀態(tài)等信息。在代碼中判斷登陸時的用戶權限，

9、不同權限有不同的權限來瀏覽各個窗體。設計代碼：Private Sub adddangan_Click()If QX2 = True Then Form1.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub addjiaofei_Click()If QX3 = True Then Form10.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub banjikechengliu

10、lan_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 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub chongpai_Click() MDIForm1.Arrange 3

11、End SubPrivate Sub chuizhi_Click()MDIForm1.Arrange 2End SubPrivate Sub classkechengset_Click()If QX4 = True Then Form15.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub danganfind_Click()Form4.ShowEnd SubPrivate Sub liulanbiao_Click()Form2.ShowEnd SubPrivate Sub jiao

12、feifind_Click()Form12.ShowEnd SubPrivate Sub jiaofeiliulan_Click()Form11.ShowEnd SubPrivate Sub jibenkechengset_Click()If QX4 = True Then Form14.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub kecheng_Click()Form13.ShowEnd SubPrivate Sub liulanchengjibiao_Click()For

13、m5.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

14、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) =

15、當前操作員： & 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 Th

16、en 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

17、 Then Form7.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2) = NowEnd SubPrivate Sub useradd_Click()If QX1 = True Then Form16.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub viewchengji_Click()Form5

18、.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 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub xuefeish

19、ezhi_Click()Form8.ShowEnd Sub43檔案管理431檔案瀏覽圖4.3.1 檔案瀏覽設計過程：用控件可以實現(xiàn)檔案的瀏覽，在此窗體所有上用戶可以瀏覽，查找，有權限的用戶可以進行修改和刪除。此窗體與數(shù)據(jù)輪中的student表進行連接。設計代碼：Private Sub Command1_Click()Form4.ShowEnd SubPrivate Sub Command2_Click()If QX2 = True Then Form3.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubP

20、rivate Sub Command3_Click()If QX2 = True Then 刪除語句 If MsgBox(確定要刪除學號為 & Adodc1.Recordset!學號 & 的記錄么？ & Chr(10) + Chr(13) & 會導致該學生的信息丟失! & Chr(10) + Chr(13) & 確定么?, vbYesNo + vbExclamation, 警告) = vbYes Then If MsgBox(真的要刪除么？, vbYesNo + vbExclamation, 警告！) = vbYes Then Adodc1.Recordset.Delete Adodc1.Re

21、cordset.Update MsgBox 刪除成功！, vbOKOnly + vbInformation, 提示！ End If End IfElse MsgBox 對不起,您沒有權限!, 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

22、= Adodc1DataGrid1.RefreshEnd Sub432檔案添加圖4.3.2 檔案登記設計過程：用于檔案的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進行了連接，可以直接進行添加，前提是必須有權限，加入了text 和combo控件的keypress事件，讓用戶可以更輕松的進行添加。設計代碼：Private Sub combo1_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub combo2_KeyPress(KeyAscii As Intege

23、r)回車換下一個輸入項目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).SetFocu

24、s Exit Sub End IfNext j判斷出生年月是否為日期If Not IsDate(Text1(2).Text) Then MsgBox 應輸入日期 yy-mm-dd, vbOKOnly + vbInformation, 提示 g = False反白錯誤的框 Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = 10 Exit SubEnd If判斷入學時間是否為日期If Not IsDate(Text1(4).Text) Then MsgBox 應輸入日期 yy-mm-dd, vbOKOnly + vbInfor

25、mation, 提示 g = False反白錯誤的框 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.Re

26、cordset!學號 = Text1(0).Text Adodc1.Recordset!姓名 = Text1(1).Text Adodc1.Recordset!出生年月 = Text1(2).Text Adodc1.Recordset!家庭住址 = Text1(3).Text Adodc1.Recordset!入學時間 = Text1(4).Text Adodc1.Recordset!備注 = Text1(5).Text Adodc1.Recordset!性別 = Combo1.Text Adodc1.Recordset!班級 = Combo2.Text Adodc1.Recordset.Up

27、date添加保存后清空文本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_KeyPres

28、s(Index As Integer, KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd Sub433檔案查詢圖4.3.3 學生信息查找設計過程：用戶可以根據(jù)自己的需要按學號，姓名，班級查找，查找的學生信息會顯示在檔案瀏覽的窗體上，用的是sql語言。在此窗體上必須輸入至少一條記錄，不然會提示。若沒有找到一條符合的記錄，則會提示無此記錄。設計代碼：Private Sub Command1_Click

29、()定義sql語言Dim sqlxuehao As StringDim sqlxingming As StringDim sqlbanji As Stringsqlxuehao = select * from student where 學號= & Text1.Text & sqlxingming = select * from student where 姓名= & Text2.Text & sqlbanji = select * from student where 班級= & Combo1.Text & If Combo1.Text = And Text1.Text = And Text

30、2.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.Adod

31、c1.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(

32、KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub text2_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Sub44成績管理441成績?yōu)g覽與修

33、改圖4.4.1 考試成績?yōu)g覽設計過程：通過一個combo數(shù)組（4個），來實現(xiàn)各個信息的選擇，符合的信息會在下面顯示出來，同時此窗體同樣可以連接到其它的窗體上，例如修改。若是有權限的話還可以直接刪除。此窗體是連接到數(shù)據(jù)庫中的scorei表。設計代碼：Private Sub Command1_Click()If QX4 = True Then flAg = False Form6.ShowElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command2_Click()If QX4 = Tru

34、e Then 刪除語句 If MsgBox(確定要刪除學號為 & Adodc1.Recordset!學號 & 的記錄么？ & Chr(10) + Chr(13) & 會導致該學生的信息丟失! & Chr(10) + Chr(13) & 確定么?, vbYesNo + vbExclamation, 警告) = vbYes Then If MsgBox(真的要刪除么？, vbYesNo + vbExclamation, 警告！) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.Update MsgBox 刪除成功！, vbOKOnly +

35、 vbInformation, 提示！ End If End IfElse MsgBox 對不起,您沒有權限!, vbOKOnly + vbExclamation, 警告!End IfEnd SubPrivate Sub Command3_Click()定義sql語言Dim sqlxuwqi As StringDim sqlleixing As Stringsqlxuwqi = select * from score where 學期= & Combo1(2).Text & sqlleixing = select * from score where 類型= & Combo1(3).Text

36、& 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 A

37、dodc2, 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.MoveNe

38、xtLoop Combo1(3).ListIndex = 0End Sub442成績添加圖4.4.2 成績添加設計過程：有權限的用戶可以進行成績的添加或刪除的操作，學期，專業(yè)，類型都可以從combo框中選擇，學號，姓名是用戶自己輸入的，且不能為空，還有考試成績，使用了keypress事件，只能鍵入數(shù)字，而且限定長度為3位數(shù)。設計代碼：Private Sub combo1_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub combo2_KeyPress

39、(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Combo3_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd SubPrivate Sub Command1_Click()判斷文本框是否為空If Text1.Text = Then MsgBox Label3.Caption & 不能為空 ！, vbExclamation + vbOKOnly, 警

40、告 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(確定

41、要添加么？, vbYesNo + vbInformation, 提示) = vbYes Then MsgBox 添加成功！, vbOKOnly + vbInformation, 提示 Form5.Adodc1.Recordset.AddNew 數(shù)據(jù)傳遞到數(shù)據(jù)庫 Form5.Adodc1.Recordset!學期 = Combo1.Text Form5.Adodc1.Recordset!班級 = Combo2.Text Form5.Adodc1.Recordset!學號 = Text2.Text Form5.Adodc1.Recordset!姓名 = Text3.Text Form5.Adodc

42、1.Recordset!課程名稱 = Visual Basic Form5.Adodc1.Recordset!類型 = Combo3.Text Form5.Adodc1.Recordset!分數(shù) = Text1.Text Form5.Adodc1.Recordset!年級 = 2005級 Form5.Adodc1.Recordset.Update End IfElse 確定后執(zhí)行的語句 If MsgBox(確定要修改么？, vbYesNo + vbInformation, 提示) = vbYes Then MsgBox 修改成功！, vbOKOnly + vbInformation, 提示 數(shù)

43、據(jù)傳遞到數(shù)據(jù)庫 Form5.Adodc1.Recordset!學期 = Combo1.Text Form5.Adodc1.Recordset!班級 = Combo2.Text Form5.Adodc1.Recordset!學號 = Text2.Text Form5.Adodc1.Recordset!姓名 = Text3.Text Form5.Adodc1.Recordset!課程名稱 = Visual Basic Form5.Adodc1.Recordset!類型 = Combo3.Text Form5.Adodc1.Recordset!分數(shù) = Text1.Text Form5.Adodc1

44、.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.Record

45、set!類型 Form5.Adodc2.Recordset.MoveNextLoop Combo3.ListIndex = 0判斷是否是修改的窗體If flAg = False Then Label1.Caption = 成績修改 Command1.Caption = 修改 數(shù)據(jù)庫數(shù)據(jù)傳遞到文本里 Combo1.Text = Form5.Adodc1.Recordset!學期 Combo2.Text = Form5.Adodc1.Recordset!班級 Text2.Text = Form5.Adodc1.Recordset!學號 Text3.Text = Form5.Adodc1.Recor

46、dset!姓名 Combo3.Text = Form5.Adodc1.Recordset!類型 Text1.Text = Form5.Adodc1.Recordset!分數(shù)End IfEnd SubPrivate Sub Form_Activate()Combo1.SetFocusEnd SubPrivate Sub Command2_Click()退出該窗體Unload MeEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Su

47、bPrivate Sub text2_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfIf KeyAscii = 8 Then Text2 = End IfEnd SubPrivate Sub text3_KeyPress(KeyAscii As Integer)回車換下一個輸入項目If KeyAscii = 13 Then SendKeys TABEnd IfEnd Sub443考試類型設置圖4.4.3 考試類型設置設計過程： 有權限的用戶盒超級管理員可以進行考試類型的增加，修改，刪

48、除等操作。在此窗體修改過的東西會在其它具有選擇類型的combo控件的窗體中作出相應的修改。最大特點是在點擊增加或修改按鈕時，其他按鈕的enable屬性會變成false，以免造成不正確的操作。設計代碼：Private Sub Command1_Click()增加考試類型的代碼If Command1.Caption = 加入列表 Then Adodc1.RecordSource = select * from leixing where 類型= & Text1.Text & Adodc1.Refresh 判斷是否重復 If Adodc1.Recordset.EOF = False Then Msg

49、Box 已經存在該類型名稱！, 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 =

50、True Command5.Visible = False Text1.Text = End If 這個Form_Load是刷新list列表用的 Form_Load MsgBox 設置成功！, vbOKOnly + vbInformation, 提示Else Text1.Text = InputBox(輸入考試類型！, 輸入) If Text1.Text = Then MsgBox 類型名稱不能為空！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If Command1.Caption = 加入列表 Command2.Ena

51、bled = 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(確定要刪除 類型名稱 為 & List1.List(List1.ListIndex) & 的記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK

52、Then Adodc1.RecordSource = select * from leixing where 類型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Recordset.Delete Text1.Text = End IfEnd If這個Form_Load是刷新list列表用的Form_LoadEnd SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox 你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告Exit SubEnd

53、IfIf Command3.Caption = 保存修改 Then Adodc1.RecordSource = select * from leixing where 類型= & Text1.Text & Adodc1.Refresh 判斷是否重復 If Adodc1.Recordset.EOF = False Then MsgBox 已經存在該類型名稱！, 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