VB+oracle學(xué)生學(xué)籍管理系統(tǒng)

1、課程設(shè)計(jì)報(bào)告冊(cè)課程設(shè)計(jì)報(bào)告設(shè)計(jì)項(xiàng)目編 號(hào)1名 稱 學(xué)生信息管理系統(tǒng)主要儀器設(shè)備PC附屬設(shè)備主要使用軟件Oracle、Visual Basic6.0起止時(shí)間2010年 12月 10 日12月30日 同組人無(wú)課程設(shè)計(jì)任務(wù)書1. 本課程設(shè)計(jì)的目的掌握Oracle基本內(nèi)容，了解備份和恢復(fù)數(shù)據(jù)庫(kù)的方法；基本的Oracle語(yǔ)句，如添加、查詢、修改、刪除記錄語(yǔ)句；VB中數(shù)據(jù)綁定控件的方法，熟悉數(shù)據(jù)庫(kù)連接技術(shù)。2課程設(shè)計(jì)的任務(wù)及要求1）基本要求：要求掌握Oracle的基本概念，了解備份和恢復(fù)數(shù)據(jù)庫(kù)的方法,基本的Oracle語(yǔ)句，如添加、查詢、修改、刪除記錄語(yǔ)句, 熟悉數(shù)據(jù)庫(kù)連接技術(shù)。2）課程設(shè)計(jì)論文編寫要求（

2、1）理論設(shè)計(jì)部分以課程設(shè)計(jì)論文的形式提交，格式必須按照課程設(shè)計(jì)論文標(biāo)準(zhǔn)格式進(jìn)行書寫和裝訂。（2）課程設(shè)計(jì)報(bào)告（論文）包括中文摘要、目錄、緒論、正文、設(shè)計(jì)小結(jié)、參考文獻(xiàn)、附錄等；（3）正文部分應(yīng)包含系統(tǒng)功能流程圖、系統(tǒng)結(jié)構(gòu)框圖、模塊流程圖、設(shè)計(jì)目的、實(shí)現(xiàn)思路、實(shí)現(xiàn)步驟、調(diào)試運(yùn)行等。目錄第一章、系統(tǒng)機(jī)構(gòu)及主要功能4 1.1學(xué)生信息管理系統(tǒng)的主要功能 4 1.2系統(tǒng)的功能模塊結(jié)構(gòu)4第二章、數(shù)據(jù)庫(kù)設(shè)計(jì)5 2.1 創(chuàng)建數(shù)據(jù)庫(kù)用戶 5 2.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)5 2.3 創(chuàng)建表的腳本語(yǔ)言 6第三章、數(shù)據(jù)庫(kù)連接83.1創(chuàng)建數(shù)據(jù)源 8 3.2 數(shù)據(jù)庫(kù)連接 9第四章、系統(tǒng)的實(shí)現(xiàn) 10 4.1主窗體的設(shè)計(jì) 104

3、.2 登錄窗體的設(shè)計(jì) 12 4.3背景窗體的設(shè)計(jì) 14 4.4班級(jí)管理窗體的設(shè)計(jì) 154.5課程信息窗體的設(shè)計(jì) 204.6用戶信息管理窗體的設(shè)計(jì) 264.7獎(jiǎng)懲信息管理窗體的設(shè)計(jì) 274.8成績(jī)查詢窗口的設(shè)計(jì) 294.9學(xué)籍信息管理窗口的設(shè)計(jì) 314.10個(gè)人信息查詢窗口的設(shè)計(jì) 25第五章、運(yùn)行截圖 41課程設(shè)計(jì)總結(jié) 46一 系統(tǒng)結(jié)構(gòu)及主要功能1.1學(xué)生信息管理系統(tǒng)的主要功能有：（1）、用戶信息管理 可以修改、刪除、添加用戶；（2）、班級(jí)信息管理可以添加、修改、刪除班級(jí)；（3）、學(xué)籍信息管理可以添加、查詢、修改、刪除學(xué)籍；（4）、課程信息管理可以查看各班的課程信息；（5）、成績(jī)信息管理可以用一

4、個(gè)或幾個(gè)條件查詢、添加、刪除，修改成績(jī)；（6）、獎(jiǎng)懲信息管理可以添加、查詢、刪除獎(jiǎng)懲信息（7）、個(gè)人信息管理可以查詢學(xué)生的個(gè)人信息。1.2、系統(tǒng)的功能模塊結(jié)構(gòu)如下：二 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1創(chuàng)建數(shù)據(jù)庫(kù)用戶在設(shè)計(jì)數(shù)據(jù)庫(kù)表結(jié)構(gòu)之前，首先要?jiǎng)?chuàng)建一個(gè)學(xué)生信息管理的數(shù)據(jù)庫(kù)用戶，這里定義為zengym,所有相關(guān)的表都屬于這個(gè)用戶。創(chuàng)建用戶的腳本為： CREATE user zengymidentified by zengymdefault tablespace userstemporary tablespace tempquota 10m on users;grant create session,resour

5、ce to zengym;這樣在設(shè)置ODBC時(shí)，使用戶zengym登錄，就可以直接在程序中調(diào)用用戶zengym的表和視圖等數(shù)據(jù)庫(kù)對(duì)象了。2.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)學(xué)生信息管理系統(tǒng)的功能要求，選取Oracle為后臺(tái)數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)前臺(tái)控制界面使用Visual Basic 6.0來(lái)實(shí)現(xiàn)。該數(shù)據(jù)庫(kù)由8個(gè)表組成。這8個(gè)表包括班級(jí)課程信息(class_cour)表、班級(jí)信息(class_Form)表、課程信息(course_Form)表、獲獎(jiǎng)信息(prize_Form)表、獲獎(jiǎng)學(xué)生信息(Prize_Stud)表、學(xué)生成績(jī)信息(score_Form)表、學(xué)生信息(student_Form)表、用戶（use

6、r_Form）表。（1）班級(jí)課程信息(class_cour)表字段名稱字段類型說(shuō)明class_No number 班級(jí)編號(hào) Course_NameVarchar2(50)課程名稱 （2）班級(jí)信息(class_Form)表字段名稱字段類型說(shuō)明Class_No number班級(jí)編號(hào) Class_NameVarchar2(50)班級(jí)名稱 Class_teacherVarchar2(50)導(dǎo)員名字 Class_RemarksVarchar2(50)班級(jí)主課程（3）課程信息(course_Form)表字段名稱字段類型說(shuō)明Course_name Varchar2(50)課程名稱 Course_RemVar

7、char2(50)主課程（4）獎(jiǎng)懲信息(prize_Form)表字段名稱字段類型說(shuō)明Prize_name Varchar2(50) 獎(jiǎng)懲名稱 Prize_Rem Varchar2(50) 備注（5）獎(jiǎng)懲學(xué)生信息(Prize_Stud)表字段名稱字段類型說(shuō)明Prize_NO number 獎(jiǎng)懲編號(hào) Prize_Stu number 獎(jiǎng)懲學(xué)生學(xué)號(hào) Prize_Dat Date 獎(jiǎng)懲日期 Prize_Nam Varchar2(50) 獎(jiǎng)懲名稱（6）學(xué)生成績(jī)信息(score_Form)表字段名稱字段類型說(shuō)明Score_No number 成績(jī)編號(hào) Score_per Varchar2(50) 成績(jī)類型

8、 Score_Cla number 班級(jí)編號(hào) Score_Stu number 學(xué)生學(xué)號(hào) Score_Cou Varchar2(50) 課程名稱 Score_Sco Varchar2(50) 成績(jī)（7）學(xué)生信息(student_Form)表字段名稱字段類型說(shuō)明Student_NO number 學(xué)號(hào) student_Name Varchar2(50) 姓名 student_Sex Varchar2(5) 性別 student_Bir Date 出生日期 student_Cla number 班級(jí)編號(hào) student_Tel Varchar2(50) 聯(lián)系電話 student_Esd Date

9、報(bào)名日期student_AddVarchar2(50)家庭地址 student_Rem Varchar2(50) 備注（8）用戶（user_Form）表字段名稱字段類型說(shuō)明user_ID Varchar2(50) 用戶名 user_PWD Varchar2(50) 用戶密碼 user_DATE date 登錄日期2.3創(chuàng)建表的腳本語(yǔ)言（1）班級(jí)課程信息(class_cour)表CREATE TABLE zengym.class_Cour (class_NO number Primary Key,course_Name varchar2(50) )TABLESPACE USERS;（2）班級(jí)信息

10、(class_Form)表CREATE TABLE zengym.class_Form (class_No number Primary Key,class_Name varchar2(50),class_Teacher varchar2(50),class_Remarks varchar2(50) )TABLESPACE USERS;（3）課程信息(course_Form)表CREATE TABLE zengym.course_Form (course_Name Varchar2(50) Primary Key,course_Rem Varchar2(50) )TABLESPACE USER

11、S;（4）獎(jiǎng)懲信息(prize_Form)表CREATE TABLE zengym.prize_Form (prize_name varchar2(50) Primary Key,prize_Rem Varchar2(50)TABLESPACE USERS;（5）獎(jiǎng)懲學(xué)生信息(Prize_Stud)表CREATE TABLE zengym.prize_Stud (prize_NO number Primary Key,prize_Stu number,prize_Dat date,prize_Nam Varchar2(50)TABLESPACE USERS;（6）學(xué)生成績(jī)信息(score_Fo

12、rm)表CREATE TABLE zengym.score_Form (score_NO number Primary Key,score_per Varchar2(50),score_Cla number,score_Stu number,score_Cou Varchar2(50),score_Sco Varchar2(50) )TABLESPACE USERS;（7）學(xué)生信息(student_Form)表CREATE TABLE zengym.student_Form (student_NO number Primary Key,student_Name Varchar2(50),stu

13、dent_Sex Varchar2(5),student_Bir Date,student_Cla number,student_Tel Varchar2(50),student_Esd Date,student_Add Varchar2(50),student_Rem Varchar2(50) )TABLESPACE USERS;（8）用戶（user_Form）表CREATE TABLE zengym.user_Form (user_ID Varchar2(50) Primary Key,user_PWD Varchar2(50),user_DATE date )TABLESPACE USE

14、RS;三 數(shù)據(jù)庫(kù)連接3.1、創(chuàng)建數(shù)據(jù)源為了能夠在程序中訪問(wèn)到數(shù)據(jù)庫(kù)House，需要?jiǎng)?chuàng)建系統(tǒng)數(shù)據(jù)源。選擇“控制面板”“管理工具”“數(shù)據(jù)源”“系統(tǒng)DSN”標(biāo)簽“添加”選擇“Oracle in OraHome92”數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序進(jìn)入數(shù)據(jù)庫(kù)Oracle ODBC Driver Configuration配置。 將“Data Source Name”設(shè)置為Status，“TNS Service Name”設(shè)置為Oracle創(chuàng)建的數(shù)據(jù)庫(kù) ，“User”設(shè)置為zengym,然后點(diǎn)擊“Test Conncetion”進(jìn)入測(cè)試數(shù)據(jù)庫(kù)連接是否連接成功。測(cè)試連接數(shù)據(jù)庫(kù)是否成功： 輸入密碼zengym后顯示連接結(jié)果

15、“Password”輸入zengym，點(diǎn)擊OK測(cè)試連接是否成功。最后就可以在VB中使用“外接程序”“可視化數(shù)據(jù)管理”連接數(shù)據(jù)庫(kù)。3.2、數(shù)據(jù)庫(kù)連接（在模塊modulel.bas中）Public Function ConnectString() As StringConnectString = "Driver=Microsoft ODBC for oracle;server=gntc;UID=zengym;PWD=zengym;"End FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As S

16、tring) As ADODB.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 ConnectStringIf InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0) Then cnn.Execute SQL MsgStrin

17、g = sTokens(0) & " query successful" Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = "查詢到" & rst.RecordCount & " 條記錄 " End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exi

18、t FunctionExecuteSQL_Error: MsgString = "查詢錯(cuò)誤: " & Err.Description Resume ExecuteSQL_ExitEnd Function四、系統(tǒng)的實(shí)現(xiàn)4.1主窗體的設(shè)計(jì)4.1.1主界面是學(xué)生信息管理系統(tǒng)的主要窗口，擔(dān)任著調(diào)動(dòng)程序其他模塊的功能，是整個(gè)應(yīng)程序的核心。在工程中添加一個(gè)窗體，命名為“frmMain”。主界面的主要屬性如下：窗體屬性設(shè)置值具體說(shuō)明 名稱 FrmMain設(shè)置窗體名稱Appearance1 3D外觀效果 Caption 學(xué)生信息管理系統(tǒng)窗體的標(biāo)題條文本 Enable True窗體可

19、用 Moveable True窗體可以移動(dòng)negotiateToolbarsTrueMDIForm 對(duì)象在 MDIForm 的頂部或底部顯示活動(dòng)對(duì)象的工具欄 StartUpPosition 0 手動(dòng)設(shè)置窗體彈出時(shí)，位置在屏幕中心選擇“工具”菜單項(xiàng)中的“菜單編輯器”，編輯菜單內(nèi)容，如下圖所示。菜單項(xiàng)的屬性如下：標(biāo)題 名稱用戶信息管理cusiMenu班級(jí)信息管理claiMenu學(xué)籍信息管理stsiMenu課程信息管理couiMenu成績(jī)信息管理scoiMenu獎(jiǎng)懲信息管理prpiMenu個(gè)人信息管理sumiMenu幫助help主界面如下圖所示：4.1.2窗口代碼如下：Private Sub cla

20、iMenu_Click() frmclai.ShowEnd SubPrivate Sub couiMenu_Click() frmcoui.ShowEnd SubPrivate Sub cusiMenu_Click() frmcusi.ShowEnd SubPrivate Sub MDIForm_Load() dColor.ShowEnd SubPrivate Sub MDIForm_Resize() If Me.Height > 1100 Then dColor.Height = Me.Height - 1100 End If If Me.Width > 180 Then dCo

21、lor.Width = Me.Width - 180 End IfEnd SubPrivate Sub prpiMenu_Click() frmprpi.ShowEnd SubPrivate Sub scoiMenu_Click() frmscoi.ShowEnd SubPrivate Sub stsiMenu_Click() frmstsi.ShowEnd SubPrivate Sub sumiMenu_Click() frmsumi.ShowEnd Sub4.2、登錄窗體的設(shè)計(jì)4.2.1在工程中添加一個(gè)窗體，命名為“frmLogin”。整個(gè)窗體界面的示意圖如圖所示。用戶要使用本系統(tǒng)，首先要

22、通過(guò)系統(tǒng)的身份認(rèn)證，即需要登錄。登錄過(guò)程需要完成一下任務(wù)：（1）根據(jù)用戶名和密碼來(lái)判斷是否能進(jìn)入系統(tǒng)；（2）根據(jù)用戶類型決定用戶擁有的權(quán)限。登錄界面窗體的主要屬性如下。窗體屬性 設(shè)置值 具體說(shuō)明 名稱Label1設(shè)置窗體名稱BorderStyle1-Fixed Single設(shè)置窗體的邊框?qū)傩訡aption登錄窗體的標(biāo)題條文本ControlBoxFalse取消控制按鈕在登錄窗體中添加控件，并設(shè)置控件的屬性如下表所示：對(duì)象名屬性屬性值txtPassword（名稱）txtPasswordtxtUserNameStyle0Dropdown ComboTexttxtUserNameCmd_OkCapti

23、on確定Cmd_CancelCaption取消4.2.2編寫窗體代碼：Private Sub Form_Load() Dim i As Integer i = 0 txtSQL = "select * from user_Form" With txtUserName Set mrc = ExecuteSQL(txtSQL, MsgText) Do While Not mrc.EOF i = i + 1 txtUserName.AddItem Trim(mrc!user_ID) mrc.MoveNext Loop .ListIndex = i - 1 End With mrc

24、.Close OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() txtSQL = "select * from user_Form where user_ID = '" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox &

25、quot;沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名", 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 "輸入的密碼不對(duì)，請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告" txtPassword

26、.SetFocus txtPassword.Text = "" End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd SubPrivate Sub Label1_Click()End SubPrivate Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As

27、 Integer) If KeyAscii = 13 Then Call cmdOK_Click End IfEnd SubPrivate Sub txtUserName_Click() txtPassword.Text = ""End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub4.3背景窗體的設(shè)計(jì)4.3.1在工程中添加一個(gè)窗體，命名為“dColor”。整個(gè)窗體的界面設(shè)計(jì)示意圖如下. dColor窗體上的空間及其屬性如下表

28、所示。窗體屬性 設(shè)置值 具體說(shuō)明 名稱dColor設(shè)置窗體名稱MaxButtonTrue激活最大化按鈕MinButtonTrue激活最小化按鈕ControlBoxTrue控制按鈕在登錄窗體中添加控件，并設(shè)置控件的屬性如下表所示：對(duì)象名屬性屬性值Image1Picture（Bitmap）Image2Picture（Bitmap）StretchFalseLabel1Caption歡迎進(jìn)去學(xué)生管理系統(tǒng)BackColor0 Transparent4.3.2編寫窗體代碼Private Sub Form_Load() Label1.ForeColor = &H8000000E Label1.Fon

29、tSize = 12 Label1.AutoSize = True i = Image2.WidthEnd SubPrivate Sub Form_Resize() Image1.Top = 0 Image1.Left = 0 Image1.Height = Me.Height Image1.Width = Me.Width Image2.Top = Me.Height - Image2.Height Image2.Left = Me.Width - Image2.Width Label1.Top = Me.Height - Label1.Height - 100End SubPrivate

30、Sub Label1_Click()End SubPrivate Sub Timer1_Timer() i = i + 50 Label1.Left = Me.Width - i If i > Me.Width + Label1.Width Then i = Image2.Width End IfEnd Sub4.4班級(jí)管理窗體的設(shè)計(jì)4.4.1在工程中添加一個(gè)窗體，命名為“frmclai”。整個(gè)窗體界面示意圖如圖所示。frmclai窗體上的的主要屬性和控件設(shè)置如下： 對(duì)象名屬性屬性值 FrmclaiCaption班級(jí)信息MinbuttonTrueLinkTopicForm1HacDCTr

31、ueMSFlexGrid1DragMode0 vbManualLabel1Caption班級(jí)信息列表Label2（0）Caption添加Label2（1）Caption修改Label2（2）Caption刪除Label3（0）Caption班級(jí)編號(hào)Label3（1）Caption班級(jí)名稱Label3（2）Caption導(dǎo)員姓名Label3（3）Caption備注4.4.2編寫窗體代碼Private Sub Command1_Click() If Text1(0) = "" Then MsgBox "班級(jí)編號(hào)不能為空！", vbOKOnly, "

32、提示" 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 "導(dǎo)員姓名不能為空！", vbOKOnly, "提示" Text1(2).SetFocus Exit Sub End If txtSQL = "

33、select * from class_Form where class_NO='" & Trim(Text1(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "此班級(jí)編號(hào)已經(jīng)存在！", vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = "select * from class_Form&qu

34、ot; Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Trim(Text1(2) mrc.Fields(3) = Trim(Text1(3) mrc.Update mrc.Close For i = 0 To 3 Text1(i) = "" Next MsgBox "班級(jí)信息添加成功！", vbOKOnly, "提示" ShowDat

35、aEnd SubPrivate Sub Command2_Click() For i = 0 To 3 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) = "&quo

36、t; Next MsgBox "班級(jí)已經(jīng)刪除！", 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).T

37、op = Picture1(0).Top Picture1(2).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 I

38、nteger) Me.Caption = "班級(jí)信息" 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) =

39、"" Next Command3.Enabled = False Command5.Enabled = FalseEnd SubPrivate Sub ShowData() Dim txSQL As String Dim mrcc As ADODB.Recordset txSQL = "select * from class_Form" Set mrcc = ExecuteSQL(txSQL, MsgText) With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) =

40、1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = "班級(jí)編號(hào)" .TextMatrix(0, 1) = "班級(jí)名稱" .TextMatrix(0, 2) = "導(dǎo)員姓名" .TextMatrix(0, 3) = "備注信息¢" .Rows = 1 Do While Not mrcc.EOF .Rows = .Rows + 1 For i = 0 To mrcc.Fields.Count - 1 .TextMatrix(.Rows - 1, i) = mrcc.Fie

41、lds(i) & "" Next i mrcc.MoveNext Loop End With mrcc.CloseEnd SubPrivate Sub MSFlexGrid1_Click() If Picture1(1).Visible = True Then Text1(4) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text1(5) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Text1(6) = Trim(MSFlexGrid1.TextMatri

42、x(MSFlexGrid1.Row, 2) Text1(7) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command3.Enabled = True End If If 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.TextMa

43、trix(MSFlexGrid1.Row, 2) Text1(11) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command5.Enabled = True End IfEnd SubPrivate Sub Text1_Change(Index As Integer) If Index = 4 Then tSQL = "select * from class_Form where class_NO='" & Trim(Text1(Index) & "'" Set

44、mrc = ExecuteSQL(tSQL, MsgText) If mrc.EOF = False Then Text1(5) = 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 mrc.Close End If If Index =

45、 8 Then tSQL = "select * from class_Form where class_NO='" & 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 Text

46、1(9) = "" Text1(10) = "" Text1(11) = "" Command5.Enabled = False End If mrc.Close 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 I

47、nteger, Shift As Integer) EnterToTab KeyCodeEnd Sub4.5課程信息窗體的設(shè)計(jì)4.5.1在工程中添加一個(gè)窗體，命名為“frmcoui”。整個(gè)窗體界面如下所示。Frmcoui窗體的主要控件和屬性設(shè)置如下對(duì)象名屬性屬性值ComcolTextCombolList1(名稱)密碼TxtUserTextList1FrmcouiCaption課程信息StartUpPosition0 手動(dòng)Command1Caption添加Command2Caption刪除4.5.2添加窗體代碼Private Sub Combo1_Click() List1TextEnd Sub

48、Private 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 where course_Name='" & Trim(Text1(0) & "'" Set mrc = Exec

49、uteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "此課程名稱已經(jīng)存在！", vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = "select * from course_Form" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Update mrc.Close Text1(0) = "" Text1(1) = "" MsgBox "課程信息添加成功！", vbOKOnly, "提示" List2