vb結(jié)合sql開發(fā)學(xué)校教務(wù)管理系統(tǒng)-預(yù)覽頁
【正文】 select * from 課程信息表 where 課程名稱 =39。, con, 1, 3, adCmdText select * from 課程信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub Private Sub Form_Load() Provider=。Data Source=7MZZQCR4HI4IDQV select * from 課程信息表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub 成績管理信息界面： 成績管理信息代碼： Dim rs As New Dim con As New Private Sub Command1_Click() 10 (學(xué)號 ) = (課程號 ) = (教師號 ) = (分?jǐn)?shù) ) = Set = rs End Sub Private Sub Command2_Click() select * from 教學(xué)成績表 where 學(xué)號 =39。, con, 1, 3, adCmdText select * from 教學(xué)成績表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub Private Sub Form_Load() Provider=。Data Source=7MZZQCR4HI4IDQV select * from 教學(xué)成績表 , con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs 11 End Sub 信息查詢界面： 信息查詢界面代碼： Dim rs As New Dim con As New Private Sub Command1_Click() select * from 課程信息表 where 課程號 in (select 課程號 from 教學(xué)成績表 where 教師號 in (select 教師號 from 教師信息表 where 姓名 =39。)), con, adOpenKeyset, adLockOptimistic, adCmdText Set = rs End Sub Private Sub Command3_Click() select * from 課程信息表 where 課 程號 in (select 課程號 from 教學(xué)成績表 where 學(xué)號 in (select 學(xué)號 from 學(xué)生信息表 where 姓名 =39。Persist Security Info=False。 老師評語： 老師簽名 年 月 日 注：成績 分為優(yōu)、良、中、及格、不及格五級
公司管理相關(guān)推薦
鄂ICP備17016276號-1