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