【文章內(nèi)容簡介】 End Sub Private Sub bkxshmddy_Click() End Sub Private Sub chjlr_Click() End Sub Private Sub gyrj_Click() End Sub Private Sub kchxxlr_Click() End Sub Private Sub MDIForm_Load() End Sub Private Sub shjbf_Click() End Sub Private Sub tch_Click() 12 End End Sub Private Sub xshxxlr_Click() End Sub Private Sub yhqx_Click() End Sub 在這里管理員可以進行添加用戶、修改用戶和刪除用戶等操作。如圖 43 所示 圖 43 用戶權(quán)限設置 用戶權(quán)限設置代碼如下： Private Sub Command1_Click() = False = False = True = True End Sub Private Sub Command2_Click() = False = False = True = True End Sub Private Sub Command3_Click() 13 = True = True = False = False End Sub Private Sub Command4_Click() = True = True = False = False End Sub Private Sub Command5_Click() answer = MsgBox(確定刪除數(shù)據(jù)嗎？ , 305, 核對框 ) If answer = 1 Then End If End Sub Private Sub Form_Load() = amp。 \DATABASE\ End Sub 模塊設計 包括對班級信息 、 學生基本信息 、 課程信息 、學生 成績信息 、學生 補考信息的錄入、修改和刪除 1. 班級信息錄入 用戶在班級輸入框中輸入要添加的班級信息，點擊添加按鈕，如果班級信息出現(xiàn)在右側(cè)的表格中就說明信息添加成功。用戶也可以對已經(jīng)添加的信息進行修改和刪除，具體操作是選中要修改或者刪除的班級信息點擊修改或者刪除按鈕執(zhí)行相應的操作，如果已經(jīng)添加的班級信息很多，你可以通過模糊查找來幫你找出比較匹配的班級信息并將查詢結(jié)果顯示在右側(cè)的表格中，便于用戶進行修改或刪除。如圖 44 所示 14 圖 44 班級信息 班級信息錄入的代碼： Private Sub Command1_Click() = False = False = True = True End Sub Private Sub Command2_Click() = False = False = True = True End Sub Private Sub Command3_Click() = True = True = False = False End Sub Private Sub Command4_Click() = True = True = False = False 15 End Sub Private Sub Command5_Click() answer = MsgBox(確定刪除數(shù)據(jù)嗎？ , 305, 核對框 ) If answer = 1 Then End If End Sub Private Sub Command6_Click() Dim bm bm = 班級 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄 ) = bm End If End Sub Private Sub Form_Load() = amp。 \DATABASE\ End Sub 2. 學生基本 信息錄入 在此輸入學生的基本信息 包含班級學號、姓名、性別、出生日期、文化程度、籍貫、民族、入學日期、身份證號等，主要是對學生信息的登記。 管理員還可以在右側(cè)表格中對已經(jīng)選中的學生信息進行修改或者刪除，如果學生信息比較多，而你要進行操作的學生的信息沒有顯示出來，你可以通過查找進行快速定位，查找分為按學號查找和按姓名查找。如圖 45所示： 圖 45 學生信息 16 學生信息模塊的代碼： Private Sub Command1_Click() Dim bm bm = 學號 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄 ) = bm End If End Sub Private Sub Command2_Click() Dim bm bm = 姓名 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄 ) = bm End If End Sub Private Sub Command3_Click() Dim bm bm = 姓名 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄 ) = bm End If End Sub Private Sub Command4_Click() = False = False = True = True End Sub Private Sub Command5_Click() = False = False = True 17 = True End Sub Private Sub Command6_Click() = True = True = False = False End Sub Private Sub Command7_Click() = True = True = False = False End Sub Private Sub Command8_Click() answer = MsgBox(確定刪除數(shù)據(jù)嗎？ , 305, 核對框 ) If answer = 1 Then End If End Sub Private Sub DBGrid1_Click() End Sub Private Sub Form_Load() = amp。 \DATABASE\ = amp。 \DATABASE\ End Sub . 主要是對學生所學課程信息進行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課程名稱，點擊添加按鈕，如果課程信息出現(xiàn)在右側(cè)的表格中，就說明信息添加成功。在這里也可以選中右側(cè)表格中的信息對課程信息進行修改或者刪除，管理員也可以通過利用查找功能快速定位你想要操作的課程信息，便于管理。如 圖 46 所示： 18 圖 46 課程設置 管理員在此窗口輸入要輸入學生所屬班級，學生所學的課程和學期后，點擊“確定”按鈕，在下面的表格中就會列出班級所有學生的學號和姓名，如果某位學生這門學科已經(jīng)輸入成績則顯示該學生的成績情況。選中要進行成績錄入的學生，在窗口下面就會顯示選中學生的“學號”和“姓名”，在后面的輸入框中輸入相應的信息，點擊“確定并輸入下一成績”按鈕，該學生的成績就添加成功了。如果點擊“對已輸入成績進行刪除”按鈕，則將已經(jīng)輸入的成績信息刪除。如圖 47 所示 圖 47 成績信息錄入 成績錄入代碼如下： Private Sub Command1_Click() MsgBox (注意，學期一定要輸入正確 ) SQLStr = SELECT 學號 ,姓名 FROM 學生 SQLStr = SQLStr + WHERE 班級 like amp。 39。 amp。 amp。 39。 SQLStr = SQLSt