vb學(xué)生成績管理系統(tǒng)課程設(shè)計報告-展示頁
2024-09-08 17:35本頁面
【正文】 選中 ADO控件 Adodc1，點擊鼠標右鍵選擇屬性，然后界面設(shè)置如下： 控件綁定數(shù)據(jù)庫的字段操作說明： 屬性設(shè)置說明：下面以學(xué)號為例，姓名、班級等都可參考此。 設(shè)置 DataSource: 設(shè)置 DataField: （ 2）、如何加載 DataGrid 控件 控件 DataGrid，可以實現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫 Microsoft DataGrid Control 。以下為各個界面所對應(yīng)的代碼 —— 該界面代碼如下： Private Sub Command1_Click() If = zg And = 10902 Then Else MsgBox 用戶名或密碼錯誤 ,請重新輸入 , vbMsgBoxSetForeground, 系統(tǒng)提示！！ End If Static t As Integer t = t + 1 If t = 3 Then End End Sub Private Sub Command2_Click() a = MsgBox(確定要退出本系統(tǒng)嗎？ , 3 + 32 + 256, 系統(tǒng)提示??！ ) If a = 6 Then Unload Me End If End Sub 該界面代碼如下： Private Sub Command1_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub 該界面代碼如下： Private Sub Command1_Click() End Sub Private Sub Command2_Click() If = 0 Or Then Exit Sub End If If = 0 Then Exit Sub End If If Then End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Unload Me End Sub 該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + + kc_條件 End Sub Private Sub Form_Load() kc_條件 = =92 kc = vb End Sub Private Sub Option1_Click() kc = VB End Sub Private Sub Option2_Click() kc = math End Sub Private Sub Option3_Click() kc = English End Sub 該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1