【導(dǎo)讀】掌握Oracle基本內(nèi)容，了解備份和恢復(fù)數(shù)據(jù)庫的方法；基本的Oracle語句，如添加、查詢、修改、刪除記錄語句,熟悉數(shù)據(jù)庫連接技術(shù)。格式進行書寫和裝訂。實現(xiàn)思路、實現(xiàn)步驟、調(diào)試運行等。師的指導(dǎo)下進行的研究工作及取得的成果。盡我所知，除文中特別加。而使用過的材料。究所取得的研究成果。不包含任何其他個人或集體已經(jīng)發(fā)表或撰寫的成果作品。究做出重要貢獻的個人和集體，均已在文中以明確方式標(biāo)明。全意識到本聲明的法律后果由本人承擔(dān)。同意學(xué)校保留并向國家有關(guān)部門或機構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱。本人授權(quán)大學(xué)可以將本學(xué)位。印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。涉密論文按學(xué)校規(guī)定處理。義為zengym,所有相關(guān)的表都屬于這個用戶。zengym的表和視圖等數(shù)據(jù)庫對象了。制界面使用VisualBasic來實現(xiàn)。該數(shù)據(jù)庫由8個表組成。表、課程信息表、獲獎信息表、獲獎

　　

【正文】 Then txtSQL = select * from course_Form where course_Name=39。 amp。 Trim(Text1(0)) amp。 39。 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 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 Private Sub List1Text() Dim txSQL As String Dim mrcc As txSQL = select * from class_Cour where class_NO=39。 amp。 Trim() amp。 39。 Set mrcc = ExecuteSQL(txSQL, MsgText) Do While Not Trim(mrcc!course_Name) Loop End Sub Private Sub List2Text() Dim txSQL As String Dim mrcc As txSQL = select * from course_Form Set mrcc = ExecuteSQL(txSQL, MsgText) 28 Do While Not Trim(mrcc!course_Name) Loop End Sub 在工程中添加一個窗體，命名為“ frmcusi”。 Frmcusi 窗口的界面十一圖如下。 Frmcusi 窗體包含的控件及其屬性如下： 對象名 屬性 屬性值 Label1 Caption 用戶列表 Label2(0) Caption 添加 Label2(1) Caption 修改 Label2(2) Caption 刪除 Picture1 (0) IMEMode 0 – No Operation List1 List （ List） Command1 Caption 添加 Command2 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。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此用戶已經(jīng)存在 !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Now For i = 0 To 2 Text1(i) = Next MsgBox 用戶添加成功 !, vbOKOnly, 提示 Listapp End Sub 在工程中添加一個窗體，命名為“ frmprpi”。 Frmprpi 窗口的界面設(shè)計十一圖如下： 30 Frmprpi 窗體包含的主要控件及其屬性如下： 對象名 屬性 屬性值 Label1 Caption 輸入學(xué)號進行查詢添加 Label2 Caption 獎懲信息表 Label3 Caption 收到獎勵或懲罰的時間 Label4 Caption 獎懲名稱 Picture5 Caption 備注信息 List1 List （ List） Command1 Caption 添加 Command2 Caption 刪除 編寫主要代碼如下 Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 獎懲名稱不能為空 !, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txtSQL = select * from prize_Form where prize_Name=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此獎懲名稱已經(jīng)存在 , vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If 31 txtSQL = select * from prize_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) Text1(0) = Text1(1) = MsgBox 獎懲信息添加成功 !, vbOKOnly, 提示 List1Text End Sub 在工程中添加一個窗口，命名為“ frmscoi”。 Frmscoi 窗口的界面設(shè)計示意圖如下 . Frmscoi 窗體包含的主要控件及其屬性如下： 對象名 屬性 屬性值 Combo1（ 0） Caption 學(xué)生班號 Label Caption 考試期號 32 Option1（ 0） Caption 添加 MSFlexGrid1 BorderStyle 1 – flexBorderSingle Picture1（ 0） DrawMode 13 – Copy Pen ProgressBar1 Orientation ccOrientationHorizontal Command1 Caption 添加 Command2 Caption 取消 其他控件以及屬性跟上面的表中的類似。 編寫窗體主要代碼如下 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。 .ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550 .ColWidth(3) = 1550 .ColWidth(4) = 1550 .ColWidth(5) = 1550 .Rows = 1 End With Text1(0) = GetRkno End Sub Private Sub MSFlexGrid1_Click() Dim txtSQL As String If 0 Then Text3(0) = (, 0) Text3(1) = (, 1) Combo3(0).Clear Combo3(0).AddItem (, 2) 33 Combo3(0).ListIndex = 0 txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With Combo3(0) Do While Not If mrc!class_NO .Text Then