【正文】 USERS。 9 （ 3）課程信息 (course_Form)表 CREATE TABLE (course_Name Varchar2(50) Primary Key, course_Rem Varchar2(50) ) TABLESPACE USERS。 該數(shù)據(jù)庫由 8個表組成。 創(chuàng)建用戶的腳本為： CREATE user zengym identified by zengym default tablespace users temporary tablespace temp quota 10m on users。本人授權(quán) 大學(xué)可以將本學(xué)位論文的全部或部分內(nèi)容編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索，可以采用影印、縮印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個人或集體已經(jīng)發(fā)表或撰寫的成果作品。盡我所知，除文中特別加以標(biāo)注和致謝的地方外，不包含其他人或組織已經(jīng)發(fā)表或公布過的研究成果，也不包含我為獲得 及其它教育機構(gòu)的學(xué)位或?qū)W歷而使用過的材料。 2． 課程設(shè)計的任務(wù)及要求 1）基本要求： 要求掌握 Oracle 的基本概念，了解備份和恢復(fù)數(shù)據(jù)庫的方法 ,基本的 Oracle 語句，如添加、查詢、修改、刪除記錄語句 , 熟悉數(shù)據(jù)庫連接技術(shù)。 2）課程設(shè)計論文編寫要求 （ 1）理論設(shè)計部分以課程設(shè)計論文的形式提交，格式必須按照課程設(shè)計論文標(biāo)準(zhǔn) 格式進(jìn)行書寫和裝訂。對本研究提供過幫助和做出過貢獻(xiàn)的個人或集體，均已在文中作了明確的說明并表示了謝意。對本文的研究做出重要貢獻(xiàn)的個人和集體，均已在文中以明確方式標(biāo)明。 涉密論文按學(xué)校規(guī)定處理。 grant create session,resource to zengym。這 8 個表包括班級課程信息 (class_cour)表、班級信息(class_Form)表、課程信息 (course_Form)表、獲獎信息 (prize_Form)表、獲獎學(xué)生 信息 (Prize_Stud)表、學(xué)生成績信息 (score_Form)表、學(xué)生信息(student_Form)表、用戶（ user_Form）表。 （ 4）獎懲信息 (prize_Form)表 CREATE TABLE (prize_name varchar2(50) Primary Key, prize_Rem Varchar2(50) ) TABLESPACE USERS。 （ 8）用戶（ user_Form）表 10 CREATE TABLE (user_ID Varchar2(50) Primary Key, user_PWD Varchar2(50), user_DATE date ) TABLESPACE USERS。 測試連接數(shù)據(jù)庫是否成功： 輸入密碼 zengym 后顯示連接結(jié)果 11 “ Password” 輸入 zengym，點擊 OK 測試連接是否成功。UID=zengym。 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)容，如下圖所示。登錄過程需要完成一下任務(wù)：（ 1）根據(jù)用戶名和密碼來判斷是否能進(jìn)入系統(tǒng)；（ 2）根據(jù)用戶類型決定用戶擁有的權(quán)限。 amp。 窗體屬性 設(shè)置值 具體說明 名稱 dColor 設(shè)置窗體名稱 MaxButton True 激活最大化按鈕 MinButton True 激活最小化按鈕 ControlBox True 控制按鈕 在登錄 窗體中添加控件，并設(shè)置控件的屬性如下表所示： 對象名 屬性 屬性值 Image1 Picture （ Bitmap） 17 Image2 Picture （ Bitmap） Stretch False Label1 Caption 歡迎進(jìn)去學(xué)生管理系統(tǒng) BackColor 0 – Transparent 編寫窗體代碼 Private Sub Form_Load() = amp。 amp。 amp。HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = amp。HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = amp。 amp。 amp。 整個窗體界面如下所示。 39。 39。HC0C0C0 Label3(3).BackColor = amp。 39。 39。 39。 39。 39。 39。 Trim(Text1(0)) amp。 Trim() amp。 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。 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”。 39。 .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 。 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 取消 其他控件以及屬性跟上面的表中的類似。 amp。 Trim(Text1(0)) amp。 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)