【正文】 7. 關(guān)閉登陸窗體。如果密碼不同，則返回，要求用戶重要輸入，同時將計數(shù)變量 Try_times 加 1. 5. 如果 Try_times 大于或等于 3，則退出系統(tǒng)。如果不存在，則返回，要求用戶重新輸入如，同時將計數(shù)變量 Try_times 加 1。 2. 將輸入的用戶名和密碼賦值到變量 NameKey和 PasswordKey中，便于處理。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 () 39。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End 20 Else Exit Sub End If End If 39。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If 39。 1. 變量聲明 登陸窗體的變量聲明如下： Public PasswordKey As String Public NameKey As String Public Try_times As Integer Namekey 用于保存用戶名， Passwordkey 用于保存密碼， Try_Times 用于記錄嘗試登陸的次數(shù)。 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 Frmlogin Borderstyle 1fixed single Caption 身份驗證 Cpmtrobox False statrUpPostion 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登陸窗體中控件的屬性如下表所示。 設(shè)計登陸窗體 登錄窗體的名稱為 FrmLogin,它的界面布局如下圖 所示。參數(shù) Tmpuser 表示要修改的用戶名 18 第四章 詳細(xì)設(shè)計 登陸窗體和系統(tǒng)主界面設(shè)計 當(dāng)系統(tǒng)運行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進入系統(tǒng)。參數(shù) Tmpuser 表示要讀取數(shù)據(jù)的用戶名 In_DB 判斷指定的用戶名是否已經(jīng)在數(shù)據(jù)庫中。 Users 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定用戶記錄。 類 Users 類用來管理 users 的數(shù)據(jù)庫操作，它保存為 。參數(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)的變量中。參數(shù) Tmpaid 表示課程安排記錄編號，參數(shù)Tmpsid 表示學(xué)生編號 In_DB 判斷指定的成績記錄是否存在。參數(shù) Tmpid 表示記錄編號 1. scores 類 scores 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員變量 Delete 刪除指定的成績記錄。參數(shù) Tmpid 表示記錄編號 Getinfo 讀取指定的課程安排信息。 Arrangement 類的成員函數(shù)如下表所示。參數(shù) TmpName 表示學(xué)期名稱 Insert 插入新的記錄 Update 修改指定的記錄。參數(shù) Tmpid 表示記錄編號 Getscore 讀取指定的學(xué)期名稱。Lessons 類的成員函數(shù)如下表所示。參數(shù) TmpName 表示學(xué)期名稱 Insert 插入新的記錄 update 修改指定的記錄。參數(shù) Tmpid 表示記錄編號 Getname 讀取指定的學(xué)期名稱。 Terms 類的成員函數(shù)如下表所示。參數(shù) tmpname 表示學(xué)期名稱 Insert 插入新的記錄 Update 修改指定的記錄。參數(shù) tmpid 表示記錄編號 Getname 讀取指定的學(xué)期名稱。 Terms 類的成員函數(shù)如表所示。如果使用 perserve參數(shù)，則在重新分配存儲空間時，要保持?jǐn)?shù)組中原來的數(shù)據(jù) 。使用 erase 命令可以釋放動態(tài)數(shù)組的存儲空間。因為在編寫程序時無法確定數(shù)據(jù)量的大小，所以通常會使用動態(tài)數(shù)組。讀取院系班級編號 ReDim Preserve Arr_ClassId(i + 1) Arr_ClassId(i) = (0) 39。此過程在學(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ù) oristudentid 表示要修改的學(xué)生的編號 Update_transfer 修改指定學(xué)生的院系班級信息 class_id。參數(shù) tmpstudentid 表示要讀取的學(xué)生的編號 Getname 根據(jù)指定的學(xué)生編號讀取學(xué)生姓名。students 類的成員函數(shù)如表所示 14 students 類的成員函數(shù) 函數(shù)名 具體說明 Init 初始化成員的變量 Delete 刪除指定的學(xué)生記錄。 函數(shù)根據(jù) 判斷表 students 中是否存在 class_id 等于參數(shù) tmpclassid的記錄。執(zhí)行 SQL 語句 Set rs = QueryExt(SqlStmt) If Then HaveStudent = False Else HaveStudent = True End If End Function 這是一個典型的判斷數(shù)據(jù)庫表中是否存在指定記錄的函數(shù)。 （ 2） hacestudent()函數(shù)，其代碼如下： Public Function HaveStudent(ByVal TmpClassId As Long) As Boolean Dim rs As New 39。執(zhí)行 SQL 語句 Set rs = QueryExt(SqlStmt) 39。 13 (2)getnewid()函數(shù)，其代碼如下： Public Function GetNewId() As Long Dim TmpId As Long Dim rs As New 39。 （ 1） init 函數(shù)，其代碼如下： Public Sub Init() Class_Id = 1 Class_Name = UpperId = 1 End Sub 每個類模塊都需要一個初始化過程，對類模塊中的成員變量賦初始值。參數(shù) tmpid 表示要修改的院系班級的編號。插入數(shù)據(jù)前應(yīng)首先調(diào)用Getnewid 函數(shù)生成新記錄的院系班級編號 Load_classes_byupper 根據(jù)指定的上級院系班級編號，讀取所有下一級院系班級的名稱。次函數(shù)將在刪除院系班級數(shù)據(jù)之前調(diào)用，如果返回 true，則不能刪除指定的院系班級 In_db 判斷指定的院系班級名稱是否已經(jīng)在數(shù)據(jù)庫中。參數(shù)tmpupperid 表示指定的院系班級的編號。如果返回 Ture,則表示院系班級中存在學(xué)生；否則表示院系班級中沒有學(xué)生。 Havestudent 判斷指定院系班級中是否存在學(xué)生。參數(shù) Tmpid 表示指定的院系班級編號。參數(shù) Tmpid 表示要讀取的院系班級編號。參數(shù) Tmpid 表示要輸出的院系班級編號。classes 類的成員函數(shù)如下表所示。請讀者閱讀光盤中相關(guān)類的內(nèi)容。在通常情況下，類的成員變量與對應(yīng)的表中的字段名相同。模塊文件保存在 Modules 目錄下。這些類模塊的內(nèi)容將下面 介紹。它的作用是在第一次引用該變量時創(chuàng)建該對象的新實例。當(dāng)前用戶對象 在 Variable 模塊中，定義了一組類模塊的實例。課程安排對象 Public MyUser As New Users 39。課程對象 Public MyScores As New Scores 39。當(dāng)前班級對象 Public MyTerm As New Terms 39。選擇學(xué)生信息的對象 Public MyClass As New Classes 39。學(xué)生對象 11 Public CurStu As New Students 39。學(xué)生數(shù)組 Public Arr_StuId() As Integer Public Arr_StuName() As String 39。讀取表中列值的變量 Public conn As String 39。 Varable 模塊的代碼如下： 39。 DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的生 命、變量和函數(shù) Genera1Func 用來管理工程中一些通用的自定義函數(shù)。參考下圖所示創(chuàng)建關(guān)系，結(jié)果如圖 所示。 表 scores 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 arrangeid 數(shù)字 /長整型 課程編號 2 Student_id 數(shù)字 /長整型 學(xué)生編號 3 score 數(shù)字 /整型 分?jǐn)?shù) 用戶信息表 users 表 Users 用來保存系統(tǒng)用戶信息，結(jié)構(gòu) 如 下表所示。 表 Lessons 的結(jié) 構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Lessonid 自動編號 課程編號，主鍵 2 lessonname 文本，長度 100 課程名稱 課程安排表 Arrangement 表 Arrangement 用來保存課程安排信息，結(jié)構(gòu)如下表所示。 表 Students 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Student_Id 自動編號 學(xué)生編號，主鍵 2 Student_name 文本，長度 50 姓 名 3 sex 文本，長度 2 性別 4 nationality 文本，長度 40 民族 5 birth 文本，長度 20 生日 6 Family_place 文本，長度 60 籍貫 7 Id_card 文本，長度 20 身份證號 8 badgeID 文成，長度 40 學(xué)生證號 9 Home_phone 文本，長度 30 家庭電話 10 resodemce 文本，長度 100 居住地址 11 postcode 文本，長度 10 郵政編碼 12 indate 日期 /時間 入校日期 13 Class_id 數(shù)字 /長整型 所在院系編號 14 title 文本，長度 20 職務(wù) 15 memo 文本，長度 200 備注 16 Filin_time 日期 /時間 填表時間（日期 +時間） 學(xué)期信息表 Terms 表 Terms 用來保存學(xué)期信息，結(jié)構(gòu)如下表所示。表結(jié)構(gòu)如下 表 所示。 Classes 表 Classes 用來保存學(xué)校院系班級的信息。 數(shù)據(jù)庫中包含 7 個表，即院系學(xué)院班級表 Classes、學(xué)生基本信息表Students、學(xué)期信息表 Terms、課程信息表 Lessons、課程安排表 Arrangement、學(xué)生成績表 Scores 和用戶信息表 Users。 系統(tǒng)用戶信息管理 修 改 A d m i n 用 戶 的 密 碼 創(chuàng) 建 、 修 改 和 刪 除 普通 用 戶 信 息 修 改 自 身 的 用 戶 名 和密 碼 圖 34 用戶管理功能集合模塊關(guān)系