(圖片較大，請(qǐng)拉動(dòng)滾動(dòng)條觀看) （3）成功創(chuàng)建上述用戶的SQL代碼如下。 ――――――――――――――――――――――――――――――――――――― CREATE USER "GRADUATEUSER" PROFILE "DEFAULT" IDENTIFIED BY "12345678" DEFAULT TABLESPACE "USERS" TEMPORARY TABLESPACE "TEMP" ACCOUNT UNLOCK; GRANT UNLIMITED TABLESPACE TO "GRADUATEUSER"; GRANT "CONNECT" TO "GRADUATEUSER"; GRANT "RESOURCE" TO "GRADUATEUSER"; ――――――――――――――――――――――――――――――――――――― 【參見光盤文件】：第10章/creategraduateuser.sql。 （4）讀者可以直接在【SQLPlus Worksheet】中執(zhí)行creategraduateuser.sql文件創(chuàng)建用戶。
1.為研究生信息表建立視圖 （1）在如圖10.45所示的創(chuàng)建視圖的【一般信息】選項(xiàng)卡中按照?qǐng)D示進(jìn)行操作。 （2）其他選項(xiàng)卡按照默認(rèn)設(shè)置即可。 （3）上述創(chuàng)建視圖的SQL代碼如下。 ――――――――――――――――――――――――――――――――――――― CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_GRADUATE" AS select * from graduateuser.graduate_info WITH READ ONLY ――――――――――――――――――――――――――――――――――――― 【參見光盤文件】：第10章/createviewgraduate.sql。 （4）讀者可以直接在【SQLPlus Worksheet】中執(zhí)行createviewgraduate.sql文件創(chuàng)建數(shù)據(jù)表graduateuser.graduate_info的視圖“VIEW_GRADUATE”。 2.為專業(yè)信息表建立視圖 （1）在如圖10.46所示的創(chuàng)建視圖的【一般信息】選項(xiàng)卡中按照?qǐng)D示進(jìn)行操作。 （2）其他選項(xiàng)卡按照默認(rèn)設(shè)置即可。 （3）上述創(chuàng)建視圖的SQL代碼如下。 ――――――――――――――――――――――――――――――――――――― CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_MAJOR" AS select * from graduateuser.major_info WITH READ ONLY ――――――――――――――――――――――――――――――――――――― 【參見光盤文件】：第10章/createviewmajor.sql。 （4）讀者可以直接在【SQLPlus Worksheet】中執(zhí)行createviewmajor.sql文件創(chuàng)建數(shù)據(jù)表graduateuser.major_info的視圖“VIEW_MAJOR”。 2.為導(dǎo)師信息表建立視圖 （1）在如圖10.47所示的創(chuàng)建視圖的【一般信息】選項(xiàng)卡中按照?qǐng)D示進(jìn)行操作。 （2）其他選項(xiàng)卡按照默認(rèn)設(shè)置即可。 （3）上述創(chuàng)建視圖的SQL代碼如下。 ――――――――――――――――――――――――――――――――――――― CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_DIRECTOR" AS select * from graduateuser.director_info WITH READ ONLY ――――――――――――――――――――――――――――――――――――― 【參見光盤文件】：第10章/createviewdirector.sql。 （4）讀者可以直接在【SQLPlus Worksheet】中執(zhí)行createviewdirector.sql 文件創(chuàng)建數(shù)據(jù)表graduateuser.director_info的視圖“VIEW_DIRECTOR”
(圖片較大，請(qǐng)拉動(dòng)滾動(dòng)條觀看) （7）為什么這些菜單可以調(diào)用這些子窗體或者執(zhí)行退出主窗體的操作呢？在圖10.50的主窗體中用鼠標(biāo)雙擊，在出現(xiàn)的代碼窗口中的主要代碼如下。 ――――――――――――――――――――――――――――――――――――― ‘選擇菜單項(xiàng)DirectorInsertMenu后將顯示子窗體FormInsertDirector Private Sub DirectorInsertMenu_Click() FormInsertDirector.Show End Sub ‘選擇菜單項(xiàng)DirectorSelectMenu 后將顯示子窗體FormSelectDirector Private Sub DirectorSelectMenu_Click() FormSelectDirector.Show End Sub ‘選擇菜單項(xiàng)DirectorUpdateMenu后將顯示子窗體FormUpdateDirector Private Sub DirectorUpdateMenu_Click() FormUpdateDirector.Show End Sub ‘選擇菜單項(xiàng)GraduateInsertMenu后將顯示子窗體FormInsertGraduate Private Sub GraduateInsertMenu_Click() FormInsertGraduate.Show End Sub ‘選擇菜單項(xiàng)GraduateSelectMenu后將顯示子窗體FormSelectGraduate Private Sub GraduateSelectMenu_Click() FormSelectGraduate.Show End Sub ‘選擇菜單項(xiàng)GraduateUpdateMenu后將顯示子窗體FormUpdateGraduate Private Sub GraduateUpdateMenu_Click() FormUpdateGraduate.Show End Sub ‘選擇菜單項(xiàng)MajorInsertMenu后將顯示子窗體FormInsertMajor Private Sub MajorInsertMenu_Click() FormInsertMajor.Show End Sub ‘選擇菜單項(xiàng)MajorUpdateMenu后將顯示子窗體FormUpdateMajor Private Sub MajorUpdateMenu_Click() FormUpdateMajor.Show End Sub ‘選擇菜單項(xiàng)ExitMenu后將顯示退出主窗體 Private Sub ExitMenu_Click() End End Sub ―――――――――――――――――――――――――――――――――――――
模塊的設(shè)計(jì)
模塊Module1的其他主要代碼如下。
――――――――――――――――――――――――――――――――――――― ‘定義了名為ConnectString的無參數(shù)函數(shù)，連接數(shù)據(jù)庫(kù) Public Function ConnectString() As String ConnectString = "DSN=graduateDB;UID=graduateuser;PWD=12345678" End Function ‘定義了名為ExecuteSQL的帶參數(shù)函數(shù)，參數(shù)SQL和MsgString都為字符串型。該函數(shù)用于執(zhí)行SQL語句。 Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset ‘conn為ADODB的connection連接對(duì)象 Dim conn As ADODB.Connection ‘rest為ADODB的記錄集對(duì)象 Dim rest As ADODB.Recordset ‘若執(zhí)行SQL錯(cuò)誤轉(zhuǎn)向ExecuteSQL_Error標(biāo)記處 On Error GoTo ExecuteSQL_Error Set conn = New ADODB.Connection ‘連接數(shù)據(jù)庫(kù) conn.Open ConnectString Set rest = New ADODB.Recordset ‘執(zhí)行SQL字符串語句 rest.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rest MsgString = "查詢到" & rest.RecordCount & " 條記錄" ‘執(zhí)行SQL完畢后關(guān)閉連接和記錄集 ExecuteSQL_Exit: Set rest = Nothing Set conn = Nothing Exit Function ‘執(zhí)行SQL錯(cuò)誤時(shí)的處理方法 ExecuteSQL_Error: MsgString = "查詢錯(cuò)誤: " & _ Err.Description Resume ExecuteSQL_Exit End Function ‘定義了名為Checktxt的帶參數(shù)函數(shù)，參數(shù)txt為字符串型。該函數(shù)用于檢測(cè)txt字符串是否有內(nèi)容。 Public Function Checktxt(txt As String) As Boolean If Trim(txt) = "" Then Checktxt = False Else Checktxt = True End If End Function ―――――――――――――――――――――――――――――――――――――
