研究生管理資訊系統的開發流程

來源:互聯網
上載者:User


 
系統需求分析

    研究生個人資訊管理
    導師資訊管理
    專業資訊管理

功能模組設計

    針對上述需求,設計的功能模組如圖10.34所示。


資料表設計

    1.研究生資訊資料表
    資料表名稱:graduate_info。資料表結構如表10.4所示。

    2.專業資訊資料表

    3.導師資訊資料表


索引和視圖設計

    1.研究生資訊資料表的索引和視圖設計
    2.專業資訊表的索引和視圖設計
    3.導師資訊資料表的索引和視圖設計

建立資料庫使用者

    (1)在如圖10.35所示的建立使用者的【一般資訊】選項卡中進行如下設定。
    (2)切換到如圖10.36所示的建立使用者的【角色】選項卡。

    (3)成功建立上述使用者的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】中執行creategraduateuser.sql檔案建立使用者。

建立資料表

    1.建立研究生資訊表
    (1)在如圖10.37所示的建立表的【一般資訊】選項卡中進行如下操作。
    (2)切換到如圖10.38所示的建立表的【約束條件】選項卡。

    (3)上述建立資料表graduateuser.graduate_info的SQL代碼如下。

    (3)上述建立資料表graduateuser.graduate_info的SQL代碼如下。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createtablegraduateinfo.sql 檔案建立資料表graduateuser.graduate_info。
    2.建立專業資訊表
    (1)在如圖10.39所示的建立表的【一般資訊】選項卡中按照如圖所示進行設定。
    (2)切換到如圖10.40所示的建立表的【約束條件】選項卡。

    (3)上述建立資料表graduateuser.major_info的SQL代碼如下。

    【參見光碟片檔案】:第10章\createtablemajorinfo.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createtablemajorinfo.sql檔案建立資料表graduateuser.major_info。
    3.建立導師資訊表
    (1)在如圖10.41所示的建立表的【一般資訊】選項卡中按照如圖所示進行設定。
    (2)切換到如圖10.42所示的建立表的【約束條件】選項卡。

    (3)上述建立資料表graduateuser.director_info的SQL代碼如下。

    【參見光碟片檔案】:第10章\createtabledirectorinfo.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createtabledirectorinfo.sql 檔案建立資料表graduateuserdirector_info。

建立索引

    1.為研究生資訊表的NAME欄位建立索引
    (1)在如圖10.43所示的建立索引的【一般資訊】選項卡中按照圖示進行操作。
    (2)其他選項卡按照預設設定即可。

    (3)上述建立索引的SQL代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    CREATE INDEX "GRADUATEUSER"."研究生姓名欄位索引"
        ON "GRADUATEUSER"."GRADUATE_INFO"("NAME")
        TABLESPACE "INDX"
    ―――――――――――――――――――――――――――――――――――――
    【參見光碟片檔案】:第10章\createindexgraduate.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createindexgraduate.sql 檔案建立資料表graduateuser.graduate_info的索引“研究生姓名欄位索引”。
    2.為導師資訊表的NAME欄位建立索引
    (1)在如圖10.44所示的建立索引的【一般資訊】選項卡中按照圖示進行操作。
    (2)其他選項卡按照預設設定即可。
    (3)上述建立索引的SQL代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    CREATE INDEX "GRADUATEUSER"."導師姓名欄位索引"
       ON "GRADUATEUSER"."DIRECTOR_INFO"("NAME")
       TABLESPACE "INDX"
    ―――――――――――――――――――――――――――――――――――――
    【參見光碟片檔案】:第10章\createindexdirector.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createindexdirector.sql 檔案建立資料表graduateuser.director_info的索引“導師姓名欄位索引”。


建立視圖

    1.為研究生資訊表建立視圖
    (1)在如圖10.45所示的建立視圖的【一般資訊】選項卡中按照圖示進行操作。

    (2)其他選項卡按照預設設定即可。
    (3)上述建立視圖的SQL代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_GRADUATE" AS
        select *
        from graduateuser.graduate_info WITH READ ONLY
    ―――――――――――――――――――――――――――――――――――――
    【參見光碟片檔案】:第10章\createviewgraduate.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createviewgraduate.sql檔案建立資料表graduateuser.graduate_info的視圖“VIEW_GRADUATE”。
    2.為專業資訊表建立視圖
    (1)在如圖10.46所示的建立視圖的【一般資訊】選項卡中按照圖示進行操作。

    (2)其他選項卡按照預設設定即可。
    (3)上述建立視圖的SQL代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_MAJOR" AS
        select *
        from graduateuser.major_info WITH READ ONLY
    ―――――――――――――――――――――――――――――――――――――
    【參見光碟片檔案】:第10章\createviewmajor.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createviewmajor.sql檔案建立資料表graduateuser.major_info的視圖“VIEW_MAJOR”。
    2.為導師資訊表建立視圖
    (1)在如圖10.47所示的建立視圖的【一般資訊】選項卡中按照圖示進行操作。
    (2)其他選項卡按照預設設定即可。
    (3)上述建立視圖的SQL代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_DIRECTOR" AS
       select *
       from graduateuser.director_info WITH READ ONLY
    ―――――――――――――――――――――――――――――――――――――
    【參見光碟片檔案】:第10章\createviewdirector.sql。
    (4)讀者可以直接在【SQLPlus Worksheet】中執行createviewdirector.sql 檔案建立資料表graduateuser.director_info的視圖“VIEW_DIRECTOR”


VB工程總體架構

    開發完成的研究生管理資訊系統的總體架構如表10.7所示。
    【參見光碟片檔案】:第10章\研究生管理資訊系統.vbp。



系統是如何啟動並執行

    (1)啟動VB,開啟配套光碟片的工程檔案。
    (2)如圖10.48所示。

    (3)出現如圖10.49所示的工程屬性的【通用】選項卡。
    (4)開啟模組Module1,查看名為Main的過程的代碼如下。說明Main過程將啟動名為frmMain的主表單。


    (5)編輯名為frmMain的主表單,如圖10.50所示。

    (6)出現如圖10.51所示的【菜單編輯器】介面,可以查看主表單的菜單設計。

    工程中設計的菜單如表10.8所示。


    (7)為什麼這些菜單可以調用這些子表單或者執行退出主表單的操作呢?在圖10.50的主表單中用滑鼠雙擊,在出現的代碼視窗中的主要代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    ‘選擇功能表項目DirectorInsertMenu後將顯示子表單FormInsertDirector
    Private Sub DirectorInsertMenu_Click()
       FormInsertDirector.Show
    End Sub
    ‘選擇功能表項目DirectorSelectMenu 後將顯示子表單FormSelectDirector
    Private Sub DirectorSelectMenu_Click()
      FormSelectDirector.Show
    End Sub
    ‘選擇功能表項目DirectorUpdateMenu後將顯示子表單FormUpdateDirector
    Private Sub DirectorUpdateMenu_Click()
     FormUpdateDirector.Show
    End Sub
    ‘選擇功能表項目GraduateInsertMenu後將顯示子表單FormInsertGraduate
    Private Sub GraduateInsertMenu_Click()
     FormInsertGraduate.Show
    End Sub
    ‘選擇功能表項目GraduateSelectMenu後將顯示子表單FormSelectGraduate
    Private Sub GraduateSelectMenu_Click()
      FormSelectGraduate.Show
    End Sub
    ‘選擇功能表項目GraduateUpdateMenu後將顯示子表單FormUpdateGraduate
    Private Sub GraduateUpdateMenu_Click()
      FormUpdateGraduate.Show
    End Sub
    ‘選擇功能表項目MajorInsertMenu後將顯示子表單FormInsertMajor
    Private Sub MajorInsertMenu_Click()
      FormInsertMajor.Show
    End Sub
    ‘選擇功能表項目MajorUpdateMenu後將顯示子表單FormUpdateMajor
    Private Sub MajorUpdateMenu_Click()
      FormUpdateMajor.Show
    End Sub
    ‘選擇功能表項目ExitMenu後將顯示退出主表單
    Private Sub ExitMenu_Click()
      End
    End Sub
    ―――――――――――――――――――――――――――――――――――――

模組的設計

    模組Module1的其他主要代碼如下。
    ―――――――――――――――――――――――――――――――――――――
    ‘定義了名為ConnectString的無參數函數,串連資料庫
    Public Function ConnectString() As String
        ConnectString = "DSN=graduateDB;UID=graduateuser;PWD=12345678"
    End Function
    ‘定義了名為ExecuteSQL的帶參數函數,參數SQL和MsgString都為字串型。該函數用於執行SQL語句。
    Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
       ‘conn為ADODB的connection連線物件
       Dim conn As ADODB.Connection
       ‘rest為ADODB的記錄集對象
       Dim rest As ADODB.Recordset
       ‘若執行SQL錯誤轉向ExecuteSQL_Error標記處
       On Error GoTo ExecuteSQL_Error
       Set conn = New ADODB.Connection
       ‘串連資料庫
       conn.Open ConnectString
       Set rest = New ADODB.Recordset
       ‘執行SQL字串語句
       rest.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic
       Set ExecuteSQL = rest
       MsgString = "查詢到" & rest.RecordCount & " 條記錄"
       ‘執行SQL完畢後關閉串連和記錄集
       ExecuteSQL_Exit:
       Set rest = Nothing
       Set conn = Nothing
       Exit Function
       ‘執行SQL錯誤時的處理方法
       ExecuteSQL_Error:
       MsgString = "查詢錯誤: " & _
       Err.Description
       Resume ExecuteSQL_Exit
       End Function
       ‘定義了名為Checktxt的帶參數函數,參數txt為字串型。該函數用於檢測txt字串是否有內容。
       Public Function Checktxt(txt As String) As Boolean
           If Trim(txt) = "" Then
               Checktxt = False
           Else
               Checktxt = True
           End If
    End Function
    ―――――――――――――――――――――――――――――――――――――

各子表單的設計

    1.添加資訊表單的設計
    開啟名為FormInsertGraduate的子表單,如圖10.52所示。

    表單的設計如表10.8所示。
表10.8 子表單FormInsertGraduate的設計



    表單的程式碼分析如下。





    2.修改資訊表單的設計
    開啟名為FormUpdateGraduate的子表單,如圖10.53所示。

    表單的設計如表10.10所示。


    表單的程式碼分析如下。







    3查詢資訊表單的設計
    開啟名為FormSelectGraduate的子表單,如圖10.54所示。表單的設計如表10.11所示。

    表單的代碼設計如下。







相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。