【正文】 ate 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 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=39。 Set mrcc = ExecuteSQL(txSQL, MsgText) Do While Not Trim(mrcc!course_Name) Loop End SubPrivate Sub List2Text() Dim txSQL As String Dim mrcc As txSQL = select * from course_Form Set mrcc = ExecuteSQL(txSQL, MsgText) Do While Not Trim(mrcc!course_Name) Loop End Sub，命名為“frmcusi”。 Trim() amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then Text1(1) = (1) Text1(1).Locked = True Else Text1(1) = Text1(1).Locked = 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 SubPrivate Sub List1Text() Dim txSQL As String Dim mrcc As txSQL = select * from class_Cour where class_NO=39。 Trim(Text1(0)) amp。HFFFFFFEnd SubPrivate Sub List1_Click()End SubPrivate Sub List2_Click() Text1(0) = End SubPrivate Sub Text1_Change(Index As Integer) Dim txSQL As String If Index = 0 Then txtSQL = select * from course_Form where course_Name=39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。HC0C0C0 Label3(3).BackColor = amp。HC0C0C0 Label3(1).BackColor = amp。 39。 amp。 39。 amp。整個窗體界面如下所示。 39。 amp。 39。 amp。 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。 39。 amp。 39。 amp。整個窗體界面示意圖如圖所示。窗體屬性 設(shè)置值 具體說明 名稱dColor設(shè)置窗體名稱MaxButtonTrue激活最大化按鈕MinButtonTrue激活最小化按鈕ControlBoxTrue控制按鈕在登錄窗體中添加控件，并設(shè)置控件的屬性如下表所示：對象名屬性屬性值Image1Picture（Bitmap）Image2Picture（Bitmap）StretchFalseLabel1Caption歡迎進去學生管理系統(tǒng)BackColor0 – TransparentPrivate Sub Form_Load() = amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入的密碼不對，請重新輸入, vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then 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 Integer) If KeyAscii = 13 Then Call cmdOK_Click End IfEnd SubPrivate Sub txtUserName_Click() = End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub，命名為“dColor”。 amp。窗體屬性 設(shè)置值 具體說明 名稱Label1設(shè)置窗體名稱BorderStyle1Fixed Single設(shè)置窗體的邊框?qū)傩訡aption登錄窗體的標題條文本ControlBoxFalse取消控制按鈕在登錄窗體中添加控件，并設(shè)置控件的屬性如下表所示：對象名屬性屬性值txtPassword（名稱）txtPasswordtxtUserNameStyle0—Dropdown ComboTexttxtUserNameCmd_OkCaption確定Cmd_CancelCaption取消：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 i = i + 1 Trim(mrc!user_ID) Loop .ListIndex = i 1 End With OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False End SubPrivate Sub cmdOK_Click() txtSQL = select * from user_Form where user_ID = 39。登錄過程需要完成一下任務(wù)：（1）根據(jù)用戶名和密碼來判斷是否能進入系統(tǒng)；（2）根據(jù)用戶類型決定用戶擁有的權(quán)限。整個窗體界面的示意圖如圖所示。主界面的主要屬性如下：窗體屬性設(shè)置值具體說明 名稱 FrmMain設(shè)置窗體名稱Appearance1 – 3D外觀效果 Caption 學生信息管理系統(tǒng)窗體的標題條文本 Enable True窗體可用 Moveable True窗體可以移動negotiateToolbarsTrueMDIForm 對象在 MDIForm 的頂部或底部顯示活動對象的工具欄 StartUpPosition 0 – 手動設(shè)置窗體彈出時，位置在屏幕中心選擇“工具”菜單項中的“菜單編輯器”，編輯菜單內(nèi)容，如下圖所示。 Resume ExecuteSQL_ExitEnd Function四、系統(tǒng)的實現(xiàn)，擔任著調(diào)動程序其他模塊的功能，是整個應程序的核心。 amp。End FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As String) As Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New ConnectStringIf InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。UID=zengym。、數(shù)據(jù)庫連接（）Public Function ConnectString() As StringConnectString = Driver={Microsoft ODBC for oracle}。測試連接數(shù)據(jù)庫是否成功： 輸入密碼zengym后顯示連接結(jié)果 “Password”輸入zengym，點擊OK測試連接是否成功。選擇“控制面板”→“管理工具”→“數(shù)據(jù)源”→“系統(tǒng)DSN”標簽→“添加”→選擇“Oracle in OraHome92”數(shù)據(jù)庫驅(qū)動程序進入數(shù)據(jù)庫Oracle ODBC Driver Configuration配置。（8）用戶（user_Form）表CREATE TABLE (user_ID Varchar2(50) Primary Key,user_PWD Varchar2(50),user_DATE date )TABLESPACE USERS。（6）學生成績信息(score_Form)表CREATE TABLE (score_NO number Primary Key,score_per V