vb課程設(shè)計---學(xué)生成績管理系統(tǒng)-資料下載頁
2025-11-07 15:59本頁面
【導(dǎo)讀】從而對學(xué)生成績的信息進行準確的管理。本系統(tǒng)的開發(fā)目的是有效的管。理學(xué)生信息，實現(xiàn)學(xué)生信息的數(shù)據(jù)的規(guī)范化﹑自動化﹑系統(tǒng)化管理。使學(xué)生查詢自己的成績更加方便﹑快捷；動態(tài)標簽是由時鐘控件編程實現(xiàn)的如果密。CONDITION=CONDITION+"AND課程.課程號='"+TXTID.TEXT+"'"
【正文】 rue = True End Sub 39。尾記錄 按鈕的單擊事件過程 Private Sub cmdLast_Click() Select Case Case 0 Case 1 Case 2 End Select = True = True = False = False End Sub 39。下一條 按鈕的單擊事件過程 Private Sub cmdNext_Click() Select Case 第 22 頁 共 29 頁 Case 0 If Then = True = True = False = False End If Case 1 If Then = True = True = False = False End If Case 2 If Then = True = True = False 第 23 頁 共 29 頁 = False End If End Select End Sub 39。上一條 按鈕的單擊事件過程 Private Sub cmdPrev_Click() Select Case Case 0 If Then = False = False = True = True End If Case 1 If Then = False = False = True = True End If 第 24 頁 共 29 頁 Case 2 If Then = False = False = True = True End If End Select End Sub 39。初始化編輯窗體 Private Sub Form_Load() = False 39。連接數(shù)據(jù)庫 If Right(, 1) = \ Then = + Else = + \ End If 39。設(shè)置記錄源 = 學(xué)生 39。綁定控件 = 學(xué)號 第 25 頁 共 29 頁 = 姓名 = (性別 ).Value = False = = 課程 = 課程號 = 課程名 = 學(xué)時 = 學(xué)分 = False = = 成績 = 學(xué)號 = 課程號 = 成績 = 0 39。設(shè)置當前選項卡為 學(xué)生 選項卡 End Sub 3﹑ 查詢界面可以按 學(xué)生的 學(xué)號和課程查詢學(xué)生成績信息 . 39。取消 按鈕的單擊事件過程 Private Sub cmdCancel_Click() txtID(0).Text = txtID(1).Text = End Sub 第 26 頁 共 29 頁 39。確定 按鈕的單擊事件過程 Private Sub cmdOK_Click() Dim sql As String, fld As String, condition As String 39。顯示的字段列表 fld = 學(xué)生 .學(xué)號 ,學(xué)生 .姓名 ,課程 .課程名 ,成績 .成績 39。查詢條件 condition = 學(xué)生 .學(xué)號 =成績 .學(xué)號 and 課程 .課程號 =成績 .課程號 If optChoice(0).Value Then condition = condition + and 學(xué)生 .學(xué)號 =39。 + txtID(0).Text + 39。 Else condition = condition + and 課程 .課程號 =39。 + txtID(1).Text + 39。 End If sql = select + fld + from 學(xué)生 ,課程 ,成績 where + condition 39。改變記錄源 = sql End Sub 39。初始化查詢窗體 Private Sub Form_Load() = False Set = Adodc1 39。綁定操作 = False 39。禁止更新 End Sub 39。處理單選按鈕的焦點切換 Private Sub optChoice_Click(Index As Integer) 第 27 頁 共 29 頁 txtID(Index).SetFocus End Sub 39。處理文本框的焦點切換 Private Sub txtID_GotFocus(Index As Integer) optChoice(Index).Value = True End Sub 4﹑ 點擊退出按鈕，學(xué)生成績管理系統(tǒng)退出 39。退出系統(tǒng) Private Sub mnuLogout_Click() End End Sub
高考資料相關(guān)推薦
鄂ICP備17016276號-1