vb結(jié)合sql開發(fā)學(xué)校教務(wù)管理系統(tǒng)-展示頁(yè)
2024-11-24 16:22本頁(yè)面
【正文】 名 ) = (性別 ) = (班級(jí)編號(hào) ) = (民族 ) = Set = rs End Sub Private Sub Command2_Click() select * from 學(xué)生信息表 where 學(xué)號(hào) =39。, con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub Private Sub Command3_Click() (姓名 ) = (性別 ) = (班級(jí)編號(hào) ) = (民族 ) = Set = rs End Sub Private Sub Command4_Click() delete from 學(xué)生信息表 where 學(xué)號(hào) =39。, con, 1, 3, adCmdText select * from 學(xué)生信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub 6 Private Sub Form_Load() Provider=。Persist Security Info=False。Data Source=7MZZQCR4HI4IDQV select * from 學(xué)生信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub 教師信息管理界面： 教師信息管理界代碼： Dim rs As New Dim con As New Private Sub Command1_Click() (教師號(hào) ) = (姓名 ) = (性別 ) = (所在系 ) = (登錄名 ) = Set = rs End Sub Private Sub Command2_Click() select * from 教師信息表 where 教師號(hào) =39。, con, 7 adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub Private Sub Command3_Click() (姓名 ) = (性別 ) = (所在系 ) = (登錄名 ) = Set = rs End Sub Private Sub Command4_Click() delete from 教師信息表 where 教師號(hào) =39。, con, 1, 3, adCmdText select * from 教師信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub Private Sub Form_Load() Provider=。Persist Security Info=False。Data Source=7MZZQCR4HI4IDQV select *
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1