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

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

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

3、下幾個目標(biāo)：給出軟件系統(tǒng)的數(shù)據(jù)流程圖與數(shù)據(jù)結(jié)構(gòu)，構(gòu)造一個完全的系統(tǒng)邏輯模型。提出詳細(xì)的功能說明，確定設(shè)計限定條件，規(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)下開發(fā)，故在windows環(huán)境下基本沒有什么限制。數(shù)據(jù)描述靜態(tài)數(shù)據(jù)是系統(tǒng)內(nèi)部有關(guān)的數(shù)據(jù)結(jié)構(gòu)與操作規(guī)程。具體可包括：學(xué)號、姓名、性別、班級、家庭住址、聯(lián)系電話、出生日期、入學(xué)日期、備注用戶名稱、用戶密碼。動態(tài)數(shù)據(jù)包括程序運(yùn)行時輸入和輸出的數(shù)據(jù),具體是數(shù)據(jù)庫的各個表的各個不同元組與屬性值.就是學(xué)生信息. 詳細(xì)需

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

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

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

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

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

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

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

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

12、計數(shù)據(jù)庫表結(jié)構(gòu)之前，先要創(chuàng)建一個數(shù)據(jù)庫。本系統(tǒng)使用的數(shù)據(jù)庫為Status（Access表）3.2 設(shè)計表本系統(tǒng)數(shù)據(jù)庫由九個數(shù)據(jù)庫表組成，他們分別為：獎懲信息表、獎懲名稱表、學(xué)生情況表、成績信息表、班級表、班級課程表、用戶表、考勤信息表、課程信息表。他們的數(shù)據(jù)類型分別為：四、設(shè)計工程框架創(chuàng)建工程1，并保存。4.2添加模塊M.odule1.bas 代碼如下：Public userid As String Public passwad As String 五、系統(tǒng)界面設(shè)計及功能的實(shí)現(xiàn)主窗體設(shè)計功能介紹：主窗體用于連接到其他窗口執(zhí)行操作，實(shí)現(xiàn)到各個窗體的切換。主窗口視圖：實(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è)計主界面主窗體是工程的啟動對象，建立一個主窗體名為“”。打開主窗體的設(shè)計窗口，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對菜單內(nèi)容進(jìn)行編輯，其菜單項(xiàng)的屬性如下： 菜單項(xiàng)的屬性標(biāo)題名稱用戶信息管理xe重設(shè)密碼passwad系統(tǒng)管理gsafeasfe班級信息管理class課程信息管理ke學(xué)籍信息管理fef成績信息管理fe獎懲信息管理sre個人信息查詢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 "請你選擇用戶名稱!", 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 "用戶密碼輸入錯誤!", 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 "請你選擇用戶名稱!", 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 "用戶密碼輸入錯誤!", 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 班級信息管理模塊的創(chuàng)建：功能介紹：按不同的條件對班級信息進(jìn)行錄入、查詢、修改、以及刪除。視圖：實(shí)現(xiàn)代碼：Dim MsgText As StringDim tSQL As StringPrivate Sub Co

32、mmand1_Click() If Text1(0) = "" Then MsgBox "班級編號不能為空!", vbOKOnly, "提示" Text1(0).SetFocus Exit Sub End If If Text1(1) = "" Then MsgBox "班級名稱不能為空!", 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 "此班級編號已存在!", 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、;班級信息添加成功!", vbOKOnly, "提示" ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i) = "" NextEnd SubPrivate Sub Command3_Click() If Text1(5) = "" Then MsgBox "班級名稱不能為空!", 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 "班級信息修改成功!", 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īng)刪除!"

39、;, vbOKOnly, "警告" ShowDataEnd SubPrivate Sub Command6_Click() For i = 8 To 11 Text1(i) = "" NextEnd 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)

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 = "班級信息&

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) = "班級編號"

43、; .TextMatrix(0, 1) = "班級名稱" .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.功能介紹：可按不同的條件對課程信息進(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 =