1、畢 業 論 文 中 文 摘 要學生管理信息系統是典型的管理信息系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的數據庫。而對于后者則要求應用程序功能完備,易使用等特點。本文介紹了利用Visual Basic 6.0與Access相結合的策略開發一個管理信息系統的過程。在這里通過分析某一學校學生管理的不足，創建了一套行之有效的計算機管理學生信息的方案。文章主要介紹了學生管理信息系統的四個個部分：系統概述部分包括系統需求和設計背景等；系統分析部分分析了實體聯系圖和功能層次圖；系統設計部分主要介紹了系統結構設計和

2、數據庫設計等；代碼分析與實現部分主要介紹一些重要的窗口及一些比較重要的代碼。關鍵詞：管理信息系統、學生管理、數據庫、Visual Basic 6.0畢 業 論 文 外 文 摘 要Title Student Management Information System AbstractStudent Management Information System is a typical management information system (MIS), including the development of the main background of the establishment a

3、nd maintenance of database and application development front-end aspects. For the former requirement to establish data consistency and integrity, and data security database. For applications which require full-featured and easy to use and so on.This article describes the use of Visual Basic 6.0 and

4、Access strategy for the combination of a management information system development process. Here through the analysis of a shortage of school management to create a set of effective management of student information computer program. The article mainly introduces the student management information s

5、ystem in four parts: an overview of some of the system, including system requirements and design background; analysis analyzes physical contact maps and functional-level plans; system design introduced some of the major system design and database structure design, etc. ; code analysis and the realiz

6、ation of some of the main window to introduce some important and some of the more important of the code.Keywords：MIS Student Management Data-base Visual Basic 6.0目 次1 引言12 系統概述12.1 系統需求及可行性分析22.1.1 系統需求22.1.2 可行性分析22.2 系統設計的背景33 系統分析33.1 實體聯系圖33.2 功能層次圖44 系統設計54.1 系統結構設計54.1.1 系統方案確定54.1.2 系統結構設計54.

7、2 數據庫設計64.2.1 涉及的數據庫表64.2.2 表的物理結構64.3 系統的界面設計84.3.1 系統登錄界面及主界面設計84.3.2 系統管理模塊界面設計94.3.3 學籍管理模塊界面設計104.3.4 班級管理模塊界面設計104.3.5 課程管理模塊界面設計104.3.6 成績管理模塊界面設計105 代碼分析與實現105.1 系統登陸界面115.2 用戶管理模塊135.3 學生學籍信息管理模塊146 實例演示27結 論29致 謝30參考文獻311 引言近幾年高校擴招，學校的規模越來越大，學生的數量也急劇增加，同時學生的各種信息也成倍增長。面對如此海量的信息，學校在日常工作中就需要一

8、套學生管理信息系統來管理學生學籍、班級、課程和成績等信息以便減少不必要的資源浪費，從而達到精簡機構，提高辦事效率的目的。為此在這里將在Windows XP操作系統環境下利用Visual Basic 6.0簡體中文版與Access數據庫相結合開發一個簡單的學生管理信息系統。該學生管理信息系統包括學生學籍信息管理系統、學生班級信息管理系統、學生課程信息管理系統、學生成績信息管理系統等多種功能，在下面將一一介紹。2 系統概述本學生管理信息系統可以說是一個綜合性的管理信息系統，因為它集成了學生學籍管理系統、學生班級管理系統、學生課程管理系統、學生成績管理系統等多種功能在一起，并且具有較強的實用性和先進

9、性。因為學生信息一般包括學籍信息、班級信息、課程信息和成績信息等，又考慮到學校的一些需求，所以該學生管理信息系統主要包括系統、學籍管理、班級管理、課程管理、成績管理和幫助幾個模塊。（1）系統模塊的主要任務是維護系統的正常運行和安全性設置，包括添加用戶、修改密碼、退出系統三個模塊。（2）學籍管理模塊的功能是實現對學生的學籍信息的管理，包括添加學籍信息、修改學籍信息和查詢學籍信息三個模塊，這三個功能模塊能夠各自獨立完成學生學籍信息的相應管理。（3）班級管理模塊的主要功能是實現對全校班級信息的管理，該模塊包括添加班級信息和修改班級信息兩個模塊，從而方便學校管理部門對學校的班級情況進行管理。（4）課程

10、管理模塊可以對各個班級的課程進行添加、修改和設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。該模塊包括添加課程信息、修改課程信息和設置班級課程三個模塊。（5）學校的成績管理工作是檢驗學生學習情況的一個主要手段，其中設置了添加成績信息、修改成績信息和查詢成績信息三個功能模塊。（6）幫助模塊能夠為使用該系統的用戶提供一定的幫助，讓用戶更加了解本系統并正確的使用。該學生管理信息系統可作為數據庫信息系統的一種應用，所以其開發流程主要包括系統概述、系統分析、系統設計和代碼的分析與實現等。具體的內容將在下面內容中一一闡述。2.1 系統需求及可行性分析2.1.

11、1 系統需求通過調查和分析,要求該系統需要有以下幾個功能:（1）由于操作人員的計算機知識各不相同,要求必須有良好的人機界面以便于不同的用戶來操作。（2）該系統的使用對象多,因此要求有較好的權限管理;。（3）原始數據修改簡單方便,并且支持多條件修改。（4）方便的數據查詢，并且支持多條件查詢。（5）在相應的管理權限下，刪除數據方便簡單，數據穩定性好。（6）數據計算自動完成，盡量減少人工干預。2.1.2 可行性分析1) 技術可行性分析本系統采用Visual Basic語言和Access數據庫在Windows XP操作系統上實現，在技術上是可行的。而且學校用于學生管理的微機一般在存儲量、速度方面都能滿

12、足數據庫運行的要求。在技術難度方面，由于有指導老師的指導、相關參考文獻和網上資料，特別是參考其它程序的功能，因此完全可以實現。2) 經濟可行性分析在開發系統方面，可以利用現有機器設備，不必進行另外的硬件設備投資；在效益方面，本系統運行可以提高學生信息管理的效率，減輕老師的工作量，滿足師生查詢的需要，減少學校管理部門的不必要的操作。3) 社會可行性分析本系統與學校緊密相關，其管理的對象單一，都是在校學生，且每個數據內容都具有較強的關聯性，涉及的計算過程也不是很復雜。而且，目前已有很多成功的學生管理信息系統的先例，因此，該系統具有可行性。綜上所述，經過經濟、技術、社會等方面的可行性分析，可以確定本

13、系統的開發完全必要，而且是可行的，能夠實現的。2.2 系統設計的背景本系統的設計是在Windows XP操作系統環境下，使用Visual Basic 6.0中文版結合Access數據庫開發成功的。Visual Basic是一種可視化的、面對對象和調用事件驅動方式的結構化高級程序設計語言，可用于開發Windows環境下的應用程序。它簡單易學、效率高且功能強大，并且程序開發人員也不必具有C/C+編程基礎就可以運用。在Visual Basic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的應用程序接口(API)函數，以及動態鏈接庫(DLL)、動態數據交換(DDE)、

14、對象的鏈接與嵌入(OLE)、開放式數據訪問(ODBC)等技術，可以高效、快速地開發出Windows環境下功能強大、圖形界面豐富的應用軟件系統。Access數據庫是由Microsoft推出的，它是微軟集成到Office中的一個桌面數據庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數據庫系統都采用Access作為后臺數據庫。使用Access的好處還在于：如果系統擴展到Client/Server模式的時候也可以使用Microsoft的數據庫服務器軟件SQL Server，此時，程序只需要簡單的修改一下鏈接（ADO的數據源）就可以，這樣為程序的

15、平滑擴展提供了非常有力的條件。3 系統分析3.1 實體聯系圖1、首先來做出學生成績管理系統的E-R圖，分析這個問題的實體。從系統分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統的三個實體。2、再分析三個實體之間的聯系。首先，這三個實體不是一個統一體，學生成績與教師沒有內在聯系，教師必須通過課程實體才能與學生建立聯系，因而先不考慮。課程與學生這兩個實體是多對多聯系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應填在二者的聯系“學習”邊。因為成績既不是學生獨有的，也不是課程獨有的；“學生甲70分”或“英語

16、70分”是不完全的，說“學生甲英語70分”才是正確的，因為70分是學生甲和英語課二者共有的。這個E-R圖可畫成圖3-1。學生課程成績學習mn 圖3-1 學生和課程的實體聯系圖教師與課程這兩個實體之間，是一對多聯系；一位教師可以都多門課程，而一門課程對于學生成績來說只能有一位教師(英語、高等數學有多位教師教，但對某個固定的學生來說只能有一位教師)。其E-R圖如圖3-2所示。教師課程教學ln 圖3-2 教師和課程的實體聯系圖其它管理系統的實體聯系圖可參照學生成績管理系統的E-R圖進行分析。3.2 功能層次圖根據系統的功能可以繪制出系統的功能層次圖，如圖3-3所示：學生管理信息系統登錄系統管理學 籍

17、 管 理班 級 管 理課 程 管 理成 績 管 理添 加 用 戶修 改 密 碼退 出 系 統添 加 學 籍 信 息查 詢 學 籍 信 息修 改 學 籍 信 息添 加 班 級 信 息修 改 班 級 信 息添 加 課 程 信 息修 改 課 程 信 息設 置 班 級 課 程修 改 成 績 信 息添 加 成 績 信 息查 詢 成 績 信 息圖3-3 系統功能層次圖4 系統設計4.1 系統結構設計4.1.1 系統方案確定通過對系統的調研與分析，系統主要應完成的功能有：系統管理、學生學籍管理、學生班級管理、學生課程管理、學生成績管理等。4.1.2 系統結構設計本系統在執行時，先根據不同的操作人員的需要來進

18、行相應的模塊，然后可以輸入數據或者進行其它的查詢或瀏覽等操作；總體來說，本系統屬于一個事務型管理系統。系統的具體結構設計圖如圖4-1所示。接受數據處理中心系統管理 理 理理學籍管理班級管理課程管理成績管理打印報表 圖4-1 系統結構設計圖4.2 數據庫設計該系統的數據庫采用了Microsoft推出的Access數據庫，其中涉及到多張數據庫表。4.2.1 涉及的數據庫表本系統中所涉及到的主要實體共有九個數據庫表：Allkecheng表：課程名稱，教材Cj表：學號，學期，類型，課程名稱，分數Class表：年級，班級，教室，年制，專業，班主任，備注Classkecheng表：年級，專業，年制，學期，

19、課程名稱Kaoshileixing表：類型Use表：username,password,admin,readonly,qx1,qx2,qx3,qx4Xj表：學號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯系電話，入學時間，備注4.2.2 表的物理結構各表的物理結構如表所示：Cj表如表4-1所示：表4-1 成績表字段名稱類型寬度小數位學號文本10學期文本50類型文本16課程名稱文本20分數單精度型數字自動Class表如表4-2所示：表4-2 班級表字段名稱類型寬度小數位年級文本16班級文本20教室文本5年制文本8專業文本16班主任文本8備注備注Classkecheng表如表4-3所示：表

20、4-3 班級課程表字段名稱類型寬度小數位年級文本16專業文本12年制文本8學期文本50課程名稱文本20Use表如表4-4所示：表4-4 用戶表字段名稱類型寬度小數位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2Xj表如表4-5所示：表4-5 學籍表字段名稱類型寬度小數位學號文本9姓名文本8性別文本2班級文本10出生年月日期/時間家庭住址文本30郵政編碼數字（長整型）聯系電話數字（長整型）入學時間日期/時間備注備注4.3 系統的界面設計4.3.1 系統登錄界面及主界面設計進行完一些必要的分析后就要考慮界面的設

21、計了。運行本系統之前首先要進行登陸，登陸界面如圖4-2所示。在登錄界面中輸入正確的用戶名和密碼后單擊“確定”即可進入主界面進行相應的操作了。圖4-2 系統登陸界面圖根據需要該系統要實現學生學籍信息、班級信息、課程信息、成績信息等相關信息的管理，所以該信息系統包括以下幾個功能模塊：系統管理、學籍管理、班級管理、課程信息、成績管理和幫助。該系統主界面如圖4-3所示，選擇相應的模塊就可以進行各個模塊的相應操作了。圖4-3 系統主界面圖4.3.2 系統管理模塊界面設計該模塊的主要任務是維護系統的正常運行和安全性設置,包括添加用戶、修改密碼、退出系統三個模塊。界面如圖4-4所示（由于其他幾個模塊的界面類

22、似于本模塊，所以下面內容的中將不再列出界面圖）。圖4-4 系統管理模塊界面圖4.3.3 學籍管理模塊界面設計該模塊的功能是實現對學生的學籍信息進行管理，包括添加學籍信息、修改學籍信息和查詢學籍信息三個模塊，這三個功能模塊能夠各自獨立完成學生學籍信息的管理。4.3.4 班級管理模塊界面設計該模塊的主要功能是實現對全校班級信息的管理，包括添加班級信息和修改班級信息兩個模塊，從而方便學校管理部門對學校的班級情況進行管理。4.3.5 課程管理模塊界面設計該模塊對各個班級的課程進行添加、修改和設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。該模塊包括添加課

23、程信息、修改課程信息和設置班級課程三個模塊。4.3.6 成績管理模塊界面設計學校的成績管理工作是檢驗學生學習情況的一個主要手段,其中設置了添加成績信息、修改成績信息和查詢成績信息三個功能模塊。5 代碼分析與實現本部分主要內容是介紹本系統的一些主要界面及相應的源代碼。5.1 系統登陸界面本界面的主要功能是為了對系統進行安全性管理，本系統的用戶名和密碼保存在Use表中，本系統根據不同的用戶而設置了不同的權限。具體界面如圖4-2所示，代碼如下所示。Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Spa

24、ce$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then txtUserName.Text = Else txtUserName.Text = vbNullString End If OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset

25、Dim MsgText As String ToDo: create test for correct password check for correct password UserName = If Trim(txtUserName.Text = ) Then MsgBox 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else txtSQL = select * from user_Info where user_ID = & txtUserName.Text & Set mrc = Execute

26、SQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 沒有這個用戶，請重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 txtPa

27、ssword.SetFocus txtPassword.Text = End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd Sub5.2 用戶管理模塊本模塊是本系統的安全性設置模塊，由管理員根據學校不同部門以及不同使用人員對本系統的要求和需要為其分配權限，并且添加新用戶。圖5-1是系統管理模塊中添加用戶的界面。圖5-1 系統管理模塊中添加用戶的界面圖具體代碼如下：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate

28、Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = & UserName & Set mrc = ExecuteSQL(txtSQL, M

29、sgText) mrc.Fields(1) = Text1(1).Text mrc.Update mrc.Close MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 修改密碼 Me.Hide End IfEnd Sub5.3 學生學籍信息管理模塊學生學籍信息管理模塊的具體界面如圖5-2所示。圖5-2 學生學籍信息管理模塊的具體界面圖在該模塊中選擇“添加學籍信息”將出現圖5-3所示界面，在這個界面上可以向系統中添加學生的學籍信息。具體的代碼如下所示。圖5-3 添加學籍信息模塊圖Private Sub Command1_Click() Dim mrc As AD

30、ODB.Recordset Dim txtSQL As String Dim MsgText As String If Not Testtxt(txtSID.Text) Then MsgBox 請輸入學號！, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit SubEnd If (添加學生其他信息的方法可參照添加學號的方法)If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 請輸入數字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End

31、 If txtSQL = select * from student_Info where student_ID = & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 學號重復，請重新輸入！, vbOKOnly + vbExclamation, 警告 mrc.Close txtSID.SetFocus Else mrc.Close If Not IsDate(txtBorndate.Text) Then MsgBox 出生時間應輸入日期格式（yyyy-mm-dd）

32、！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) If Not IsDate(txtRudate.Text) Then MsgBox 入校時間應輸入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtRudate.SetFocus Else txtRudate = Format(txtRudate, yyyy-mm-dd) txtSQL = select * from student_In

33、fo Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboSex.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassNo.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtRudate

34、.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtComment.Text) mrc.Update MsgBox 添加學籍信息成功！, vbOKOnly + vbExclamation, 警告 mrc.Close Me.Hide End If End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim mrc As ADODB.Recordset Dim txtSQL As Stri

35、ng Dim MsgText As String Dim i As Integer comboSex.AddItem 男 comboSex.AddItem 女 txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 1 To mrc.RecordCount comboClassNo.AddItem mrc.Fields(0) mrc.MoveNext Next i mrc.CloseEnd Sub在該模塊中選擇“修改學籍信息”將出現圖5-4所示界面，在這個界面上可以修改系統中已有的學生的學籍

36、信息。具體的代碼如下所示。圖5-4 修改學籍信息模塊圖Dim mrc As ADODB.RecordsetDim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click() mcclean = False Frame2.Enabled = False firstCommand.Enabled = False previousCommand.Enabled = False nextCommand.Enabled = False lastCommand.Enabled = False txtSID.Enabl

37、ed = True txtName.Enabled = True comboSex.Enabled = True txtBorndate.Enabled = True comboClassNo.Enabled = True txtRudate.Enabled = True txtTel.Enabled = True txtAddress.Enabled = True txtComment.Enabled = True myBookmark = mrc.BookmarkEnd SubPrivate Sub cancelCommand_Click() If Not mcclean Then Fra

38、me2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = True txtSID.Enabled = False txtName.Enabled = False comboSex.Enabled = False txtBorndate.Enabled = False comboClassNo.Enabled = False txtRudate.Enabled = False txtTel.Enable

39、d = False txtAddress.Enabled = False txtComment.Enabled = False mrc.Bookmark = myBookmark Call viewData Else MsgBox 什么都沒有修改，確定取消？, vbOKOnly + vbExclamation, 警告End IfEnd SubPrivate Sub deleteCommand_Click() myBookmark = mrc.Bookmark str2$ = MsgBox(是否刪除當前記錄？, vbOKCancel, 刪除當前記錄) If str2$ = vbOK Then m

40、rc.MoveNext If mrc.EOF Then mrc.MoveFirst myBookmark = mrc.Bookmark mrc.MoveLast mrc.Delete mrc.Bookmark = myBookmark Call viewData Else myBookmark = mrc.Bookmark mrc.MovePrevious mrc.Delete mrc.Bookmark = myBookmark Call viewData End If Else mrc.Bookmark = myBookmark Call viewData End IfEnd SubPriv

41、ate Sub firstCommand_Click() mrc.MoveFirst Call viewDataEnd SubPrivate Sub Form_Load() Dim txtSQL As String Dim MsgText As String txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveFirst Call viewData mcbookmark = mrc.Bookmark mcclean = TrueEnd SubPublic Sub viewData()

42、 txtSID.Text = mrc.Fields(0) txtName.Text = mrc.Fields(1) comboSex.Text = mrc.Fields(2) txtBorndate.Text = Format(mrc.Fields(3), yyyy-mm-dd) comboClassNo.Text = mrc.Fields(4) txtTel.Text = mrc.Fields(5) txtRudate.Text = Format(mrc.Fields(6), yyyy-mm-dd) txtAddress.Text = mrc.Fields(7) txtComment.Tex

43、t = mrc.Fields(8)End SubPrivate Sub lastCommand_Click() mrc.MoveLast Call viewDataEnd SubPrivate Sub nextCommand_Click() mrc.MoveNext If mrc.EOF Then mrc.MoveFirst End If Call viewDataEnd SubPrivate Sub previousCommand_Click() mrc.MovePrevious If mrc.BOF Then mrc.MoveLast End If Call viewDataEnd Sub

44、Private Sub updateCommand_Click() Dim txtSQL As String Dim MsgText As String Dim mrcc As ADODB.Recordset If mcclean Then MsgBox 請先修改學籍信息, vbOKOnly + vbExclamation, 警告 Exit Sub End If (這部分修改學生學籍信息的代碼類似于添加學生學籍信息的代碼，在這里將不再贅述) End Sub在該模塊中選擇“查詢學籍信息”將出現圖5-5所示界面，在這個界面上可以查詢系統中所有學生的學籍信息。具體的代碼如下所示。圖5-5 查詢學籍信

45、息模塊圖Private Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As ADODB.Recordset txtSQL = select * from student_Info where If Check1(0).Value Then If Trim(txtSID.Text) = Then sMeg = 學號不能為空 MsgBox sMeg, vbOKOnly

46、+ vbExclamation, 警告 txtSID.SetFocus Exit Sub Else If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 請輸入數字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End If dd(0) = True txtSQL = txtSQL & student_ID = & Trim(txtSID.Text) & End If End If If Check1(1).Value Then If Trim(txtName.Text) = Then s

47、Meg = 姓名不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtName.SetFocus Exit Sub Else dd(1) = True If dd(0) Then txtSQL = txtSQL & and student_Name = & txtName.Text & Else txtSQL = txtSQL & student_Name = & txtName.Text & End If End If End If If Check1(2).Value Then If Trim(txtClassno.Text) = Then sMe