vb結(jié)合sql開(kāi)發(fā)學(xué)校教務(wù)管理系統(tǒng)-免費(fèi)閱讀
【正文】 Persist Security Info=False。Data Source=7MZZQCR4HI4IDQV select * from 教學(xué)成績(jī)表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs 11 End Sub 信息查詢(xún)界面： 信息查詢(xún)界面代碼： Dim rs As New Dim con As New Private Sub Command1_Click() select * from 課程信息表 where 課程號(hào) in (select 課程號(hào) from 教學(xué)成績(jī)表 where 教師號(hào) in (select 教師號(hào) from 教師信息表 where 姓名 =39。Data Source=7MZZQCR4HI4IDQV select * from 課程信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub 成績(jī)管理信息界面： 成績(jī)管理信息代碼： Dim rs As New Dim con As New Private Sub Command1_Click() 10 (學(xué)號(hào) ) = (課程號(hào) ) = (教師號(hào) ) = (分?jǐn)?shù) ) = Set = rs End Sub Private Sub Command2_Click() select * from 教學(xué)成績(jī)表 where 學(xué)號(hào) =39。Data Source=7MZZQCR4HI4IDQV select * from 教師信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub 課程信息管理界面： 8 課程信息管理代碼： Dim rs As New Dim con As New Private Sub Command1_Click() (課程號(hào) ) = (課程名稱(chēng) ) = (院系編號(hào) ) = (學(xué)時(shí) ) = (類(lèi)別 ) = Set = rs End Sub Private Sub Command2_Click() select * from 課程信息表 where 課程名稱(chēng) =39。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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1