【文章內(nèi)容簡介】 asses_byupper 根據(jù)指定的上級院系班級編號，讀取所有下一級院系班級的名稱。次函數(shù)在把院系班級裝入到樹狀結(jié)構(gòu)的過程中將起到重要的作用 Update 修改制定的院系班級記錄。參數(shù) tmpid 表示要修改的院系班級的編號。 對其中幾個函數(shù)（過程）的說明如下。 （ 1） init 函數(shù)，其代碼如下： Public Sub Init() Class_Id = 1 Class_Name = UpperId = 1 End Sub 每個類模塊都需要一個初始化過程，對類模塊中的成員變量賦初始值。因?yàn)橐粋€類模塊的對 象在程序中會多次使用，在每次使用之前都應(yīng)該對其進(jìn)行初始化，從而保證不把上一次只用的值帶到這一次使用中。 13 (2)getnewid()函數(shù)，其代碼如下： Public Function GetNewId() As Long Dim TmpId As Long Dim rs As New 39。設(shè)置要執(zhí)行的 SQL 語句 ,取當(dāng)前最大的記錄編號 SqlStmt = SELECT MAX(Class_Id) FROM Classes 39。執(zhí)行 SQL 語句 Set rs = QueryExt(SqlStmt) 39。讀取 SELECT 語句返回的查詢結(jié)果 If IsNull((0)) Then GetNewId = 1 Else GetNewId = (0) + 1 End If End Function 此函數(shù)的功能是生成新的院系編號，在 insert（）過程中將調(diào)用此函數(shù)。 （ 2） hacestudent()函數(shù)，其代碼如下： Public Function HaveStudent(ByVal TmpClassId As Long) As Boolean Dim rs As New 39。設(shè)置要執(zhí)行的 SQL 語句 SqlStmt = SELECT * FROM Students WHERE Class_id= + Trim(Str(TmpClassId)) 39。執(zhí)行 SQL 語句 Set rs = QueryExt(SqlStmt) If Then HaveStudent = False Else HaveStudent = True End If End Function 這是一個典型的判斷數(shù)據(jù)庫表中是否存在指定記錄的函數(shù)。在 classes類中，這個函數(shù)是個特例，因?yàn)槠渌瘮?shù)或過程的數(shù)據(jù)庫操作對象都是在表classes,而此函數(shù)的數(shù)據(jù)庫對象是 Students。 函數(shù)根據(jù) 判斷表 students 中是否存在 class_id 等于參數(shù) tmpclassid的記錄。如果 不為真，表示指定的記錄在表中不存在， havestudent的返回值為 false；否賊返回值為 true. 2. student 類 students 類用來管理表 students 的數(shù)據(jù)庫操作，它保存為 。students 類的成員函數(shù)如表所示 14 students 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員的變量 Delete 刪除指定的學(xué)生記錄。參數(shù) tmpstudentid 表示要刪除的學(xué)生的編號 Getinfo 讀取指定的學(xué)生記錄。參數(shù) tmpstudentid 表示要讀取的學(xué)生的編號 Getname 根據(jù)指定的學(xué)生編號讀取學(xué)生姓名。參數(shù) tmpstudentid表示要讀取的學(xué)生的編號 Insert 插入新的學(xué)生記錄 Load_by_class 讀取指定院系班級中的素有學(xué)生編號到數(shù)組 arr_stuid()和arr_stuname()中 Update 修改指定的學(xué)生記錄。參數(shù) oristudentid 表示要修改的學(xué)生的編號 Update_transfer 修改指定學(xué)生的院系班級信息 class_id。參數(shù) oristudentid表示要修改的學(xué)生的編號。此過程在學(xué)生院系調(diào)轉(zhuǎn)時使用 Load_by_class 過程的代碼如下： Public Sub Load_Class_ByUpper(UpperId As Long) Dim i As Integer Dim rs As New 39。初始化院系班級數(shù)組 Erase Arr_ClassName Erase Arr_ClassId ReDim Arr_ClassName(0) ReDim Arr_ClassId(0) DB_Connect SqlStmt = SELECT Class_Id,Class_Name FROM Classes WHERE UpperId= _ + Trim(Str(UpperId)) + ORDER BY Class_Id Set rs = QueryExt(SqlStmt) i = 0 Do Until 39。讀取院系班級編號 ReDim Preserve Arr_ClassId(i + 1) Arr_ClassId(i) = (0) 39。讀取院系班級名稱 ReDim Preserve Arr_ClassName(i + 1) Arr_ClassName(i) = (1) 15 i = i + 1 Loop End Sub 在數(shù)據(jù)庫程序設(shè)計過程中，經(jīng)常需要把滿足一定條件的數(shù)據(jù)讀取到一些數(shù)組中。因?yàn)樵诰帉懗绦驎r無法確定數(shù)據(jù)量的大小，所以通常會使用動態(tài)數(shù)組。在定義動態(tài)數(shù)組時，不需要指定數(shù)組的上界。使用 erase 命令可以釋放動態(tài)數(shù)組的存儲空間。 Dedim 命令則可以重新分配動態(tài)數(shù)組的存儲空間。如果使用 perserve參數(shù)，則在重新分配存儲空間時，要保持?jǐn)?shù)組中原來的數(shù)據(jù) 。 3. Terms 類 Terms 類用來管理表 Terms 的數(shù)據(jù)庫操作，它保存為 。 Terms 類的成員函數(shù)如表所示。 Terms 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定的學(xué)期記錄。參數(shù) tmpid 表示記錄編號 Getname 讀取指定的學(xué)期名稱。參數(shù) tmpid 表示記錄編號 In_db 判斷指定的學(xué)期記錄是否存在。參數(shù) tmpname 表示學(xué)期名稱 Insert 插入新的記錄 Update 修改指定的記錄。參數(shù) tmpid 表示記錄編號 3． Terms 類 Terms 類用來管理表 Terms 的數(shù)據(jù)庫操作，它保存為 。 Terms 類的成員函數(shù)如下表所示。 Terms 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定的學(xué)期記錄。參數(shù) Tmpid 表示記錄編號 Getname 讀取指定的學(xué)期名稱。參數(shù) Tmpid 表示記錄編號 In_DB 判斷指定的學(xué)期記錄是否存在。參數(shù) TmpName 表示學(xué)期名稱 Insert 插入新的記錄 update 修改指定的記錄。參數(shù) Tmpid 表示記錄編號 類 Lessons 類用來管理表 Lessons 的數(shù)據(jù)庫 操作，它保存為 。Lessons 類的成員函數(shù)如下表所示。 16 Lessons 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定的學(xué)期記錄。參數(shù) Tmpid 表示記錄編號 Getscore 讀取指定的學(xué)期名稱。參數(shù) Tmpid 表示記錄編號 In_DB 判斷指定的學(xué)期記錄是否存在。參數(shù) TmpName 表示學(xué)期名稱 Insert 插入新的記錄 Update 修改指定的記錄。參數(shù) Tmpid 表示記錄編號 類用來管理表 Arrangement 的數(shù)據(jù)庫操作 ，它保存為。 Arrangement 類的成員函數(shù)如下表所示。 Arrangement 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定的課程安排記錄。參數(shù) Tmpid 表示記錄編號 Getinfo 讀取指定的課程安排信息。參數(shù) Tmpid 表示記錄編號 Insert 插入新的記錄 update 修改指定的記錄。參數(shù) Tmpid 表示記錄編號 1. scores 類 scores 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定的成績記錄。參數(shù) Tmpaid 表示課程安排記錄編號，參數(shù)Tmpsid 表示學(xué)生編號 Getscore 讀取指定的成績記錄。參數(shù) Tmpaid 表示課程安排記錄編號，參數(shù)Tmpsid 表示學(xué)生編號 In_DB 判斷指定的成績記錄是否存在。參數(shù) Tmpaid 表示課程安排記錄編號，參數(shù) Tmpsid 表示學(xué)生編號 Insert 插入新的成績記錄 Update 判斷指定的成績記錄是否存在。參數(shù) Tmpaid 表示課 程安排記錄編號，參數(shù) Tmpsid 表示學(xué)生編號 Getscore 過程，其代碼如下： Public Function GetScore(ByVal TmpAid As Long, _ ByVal TmpSid As Long) As Integer 17 Dim rs As New SqlStmt = SELECT Score FROM Scores WHERE ArrangeId= _ + Trim(TmpAid) + And Student_Id= + Trim(TmpSid) Set rs = QueryExt(SqlStmt) If Then GetScore = 0 Exit Function Else If IsNull((0)) Then GetScore = 0 Else GetScore = (0) End If End If End Function 調(diào)用自定義過程 QueryExt()可以將 SELECT 語句的查詢結(jié)果賦值到一個Recordset 對象中，然后使用 ()函數(shù)從結(jié)果集中取得數(shù)據(jù)，賦值到對應(yīng)的變量中。如果結(jié)果集為空，則對類進(jìn)行初始化。 類 Users 類用來管理 users 的數(shù)據(jù)庫操作，它保存為 。 users 類的成員函數(shù)如下表所示。 Users 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定用戶記錄。參數(shù) Tmpuser 表示要刪除的用戶名 Getinfo 讀取指定的記錄。參數(shù) Tmpuser 表示要讀取數(shù)據(jù)的用戶名 In_DB 判斷指定的用戶名是否已經(jīng)在數(shù)據(jù)庫中。參數(shù) Tmpusers 表示用戶名 Insert 插入新的用戶記錄 Update 修改指定的用戶記錄。參數(shù) Tmpuser 表示要修改的用戶名 18 第四章 詳細(xì)設(shè)計 登陸窗體和系統(tǒng)主界面設(shè)計 當(dāng)系統(tǒng)運(yùn)行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。 設(shè)計登陸窗體 登錄窗體的名稱為 FrmLogin,它的界面布局如下圖 所示。 圖 41 登陸窗體的界面布局 登錄窗體的屬性如下表所示。 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 Frmlogin Borderstyle 1fixed single Caption 身份驗(yàn)證 Cpmtrobox False statrUpPostion 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登陸窗體中控件的屬性如下表所示。 登陸窗體包含的控件及其屬性 對象名 屬性 屬性值 Label1 Caption 用戶名 Label2 Captiou 密碼 19 txtUser Text 空 txtPwd Text 空 Passwordchar * Cmd_OK caption 確定 Cmd_cancel caption 取消 下面介紹登陸窗體的部分代碼。 1. 變量聲明 登陸窗體的變量聲明如下： Public PasswordKey As String Public NameKey As String Public Try_times As Integer Namekey 用于保存用戶名， Passwordkey 用于保存密碼， Try_Times 用于記錄嘗試登陸的次數(shù)。 2. cmd_ok_click 過程 當(dāng)用戶單擊“確定”按鈕時觸發(fā) cmd_ok_clik 事件，進(jìn)行身份驗(yàn)證，代碼如下： Private Sub Cmd_OK_C