畢業(yè)論文學(xué)生信息管理系統(tǒng)

1、一、 摘要.2二、 系統(tǒng)設(shè)計(jì)2需求分析.2系統(tǒng)功能模塊設(shè)計(jì).3各功能模塊.3三、 數(shù)據(jù)庫(kù)設(shè)計(jì).6創(chuàng)建數(shù)據(jù)庫(kù).6數(shù)據(jù)庫(kù)表.6四、 設(shè)計(jì)工程框架.8. .8.9五、 系統(tǒng)界面設(shè)計(jì)及功能的實(shí)現(xiàn).9主窗口設(shè)計(jì).9用戶信息管理模塊的創(chuàng)建.10班級(jí)信息管理模塊的創(chuàng)建.15課程信息管理模塊的創(chuàng)建19學(xué)籍信息管理模塊的創(chuàng)建23成績(jī)信息管理模塊的創(chuàng)建345.7 獎(jiǎng)懲信息管理模塊的創(chuàng)建.465.8 個(gè)人信息查詢模塊的創(chuàng)建50六、參考資料. 54一、摘 要學(xué)生信息管理系統(tǒng)主要是提供學(xué)生，老師或者來(lái)訪者方便的查詢等相關(guān)操作，對(duì)學(xué)生的信息管理能統(tǒng)一規(guī)范化。功能塊的相應(yīng)操作分別由其對(duì)應(yīng)的子模塊實(shí)現(xiàn)。包括對(duì)學(xué)生用戶、學(xué)生班

2、級(jí)、學(xué)生成績(jī)、學(xué)生的獎(jiǎng)懲等信息進(jìn)行存儲(chǔ)、修改、查閱、刪除以及對(duì)學(xué)生個(gè)人所有信息的查詢。本系統(tǒng)采用的開(kāi)發(fā)工具：Visual B.asic6.0；后臺(tái)數(shù)據(jù)庫(kù)：Access2003。軟件基本運(yùn)行環(huán)境為Windows環(huán)境。二、系統(tǒng)設(shè)計(jì)該軟件分八個(gè)主要功能塊：即用戶信息管理、班級(jí)信息管理、學(xué)籍信息管理、課程信息管理、成績(jī)信息管理、獎(jiǎng)懲信息管理以及個(gè)人信息查詢、退出。需求分析編寫(xiě)目的 掌握數(shù)據(jù)庫(kù)設(shè)計(jì)原理及相關(guān)軟件的使用；確定系統(tǒng)功能，設(shè)計(jì)時(shí)應(yīng)遵循的原則，約束條件以及性能等要求；建立和保持與用戶之間的通信，確保以后的工作能夠比較順利的開(kāi)展，撰寫(xiě)需求規(guī)格說(shuō)明書(shū)即當(dāng)前文檔。項(xiàng)目提要1 目標(biāo) 軟件需求分析階段有以

3、下幾個(gè)目標(biāo)：給出軟件系統(tǒng)的數(shù)據(jù)流程圖與數(shù)據(jù)結(jié)構(gòu)，構(gòu)造一個(gè)完全的系統(tǒng)邏輯模型。提出詳細(xì)的功能說(shuō)明，確定設(shè)計(jì)限定條件，規(guī)定性能要求。密切與用戶的聯(lián)系，使用戶明確自己的任務(wù)，以便實(shí)現(xiàn)上述兩項(xiàng)目標(biāo)。2 運(yùn)行環(huán)境軟件基本運(yùn)行環(huán)境為Windows環(huán)境。3 條件與限制 由于系統(tǒng)較小，且在windows系統(tǒng)下開(kāi)發(fā)，故在windows環(huán)境下基本沒(méi)有什么限制。數(shù)據(jù)描述靜態(tài)數(shù)據(jù)是系統(tǒng)內(nèi)部有關(guān)的數(shù)據(jù)結(jié)構(gòu)與操作規(guī)程。具體可包括：學(xué)號(hào)、姓名、性別、班級(jí)、家庭住址、聯(lián)系電話、出生日期、入學(xué)日期、備注用戶名稱、用戶密碼。動(dòng)態(tài)數(shù)據(jù)包括程序運(yùn)行時(shí)輸入和輸出的數(shù)據(jù),具體是數(shù)據(jù)庫(kù)的各個(gè)表的各個(gè)不同元組與屬性值.就是學(xué)生信息. 詳細(xì)需

4、求性能需求(1) 數(shù)據(jù)精確度 由于采用數(shù)據(jù)庫(kù)技術(shù)并且用戶的應(yīng)用領(lǐng)域?qū)?shù)據(jù)精確度的要求不是太高，所以這點(diǎn)在系統(tǒng)中表現(xiàn)得比較少，但是用戶數(shù)據(jù)的安全性與正確性是完全保證的，所以對(duì)用戶的使用沒(méi)有多大的障礙。 (2) 時(shí)間特性 本系統(tǒng)的數(shù)據(jù)庫(kù)較小，所以程序在響應(yīng)時(shí)間，數(shù)據(jù)更新處理時(shí)間上性能是比較突出的。而且也正由于數(shù)據(jù)量相對(duì)較少，故在數(shù)據(jù)傳輸時(shí)間和系統(tǒng)運(yùn)行時(shí)間上表現(xiàn)的較讓人滿意。 (3) 適應(yīng)性 該軟件是使用Visual Basic 6在windows xp系統(tǒng)下完成的所以只要是兼容windows的軟件或是操作系統(tǒng)，該軟件都可以正確地運(yùn)行，有較好的適應(yīng)能力與兼容性。而且應(yīng)用戶的特殊需求軟件在完成后的維護(hù)

5、階段可以保持一個(gè)與其他類軟件接口，隨時(shí)滿足用戶的使用要求。系統(tǒng)功能模塊設(shè)計(jì)按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，得到下圖的系統(tǒng)功能模塊圖：學(xué)生管理系統(tǒng)學(xué)籍信息管理獎(jiǎng)懲信息查詢成績(jī)信息管理課程信息管理班級(jí)信息管理個(gè)人信息查詢用戶信息管理密碼重設(shè)系統(tǒng)管理添加信息修改信息刪除信息信息查詢信息處理刪除信息添加信息添加信息刪除信息查詢信息修改信息添加信息刪除信息查詢信息查詢信息修改信息退出查詢信息各模塊功能用戶信息模塊：主要是實(shí)現(xiàn)對(duì)用戶的基本信息進(jìn)行錄入、修改/刪除以及密碼重設(shè)等操作。2.班級(jí)信息模塊：主要是實(shí)現(xiàn)對(duì)班級(jí)信息的管理。包括班級(jí)編號(hào)、班級(jí)名稱、輔導(dǎo)員以及備注信息（根據(jù)班級(jí)的變動(dòng)情況及時(shí)進(jìn)行錄入、修改、查詢

6、或者刪除等操作。）此模塊必須先登錄后才能使用。1、錄入班級(jí)信息子模塊：點(diǎn)擊上方“新增”使下方出現(xiàn)“信息處理>添加”的字樣；再在對(duì)應(yīng)的對(duì)話框里錄入班級(jí)編號(hào)、班級(jí)名、輔導(dǎo)員、備注信息等信息，再點(diǎn)擊下方的“添加”，這樣信息就錄入進(jìn)了。此模塊必須先登錄后才能使用。2、修改班級(jí)信息子模塊：點(diǎn)擊上方“修改”使下方出現(xiàn)“信息處理>修改”；再錄入對(duì)應(yīng)的要修改的班級(jí)編號(hào)，則彈出一個(gè)“確定是否修改或刪除此班級(jí)”的對(duì)話框，如果確定是，則單擊“確定“，再修改要修改的信息，使之在對(duì)應(yīng)的對(duì)話框中出現(xiàn)后修改要修改的信息，最后點(diǎn)擊下方的“修改”。則彈出一個(gè)“此信息修改成功”字樣的對(duì)話框。此模塊必須先登錄后才能使用

7、。3、刪除班級(jí)信息子模塊：點(diǎn)擊上方“修改”使下方出現(xiàn)“信息處理>刪除”；再錄入對(duì)應(yīng)的要修改的班級(jí)編號(hào)，則彈出一個(gè)“確定是否修改或刪除此班級(jí)”的對(duì)話框，如果確定是，則單擊“確定“，再點(diǎn)擊下方的“刪除”，則彈出一個(gè)“缺點(diǎn)刪除此信息”字樣的對(duì)話框。點(diǎn)擊“確定“。則此信息刪除。此模塊必須先登錄后才能使用。4、查詢班級(jí)信息子模塊：點(diǎn)擊上方“查詢”使下方出現(xiàn)“查詢處理”根據(jù)條件在下拉菜單中選擇查詢條件。輸入對(duì)應(yīng)條件的信息，點(diǎn)擊右上方的“查詢”按鈕。查詢結(jié)果就顯示在下面。也可以查詢所有的班級(jí)信息。此模塊必須先登錄后才能使用。學(xué)籍信息模塊：實(shí)現(xiàn)對(duì)學(xué)生信息的管理。分學(xué)籍信息處理以及學(xué)籍信息查詢兩塊。1、錄

8、入學(xué)籍信息子模塊：此操作與“添加班級(jí)信息子模塊“類似。此模塊必須先登錄后才能使用。2、修改學(xué)籍信息子模塊：此操作與“修改班級(jí)信息子模塊“類似。此模塊必須先登錄后才能使用。3、刪除學(xué)籍信息子模塊：此操作與“刪除班級(jí)信息子模塊“類似。此模塊必須先登錄后才能使用4、個(gè)人查詢子模塊：在“信息處理“中選擇你查詢類型，（包括學(xué)號(hào)、姓名），再在旁邊輸入對(duì)應(yīng)的信息，點(diǎn)擊查詢，則結(jié)果顯示在下面的框框中。此模塊必須先登錄后才能使用5、多集查詢子模塊：在“信息處理“中選擇你查詢類型，（包括班級(jí)、性別、輔導(dǎo)員等）再在旁邊輸入對(duì)應(yīng)的信息，點(diǎn)擊查詢，則結(jié)果顯示在下面的框框中。此外還可以查詢所有人的信息。此模塊必須先登錄后

9、才能使用課程信息模塊：實(shí)現(xiàn)對(duì)所有課程安排進(jìn)行管理。包括課程的添加、修改、查詢以及刪除。1、添加課程信息子模塊：此操作與添加班級(jí)信息子模塊類似。此模塊必須先登錄后才能使用。2、修改課程信息子模塊：此操作與“修改班級(jí)信息子模塊“類似。此模塊必須先登錄后才能使用。3、查詢課程信息子模塊：此操作與“查詢班級(jí)信息子模塊“類似。此模塊必須先登錄后才能使用。4、 刪除課程信息子模塊：此操作與“刪除班級(jí)信息子模塊“類似。此模塊必須先登錄后才能使用。成績(jī)信息管理：實(shí)現(xiàn)對(duì)學(xué)生成績(jī)的管理。包括對(duì)各個(gè)學(xué)生的成績(jī)進(jìn)行添加、修改、刪除；且根據(jù)不同條件查詢成績(jī)；以及課程的設(shè)置。1、錄入成績(jī)信息子模塊：與前幾個(gè)模塊類似；此模

10、塊必須先登錄后才能使用。2、修改成績(jī)信息子模塊：與前幾個(gè)模塊類似；此模塊必須先登錄后才能使用。3、刪除成績(jī)信息子模塊：與前幾個(gè)模塊類似；此模塊必須先登錄后才能使用。4、個(gè)人成績(jī)查詢子模塊：與前幾個(gè)模塊類似；此模塊必須先登錄后才能使用。5、 班級(jí)成績(jī)信息查詢子模塊：在下拉菜單中選擇要選擇的條件信息；再點(diǎn)擊“查詢“按鈕，結(jié)果顯示在下方。此模塊必須先登錄后才能使用。獎(jiǎng)懲信息模塊：對(duì)獲獎(jiǎng)或者記過(guò)的信息進(jìn)行管理。包括添加、查詢和刪除獎(jiǎng)懲記錄。1、添加獎(jiǎng)懲信息子模塊：首先輸入查詢添加信息的學(xué)生學(xué)號(hào)，再在下面的獎(jiǎng)懲信息列表中選擇對(duì)此學(xué)生的獎(jiǎng)懲，若沒(méi)有容你選擇的獎(jiǎng)懲信息，則在右邊獎(jiǎng)懲名稱中填入獎(jiǎng)懲名稱，再點(diǎn)擊

11、右下方的添加，再在獎(jiǎng)懲信息列表中選定對(duì)學(xué)生的獎(jiǎng)懲，再點(diǎn)擊左邊中間帶箭頭的添加。此模塊必須先登錄后才能使用。2、查詢獎(jiǎng)懲信息子模塊：輸入要查詢信息的學(xué)生學(xué)號(hào)，再點(diǎn)擊中間的“查詢“。則查詢結(jié)果顯示在下方。此模塊必須先登錄后才能使用。3、 刪除獎(jiǎng)懲信息子模塊：首先輸入查詢添加信息的學(xué)生學(xué)號(hào)，再在下面的列表中選中刪除對(duì)此學(xué)生的獎(jiǎng)懲，再點(diǎn)擊中間帶箭頭的刪除，若要徹底刪除，可在獎(jiǎng)懲信息列表中再選中此信息，再點(diǎn)擊右下方?jīng)]帶箭頭的刪除。此模塊必須先登錄后才能使用。個(gè)人信息查詢：包括個(gè)人基本情況查詢、成績(jī)查詢、出勤情況查詢以及獎(jiǎng)懲情況的查詢。此操作與前幾個(gè)模塊類似。此模塊必須先登錄后才能使用。三、數(shù)據(jù)庫(kù)設(shè)計(jì)在設(shè)

12、計(jì)數(shù)據(jù)庫(kù)表結(jié)構(gòu)之前，先要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)庫(kù)。本系統(tǒng)使用的數(shù)據(jù)庫(kù)為Status（Access表）3.2 設(shè)計(jì)表本系統(tǒng)數(shù)據(jù)庫(kù)由九個(gè)數(shù)據(jù)庫(kù)表組成，他們分別為：獎(jiǎng)懲信息表、獎(jiǎng)懲名稱表、學(xué)生情況表、成績(jī)信息表、班級(jí)表、班級(jí)課程表、用戶表、考勤信息表、課程信息表。他們的數(shù)據(jù)類型分別為：四、設(shè)計(jì)工程框架創(chuàng)建工程1，并保存。4.2添加模塊M.odule1.bas 代碼如下：Public userid As String Public passwad As String 五、系統(tǒng)界面設(shè)計(jì)及功能的實(shí)現(xiàn)主窗體設(shè)計(jì)功能介紹：主窗體用于連接到其他窗口執(zhí)行操作，實(shí)現(xiàn)到各個(gè)窗體的切換。主窗口視圖：實(shí)現(xiàn)代碼：Private Su

13、b class_Click()End SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub fe_Click()End SubPrivate Sub fee_Click()End SubPrivate Sub fef_Click()End SubPrivate Sub find_Click(Index As Integer)End SubPrivate Sub gsafeasfe_Click()End SubPrivate Sub ke_Click()End SubPrivate Sub passwad_Click()End SubPri

14、vate Sub sre_Click()End SubPrivate Sub viwe_Click(Index As Integer)End Sub設(shè)計(jì)主界面主窗體是工程的啟動(dòng)對(duì)象，建立一個(gè)主窗體名為“”。打開(kāi)主窗體的設(shè)計(jì)窗口，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯，其菜單項(xiàng)的屬性如下： 菜單項(xiàng)的屬性標(biāo)題名稱用戶信息管理xe重設(shè)密碼passwad系統(tǒng)管理gsafeasfe班級(jí)信息管理class課程信息管理ke學(xué)籍信息管理fef成績(jī)信息管理fe獎(jiǎng)懲信息管理sre個(gè)人信息查詢find退出系統(tǒng)exit5.2 用戶信息管理模塊的創(chuàng)建功能介紹：重設(shè)密碼、添加、刪除用戶。視圖：重設(shè)密碼實(shí)

15、現(xiàn)代碼：Dim MsgText As StringPrivate Sub Command1_Click() Dim txtSQL As String If Text1(0) = "" Then MsgBox "用戶名稱不能為空!", vbOKOnly, "提示" Text1(0).SetFocus Exit Sub End If If Text1(1) = "" Then MsgBox "用戶密碼不能為空!", vbOKOnly, "提示" Text1(1).SetFocus

16、 Exit Sub Else If Text1(1) <> Text1(2) Then MsgBox "兩次密碼輸入不同!", vbOKOnly, "提示" Text1(1) = "" Text1(2) = "" Text1(1).SetFocus Exit Sub End If End If txtSQL = "select * from user_Form where user_ID='" & Trim(Text1(0) & "'&quo

17、t; Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "此用戶名已經(jīng)存在!", vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If txtSQL = "select * from user_Form" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc

18、.Fields(2) = Now For i = 0 To 2 Text1(i) = "" Next MsgBox "用戶信息添加成功!", vbOKOnly, "提示" ListappEnd SubPrivate Sub Command2_Click() Text1(0) = "" Text1(1) = "" Text1(2) = ""End SubPrivate Sub Command3_Click() Dim txtSQL As String If Text1(3) =

19、 "" Then MsgBox "請(qǐng)你選擇用戶名稱!", vbOKOnly, "提示" Exit Sub End If If Text1(4) = "" Then MsgBox "修改密碼要舊密碼!", vbOKOnly, "警告" Text1(4).SetFocus Exit Sub End If If Text1(5) = "" Then MsgBox "新的密碼不能為空!", vbOKOnly, "提示" Te

20、xt1(5).SetFocus Exit Sub Else If Text1(5) <> Text1(6) Then MsgBox "兩次密碼輸入不同!", vbOKOnly, "提示" Text1(5) = "" Text1(6) = "" Text1(5).SetFocus Exit Sub End If End If txtSQL = "select * from user_Form where user_ID='" & Trim(Text1(3) &

21、"'and user_PWD='" & Trim(Text1(4) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = "delete from user_Form where user_ID='" & Trim(Text1(3) & "'" Else MsgBox "用戶密碼輸入錯(cuò)誤!", vbOKOnly, "

22、警告" Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = "select * from user_Form" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(0) = Trim(Text1(3) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Now For i = 3 To 6 Text1(i) = "" Next MsgBox "

23、;用戶信息修改成功!", vbOKOnly, "提示"End SubPrivate Sub Command4_Click() Text1(3) = "" Text1(4) = "" Text1(5) = "" Text1(6) = ""End SubPrivate Sub Command5_Click() Dim txtSQL As String If Text1(7) = "" Then MsgBox "請(qǐng)你選擇用戶名稱!", vbOKOnly

24、, "提示" Exit Sub Else If Text1(7) = UserName Then MsgBox "不可以刪除正在使用的用戶!", vbOKOnly, "警告" Text1(7) = "" Text1(8) = "" Exit Sub End If End If If Text1(8) = "" Then MsgBox "刪除用戶需要密碼!", vbOKOnly, "警告" Text1(8).SetFocus Exit S

25、ub End If txtSQL = "select * from user_Form where user_ID='" & Trim(Text1(7) & "'and user_PWD='" & Trim(Text1(8) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = "delete from user_Form where user_ID='&

26、quot; & Trim(Text1(7) & "'" Else MsgBox "用戶密碼輸入錯(cuò)誤!", vbOKOnly, "警告" Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = "" Text1(8) = "" MsgBox "用戶信息已經(jīng)刪除!", vbOKOnly, "提示" ListappEnd SubP

27、rivate Sub Command6_Click() Text1(7) = "" Text1(8) = ""End SubPrivate Sub Form_Load() Me.Caption = "用戶信息->添 加" Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i =

28、0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = "用戶信息" Me.Caption = Me.Caption & "->" & Trim(Label2(Index).Caption) Fo

29、r i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 Text1(i) = "" NextEnd SubPrivate Sub Form_Resize() dColor.ZOrder 1End SubPrivate Sub Listapp() Dim txSQL As String txSQL = &

30、quot;select * from user_Form" Set mrcc = ExecuteSQL(txSQL, MsgText) List1.AddItem Trim(mrcc!user_ID)LoopEnd SubPrivate Sub List1_Click() If Picture1(1).Visible = True Then End If If Picture1(2).Visible = True Then End IfEnd SubPrivate Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) Ente

31、rToTab KeyCodeEnd SubPrivate Sub Picture1_Click(Index As Integer)End SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End Sub5.3 班級(jí)信息管理模塊的創(chuàng)建：功能介紹：按不同的條件對(duì)班級(jí)信息進(jìn)行錄入、查詢、修改、以及刪除。視圖：實(shí)現(xiàn)代碼：Dim MsgText As StringDim tSQL As StringPrivate Sub Co

32、mmand1_Click() If Text1(0) = "" Then MsgBox "班級(jí)編號(hào)不能為空!", vbOKOnly, "提示" Text1(0).SetFocus Exit Sub End If If Text1(1) = "" Then MsgBox "班級(jí)名稱不能為空!", vbOKOnly, "提示" Text1(1).SetFocus Exit Sub End If If Text1(2) = "" Then MsgBox &quo

33、t;導(dǎo)員姓名不能為空!", vbOKOnly, "提示" Text1(2).SetFocus Exit Sub End If txtSQL = "select * from class_Form where class_NO='" & Trim(Text1(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "此班級(jí)編號(hào)已存在!", vbOKOnly, "警告&

34、quot; Text1(0).SetFocus Exit Sub End If txtSQL = "select * from class_Form" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Trim(Text1(2) mrc.Fields(3) = Trim(Text1(3) For i = 0 To 3 Text1(i) = "" Next MsgBox "

35、;班級(jí)信息添加成功!", vbOKOnly, "提示" ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i) = "" NextEnd SubPrivate Sub Command3_Click() If Text1(5) = "" Then MsgBox "班級(jí)名稱不能為空!", vbOKOnly, "提示" Text1(5).SetFocus Exit Sub End If If Text1(6) =

36、 "" Then MsgBox "導(dǎo)員姓名不能為空!", vbOKOnly, "提示" Text1(6).SetFocus Exit Sub End If txtSQL = "delete from class_Form where class_NO='" & Trim(Text1(4) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = "select * from class_Form"

37、 Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(0) = Trim(Text1(4) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Trim(Text1(6) mrc.Fields(3) = Trim(Text1(7) For i = 4 To 7 Text1(i) = "" Next MsgBox "班級(jí)信息修改成功!", vbOKOnly, "提示" ShowDataEnd SubPrivate Sub Command4_Click(

38、) For i = 4 To 7 Text1(i) = "" NextEnd SubPrivate Sub Command5_Click() txtSQL = "delete from class_Form where class_NO='" & Trim(Text1(8) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 8 To 11 Text1(i) = "" Next MsgBox "班級(jí)信息以經(jīng)刪除!"

39、;, vbOKOnly, "警告" ShowDataEnd SubPrivate Sub Command6_Click() For i = 8 To 11 Text1(i) = "" NextEnd SubPrivate Sub Form_Load() Me.Caption = "班級(jí)信息->添 加" Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2)

40、.Left = Picture1(0).Left ShowData For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() dColor.ZOrder 1End SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = "班級(jí)信息&

41、quot; Me.Caption = Me.Caption & "->" & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = "" Next Command3.Enabl

42、ed = False Command5.Enabled = FalseEnd SubPrivate Sub ShowData() Dim txSQL As String txSQL = "select * from class_Form" Set mrcc = ExecuteSQL(txSQL, MsgText) With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = "班級(jí)編號(hào)"

43、; .TextMatrix(0, 1) = "班級(jí)名稱" .TextMatrix(0, 2) = "導(dǎo)員姓名" .TextMatrix(0, 3) = "備注信息" .Rows = 1 .Rows = .Rows + 1 For i = 0 To mrcc.Fields.Count - 1 .TextMatrix(.Rows - 1, i) = mrcc.Fields(i) & "" Next iLoop End WithEnd SubPrivate Sub MSFlexGrid1_Click() If P

44、icture1(1).Visible = True Then Text1(4) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text1(5) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Text1(6) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) Text1(7) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command3.Enabled = True End If If

45、 Picture1(2).Visible = True Then Text1(8) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text1(9) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Text1(10) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) Text1(11) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command5.Enabled = True End I

46、fEnd SubPrivate Sub Picture1_Click(Index As Integer)End SubPrivate Sub Text1_Change(Index As Integer) If Index = 4 Then tSQL = "select * from class_Form where class_NO='" & Trim(Text1(Index) & "'" Set mrc = ExecuteSQL(tSQL, MsgText) If mrc.EOF = False Then Text1(5

47、) = mrc.Fields(1) Text1(6) = mrc.Fields(2) Text1(7) = mrc.Fields(3) Command3.Enabled = True Exit Sub Else Text1(5) = "" Text1(6) = "" Text1(7) = "" Command3.Enabled = False End If End If If Index = 8 Then tSQL = "select * from class_Form where class_NO='"

48、& Trim(Text1(Index) & "'" Set mrc = ExecuteSQL(tSQL, MsgText) If mrc.EOF = False Then Text1(9) = mrc.Fields(1) Text1(10) = mrc.Fields(2) Text1(11) = mrc.Fields(3) Command5.Enabled = True Exit Sub Else Text1(9) = "" Text1(10) = "" Text1(11) = "" Com

49、mand5.Enabled = False End If End IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub課程信息管理模塊的創(chuàng)建5.功能介紹：可按不同的條件對(duì)課程信息進(jìn)行

50、錄入、查詢、修改、刪除。視圖：A）實(shí)現(xiàn)代碼：Dim MsgText As StringPrivate Sub Combo1_Click() List1TextEnd SubPrivate Sub Command1_Click() Dim txtSQL As String If Text1(0) = "" Then MsgBox " 課程名稱不能為空!", vbOKOnly, "提示" Text1(0).SetFocus Exit Sub End If txtSQL = "select * from course_Form w

51、here course_Name='" & Trim(Text1(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "此課程名稱已經(jīng)存在!", vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If txtSQL = "select * from course_Form" Set mrc = ExecuteSQL(txtSQL,

52、 MsgText) mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) Text1(0) = "" Text1(1) = "" MsgBox "課程信息添加成功!", vbOKOnly, "提示" List2TextEnd SubPrivate Sub Command2_Click() Dim txtSQL As String If List2.Text <> "" Then txtSQL = "delet

53、e from course_Form where course_Name='" & Trim(List2.Text) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) MsgBox "課程信息已經(jīng)刪除!", vbOKOnly, "提示" List2Text End IfEnd SubPrivate Sub Form_Load() Dim txtSQL As String Me.Caption = "課程信息->設(shè) 置" txtSQL = "select * from class_Form" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF =