【正文】 mand2 Caption 取消 編寫窗體代碼 Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 用戶名稱不能為空 !, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub 29 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。 Trim(Text1(0)) amp。 39。 39。 39。 39。 整個窗體界面如下所示。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。 amp。 amp。 主界面的主要屬性如下： 窗體屬性 設(shè)置值 具體說明 名稱 FrmMain 設(shè)置窗體名稱 Appearance 1 – 3D 外觀效果 Caption 學(xué)生信息管理系統(tǒng) 窗體的標(biāo)題條文本 Enable True 窗體可用 Moveable True 窗 體可以移動 negotiateToolbars True MDIForm 對象在 MDIForm 的頂部或底部顯示活動對象的工具欄 StartUpPosition 0 – 手動 設(shè)置窗體彈出時，位置在屏幕中心 選擇“工具”菜單項中的“菜單編輯器”，編輯菜單內(nèi)容，如下圖所示。UID=zengym。 （ 8）用戶（ user_Form）表 10 CREATE TABLE (user_ID Varchar2(50) Primary Key, user_PWD Varchar2(50), user_DATE date ) TABLESPACE USERS。這 8 個表包括班級課程信息 (class_cour)表、班級信息(class_Form)表、課程信息 (course_Form)表、獲獎信息 (prize_Form)表、獲獎學(xué)生 信息 (Prize_Stud)表、學(xué)生成績信息 (score_Form)表、學(xué)生信息(student_Form)表、用戶（ user_Form）表。 涉密論文按學(xué)校規(guī)定處理。對本研究提供過幫助和做出過貢獻(xiàn)的個人或集體，均已在文中作了明確的說明并表示了謝意。 2． 課程設(shè)計的任務(wù)及要求 1）基本要求： 要求掌握 Oracle 的基本概念，了解備份和恢復(fù)數(shù)據(jù)庫的方法 ,基本的 Oracle 語句，如添加、查詢、修改、刪除記錄語句 , 熟悉數(shù)據(jù)庫連接技術(shù)。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個人或集體已經(jīng)發(fā)表或撰寫的成果作品。 創(chuàng)建用戶的腳本為： CREATE user zengym identified by zengym default tablespace users temporary tablespace temp quota 10m on users。 9 （ 3）課程信息 (course_Form)表 CREATE TABLE (course_Name Varchar2(50) Primary Key, course_Rem Varchar2(50) ) TABLESPACE USERS。 將“ Data Source Name”設(shè)置為 Status，“ TNS Service Name”設(shè)置為Oracle 創(chuàng)建的數(shù)據(jù)庫 ，“ User”設(shè)置為 zengym,然后點擊“ Test Conncetion”進(jìn)入測試數(shù)據(jù)庫連接是否連接成功。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查詢到 amp。 用戶要使用本系統(tǒng)，首先要通過系統(tǒng)的身份認(rèn)證，即需要登錄。 整個窗體的界面設(shè)計示意圖如下 . dColor 窗體上的空間及其屬性如下表所示。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此班級編號已經(jīng)存在！ , vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) For i = 0 To 3 Text1(i) = Next MsgBox 班級信息添加成功！ , vbOKOnly, 提示 ShowData End Sub Private Sub Command2_Click() For i = 0 To 3 Text1(i) = Next End Sub Private Sub Command5_Click() txtSQL = delete from class_Form where class_NO=39。 Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = amp。 Set mrc = ExecuteSQL(tSQL, MsgText) If = False Then Text1(5) = (1) Text1(6) = (2) Text1(7) = (3) = True Exit Sub 22 Else Text1(5) = Text1(6) = Text1(7) = = False End If End If If Index = 8 Then tSQL = select * from class_Form where class_NO=39。 Trim(Text1(0)) amp。HC0C0C0 Label3(2).BackColor = amp。 Trim() amp。 Trim() amp。 Trim() amp。 amp。 39。 編寫窗體主要代碼如下 Private Sub Form_Load() Option1(1).Value = True Picture1(0).Visible = False Picture1(1).Visible = True Picture1(2).Visible = False Picture1(3).Visible = False Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Picture1(3).Top = Picture1(0).Top Picture1(3).Left = Picture1(0).Left With MSFlexGrid1 .Cols = 6 .TextMatrix(0, 1) = 考試期號 .TextMatrix(0, 2) = 學(xué)生班號 .TextMatrix(0, 3) = 學(xué)生編號 .TextMatrix(0, 4) = 考試課程 .TextMatrix(0, 5) = 考試分?jǐn)?shù) 253。 Trim(Text1(0)) amp。 Frmcusi 窗口的界面十一圖如下。 amp。 Trim() amp。 Trim() amp。 Trim() amp。 Trim() amp。 Set mrc = ExecuteSQL(tSQL, MsgText) If = False Then Text1(9) = (1) Text1(10) = (2) Text1(11) = (3) = True Exit Sub Else Text1(9) = Text1(10) = Text1(11) = = False End If End If End Sub Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)) End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub 在工程中添加一個窗體，命名為“ frmcoui”。 Next i Loop End With End Sub Private Sub MSFlexGrid1_Click() If Picture1(1).Visible = True Then Text1(4) = Trim((, 0)) Text1(5) = Trim((, 1)) Text1(6) = Trim((, 2)) Text1(7) = Trim((, 3)) = True End If If Picture1(2).Visible = True Then Text1(8) = Trim((, 0)) Text1(9) = Trim((, 1)) Text1(10) = Trim((, 2)) Text1(11) = Trim((, 3))