vb課程設(shè)計(jì)---學(xué)生成績(jī)管理系統(tǒng)-資料下載頁
2024-11-16 15:59本頁面
【導(dǎo)讀】從而對(duì)學(xué)生成績(jī)的信息進(jìn)行準(zhǔn)確的管理。本系統(tǒng)的開發(fā)目的是有效的管。理學(xué)生信息，實(shí)現(xiàn)學(xué)生信息的數(shù)據(jù)的規(guī)范化﹑自動(dòng)化﹑系統(tǒng)化管理。使學(xué)生查詢自己的成績(jī)更加方便﹑快捷；動(dòng)態(tài)標(biāo)簽是由時(shí)鐘控件編程實(shí)現(xiàn)的如果密。CONDITION=CONDITION+"AND課程.課程號(hào)='"+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é)號(hào) 第 25 頁 共 29 頁 = 姓名 = (性別 ).Value = False = = 課程 = 課程號(hào) = 課程名 = 學(xué)時(shí) = 學(xué)分 = False = = 成績(jī) = 學(xué)號(hào) = 課程號(hào) = 成績(jī) = 0 39。設(shè)置當(dāng)前選項(xiàng)卡為 學(xué)生 選項(xiàng)卡 End Sub 3﹑ 查詢界面可以按 學(xué)生的 學(xué)號(hào)和課程查詢學(xué)生成績(jī)信息 . 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é)號(hào) ,學(xué)生 .姓名 ,課程 .課程名 ,成績(jī) .成績(jī) 39。查詢條件 condition = 學(xué)生 .學(xué)號(hào) =成績(jī) .學(xué)號(hào) and 課程 .課程號(hào) =成績(jī) .課程號(hào) If optChoice(0).Value Then condition = condition + and 學(xué)生 .學(xué)號(hào) =39。 + txtID(0).Text + 39。 Else condition = condition + and 課程 .課程號(hào) =39。 + txtID(1).Text + 39。 End If sql = select + fld + from 學(xué)生 ,課程 ,成績(jī) where + condition 39。改變記錄源 = sql End Sub 39。初始化查詢窗體 Private Sub Form_Load() = False Set = Adodc1 39。綁定操作 = False 39。禁止更新 End Sub 39。處理單選按鈕的焦點(diǎn)切換 Private Sub optChoice_Click(Index As Integer) 第 27 頁 共 29 頁 txtID(Index).SetFocus End Sub 39。處理文本框的焦點(diǎn)切換 Private Sub txtID_GotFocus(Index As Integer) optChoice(Index).Value = True End Sub 4﹑ 點(diǎn)擊退出按鈕，學(xué)生成績(jī)管理系統(tǒng)退出 39。退出系統(tǒng) Private Sub mnuLogout_Click() End End Sub
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1