學生成績管理系統(tǒng)畢業(yè)設計論文(編輯修改稿)
2025-09-02 08:17 本頁面
【文章內(nèi)容簡介】 f_Click()End SubPrivate Sub tch_Click()EndEnd SubPrivate Sub xshxxlr_Click()End SubPrivate Sub yhqx_Click()End Sub在這里管理員可以進行添加用戶、修改用戶和刪除用戶等操作。如圖43所示圖43 用戶權限設置用戶權限設置代碼如下：Private Sub Command1_Click() = False = False = True = TrueEnd SubPrivate Sub Command2_Click() = False = False = True = TrueEnd SubPrivate Sub Command3_Click() = True = True = False = FalseEnd SubPrivate Sub Command4_Click() = True = True = False = FalseEnd SubPrivate Sub Command5_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 Then End IfEnd SubPrivate Sub Form_Load() = amp。 \DATABASE\End Sub 包括對班級信息、學生基本信息、課程信息、學生成績信息、學生補考信息的錄入、修改和刪除1. 班級信息錄入用戶在班級輸入框中輸入要添加的班級信息，點擊添加按鈕，如果班級信息出現(xiàn)在右側的表格中就說明信息添加成功。用戶也可以對已經(jīng)添加的信息進行修改和刪除，具體操作是選中要修改或者刪除的班級信息點擊修改或者刪除按鈕執(zhí)行相應的操作，如果已經(jīng)添加的班級信息很多，你可以通過模糊查找來幫你找出比較匹配的班級信息并將查詢結果顯示在右側的表格中，便于用戶進行修改或刪除。如圖44所示圖44 班級信息班級信息錄入的代碼：Private Sub Command1_Click() = False = False = True = TrueEnd SubPrivate Sub Command2_Click() = False = False = True = TrueEnd SubPrivate Sub Command3_Click() = True = True = False = FalseEnd SubPrivate Sub Command4_Click() = True = True = False = FalseEnd SubPrivate Sub Command5_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 ThenEnd IfEnd SubPrivate Sub Command6_Click() Dim bm bm = 班級 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄) = bm End IfEnd SubPrivate Sub Form_Load() = amp。 \DATABASE\End Sub2. 學生基本信息錄入在此輸入學生的基本信息包含班級學號、姓名、性別、出生日期、文化程度、籍貫、民族、入學日期、身份證號等，主要是對學生信息的登記。管理員還可以在右側表格中對已經(jīng)選中的學生信息進行修改或者刪除，如果學生信息比較多，而你要進行操作的學生的信息沒有顯示出來，你可以通過查找進行快速定位，查找分為按學號查找和按姓名查找。如圖45所示：圖45 學生信息學生信息模塊的代碼：Private Sub Command1_Click()Dim bm bm = 學號 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄) = bm End IfEnd SubPrivate Sub Command2_Click()Dim bm bm = 姓名 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄) = bm End IfEnd SubPrivate Sub Command3_Click()Dim bm bm = 姓名 Like amp。 39。* amp。 amp。 *39。 If Then MsgBox (沒有符合條件的記錄) = bm End IfEnd SubPrivate Sub Command4_Click() = False = False = True = TrueEnd SubPrivate Sub Command5_Click() = False = False = True = TrueEnd SubPrivate Sub Command6_Click() = True = True = False = FalseEnd SubPrivate Sub Command7_Click() = True = True = False = FalseEnd SubPrivate Sub Command8_Click()answer = MsgBox(確定刪除數(shù)據(jù)嗎？, 305, 核對框)If answer = 1 ThenEnd IfEnd SubPrivate Sub DBGrid1_Click()End SubPrivate Sub Form_Load() = amp。 \DATABASE\ = amp。 \DATABASE\End Sub. 主要是對學生所學課程信息進行添加、修改和刪除。管理員在課程名輸入框中輸入要添加的課程名稱，點擊添加按鈕，如果課程信息出現(xiàn)在右側的表格中，就說明信息添加成功。在這里也可以選中右側表格中的信息對課程信息進行修改或者刪除，管理員也可以通過利用查找功能快速定位你想要操作的課程信息，便于管理。如圖46所示：圖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 = SQLStr + order by 學號 = SQLStr = 學號 = 姓名 sSQLStr = SELECT 學號,姓名,隨堂,平時,考勤,期末,總評,學期 from 成績 sSQLStr = sSQLStr + where 班級 like amp。 39。 amp。
試題試卷相關推薦
鄂ICP備17016276號-1