【文章內(nèi)容簡介】 aSource Text1Text10 沈陽理工大學課程設計專用紙 No15 15 沈陽理 工大學 DataField 學號，姓名，性別，年齡，籍貫，民族，政治面貌，入學時間，所在班級，聯(lián)系方式 Text 空，其他默認 命令按鈕 Name Command1 Command10 Caption 首記錄， 下一條，上一條，末記錄，退出，班級信息，查詢，添加，修改，刪除 表 3 使用兩個 Adodc 控件分別和數(shù)據(jù)庫中的學生基本信息表和班級表綁定，運行時不可見。 如果查詢學生的信息則有具體的查詢窗口， 圖 17 對象的屬性值表： 控件名 屬性 設置值 文本框 Name Text1， Text2 組合框 Name Combo1， Combo2 List Combo1 學號 ， 姓名 ， 性別 ， 年齡 Combo2 學號 ， 姓名 ， 性別 ， 年齡 標簽控件 Name Label1label2 Caption 請輸入查詢條件，檢索條件 DataGrid1 屬性默認 表 4 學生基本信息的窗體代碼： Private Sub Command1_Click() End Sub Private Sub Command10_Click() = False = False If = Then MsgBox 請你輸入要刪除的學生的學號！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If 沈陽理工大學課程設計專用紙 No16 16 沈陽理 工大學 sql = select * from 學生基本信息 where 學號 =39。 amp。 Trim() amp。 39。 = sql If Then MsgBox 不存在該學生，請確認之后再刪除！ , vbOKOnly + vbExclamation, 警告！ Call init Exit Sub End If If MsgBox(確定要刪除學號為 amp。 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。 amp。 39。 = 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 學生基本信息 where 學號 =39。 amp。 Trim() amp。 39。 = sql If = False Then MsgBox 該學生的記錄已經(jīng)存在，請核實后再添加！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If MsgBox(確定要添加學號為 amp。 amp。 的基本信息嗎？ , vbOKCancel) = vbOK Then (學號 ) = Trim() (姓名 ) = Trim() (性別 ) = Trim() (年齡 ) = Trim() (出生地 ) = Trim() (政治面貌 ) = Trim() (入學時間 ) = Trim() (聯(lián)系方式 ) = Trim() (民族 ) = Trim() (所在班級 ) = Trim() MsgBox 該記錄已經(jīng)成功添加！ , vbOKOnly + vbExclamation, 添加結束！ Call init = True = True End If End Sub Private Sub Command9_Click() = False = False If = Then MsgBox 請你輸入要想修改的學生的學號以及相關的所有信息！ , vbOKOnly + 沈陽理工大學課程設計專用紙 No18 18 沈陽理 工大學 vbExclamation, 警告！ Exit Sub End If sql = select * from 學生基本信息 where 學號 =39。 amp。 Trim() amp。 39。 = sql If Then MsgBox 無法找到該學生的基本信息，請核實后再修改！ , vbOKOnly + vbExclamation, 警告！ Call init Exit Sub End If If MsgBox(確定要修改學號為 amp。 amp。 的基本信息嗎？ , vbOKCancel) = vbOK Then (學號 ) = Trim() (姓名 ) = Trim() (性別 ) = Trim() (年齡 ) = Trim() (出生地 ) = Trim() (政治面貌 ) = Trim() (入學時間 ) = Trim() (聯(lián)系方式 ) = Trim() (民族 ) = Trim() (所在班級 ) = Trim() MsgBox 該學生的基本信息已經(jīng)修改！ , 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 請選擇你要查詢的條件并輸入你要查詢的內(nèi)容！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If And = Then If = 學號 Then sql = select * from 學生基本信息 sql = sql amp。 where 學號 like 39。% amp。 amp。 %39。 = sql End If If = 姓名 And = Then sql = select * from 學生基本信息 sql = sql amp。 where 姓名 like 39。% amp。 amp。 %39。 = sql End If If = 性別 And = Then sql = select * from 學生基本信息 sql = sql amp。 where 性別 = 39。 amp。 amp。 39。 = sql End If If = 年齡 And = Then sql = select * from 學生基本信息 sql = sql amp。 where 年齡 = 39。 amp。 amp。 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 學號 like 39。% amp。 amp。 %39。 and 姓名 like 39。% amp。 amp。 %39。 = sql End If If Combo2 = 年齡 Then sql = select * from 學生基本信息 sql = sql amp。 where 學號 like 39。% amp。 amp。 %39。 and 年齡 = 39。 amp。 amp。 39。 = sql End If If Combo2 = 性別 Then sql = select * from 學生基本信息 sql = sql amp。 where 學號 like 39。% amp。 amp。 %39。 and 性別 = 39。 amp。 amp。 39。 = 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。 where 學號 like 39。% amp。 amp。 %39。 and 姓名 like 39。% amp。 amp。 %39。 = sql End If If Combo2 = 年齡 Then sql = select * from 學生基本信息 sql = sql amp。 where 姓名 like 39。% amp。 amp。 %39。 and 年齡 = 39。 amp。 amp。 39。 = sql End If If Combo2 = 性別 Then sql = select * from 學生基本信息 sql = sql amp。 where 姓名 like 39。% amp。 amp。 %39。 and 性別 = 39。 amp。 amp。 39。 沈陽理工大學課程設計專用紙 No21 21 沈陽理 工大學 = sql End If End If If Combo1 = 性別 Then If Combo2 = 性別 Then MsgBox 請輸入另外一個條件查詢！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Combo2 = 姓名 Th