學(xué)生信息管理系統(tǒng)_數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告

1、成績(jī)數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計(jì)報(bào)告設(shè)計(jì)題目： 圖書管理系統(tǒng)學(xué)生姓名朱圣堯?qū)W號(hào)20080508135專業(yè)名稱08計(jì)應(yīng)專日期2010.12。22設(shè)計(jì)名稱：學(xué)生信息管理系統(tǒng)設(shè)計(jì)內(nèi)容：設(shè)計(jì)一個(gè)學(xué)生信息管理系統(tǒng)設(shè)計(jì)目的與要求:采用VB和SQL Server設(shè)計(jì)一個(gè)學(xué)生管理系統(tǒng)，并使系統(tǒng)達(dá)到以下功能:(1)大大提高學(xué)校管理的運(yùn)作效率;(2）快捷，有效的處理學(xué)生的各種信息，通過全面的信息采集和處理，輔助提高管理水平；（3)使用本系統(tǒng)，可以迅速提升學(xué)生的管理水平，為提高效益，方便用戶查詢， 提供有效的技術(shù)保障。設(shè)計(jì)環(huán)境或器材、原理與說明:前臺(tái)開發(fā)工具：Vasual Basic 6.0后臺(tái)數(shù)據(jù)庫工具：SQL Se

2、rver 2000設(shè)計(jì)過程（步驟)或程序代碼：1需求分析1.1相關(guān)功能要求:1)添加：可以添加學(xué)生學(xué)籍信息、課程信息、班級(jí)信息、成績(jī)信息2）查詢：可以查詢學(xué)生學(xué)籍信息、課程信息、班級(jí)信息、成績(jī)信息3)修改：可以修改學(xué)生學(xué)籍信息、課程信息、班級(jí)信息、成績(jī)信息1。2 數(shù)據(jù)流圖:學(xué)生信息管理的第一層數(shù)據(jù)流圖：教務(wù)處學(xué)院學(xué)生考試1.0學(xué)生注冊(cè)2.0安排3.0分配4.0成績(jī)輸入學(xué)生信息表班級(jí)信息表年級(jí)課程信息表班級(jí)課程信息表成績(jī)信息表圖1。1學(xué)生信息的第二層數(shù)據(jù)流圖：教務(wù)處1.1登錄1.21添加學(xué)生信息1.22修改學(xué)生信息班級(jí)信息表學(xué)生信息表1.23刪除學(xué)生成績(jī)表圖1。2班級(jí)信息和課程信息的第二層數(shù)據(jù)流

3、圖:學(xué)院2.1登錄2.21修改班級(jí)信息2.22刪除班級(jí)信息2.23添加班級(jí)信息2.24修改年級(jí)信息2.25刪除年級(jí)信息2.26添加年級(jí)信息年級(jí)課程信息表3.21修改班級(jí)課程信息3.22刪除班級(jí)課程信息3.23添加班級(jí)課程信息班級(jí)課程信息表 圖1。3學(xué)生成績(jī)信息的第二層數(shù)據(jù)流圖:學(xué)生4.1考試4.2錄入成績(jī)成績(jī)表課程信息表圖1。41.3相關(guān)的數(shù)據(jù):1)數(shù)據(jù)項(xiàng)：學(xué)生學(xué)號(hào)含義說明:惟一標(biāo)識(shí)一個(gè)學(xué)生 別名：student_ID類型：字符型整型長(zhǎng)度：8取值范圍：00000000-99999999取值含義：前兩位表示入學(xué)年份的后兩位，第3、4位表示學(xué)院代號(hào)，第5、6位表示專業(yè)代號(hào)，最后兩位表示報(bào)到序號(hào)2）

4、數(shù)據(jù)結(jié)構(gòu)：學(xué)生含義說明:定義了一個(gè)描述學(xué)生的信息結(jié)構(gòu)組成：學(xué)生編號(hào)、學(xué)生姓名、學(xué)生性別、出生年月、班級(jí)編號(hào)、電話號(hào)碼、入學(xué)日期、家庭住址數(shù)據(jù)結(jié)構(gòu)：課程含義說明：定義了一個(gè)描述課程的信息結(jié)構(gòu)組成:課程編號(hào)、課程名稱、課程類型數(shù)據(jù)結(jié)構(gòu)：班級(jí)含義:定義了一個(gè)描述班級(jí)的信息組成:班級(jí)編號(hào)、班級(jí)所屬的年級(jí)、班主任、教室數(shù)據(jù)結(jié)構(gòu):成績(jī)含義：定義了一個(gè)描述成績(jī)的信息組成：成績(jī)總評(píng)、課程名稱、考試成績(jī)3）數(shù)據(jù)流：成績(jī)管理信息說明：表示學(xué)生與課程的關(guān)系數(shù)據(jù)流來源：學(xué)生信息表、課程信息表數(shù)據(jù)流去向：成績(jī)信息表組成：學(xué)生編號(hào)、課程編號(hào)數(shù)據(jù)流：課程安排信息說明：表示年級(jí)和課程的關(guān)系數(shù)據(jù)流來源:班級(jí)信息表、課程信息表數(shù)

5、據(jù)流去向：課程安排表組成:年級(jí)、課程名稱4）數(shù)據(jù)存儲(chǔ)：班級(jí)信息表、課程信息表、課程安排表、成績(jī)信息表、學(xué)生學(xué)籍信息表說明：記錄學(xué)生、班級(jí)、成績(jī)、課程的情況流入數(shù)據(jù)流：學(xué)籍管理信息、課程管理信息、班級(jí)管理信息流出數(shù)據(jù)流：課程安排信息、成績(jī)管理信息組成：學(xué)生編號(hào)、學(xué)生姓名、課程名稱、班級(jí)編號(hào)、考試成績(jī)、年級(jí)存取方式:隨即存取5)處理過程：添加、修改、刪除學(xué)生學(xué)籍信息、課程信息、班級(jí)信息、成績(jī)信息說明:完成學(xué)籍、課程、班級(jí)、成績(jī)的各種操作輸入：學(xué)生編號(hào)、班級(jí)編號(hào)、課程名稱、輸出：學(xué)生學(xué)籍信息、課程信息、班級(jí)信息、成績(jī)信息的添加、刪除、修改結(jié)果處理：如果有新生入學(xué),就要進(jìn)行學(xué)生各種信息的添加；如果有畢

6、業(yè)生離校,就要對(duì)學(xué)生的各種信息進(jìn)行刪除；如果某個(gè)學(xué)生的信息需要修改,則對(duì)其相應(yīng)的信息進(jìn)行修改2概念結(jié)構(gòu)設(shè)計(jì)1)學(xué)生實(shí)體E_R圖：學(xué)生學(xué)生學(xué)號(hào)學(xué)生性別學(xué)生出生日期所屬班級(jí)號(hào)電話號(hào)碼入學(xué)年份學(xué)生姓名家庭地址備注2）班級(jí)實(shí)體E_R圖: 班級(jí)班號(hào)所在班級(jí)班主任所在教室3）課程實(shí)體E_R圖：課程課程名稱課程類型課程描述4)年級(jí)實(shí)體E_R圖： 年級(jí)年級(jí)名稱課程名5)成績(jī)實(shí)體E_R圖：成績(jī)總評(píng)學(xué)生學(xué)號(hào)學(xué)生姓名班級(jí)號(hào)課程名稱成績(jī)6）實(shí)體和實(shí)體之間的E_R圖：學(xué)生屬于班級(jí)屬于年級(jí)學(xué)習(xí)課程成績(jī)考試成績(jī)_課程學(xué)習(xí)3。邏輯結(jié)構(gòu)設(shè)計(jì)現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL Server 2000數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際

7、數(shù)據(jù)模型,也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。在上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上,形成數(shù)據(jù)庫中的表格以及各個(gè)表格之間的關(guān)系。Student_Info學(xué)生信息表 列名數(shù)據(jù)類型可否為空說明Student_IDint（4）Not null學(xué)生學(xué)號(hào)（主鍵）Student_NameChar（10）Null學(xué)生姓名Stdent_SexChar（2）Null學(xué)生性別Born_DateDatetime（8）Null出生日期Class_NOInt（4）Null班號(hào)Tele_NumberVarchar(12)Null聯(lián)系電話Ru_DateDatetime（8）Null入校時(shí)間AddressVarchar（50）Null家庭

8、地址CommentVarchar（200）Null注釋Class_Info班級(jí)信息表格列名數(shù)據(jù)類型可否為空說明Class_NoInt(4）null班號(hào)(主鍵）GradeChar（10）Null年級(jí)DirectorChar（20）Null班主任Classroom_NoChar（10）Null教室Course_Info課程基本信息表列名數(shù)據(jù)類型可否為空說明Course_NameChar(10）Not null課程名稱(主鍵）Course_TypeChar(10）Null課程類型Course_DesChar（20)Null課程描述Gradecourse_Info年級(jí)課程設(shè)置表列名數(shù)據(jù)類型可否為空說明

9、GradeChar(10）null年級(jí)Course_NameChar（10）Null課程名稱Result_Info學(xué)生成績(jī)表列名數(shù)據(jù)類型可否為空說明Exam_NoChar(10)null考試類型Student_IDInt（4）Null學(xué)生學(xué)號(hào)Student_NameChar(10）Null學(xué)生姓名Class_NoInt（4）Null學(xué)生班號(hào)Course_NameChar（10)Null課程名稱ResultFloat（8）Null分?jǐn)?shù)User_Info系統(tǒng)用戶表列名數(shù)據(jù)類型可否為空說明User_IDChar（10)null用戶名稱User_PWDChar（10）Null用戶密碼User_DesC

10、har(10）Null用戶描述4物理結(jié)構(gòu)的設(shè)計(jì)建立的索引建立的約束關(guān)系5數(shù)據(jù)庫的實(shí)施 5.1 用戶表的SQL語句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 PRIMARY5.2學(xué)生表的SQL語句CREATE TABLE dbo。student_Info （studen

11、t_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 NULL ，address varchar （50） COLLATE Chinese_PRC_CI_AS NULL

12、,） ON PRIMARY5.3班級(jí)表的SQL語句CREATE TABLE dbo.class_Info (class_No int NOT NULL ，grade char （10) COLLATE Chinese_PRC_CI_AS NULL ，director char （10） COLLATE Chinese_PRC_CI_AS NULL ,classroom_No char (10) COLLATE Chinese_PRC_CI_AS NULL ） ON PRIMARY5。4課程表的SQL語句CREATE TABLE dbo.course_Info (course_No int NO

13、T NULL ,course_Name char (10） COLLATE Chinese_PRC_CI_AS NULL ，course_Type char (10） COLLATE Chinese_PRC_CI_AS NULL ,） ON PRIMARY5.5課程設(shè)置表的SQL語句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。6 成績(jī)表的SQ

14、L語句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_No int NULL ,course_Name char (10） COLLATE Chinese_PRC_CI_AS NULL ，result float NULL ） ON PRIMARY5。7寫進(jìn)相關(guān)數(shù)據(jù)5.71建立用戶表5.72建立學(xué)生信息表5

15、。73建立班級(jí)信息表5。73建立課程信息表5。74建立課程設(shè)置表5.75建立成績(jī)表5.8 VB模塊中與SQL Sever 2000連接的關(guān)鍵代碼ConnectString = ”Provider=SQLOLEDB。1；Integrated Security=SSPI;Persist Security Info=False；Initial Catalog=Student；datasource=”5.9關(guān)系圖6詳細(xì)設(shè)計(jì)6。1 學(xué)生信息管理系統(tǒng)功能學(xué)生信息管理系統(tǒng)實(shí)現(xiàn)的功能：管理員登陸與修改密碼,學(xué)生信息的添加、刪除與修改,班級(jí)信息的添加,修改，課程的設(shè)置、添加，成績(jī)的紀(jì)錄、修改與刪除,以及對(duì)學(xué)生的

16、各個(gè)信息的查詢。6.2 功能模塊的實(shí)現(xiàn)（VB代碼）1.用戶登錄的設(shè)置:用于設(shè)置用戶的基本信息，包括用戶名和密碼（修改）以及用戶的退出。修改Private Sub cmdCancel_Click（) Unload MeEnd SubPrivate 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, &quo

17、t;警告” Text1（1)。SetFocusText1(1）。Text = "” Else txtSQL = "select * from user_Info where user_ID = ” UserName "'” Set mrc = ExecuteSQL(txtSQL, MsgText） mrc。Fields（1） = Text1（1）。Text mrc。Update mrc。Close MsgBox ”密碼修改成功!”， vbOKOnly + vbExclamation， ”修改密碼” Me。Hide End If End Sub2.學(xué)生信息的

18、設(shè)置：用于學(xué)生基本信息的查詢、修改和添加學(xué)生的信息,包括學(xué)生的學(xué)號(hào)、姓名、性別、班號(hào)、出生日期、入學(xué)年份、家庭住址以及備注。添加Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String If Not Testtxt（txtSID.Text） Then MsgBox "請(qǐng)輸入學(xué)號(hào)！”， vbOKOnly + vbExclamation， ”警告” txtSID.SetFocus Exit Sub End If If Not Testtxt（txtN

19、ame。Text) Then MsgBox ”請(qǐng)輸入姓名！”， vbOKOnly + vbExclamation， ”警告” txtName。SetFocus Exit Sub End If If Not Testtxt（comboSex。Text） Then MsgBox "請(qǐng)選擇性別！"， vbOKOnly + vbExclamation, ”警告” comboSex。SetFocus Exit Sub End If If Not Testtxt(txtBorndate。Text） Then MsgBox ”請(qǐng)輸入出生日期！”, vbOKOnly + vbExclama

20、tion, "警告” txtBorndate。SetFocus Exit Sub End If If Not Testtxt（comboClassNo。Text) Then MsgBox ”請(qǐng)選擇班號(hào)！”, vbOKOnly + vbExclamation, ”警告” comboClassNo。SetFocus Exit Sub End If If Not Testtxt（txtTel。Text） Then MsgBox ”請(qǐng)輸入聯(lián)系電話！”， vbOKOnly + vbExclamation, ”警告" txtTel。SetFocus Exit Sub End If If

21、 Not Testtxt（txtRudate.Text) Then MsgBox "請(qǐng)輸入入校日期！”， vbOKOnly + vbExclamation， ”警告" txtRudate.SetFocus Exit Sub End If If Not Testtxt(txtAddress.Text） Then MsgBox ”請(qǐng)輸入家庭住址！”， vbOKOnly + vbExclamation， "警告” txtAddress。SetFocus Exit Sub End If If Not IsNumeric(Trim（txtSID。Text)） Then Ms

22、gBox ”請(qǐng)輸入數(shù)字！"， vbOKOnly + vbExclamation, "警告" Exit Sub txtSID.SetFocus End If txtSQL = ”select * from student_Info where student_ID = '” & Trim（txtSID。Text） "'” Set mrc = ExecuteSQL（txtSQL， MsgText) If mrc。EOF = False Then MsgBox ”學(xué)號(hào)重復(fù),請(qǐng)重新輸入！”, vbOKOnly + vbExclamatio

23、n, ”警告” mrc。Close txtSID.SetFocus Else mrc.Close If Not IsDate（txtBorndate.Text） Then MsgBox "出生時(shí)間應(yīng)輸入日期格式（yyyymmdd）！”， vbOKOnly + vbExclamation， "警告” txtBorndate。SetFocus Else txtBorndate = Format(txtBorndate， "yyyymm-dd”） If Not IsDate（txtRudate.Text） Then MsgBox ”入校時(shí)間應(yīng)輸入日期格式(yyyy-mm

24、-dd）！”， vbOKOnly + vbExclamation， ”警告" txtRudate.SetFocus Else txtRudate = Format(txtRudate， ”yyyymmdd"） txtSQL = ”select from student_Info” Set mrc = ExecuteSQL（txtSQL， MsgText) mrc.AddNew mrc.Fields(0） = Trim（txtSID。Text) mrc。Fields（1) = Trim(txtName。Text） mrc。Fields(2） = Trim（comboSex.T

25、ext） mrc。Fields(3） = Trim（txtBorndate.Text） mrc。Fields(4) = Trim（comboClassNo。Text） mrc.Fields（5) = Trim（txtTel.Text) mrc.Fields（6） = Trim（txtRudate.Text) mrc。Fields（7） = Trim(txtAddress.Text） mrc.Update MsgBox "添加學(xué)籍信息成功!"， vbOKOnly + vbExclamation, "警告” mrc.Close Me.Hide End If End I

26、f End If End SubPrivate Sub Command2_Click(） Unload MeEnd SubPrivate Sub Form_Load（) Dim mrc As ADODB。Recordset Dim txtSQL As String Dim MsgText As String Dim i As Integer comboSex。AddItem ”男” comboSex。AddItem ”女" txtSQL = ”select from class_Info ” Set mrc = ExecuteSQL（txtSQL， MsgText） For i =

27、1 To mrc.RecordCount comboClassNo。AddItem mrc。Fields（0) mrc。MoveNext Next i mrc.CloseEnd SubPrivate Sub txtComment_Change（）End Sub修改Dim mrc As ADODB。RecordsetDim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click（） mcclean = False Frame2。Enabled = False firstCommand.Enabled = F

28、alse previousCommand。Enabled = False nextCommand。Enabled = False lastCommand。Enabled = False txtSID.Enabled = True txtName.Enabled = True comboSex。Enabled = True txtBorndate。Enabled = True comboClassNo。Enabled = True txtRudate。Enabled = True txtTel.Enabled = True txtAddress。Enabled = TrueEnd SubPriv

29、ate Sub cancelCommand_Click（) If Not mcclean Then Frame2。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。En

30、abled = False txtRudate.Enabled = False txtTel。Enabled = False txtAddress。Enabled = False mrc.Bookmark = myBookmark Call viewData Else MsgBox "什么都沒有修改，有什么好取消的!”， vbOKOnly + vbExclamation, ”警告” End IfEnd SubPrivate Sub deleteCommand_Click(） myBookmark = mrc。Bookmark str2 = MsgBox（”是否刪除當(dāng)前記錄?”, vb

31、OKCancel， "刪除當(dāng)前記錄”） If str2 = vbOK Then mrc。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.Bookmar

32、k = myBookmark Call viewData End IfEnd SubPrivate 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 viewDate mcclean = TrueEnd Sub

33、Public Sub viewData（） txtSID.Text = mrc。Fields(0） txtName.Text = mrc。Fields（1） comboSex。Text = mrc.Fields(2） txtBorndate.Text = Format（mrc。Fields（3）, ”yyyymmdd”） comboClassNo。Text = mrc。Fields（4） txtTel。Text = mrc。Fields（5) txtRudate。Text = Format（mrc。Fields(6）， "yyyymm-dd"） txtAddress。Tex

34、t = mrc。Fields（7） 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 Su

35、bPrivate Sub updateCommand_Click（） Dim txtSQL As String Dim MsgText As String Dim mrcc As ADODB.Recordset If mcclean Then MsgBox "請(qǐng)先修改學(xué)籍信息”, vbOKOnly + vbExclamation， ”警告" Exit Sub End If If Not Testtxt（txtSID.Text） Then MsgBox ”請(qǐng)輸入學(xué)號(hào)!”， vbOKOnly + vbExclamation， "警告" txtSID。SetF

36、ocus Exit Sub End If If Not Testtxt（txtName.Text) Then MsgBox ”請(qǐng)輸入姓名!”, vbOKOnly + vbExclamation， "警告" txtName。SetFocus Exit Sub End If If Not Testtxt(comboSex.Text） Then MsgBox "請(qǐng)選擇性別!”， vbOKOnly + vbExclamation， "警告" comboSex。SetFocus Exit Sub End If If Not Testtxt(txtBorn

37、date.Text） Then MsgBox ”請(qǐng)輸入出生日期！”， vbOKOnly + vbExclamation， ”警告” txtBorndate。SetFocus Exit Sub End If If Not Testtxt（comboClassNo。Text） Then MsgBox ”請(qǐng)選擇班號(hào)!”， vbOKOnly + vbExclamation， "警告” comboClassNo。SetFocus Exit Sub End If If Not Testtxt（txtTel.Text) Then MsgBox ”請(qǐng)輸入聯(lián)系電話!”， vbOKOnly + vbEx

38、clamation， "警告” txtTel。SetFocus Exit Sub End If If Not Testtxt（txtRudate.Text） Then MsgBox ”請(qǐng)輸入入校日期！”， vbOKOnly + vbExclamation， ”警告” txtRudate。SetFocus Exit Sub End If If Not Testtxt（txtAddress。Text） Then MsgBox ”請(qǐng)輸入家庭住址！”， vbOKOnly + vbExclamation， ”警告" txtAddress.SetFocus Exit Sub End I

39、f If Not IsNumeric（Trim（txtSID。Text）) Then MsgBox ”學(xué)號(hào)請(qǐng)輸入數(shù)字!”, vbOKOnly + vbExclamation， ”警告” txtSID.SetFocus Exit Sub End If mrc。Delete txtSQL = "select from student_Info where student_ID = " Trim(txtSID。Text） "" Set mrcc = ExecuteSQL(txtSQL, MsgText) If mrcc。EOF = False Then Msg

40、Box ”學(xué)號(hào)重復(fù),請(qǐng)重新輸入！”， vbOKOnly + vbExclamation， ”警告” mrcc.Close txtSID。SetFocus Else mrcc。Close If Not IsDate(txtBorndate。Text） Then MsgBox ”出生時(shí)間應(yīng)輸入日期格式(yyyymmdd）!”， vbOKOnly + vbExclamation, ”警告” txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, ”yyyymm-dd"） If Not IsDate(txtRudate。Text

41、） Then MsgBox "入校時(shí)間應(yīng)輸入日期格式（yyyy-mmdd）！”， vbOKOnly + vbExclamation, ”警告” txtRudate.SetFocus Else txtRudate = Format(txtRudate， ”yyyy-mmdd") 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。Te

42、xt） mrc.Fields（4） = Trim（comboClassNo。Text) mrc.Fields(5） = Trim（txtTel。Text） mrc.Fields（6） = Trim（txtRudate.Text） mrc.Fields（7） = Trim（txtAddress。Text） mrc。Update MsgBox "修改學(xué)籍信息成功！", vbOKOnly + vbExclamation, "修改學(xué)籍信息" Call viewData Frame2.Enabled = True firstCommand.Enabled = Tr

43、ue 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。Enabled = False txtAddress。Enabled = False mcclean

44、 = True End If End If End IfEnd Sub查詢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） = ”

45、Then sMeg = ”學(xué)號(hào)不能為空” MsgBox sMeg， vbOKOnly + vbExclamation, ”警告” txtSID.SetFocus Exit Sub Else If Not IsNumeric（Trim（txtSID。Text)） Then MsgBox ”請(qǐng)輸入數(shù)字!”， vbOKOnly + vbExclamation, ”警告” Exit Sub txtSID。SetFocus End If dd（0） = True txtSQL = txtSQL "student_ID = ” Trim（txtSID。Text） ” End If End If

46、If Check1（1）。Value Then If Trim（txtName.Text） = ” Then sMeg = ”姓名不能為空" 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 The