【正文】 and 課程信息 .課程編號=課程成績表 .課程編號 and 課程信息 .課程性質 =39。 where 課程成績表 .學號 =39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 = sql (課程編號 ) = (成績 ) = (學年 ) = (學期 ) = MsgBox 該選修課程基本信息已經修改！ , vbOKOnly + vbExclamation, 修改結束！ End If Call init End Sub Private Sub cmdQuery_Click() 課程成績查詢 .Show End Sub Private Sub Form_Load() 20212021 20212021 1 2 End Sub 沈陽理工大學課程設計專用紙 No32 32 沈陽理 工大學 課程成績查詢 要查詢學生的課程成績， 在 數據庫的課程成績表中只有學號和課程編號屬性，想要在界面中顯示學生姓名和課程名稱則需要另外兩個表的連接查詢， 需要使用 Adodc1 連接數據庫的課程成績表 、學生基本信息表和課程信息表。 and 課程編號 =39。 的基本信息嗎？ , vbOKCancel) = vbOK Then sql = select * from 課程成績表 where 學號 =39。 Trim() amp。 Trim() amp。 Trim() amp。 的課程編號為 amp。 Trim() amp。 Trim() amp。 = sql End If If = False Then Set = Adodc1 Else MsgBox 你選擇的內容不存在！ , vbOKOnly + vbExclamation, 警告 End If End If End Sub Private Sub Form_Load() (考試 ) (課程設計 ) (實驗 ) (理論 ) (考查 ) (20212021) (20212021) (2) (1) (專業(yè) ) (選修 ) (課程屬性 ) (課程編號 ) (課程名 ) (任課教師 ) (學年 ) (專業(yè) ) (選修 ) 沈陽理工大學課程設計專用紙 No29 29 沈陽理 工大學 End Sub 學生成績管理 此界面是實現成績的添加，修改和刪除，需對數據庫中的課程成績表進行相應的操作，所以利用 Adodc1 控件與數據庫中的課程成績表相連接， 記錄源命令類型為 1adCmdText，命令文本為 select * from 課程成績表 。and 課程性質 = 39。 = sql End If If = 學年 Then sql = select * from 課程信息 where 學年 like 39。and 課程性質 = 39。 = sql End If If = 任課 教師 Then sql = select * from 課程信息 where 任課教師 like 39。and 課程 沈陽理工大學課程設計專用紙 No28 28 沈陽理 工大學 性質 = 39。 = sql End If If = 課程名 Then sql = select * from 課程信息 where 課程名 like 39。and 課程性質 = 39。 = sql End If If = 課程屬性 Then sql = select * from 課程信息 where 課程屬性 like 39。and 課程性質 = 39。 的基本信息嗎？ , vbOKCancel) = vbOK Then (課程名 ) = Text3 (任課教師 ) = Text2 (學分 ) = Text5 (課程屬性 ) = (學期 ) = (學年 ) = (課程性質 ) = MsgBox 該專業(yè)課程基本信息已經修改！ , vbOKOnly + vbExclamation, 修改結束！ = = = End If End Sub Private Sub cmdQuery_Click() Dim sql As String If = And = Then MsgBox 請選擇你要查詢的條件并輸入你要查詢的內容！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If = 課程編號 Then sql = select * from 課程信息 where 課程編號 = 39。 Trim() amp。 = sql If Then MsgBox 不存在該課程，請確認之后再刪除！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If MsgBox(確定要刪除專業(yè)課程編號為 amp。 的基本信息嗎？ , vbOKCancel) = vbOK Then (課程編號 ) = Text1 (課程名 ) = Text3 (任課教師 ) = Text2 (學分 ) = Text5 (課程屬性 ) = (學期 ) = (學年 ) = 沈陽理工大學課程設計專用紙 No26 26 沈陽理 工大學 (課程性質 ) = MsgBox 該記 錄已經成功添加！ , vbOKOnly + vbExclamation, 添加結束！ = = = = End If End Sub Private Sub cmdDel_Click() If = Then MsgBox 請你輸入要刪除的專業(yè)課程編號！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from 課程信息 where 課程編號 =39。 Trim() amp。 = sql End If End If End If End If If Then MsgBox 沒有本學生的信息，請核實后再查詢！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else Set = Adodc1 End If End Sub Private Sub Command1_Click() = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub NameCheck_Click() = End Sub Private Sub NoCheck_Click() = End Sub Private Sub Form_Load() (學號 ) (姓名 ) (性別 ) (年齡 ) (學號 ) 沈陽理工大學課程設計專用紙 No23 23 沈陽理 工大學 (姓名 ) (性別 ) (年齡 ) End Sub 課程 信息管理 要實現課程基本信息在如下圖所示的界面中顯示，須使用 Adodc 控件與數據庫中的課程信息表相連接，記錄源命令類型為 2adcmdTable，從表或存儲過程名稱中選中課程信息表。 and 性別 = 39。 where 年齡 = 39。 amp。% amp。 amp。 amp。 39。 %39。 = sql End If If Combo2 = 學號 Then sql = select * from 學生基本信息 sql = sql amp。 and 年齡 = 39。 where 性別 = 39。% amp。 amp。 amp。 amp。 39。 %39。 = sql End If If Combo2 = 年齡 Then sql = select * from 學生基本信息 sql = sql amp。 and 姓名 like 39。 where 學號 like 39。 amp。% amp。 amp。 amp。 %39。 %39。 = sql End If End If If And Then If Combo1 = 學號 Then If Combo2 = 學號 Then MsgBox 請輸入另外一個條件查詢！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Combo2 = 姓名 Then 沈陽理工大學課程設計專用紙 No20 20 沈陽理 工大學 sql = select * from 學生基本信息 sql = sql amp。 where 年齡 = 39。 amp。 amp。 %39。 的基本信息嗎？ , vbOKCancel) = vbOK Then (學號 ) = Trim() (姓名 ) = Trim() (性別 ) = Trim() (年齡 ) = Trim() (出生地 ) = Trim() (政治面貌 ) = Trim() (入學時間 ) = Trim() (聯(lián)系方式 ) = Trim() (民族 ) = Trim() (所在班級 ) = Trim() MsgBox 該學生的基本信息已經修改！ , vbOKOnly + vbExclamation, 修改結束！ = True = True End If Call init End Sub Private Sub init() = = = = = = = = = 沈陽理工大學課程設計專用紙 No19 19 沈陽理 工大學 = End Sub 查詢窗體代碼設計： Private Sub cmdfind_Click() Dim sql As String If Combo1 = And Combo2 = Then MsgBox 請選擇你要查詢的條件并輸入你要查詢的內容！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If And = Then If = 學號 Then sql = select * from 學生基本信息 sql = sql amp。 Trim() amp。 = sql If = False Then MsgBox 該學生的記錄已經存在，請核實后再添加！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If MsgBox(確定要添加學號為 amp。 = sqltr Set = Adodc2 End Sub Private Sub Command7_Click() 學生基本信息查詢 .Show End Sub 沈陽理工大學課程設計專用紙 No17 17 沈陽理 工大學 Private Sub Command8_Click() = False = False If = Then MsgBox 請你輸入要想添加的學生的學號以及相關的所有信息！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from 學生基本信息