學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)示例

1、學(xué)生信息管理系統(tǒng)（Microsoft SQL SERVER）數(shù)據(jù)庫設(shè)計(jì)示例一、前言隨著我國教育產(chǎn)業(yè)化的飛速發(fā)展，社會對教育水平和教學(xué)管理軟硬件的要求日益提高，尤其是學(xué)校對學(xué)生管理能夠具有一整套完善的教學(xué)管理軟件提出了更多的要求。為了適應(yīng)這種形式，教育系統(tǒng)尤其不僅首先要有堅(jiān)實(shí)的硬件基礎(chǔ)，還要有一整套完善的教學(xué)管理軟件管理系統(tǒng)。而要實(shí)現(xiàn)這一功能，就要求學(xué)校管理者配備一套高效的教育管理網(wǎng)絡(luò)系統(tǒng)，以便在學(xué)校內(nèi)實(shí)施良好的一整套完善的管理且以最快地速度響應(yīng)教師和學(xué)生的需求，及時為他們提供服務(wù)，為他們提供一個高效、便捷的環(huán)境。學(xué)生管理信息系統(tǒng)（MIS）是校園網(wǎng)絡(luò)中一個重要的應(yīng)用系統(tǒng)，它大大了改善學(xué)校教學(xué)、科

2、研與管理的基礎(chǔ)環(huán)境，在一定程度上反映出學(xué)校管理現(xiàn)代化的水平。學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面.對于前者要求建立數(shù)據(jù)一致性和完整性強(qiáng),數(shù)據(jù)安全性好的數(shù)據(jù)庫.而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).學(xué)生信息管理系統(tǒng)主要功能有學(xué)生學(xué)籍管理、成績管理、班級管理、課程管理。學(xué)生學(xué)籍管理主要有添加新學(xué)生學(xué)籍；學(xué)生學(xué)籍修改；學(xué)生學(xué)籍刪除。成績管理包括成績錄入、成績查詢、成績刪除。班級管理包括添加班級、修改班級。課程管理包括設(shè)置課程、添加課程、修改課程。同時系統(tǒng)采用分級使用，即分管理者和普通用戶兩個級別，管理者具有所有功

3、能，普通用戶即有部分功能將限制使用。系統(tǒng)開發(fā)采用Microsoft公司的Visual Basic 6.0，利用其強(qiáng)大的可視化界面功能及對數(shù)據(jù)庫的支持。系統(tǒng)中大量采用SQL查詢語句，界面友好，功能較強(qiáng)。采用Microsoft SQL SERVER系統(tǒng)作為數(shù)據(jù)庫，速度較快，數(shù)據(jù)能共享，能較好地解決訪問速度及數(shù)據(jù)共享的問題。 二 系統(tǒng)功能描述本系統(tǒng)的主要任務(wù)是實(shí)現(xiàn)對學(xué)校的學(xué)生學(xué)籍管理、成績管理、班級管理、課程管理。系統(tǒng)采用分級使用其主要功能包括：1  學(xué)生學(xué)藉管理功能l         添加新學(xué)生學(xué)籍

4、。添加新生的具體數(shù)據(jù)，主要有學(xué)號、姓名、性別、班號、聯(lián)系電話、入學(xué)時間等詳細(xì)信息。l         修改學(xué)籍。將已經(jīng)入庫的學(xué)籍信息進(jìn)行修改、更新、刪除（需要管理員權(quán)限）。l         刪除學(xué)籍。刪除已經(jīng)入庫的學(xué)籍信息（需要管理員權(quán)限）。l         查詢學(xué)籍。根據(jù)學(xué)號、姓名、或班級進(jìn)行黨籍信息查詢。2班級管理功能l  

5、60;      添加班級。添加班號、年級、班主任及教室等內(nèi)容（需要管理員權(quán)限）。l         修改班級。修改、更新、刪除已經(jīng)入庫的班級內(nèi)容（需要管理員權(quán)限）。3  成績管理功能l         添加成績。主要內(nèi)容為考試編號、班號、學(xué)號、姓名、課程及分?jǐn)?shù)（需要管理員權(quán)限）。l        

6、 修改成績。修改、更新、刪除已經(jīng)入庫成績單（需要管理員權(quán)限）。l         查詢成績。按條件進(jìn)行成績查詢。4  課程管理功能l         課程設(shè)置。為每個年級進(jìn)行課程安排。（需要管理員權(quán)限）。l         添加課程。錄入課程名稱、課程編號、課程類型等信息。（需要管理員權(quán)限）。l    

7、60;    修改課程。修改、更新、刪除已經(jīng)入庫的課程信息。（需要管理員權(quán)限）。三、1、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)根據(jù)以上分析規(guī)劃出的實(shí)體有：用戶信息實(shí)體(user_info)、學(xué)生學(xué)籍信息實(shí)體（student_Info）、成績信息實(shí)體（result_Info）、班級課程實(shí)體（gradecourse_Info）、課程實(shí)體（course_Info）及班級實(shí)體（class_Info）。用戶實(shí)體E-R圖用 戶實(shí)體用戶名用戶密碼用戶類型學(xué)生學(xué)籍信息實(shí)體E-R圖學(xué)生學(xué)籍實(shí)體姓名備注聯(lián)系地址入學(xué)時間班級號出生日期性別學(xué)號成績信息實(shí)體E-R圖成績實(shí)體分?jǐn)?shù)課程名班級號姓名學(xué)號考試編號班級

8、課程實(shí)體E-R圖課程名班級號班級課程實(shí)體課程實(shí)體E-R圖課程實(shí)體課程號課程名稱課程類別課程描述班級實(shí)體E-R圖班級實(shí)體班級號年級班主任教室2、數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)（1）用戶表user_Info列 名數(shù)據(jù)類型可否為空說 明user_IDcharNOT NULL用戶名user_PWDcharNULL用戶密碼user_DescharNULL用戶類型（2）學(xué)生學(xué)籍表student_Info列 名數(shù)據(jù)類型可否為空說 明student_IDintNOT NULL主鍵student_NamecharNULL學(xué)生名稱student_SexcharNULL性別born_DatedatetimeNULL出生日期cl

9、ass_NOintNULL班級號tele_NumbercharNULL聯(lián)系電話ru_DatedatetimeNULL入校日期addressvarcharNULL聯(lián)系地址commentvarcharNULL學(xué)生備注（3）成績表（result_Info）列 名數(shù)據(jù)類型可否為空說 明exam_NocharNOT NULL考試編號student_IDintNOT NULL學(xué)號student_NamecharNULL學(xué)生姓名class_NointNULL班號course_NamecharNULL課程名resultfloatNULL分?jǐn)?shù)（4）班級課程表（gradecourse_Info）列 名數(shù)據(jù)類型可否

10、為空說 明gradecharNULL年級course_NamecharNULL課程名（5）課程表（course_Info）列 名數(shù)據(jù)類型可否為空說 明course_NointNOT NULL課程號course_NamecharNULL課程名course_TypecharNULL課程類型course_DescharNULL課程描述（6）班級表（class_Info）列 名數(shù)據(jù)類型可否為空說 明class_NointNOT NULL班號gradecharNULL年級directorcharNULL班主任classroom_NocharNULL教室四、數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)

11、以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)。現(xiàn)在就可以在SQL Server 2000數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。這是利用SQL Server 2000數(shù)據(jù)庫系統(tǒng)中的SQL 查詢分析器實(shí)現(xiàn)的。下面給出創(chuàng)建這些表格的SQL語句。1、 創(chuàng)建用戶表CREATE TABLE dbo.user_Info (user_ID char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL ,user_Des char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON

12、 PRIMARYGO2、創(chuàng)建學(xué)生信息表CREATE TABLE dbo.student_Info (student_ID int NOT NULL ,student_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,student_Sex char (2) COLLATE Chinese_PRC_CI_AS NULL ,born_Date datetime NULL ,class_NO int NULL ,tele_Number char (10) COLLATE Chinese_PRC_CI_AS NULL ,ru_Date datetime NU

13、LL ,address varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,comment varchar (200) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY3、創(chuàng)建成績表CREATE TABLE dbo.result_Info (exam_No char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,student_ID int NOT NULL ,student_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,class_N

14、o int NULL ,course_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,result float NULL ) ON PRIMARY4、創(chuàng)建年級課程表CREATE TABLE dbo.gradecourse_Info (grade char (10) COLLATE Chinese_PRC_CI_AS NULL ,course_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY5、創(chuàng)建課程表CREATE TABLE dbo.course_Info (course_No

15、int NOT NULL ,course_Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,course_Type char (10) COLLATE Chinese_PRC_CI_AS NULL ,course_Des char (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY6、創(chuàng)建班級表CREATE TABLE dbo.class_Info (class_No int NOT NULL ,grade char (10) COLLATE Chinese_PRC_CI_AS NULL ,directo

16、r char (10) COLLATE Chinese_PRC_CI_AS NULL ,classroom_No char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY五、學(xué)生信息管理系統(tǒng)主窗體的創(chuàng)建上面的SQL語句在SQL Server 2000中查詢分析器的執(zhí)行，將自動產(chǎn)生需要的所有表格。有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(jīng)完成?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個功能模塊的實(shí)現(xiàn)，講解如何使用Visual Basic來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。1、創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來存放整個工程項(xiàng)目公用的函數(shù)、過程和全局

17、變量等。這樣可以極大地提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個Module，保存為Module1.bas。下面就可以開始添加需要的代碼了。由于系統(tǒng)中各個功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：'.Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String,

18、 ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib

19、 "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPubl

20、ic fMainForm As frmMainPublic UserName As StringPublic mnUserType As Boolean '判斷用戶類型Sub Main() Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then 'Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain fMainForm.ShowEnd SubPublic Function ConnectStrin

21、g() _ As String'returns a DB ConnectStringConnectString = "Driver=SQL Server;Server=ABS;Database=student;Uid=sa;Pwd=abs;" ' ConnectString = "Provider=SQLOLEDB.1;Password=abs;Persist Security Info=True;User ID=sa;Initial Catalog=student;Data Source=ABS"End FunctionPublic F

22、unction ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset'executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open Connec

23、tString If InStr("INSERT,DELETE,UPDATE", _ UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & _ " query successful" Else Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic 'rst.MoveLast

24、'get RecordCount Set ExecuteSQL = rst MsgString = "查詢到" & rst.RecordCount & _ " 條記錄 " End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error: MsgString = "查詢錯誤: " & _ Err.Description Resume ExecuteSQL_ExitEnd FunctionPub

25、lic Function Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End IfEnd Function2、創(chuàng)建主窗體這個項(xiàng)目我們使用多文檔界面，單擊工具欄中的ADD MDI Form按鈕，產(chǎn)生一個窗體frmmain.代碼如下：'.Private Sub is_usertype()If mnUserType = False Thenfrmsjm.cmdaddsj.Enabled = Falsefrmsjm.cmdmodsj.

26、Enabled = Falsefrmbjm.cmdaddbj.Enabled = Falsefrmbjm.cmdmodbj.Enabled = Falsefrmkcmod.cmdaddkc.Enabled = Falsefrmkcmod.cmdmodkc.Enabled = Falsefrmkcmod.cmdfindkc.Enabled = Falsefrmcjmod.cmdaddcj.Enabled = Falsefrmcjmod.cmdmodcj.Enabled = Falsefrmsjm.cmdaddsj.Enabled = Falsefrmsjm.cmdmodsj.Enabled =

27、Falsefrmsys.cmdaddsys.Enabled = Falsemnuadduser.Enabled = FalseEnd IfEnd SubPrivate Sub bjIMG_Click()frmsjm.Hidefrmkcmod.Hidefrmcjmod.Hidefrmbjm.ShowEnd SubPrivate Sub cjIMG_Click()frmsjm.Hidefrmkcmod.Hidefrmbjm.Hidefrmcjmod.ShowEnd SubPrivate Sub exitIMG_Click()EndEnd SubPrivate Sub ImgHelp_Click()

28、frmhelp.ShowEnd SubPrivate Sub kcIMG_Click()frmsjm.Hidefrmbjm.Hidefrmcjmod.Hidefrmkcmod.ShowEnd SubPrivate Sub MDIForm_Load()Me.Caption = "學(xué)生信息管理系統(tǒng),操作員" & UserName & ""Load frmbjmLoad frmkcmodLoad frmcjmodCall is_usertypeEnd SubPrivate Sub MenuHelp_Click(Index As Integer)

29、frmhelp.ShowEnd SubPrivate Sub mnuadduser_Click()frmAdduser.ShowEnd SubPrivate Sub mnuExit_Click()EndEnd SubPrivate Sub mnupsw_Click()frmModifyuserinfo.ShowEnd SubPrivate Sub sysIMG_Click()frmsys.ShowEnd SubPrivate Sub xjIMG_Click()frmsjm.Showfrmbjm.Hidefrmkcmod.Hidefrmcjmod.HideEnd Sub3創(chuàng)建frmLogin窗體

30、代碼如下：Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongPrivate Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY

31、= &H1'表示當(dāng)前用戶登錄所選擇的身份，即用戶類型, 0-表示教務(wù)管理人員；1-表示學(xué)生Dim UserType As IntegerPublic OK As Boolean'記錄確定次數(shù)Dim miCount As IntegerPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String 'ToDo: create tes

32、t 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 = '" &

33、; txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) And Trim(mrc.Fields(2) = Trim(UserType) Then

34、OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) If UserType = 0 Then mnUserType = True Else mnUserType = False End If Else MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If End If '用戶密碼錯誤的次

35、數(shù)，如果錯誤次數(shù)超過3次，則退出系統(tǒng) miCount = miCount + 1 If miCount = 3 Then MsgBox "您無權(quán)操作本系統(tǒng)!再見！", vbCritical, "無權(quán)限" Unload Me End If Exit SubEnd SubPrivate Sub Form_Load()'設(shè)備半透明窗體 Dim rtn As Long rtn = GetWindowLong(hWnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXST

36、YLE, rtn SetLayeredWindowAttributes hWnd, 0, 200, LWA_ALPHA Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize > 0 Then txtUserName.Text = "" Else txtUserName.Text = vbNullString End If OK = False miCount = 0 optU

37、serType(0).Value = True Image1.ToolTipText = "管理員賬號：admin；密碼：admin;普通用戶賬號：guest;密碼:guest"End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Line1.BorderColor = &HE0E0E0Line2.BorderColor = &HE0E0E0Line3.BorderColor = &HE0E0E0Line4.Bor

38、derColor = &HE0E0E0End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Line1.BorderColor = &HFF&Line2.BorderColor = &HFF&Line3.BorderColor = &HFF&Line4.BorderColor = &HFF&End SubPrivate Sub optUserType_Click(Index As I

39、nteger)UserType = IndexEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThencmdOK.SetFocusEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThentxtPassword.SetFocusEnd IfEnd Sub4、創(chuàng)建frmAddclassinfo窗體代碼如下：Private Sub Command1_Click() Dim mrc

40、 As ADODB.Recordset Dim MsgText As String Dim txtSQL As String If Not Testtxt(txtClassno.Text) Then MsgBox "請輸入班號！", vbOKOnly + vbExclamation, "警告" txtClassno.SetFocus Exit Sub End If If Not Testtxt(comboGrade.Text) Then MsgBox "請選擇年級！", vbOKOnly + vbExclamation, "

41、警告" comboGrade.SetFocus Exit Sub End If If Not Testtxt(txtDirector.Text) Then MsgBox "請輸入班主任姓名！", vbOKOnly + vbExclamation, "警告" txtDirector.SetFocus Exit Sub End If If Not Testtxt(txtClassroom.Text) Then MsgBox "請輸入教室房間號！", vbOKOnly + vbExclamation, "警告"

42、 txtClassroom.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtClassno.Text) Then MsgBox "請輸入數(shù)字！", vbOKOnly + vbExclamation, "警告" Exit Sub txtClassno.SetFocus End If txtSQL = "select * from class_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) If Not mrc.BOF And mrc.EOF T

43、hen mrc.MoveFirst End If While (mrc.EOF = False) If (Trim(mrc.Fields(0) = Trim(txtClassno.Text) Then MsgBox "班號已經(jīng)存在，請重新輸入班號！", vbOKOnly + vbExclamation, "警告" Exit Sub txtClassno.Text = "" txtClassno.SetFocus Else mrc.MoveNext End If Wend mrc.AddNew mrc.Fields(0) = Trim(

44、txtClassno.Text) mrc.Fields(1) = Trim(comboGrade.Text) mrc.Fields(2) = Trim(txtDirector.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update mrc.Close MsgBox "添加班級信息成功！", vbOKOnly + vbExclamation, "添加班級信息"End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Lo

45、ad() comboGrade.AddItem "初中一年級" comboGrade.AddItem "初中二年級" comboGrade.AddItem "初中三年級" comboGrade.AddItem "高中一年級" comboGrade.AddItem "高中二年級" comboGrade.AddItem "高中三年級"End Sub5、創(chuàng)建frmAddcourseinfo窗體代碼如下：'.Private Sub Command1_Click() Dim m

46、rc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String If Not Testtxt(txtCourseno.Text) Then MsgBox "請輸入課程編號！", vbOKOnly + vbExclamation, "警告" txtCourseno.SetFocus Exit Sub End If If Not Testtxt(txtCoursename.Text) Then MsgBox "請輸入課程名稱！", vbOKOnly + vbExclamat

47、ion, "警告" txtCoursename.SetFocus Exit Sub End If If Not Testtxt(comboCoursetype.Text) Then MsgBox "請選擇課程類型！", vbOKOnly + vbExclamation, "警告" comboCoursetype.SetFocus Exit Sub End If If Not Testtxt(txtCoursedes.Text) Then MsgBox "請輸入課程描述信息！", vbOKOnly + vbExcla

48、mation, "警告" txtCoursedes.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtCourseno.Text) Then MsgBox "請輸入數(shù)字編號！", vbOKOnly + vbExclamation, "警告" Exit Sub txtCourseno.SetFocus End If txtSQL = "select * from course_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) W

49、hile (mrc.EOF = False) If (Trim(mrc.Fields(0) = Trim(txtCourseno.Text) Then MsgBox "課程編號已經(jīng)存在，請重新輸入課程編號！", vbOKOnly + vbExclamation, "警告" txtCourseno.Text = "" txtCourseno.SetFocus Exit Sub Else mrc.MoveNext End If Wend mrc.AddNew mrc.Fields(0) = Trim(txtCourseno.Text) m

50、rc.Fields(1) = Trim(txtCoursename.Text) mrc.Fields(2) = Trim(comboCoursetype.Text) mrc.Fields(3) = Trim(txtCoursedes.Text) mrc.Update mrc.Close MsgBox "添加課程信息成功！", vbOKOnly + vbExclamation, "添加課程信息" Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Loa

51、d() comboCoursetype.AddItem "必修" comboCoursetype.AddItem "考查"End Sub6、創(chuàng)建frmAddresult窗體代碼如下：'.Dim Flagselect As BooleanDim Grade As StringPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As Stri

52、ng If Not Testtxt(comboExamtype.Text) Then MsgBox "請輸入考試編號!", vbOKOnly + vbExclamation, "警告" Exit Sub End If If Not Testtxt(comboClassno.Text) Then MsgBox "請選擇班號!", vbOKOnly + vbExclamation, "警告" Exit Sub End If If Not Testtxt(comboSID.Text) Then MsgBox "

53、請選擇學(xué)號!", vbOKOnly + vbExclamation, "警告" Exit Sub End If If Not Testtxt(comboCourse.Text) Then MsgBox "請選擇課程!", vbOKOnly + vbExclamation, "警告" Exit Sub End If If Not Testtxt(txtResult.Text) Then MsgBox "請輸入分?jǐn)?shù)!", vbOKOnly + vbExclamation, "警告" Exi

54、t Sub End If If Not IsNumeric(txtResult.Text) Then MsgBox "分?jǐn)?shù)請輸入數(shù)字!", vbOKOnly + vbExclamation, "警告" Exit Sub End If txtSQL = "select * from result_Info where exam_No = '" & comboExamtype.Text & "' and student_ID = '" & comboSID.Text &a

55、mp; "' and course_Name = '" & comboCourse.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "有相同紀(jì)錄，請重新輸入信息!", vbOKOnly + vbExclamation, "警告" mrc.Close Else mrc.AddNew mrc.Fields(0) = comboExamtype.Text mrc.Fields(1) = comboSID.Text mrc.Fields(2) = txtName.Text mrc.Fields(3) = comboClassno.Text mrc.Fields(4) = comboCourse.Text mr