1、一、需求分析 計(jì)算機(jī)技術(shù)沒(méi)有應(yīng)用到考試上時(shí)，組織一次考試只是要通過(guò)五步：人工出題，考生考試，人工閱卷，成績(jī)?cè)u(píng)估和試卷分析，這是一項(xiàng)十分繁瑣和容易出錯(cuò)的工作，教師的工作量非常的大。很明顯，老式的考試方式已經(jīng)不再適應(yīng)現(xiàn)代考試的需要。如今，信息技術(shù)的迅猛發(fā)展，應(yīng)用不斷擴(kuò)大，教學(xué)和虛擬大學(xué)等相繼浮現(xiàn)，這些應(yīng)用正逐漸進(jìn)一步到千家萬(wàn)戶(hù)，人們迫切規(guī)定運(yùn)用這些技術(shù)來(lái)進(jìn)行在線(xiàn)考試，以減少教師的工作承當(dāng)并提高工作效率，同步提高考試的質(zhì)量，從而使考試更趨于公正，客觀(guān)，更加激發(fā)學(xué)生的愛(ài)好。例如，目前許多國(guó)際出名的計(jì)算機(jī)公司所舉辦的多種認(rèn)證考試絕大部分是采用這種形式。二、數(shù)據(jù)庫(kù)設(shè)計(jì)概念模型設(shè)計(jì)（ER圖）與否參與了考試顧

2、客密碼顧客賬號(hào)顧客類(lèi)型型 顧客信息與否參與了考試顧客密碼顧客賬號(hào)顧客類(lèi)型型顧客信息與否已經(jīng)登錄顧客姓名試題題目試題答案試題編號(hào)試題類(lèi)型試題類(lèi)型名稱(chēng) 試題題目試題答案試題編號(hào)試題類(lèi)型試題類(lèi)型名稱(chēng)填空題分值填空題比例編號(hào)判斷題分值判斷題比例型編號(hào)選擇題分值選擇題比例號(hào)選項(xiàng)A選項(xiàng)B選項(xiàng)F選項(xiàng)E選項(xiàng)D選項(xiàng)C試題題庫(kù)試題類(lèi)型試題類(lèi)型編號(hào)填空題分值填空題比例編號(hào)判斷題分值判斷題比例型編號(hào)選擇題分值選擇題比例號(hào)選項(xiàng)A選項(xiàng)B選項(xiàng)F選項(xiàng)E選項(xiàng)D選項(xiàng)C試題題庫(kù)試題類(lèi)型試題類(lèi)型編號(hào) 參數(shù)編號(hào)考試時(shí)間 參數(shù)編號(hào)考試時(shí)間 系統(tǒng)參數(shù)系統(tǒng)參數(shù)選項(xiàng)F學(xué)生考試試卷選項(xiàng)F學(xué)生考試試卷試卷類(lèi)型題庫(kù)中的編號(hào)題目在試卷中的編號(hào)題目答案

3、選項(xiàng)A選項(xiàng)C選項(xiàng)B選項(xiàng)D選項(xiàng)E考生答案學(xué)生成績(jī)學(xué)生成績(jī)考生編號(hào)考生成績(jī)選擇題成績(jī)判斷題成績(jī)填空題成績(jī)2、E-R圖轉(zhuǎn)為邏輯模型的措施及過(guò)程在sql中創(chuàng)立一種新的數(shù)據(jù)庫(kù)CET6，以ER圖中的實(shí)體的名稱(chēng)創(chuàng)立表。設(shè)計(jì)表時(shí)，以該ER圖中的屬性為列名，根據(jù)實(shí)際狀況擬定其數(shù)據(jù)類(lèi)型和長(zhǎng)度，在必須唯一的列名處設(shè)計(jì)主鍵。在sql中一共建立七個(gè)表來(lái)實(shí)現(xiàn)CET6模擬考試系統(tǒng)應(yīng)用程序數(shù)據(jù)的連接。其中，UserType表達(dá)數(shù)據(jù)類(lèi)型，0表達(dá)學(xué)生，1表達(dá)管理員。UserId表達(dá)顧客賬號(hào)，UserName表達(dá)顧客姓名，UserPsw表達(dá)顧客密碼。HaveIn，HaveTest分別表達(dá)顧客與否登錄和參與考試。TypeId，Typ

4、eName分別表達(dá)試題類(lèi)型和試題類(lèi)型名。XZT_BL，XZT_FZ分別表達(dá)選擇題的分值和比例。判斷題和填空題類(lèi)推。StudentId表達(dá)考生考號(hào)，TopicId、PaperTopId分別表達(dá)試題在題庫(kù)和試卷中的編號(hào)。TopicName、TopicAnswer表達(dá)試題題目和答案。3、邏輯模型TB_User（顧客信息表）TB_TestType（試題類(lèi)型表）TB_Param(系統(tǒng)參數(shù)表)TB_StuTest(學(xué)生考試試卷表)TB_Grade(學(xué)生分?jǐn)?shù)表)TB_Test(試題安排)TB_StuTest(學(xué)生考試試卷表)4、數(shù)據(jù)庫(kù)評(píng)價(jià) 一方面，用sql設(shè)計(jì)數(shù)據(jù)庫(kù)比較穩(wěn)定，對(duì)數(shù)據(jù)的規(guī)定也比較嚴(yán)格。這樣在編

5、碼階段數(shù)據(jù)這一塊就基本沒(méi)有不合理的數(shù)據(jù)出目前應(yīng)用程序上。減少了運(yùn)營(yíng)會(huì)浮現(xiàn)的錯(cuò)誤。但是sql與應(yīng)用程序的鏈接有時(shí)比較繁瑣并且不易成功。三、編碼實(shí)現(xiàn)登錄模塊顧客的不同類(lèi)型進(jìn)入到不同的界面，重要有一種combox控件，用于選擇顧客類(lèi)型。兩個(gè)TextBox控件，Txt_id用于輸入賬號(hào)，Txt_Pse用于輸入密碼。三個(gè)commandButton控件：cmd_In用于登錄系統(tǒng)，Cmd_Again用于清空顧客信息重新輸入，Cmd_Quit用于退出系統(tǒng)。程序流程圖登錄登錄輸入顧客類(lèi)型進(jìn)入學(xué)生界面進(jìn)入管理員界面輸入顧客名密碼輸入顧客名密碼結(jié)束登錄學(xué)生管理員錯(cuò)誤錯(cuò)誤3） 登錄模塊代碼Option Explici

6、tPublic B As Boolean 顧客的登錄信息與否對(duì)的Private Sub PD()判斷顧客登錄信息與否對(duì)的,對(duì)的B=true,否則B=falseDim rs As New ADODB.Recordset 聲明rs為記錄集對(duì)象If Trim(Txt_Id.Text) = Then 如果沒(méi)有輸入帳號(hào)MsgBox 沒(méi)有輸入顧客賬號(hào)，請(qǐng)您對(duì)的填寫(xiě)！, vbOKCancel + vbCritical Txt_Id.SetFocus 設(shè)立焦點(diǎn)在問(wèn)本框Txt_Id上ElseIf Trim(Txt_Psw.Text) = Then 如果密碼為空 MsgBox 沒(méi)有輸入密碼，請(qǐng)您對(duì)的填寫(xiě)！, vb

7、OKCancel + vbCritical Txt_Psw.SetFocus 設(shè)立焦點(diǎn)在問(wèn)本框Txt_Psw上Else Cmd_In.Default = True 設(shè)立Cmd_In按Enter鍵觸發(fā)Click事件Sql = select * from TB_User where UserId= & Trim(Txt_Id.Text) & & _and UserType= & Cbx_UserType.ListIndex & & _and UserPsw= & Trim(Txt_Psw.Text) & 把查詢(xún)顧客信息的SQL語(yǔ)句賦給變量Sql rs.Open Sql, cnn, adOpenSt

8、atic, adLockReadOnly 以只讀的方式靜態(tài)的打開(kāi)Sql執(zhí)行的成果的記錄集 If Not rs.RecordCount 0 Then 如果記錄集為空 Select Case MsgBox(顧客賬號(hào)或密碼不對(duì)的，請(qǐng)您對(duì)的填寫(xiě)！, vbOKCancel + vbCritical) 顯示提示信息 Case vbOK 如果選擇了是 B = False Txt_Id.Text = 帳號(hào)清空 Txt_Psw.Text = 密碼清空 Txt_Id.SetFocus 是輸入帳號(hào)的文本框獲得焦點(diǎn) Case Else 選擇了取消 End 結(jié)束程序 End Select Cmd_In.Default

9、= False 設(shè)立Cmd_In不是Enter的默認(rèn)按鈕ElseIf rs.Fields(HaveIn) = 0 Then 如果記錄集不為空且此帳號(hào)沒(méi)被其她顧客使用 B = True 顧客的登錄信息對(duì)的 cnn.Execute update TB_User set HaveIn=1 & _where UserId= & Trim(Txt_Id.Text) & & _and UserType= & Cbx_UserType.ListIndex & 設(shè)立HaveIn字段為1，限制其她顧客用此帳戶(hù)登錄 UsId = Trim(Txt_Id.Text) 記錄顧客的帳號(hào) Else 如果記錄集不為空但此帳

10、號(hào)正在被其她顧客使用 MsgBox 顧客已經(jīng)登錄！, vbOKOnly + vbCritical 顯示提示信息 B = False 顧客的登錄信息錯(cuò)誤 Txt_Id.Text = 帳號(hào)清空 Txt_Psw.Text = 密碼清空 Txt_Id.SetFocus 是輸入帳號(hào)的文本框獲得焦點(diǎn) Cmd_In.Default = False 設(shè)立Cmd_In不是Enter的默認(rèn)按鈕 End If rs.Close 關(guān)閉記錄集End IfEnd SubPrivate Sub Cbx_UserType_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

11、如果輸入的字符是Enter鍵 Txt_Id.SetFocus 設(shè)立輸入帳號(hào)的文本框獲得焦點(diǎn) Else 如果輸入的是其他字符 KeyAscii = 0 返回值為空即不輸入任何字符 End IfEnd SubPrivate Sub Cmd_Again_Click() 顧客信息輸入錯(cuò)誤，選擇了“重輸”按鈕，開(kāi)始重新輸入。 Call Form_LoadEnd SubPrivate Sub Cmd_In_Click() 顧客填寫(xiě)信息完畢，單擊“擬定”按鈕，開(kāi)始登錄On Error GoTo Err1 浮現(xiàn)錯(cuò)誤轉(zhuǎn)向錯(cuò)誤解決 Dim rs As New ADODB.Recordset 聲明rs為記錄集對(duì)象

12、Select Case Cbx_UserType.ListIndex Select語(yǔ)句的條件是Cbx_UserType的ListIndex屬性 Case 0 如果選中的是第一條記錄即考生 Call PD 判斷考生的帳號(hào)和密碼與否對(duì)的 If B = True Then 如果考生的帳號(hào)和密碼對(duì)的 Sql = select HaveTest from TB_User where UserType=0 & _ and UserId= & Trim(Txt_Id.Text) & 判斷考生與否參與過(guò)考試 rs.Open Sql, cnn, adOpenStatic, adLockReadOnly 執(zhí)行SQ

13、L語(yǔ)句 If rs.Fields(HaveTest) = False Then 如果考生沒(méi)有參與過(guò)考試 Sql = delete from TB_Grade where StuId= & _ & Trim(Txt_Id.Text) & 刪除成績(jī)表中考生原有的記錄 cnn.Execute Sql 執(zhí)行SQL語(yǔ)句 Sql = insert into TB_Grade(StuId) values & _ ( & Trim(Txt_Id.Text) & ) 把考生的帳號(hào)插入到成績(jī)表中 cnn.Execute Sql 執(zhí)行SQL語(yǔ)句 End If frm_Stu.Show 顯示考生窗口 Unload M

14、e 卸載本窗體 End If Case 1 If Txt_Id.Text = admin And Txt_Psw = admin Then 設(shè)立超級(jí)顧客 Unload Me 卸載本窗體 frm_Manager.Show 顯示管理員窗體 Else 如果不是超級(jí)顧客 Call PD 判斷管理員的帳號(hào)和密碼與否對(duì)的 If B = True Then 如果帳號(hào)和密碼對(duì)的 Unload Me 卸載本窗體 frm_Manager.Show 顯示管理員窗體 End If End If Case Else 但是沒(méi)有選擇顧客的身份 MsgBox 您沒(méi)有選擇身份，請(qǐng)選擇！, vbOKCancel + vbCrit

15、ical 提示選擇身份 Cbx_UserType.SetFocus 組合框Cbx_UserType獲得焦點(diǎn) End Select Exit Sub 跳出Sub過(guò)程Err1: ErrMessageBox 打開(kāi)窗口失敗 顯示出錯(cuò)信息 frm_Login.Show 顯示登錄窗體End SubPrivate Sub Cmd_Quit_Click() If MsgBox(真的要退出 & Me.Caption & 嗎？, vbYesNo + vbInformation) = vbNo Then Exit Sub End If 彈出對(duì)話(huà)框詢(xún)問(wèn)與否退出系統(tǒng) End 退出系統(tǒng)End SubPrivate Sub

16、 Form_Load() Cbx_UserType.Text = 請(qǐng)選擇身份 Txt_Id.Text = Txt_Psw.Text = End SubPrivate Sub Txt_Id_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 判斷如果顧客輸入的是Enter鍵 Txt_Psw.SetFocus 設(shè)立Txt_Psw獲得焦點(diǎn) End IfEnd SubPrivate Sub Txt_Psw_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Cmd_In_Click End

17、 IfEnd Sub2、管理員模塊1）在窗體上添加一種SSTab控件，上面添加三個(gè)commandButton控件，分別為選擇題，填空題，判斷題。添加一種DataGrid控件顯示試題，添加一種Ado控件鏈接數(shù)據(jù)庫(kù)。編寫(xiě)菜單實(shí)現(xiàn)多種管理的功能。2）管理員管理員顧客管理修改系統(tǒng)系數(shù)題庫(kù)維護(hù)查詢(xún)考生成績(jī)結(jié)束程序代碼Option ExplicitDim Sql As String 聲明模塊級(jí)變量Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOpe

18、ration As String, ByVal lpFile As String, ByVal lpParameters As Long, ByVal lpDirectory As Long, ByVal nShowCmd As Long) As LongPrivate Function FunAdo(ByVal str As String) 構(gòu)造連接ADO的函數(shù)On Error GoTo Err1 執(zhí)行過(guò)程中如果發(fā)生錯(cuò)誤轉(zhuǎn)向錯(cuò)誤解決 With Ado1 使用With構(gòu)造 .Visible = False Ado不可見(jiàn) .ConnectionString = cnn.ConnectionStr

19、ing 設(shè)立Ado的連接字符串 .CommandType = adCmdText 設(shè)立Ado的命令類(lèi)型 .RecordSource = str 設(shè)立Ado的記錄源 .Refresh 刷新Ado的記錄集 End With 結(jié)束With構(gòu)造 Exit Function 結(jié)束函數(shù)Err1: ErrMessageBox 與數(shù)據(jù)庫(kù)連接失?。?顯示錯(cuò)誤信息 Me.Show 顯示窗口End FunctionPrivate Sub Cmd_Cancel_Click() Call Form_Unload(1)End SubPrivate Sub Cmd_PDT_Click() Sql = select 類(lèi)型號(hào)=

20、tb_testtype.Typeid,題號(hào)=(tb_topicstor.topicid), & _ 題目名稱(chēng)=topicname,答案=topicanswer & _ from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid and typename=判斷題 Call FunAdo(Sql) DG.Columns(0).Width = 700 DG.Columns(1).Width = 500 DG.Columns(2).Width = 4000 DG.Columns(3).Width = 500End

21、 SubPrivate Sub Cmd_TKT_Click() Sql = select 類(lèi)型號(hào)=tb_testtype.Typeid,題號(hào)=(tb_topicstor.topicid), & _ 題目名稱(chēng)=topicname,答案=topicanswer & _ from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid and typename=填空題 Call FunAdo(Sql) DG.Columns(0).Width = 700 DG.Columns(1).Width = 500 DG.Col

22、umns(2).Width = 4000End SubPrivate Sub Cmd_XZT_Click() Sql = select 類(lèi)型號(hào)=tb_testtype.Typeid,題號(hào)=(tb_topicstor.topicid), & _ 題目名稱(chēng)=topicname,答案=topicanswer,A,B,C,D,E,F & _ from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid & _ and typename= & Cmd_XZT.Caption & 把查看選擇題的SQL語(yǔ)句賦給變量Sql

23、 Call FunAdo(Sql) 調(diào)用函數(shù)執(zhí)行SQL語(yǔ)句 DG.Columns(0).Width = 700 設(shè)立DataGrid的第1列列寬 DG.Columns(1).Width = 500 設(shè)立DataGrid的第2列列寬 DG.Columns(2).Width = 4000 設(shè)立DataGrid的第3列列寬 DG.Columns(3).Width = 500 設(shè)立DataGrid的第4列列寬End SubPrivate Sub DG_DblClick() If frm_Manager.Ado1.Recordset.Fields(題號(hào)) = Then 如果試題不存在 MsgBox 不存

24、在記錄,請(qǐng)您先添加記錄, vbOKOnly 提示沒(méi)有記錄 Exit Sub 跳出Sub過(guò)程 Else 如果題庫(kù)中有試題 Me.Enabled = False 管理窗體不可以用 Bkm = Ado1.Recordset.Bookmark 記錄目前DataGrid的指針的位置 End IfEnd SubPrivate Sub Form_Load() Call Cmd_XZT_ClickEnd SubPrivate Sub Form_Unload(Cancel As Integer) If MsgBox(真的要退出 & Me.Caption & 嗎？, vbYesNo + vbInformation

25、) = vbNo Then 彈出消息對(duì)話(huà)框詢(xún)問(wèn)與否退出系統(tǒng) Cancel = True 如果消息對(duì)話(huà)框返回值為常數(shù)vbNo，系統(tǒng)返回值為T(mén)rue Else cnn.Execute update tb_user set havein=0 where userid= & UsId & and UserType=1 End 如果消息對(duì)話(huà)框返回值為常數(shù)vbNo，系統(tǒng)返回值為False，結(jié)束程序 End IfEnd SubPrivate Sub Men_About_Click() frm_About.ShowEnd SubPrivate Sub Men_Help_Click() SendKeys F1E

26、nd SubPrivate Sub Men_SelGrd_Click() frm_SelGrd.Show 打開(kāi)查分窗體 Me.Hide 隱藏管理員窗體End SubPrivate Sub select_Click() 設(shè)定參數(shù) On Error GoTo Endsub frm_param.Show Me.HideEndsub:End SubPrivateSub T_AddPDT_Click() On Error GoTo Endsub frm_PDT.Show Me.HideEndsub:End SubPrivateSub T_AddTKT_Click()On Error GoTo Endsu

27、b frm_TKT.Show Me.HideEndsub:End SubPrivate Sub T_AddXZT_Click()On Error GoTo Endsub frm_XZT.Show Me.HideEndsub:End SubPrivate Sub T_Exit_Click() Unload MeEnd SubPrivate Sub T_Update_Click()On Error GoTo Endsub Me.Enabled = FalseEndsub:End SubPrivate Sub User_Click() On Error GoTo Endsub frm_UpdateU

28、ser.Show Me.HideEndsub:End Sub3、學(xué)生窗體1）2）考生考生與否已經(jīng)參與考試查詢(xún)成績(jī)修改密碼修改密碼開(kāi)始考試退出系統(tǒng)3）Option ExplicitDim HaveTest As IntegerPrivate Sub Begin_Click() Call CmdOk_ClickEnd SubPrivate Sub CmdOk_Click()On Error GoTo Err1 frm_Test.Show Me.Hide Exit SubErr1: ErrMessageBox 考試窗口打開(kāi)出錯(cuò)End SubPrivate Sub CmdQuit_Click() Un

29、load MeEnd SubPrivate Sub Form_Load() Dim rs As New ADODB.Recordset 聲明結(jié)識(shí)rs為記錄集對(duì)象 Sql = select havetest from tb_user where usertype=0 & _ and userid= & UsId & 把查詢(xún)與否參與考試的標(biāo)記字段賦給變量Sql rs.Open Sql, cnn, adOpenStatic, adLockReadOnly 執(zhí)行SQL語(yǔ)句 HaveTest = rs.Fields(HaveTest) ShowButtonEnd SubPrivate Sub Form_

30、Unload(Cancel As Integer) If MsgBox(真的要退出 & Me.Caption & 嗎？, vbYesNo + vbInformation) = vbNo Then 彈出對(duì)話(huà)框詢(xún)問(wèn)與否退出系統(tǒng) Cancel = 1 Else cnn.Execute update tb_user set havein=0 where userid= & UsId & and UserType=0 End End IfEnd SubPrivate Sub Img_PswCancel_Click() Pte_StuPsw.Visible = False ShowButtonEnd Su

31、bPrivate Sub Img_PswOk_Click()On Error GoTo Err1 如果發(fā)生錯(cuò)誤轉(zhuǎn)向錯(cuò)誤解決 Dim rs As New ADODB.Recordset 聲明結(jié)識(shí)rs為記錄集對(duì)象 Sql = select * from TB_User where UserId= & UsId & & _ and UserType=0 and UserPsw= & Txt_StuPsw.Text & 把驗(yàn)證密碼的SQL語(yǔ)句賦給變量Sql rs.Open Sql, cnn, adOpenStatic, adLockReadOnly 執(zhí)行SQL語(yǔ)句 If Not rs.RecordCo

32、unt 0 Then 如果密碼不對(duì)的 If MsgBox(密碼不對(duì)的，請(qǐng)您重新填寫(xiě)！, vbOKCancel + vbCritical) = vbCancel Then 彈出提示框 Pte_StuPsw.Visible = False 如果單擊取消回到開(kāi)始考試的界面 Else 如果單擊擬定 Txt_StuPsw.Text = 清空Txt_StuPsw Txt_StuPsw.SetFocus 設(shè)立Txt_StuPsw獲得焦點(diǎn) End If Else Pte_UpdatePsw.Visible = True 顯示修改密碼的圖片框 Txt_Id.Text = UsId 顧客帳號(hào)中顯示顧客的帳號(hào) Pt

33、e_StuPsw.Visible = False 隱藏輸入驗(yàn)證碼的圖片框 Txt_Psw.Text = 清空Txt_Psw Txt_SecPsw.Text = Txt_Psw.SetFocus 設(shè)立Txt_Psw獲得焦點(diǎn) End If Exit Sub 結(jié)束結(jié)束Sub過(guò)程Err1: ErrMessageBox 校對(duì)密碼出錯(cuò) 顯示出錯(cuò)信息End SubPrivate Sub Img_Ok_Click()On Error GoTo Err1 如果發(fā)生錯(cuò)誤就轉(zhuǎn)向錯(cuò)誤解決 If Trim(Txt_Psw.Text) = Then 如果密碼為空 MsgBox 密碼不能為空！, vbOKOnly + vb

34、Critical 提示輸入密碼 ElseIf Trim(Txt_Psw.Text) Trim(Txt_SecPsw.Text) Then 如果兩次密碼不同 MsgBox 您兩次輸入的密碼不同樣！, vbOKOnly + vbCritical 提示重新輸入密碼 Txt_Psw.Text = 清空Txt_Psw Txt_SecPsw.Text = 清空Txt_SecPsw Txt_Psw.SetFocus 設(shè)立Txt_Psw獲得焦點(diǎn) Else 如果兩次輸入的密碼相似且不為空 Sql = update tb_user set userpsw= & Txt_Psw.Text & & _ where u

35、serid= & UsId & 修改密碼 cnn.Execute Sql 把密碼寫(xiě)入數(shù)據(jù)庫(kù) MsgBox 修改成功！, vbOKOnly + vbInformation 提示修改成功 Pte_UpdatePsw.Visible = False Pte_UpdatePsw不可見(jiàn) ShowButton End If Exit Sub 跳出Sub過(guò)程Err1: ErrMessageBox 密碼修改出錯(cuò) 顯示提示信息 Call Form_LoadEnd SubPrivate Sub Img_Again_Click() Txt_Psw.Text = Txt_SecPsw.Text = Txt_Psw.S

36、etFocusEnd SubPrivate Sub Img_Cancel_Click() Pte_UpdatePsw.Visible = False ShowButtonEnd SubPrivate Sub Men_AboutTest_Click() frm_Dialog.ShowEnd SubPrivate Sub Men_Help_Click() SendKeys F1End SubPrivate Sub Men_Sele_Click()On Error GoTo Err1 Dim rs As New ADODB.Recordset Sql = select grade from tb_grade where stuid= & UsId & rs.Open