【正文】 where 學號 =39。 Trim() amp。 = sql If Then MsgBox 不存在該學生，請確認之后再刪除！ , vbOKOnly + vbExclamation, 警告！ Call init Exit Sub End If If MsgBox(確定要刪除學號為 amp。 的所有信息嗎？ , vbOKCancel + vbExclamation, 提示！ ) = vbOK Then MsgBox 該學生的所有信息已經(jīng)刪除！ , vbOKOnly + vbExclamation, 警告！ = True = True End If Call init End Sub Private Sub Command2_Click() If Then End Sub Private Sub Command3_Click() If Then End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() Dim sqltr As String sqltr = select * from 班級信息 where 班級編號 = 39。 amp。 = sqltr Set = Adodc2 End Sub Private Sub Command7_Click() 學生基本信息查詢 .Show End Sub 沈陽理工大學課程設(shè)計專用紙 No17 17 沈陽理 工大學 Private Sub Command8_Click() = False = False If = Then MsgBox 請你輸入要想添加的學生的學號以及相關(guān)的所有信息！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from 學生基本信息 where 學號 =39。 Trim() amp。 = sql If = False Then MsgBox 該學生的記錄已經(jīng)存在，請核實后再添加！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If MsgBox(確定要添加學號為 amp。 的基本信息嗎？ , vbOKCancel) = vbOK Then (學號 ) = Trim() (姓名 ) = Trim() (性別 ) = Trim() (年齡 ) = Trim() (出生地 ) = Trim() (政治面貌 ) = Trim() (入學時間 ) = Trim() (聯(lián)系方式 ) = Trim() (民族 ) = Trim() (所在班級 ) = Trim() MsgBox 該記錄已經(jīng)成功添加！ , vbOKOnly + vbExclamation, 添加結(jié)束！ Call init = True = True End If End Sub Private Sub Command9_Click() = False = False If = Then MsgBox 請你輸入要想修改的學生的學號以及相關(guān)的所有信息！ , vbOKOnly + 沈陽理工大學課程設(shè)計專用紙 No18 18 沈陽理 工大學 vbExclamation, 警告！ Exit Sub End If sql = select * from 學生基本信息 where 學號 =39。 Trim() amp。 = sql If Then MsgBox 無法找到該學生的基本信息，請核實后再修改！ , vbOKOnly + vbExclamation, 警告！ Call init Exit Sub End If If MsgBox(確定要修改學號為 amp。 的基本信息嗎？ , vbOKCancel) = vbOK Then (學號 ) = Trim() (姓名 ) = Trim() (性別 ) = Trim() (年齡 ) = Trim() (出生地 ) = Trim() (政治面貌 ) = Trim() (入學時間 ) = Trim() (聯(lián)系方式 ) = Trim() (民族 ) = Trim() (所在班級 ) = Trim() MsgBox 該學生的基本信息已經(jīng)修改！ , vbOKOnly + vbExclamation, 修改結(jié)束！ = True = True End If Call init End Sub Private Sub init() = = = = = = = = = 沈陽理工大學課程設(shè)計專用紙 No19 19 沈陽理 工大學 = End Sub 查詢窗體代碼設(shè)計： Private Sub cmdfind_Click() Dim sql As String If Combo1 = And Combo2 = Then MsgBox 請選擇你要查詢的條件并輸入你要查詢的內(nèi)容！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If And = Then If = 學號 Then sql = select * from 學生基本信息 sql = sql amp。% amp。 %39。 where 姓名 like 39。 amp。 = sql End If If = 性別 And = Then sql = select * from 學生基本信息 sql = sql amp。 amp。 39。 where 年齡 = 39。 amp。 = sql End If End If If And Then If Combo1 = 學號 Then If Combo2 = 學號 Then MsgBox 請輸入另外一個條件查詢！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Combo2 = 姓名 Then 沈陽理工大學課程設(shè)計專用紙 No20 20 沈陽理 工大學 sql = select * from 學生基本信息 sql = sql amp。% amp。 %39。% amp。 %39。 where 學號 like 39。 amp。 and 年齡 = 39。 amp。 = sql End If If Combo2 = 性別 Then sql = select * from 學生基本信息 sql = sql amp。% amp。 %39。 amp。 39。 where 學號 like 39。 amp。 and 姓名 like 39。 amp。 = sql End If If Combo2 = 年齡 Then sql = select * from 學生基本信息 sql = sql amp。% amp。 %39。 amp。 39。 where 姓名 like 39。 amp。 and 性別 = 39。 amp。 沈陽理工大學課程設(shè)計專用紙 No21 21 沈陽理 工大學 = sql End If End If If Combo1 = 性別 Then If Combo2 = 性別 Then MsgBox 請輸入另外一個條件查詢！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Combo2 = 姓名 Then sql = select * from 學生基本信息 sql = sql amp。 amp。 39。% amp。 %39。 where 性別 = 39。 amp。 and 年齡 = 39。 amp。 = sql End If If Combo2 = 學號 Then sql = select * from 學生基本信息 sql = sql amp。% amp。 %39。 amp。 39。 where 年齡 = 39。 amp。 and 姓名 like 39。 amp。 = sql End If 沈陽理工大學課程設(shè)計專用紙 No22 22 沈陽理 工大學 If Combo2 = 學號 Then sql = select * from 學生基本信息 sql = sql amp。% amp。 %39。 amp。 39。 where 年齡 = 39。 amp。 and 性別 = 39。 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() (學號 ) (姓名 ) (性別 ) (年齡 ) (學號 ) 沈陽理工大學課程設(shè)計專用紙 No23 23 沈陽理 工大學 (姓名 ) (性別 ) (年齡 ) End Sub 課程 信息管理 要實現(xiàn)課程基本信息在如下圖所示的界面中顯示，須使用 Adodc 控件與數(shù)據(jù)庫中的課程信息表相連接，記錄源命令類型為 2adcmdTable，從表或存儲過程名稱中選中課程信息表。 圖 19 沈陽理工大學課程設(shè)計專用紙 No25 25 沈陽理 工大學 對象屬性值： 控件名 屬性名 屬性值 標簽控件 Name Label1 Label11 Caption 課程基本信息， 課程編號， 任課教師，課程名稱，學分，課程性質(zhì) ，課程屬性，學年，學期，條件 ，內(nèi)容 文本框 Name Text1Text4 Mutiline True 組合框 Name Combo1Combo6 Text Combo1：考試，課程設(shè)計 ，實驗，理論，考查， Combo2： 20212021 Combo3 1,2 bo4：專業(yè)，選修 bo5：課程屬性， 課程編號，課程名，任課教師， 課程名， Combo6：專業(yè)，選修 DataGrid1 Datasourse Adodc1，其他默認 表 7 窗體代碼設(shè)計如下： Dim sql As String Private Sub cmdAdd_Click() If = Then MsgBox 請你輸入要想添加專業(yè)課程編號以及相關(guān)的所有信息！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If sql = select * from 課程信息 where 課程編號 =39。 Trim() amp。 = sql If = False Then MsgBox 該課