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