【正文】 =wherestr+” and” wherestr=wherestr+”studentname like ‘% “ amp。 txtFStudentName amp。 “% ‘” bwhere=TrueEnd IfIf =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+”class like ‘%”amp。txtFStudentCLass amp。 “%’” bwhere=TrueEnd If If =1 ThenIf bwhere Then wherestr=wherestr + “ and “If = 0 Then wherestr=wherestr+”gender like ‘ % “ amp。”男” amp。 “%’ “ElseIf =1 Then wherestr=wherestr+”gender like ‘%” amp。 “女”amp?！?’ “End Ifbwhere=True End IfIf =1 And “ “ Then If =” “ Then =”00” If bwhere Then wherestr=wherestr+ “ and “ If Then Lwherestr=wherestr+”acceptancetime’ “amp。txtFYear+”“+txtFMon amp。 “ ‘ “ Else Wherestr=wherestr+”acceptancetime’ “ amp。 txtFYear + ““+txtFMon amp。 “ ‘ “ End If bwhere=True End If If =1 And “ “ ThenIf bwhere Then wherestr=wherestr+ “ and “wherestr=wherestr+”hometown like ‘%” amp。txtFHometown amp。 “ % ‘ “bwhere=TrueEnd If If bwhere Then sqlstr=sqlstr+ “ where “ + wherestrSqlstr= sqlstr +” order by Studentid asc “ (“cmdFindStudent”).CommandText=sqlstr‘刷新Grid=(“cmdFindStudent”).NameIf =0 Then MsgBox”在數(shù)據(jù)庫中沒找到要查詢的對象”,vbOKOnly+vbInformation,”查詢失敗”End IfEnd Sub下面是用SQL語言實現(xiàn)查詢功能的“修改”按鈕激發(fā)的Click事件?！薷挠脩舻馁Y料Private Sub cmdMod_Click() Dim sqlstr As String‘修改的標(biāo)志Dim bSet As BooleanIf = 0 Then MsgBox “請先選擇“選擇修改功能”選項！”,vbOKOnly+vbInformation,”修改” Exit SubEnd IfbSet=False If =” “ Then MsgBox “請鍵如要修改的用戶名或者在表中選擇要修改的用戶名?！?vbOKOnly+vbInformation,”修改” Exit Sub End If‘要修改的用戶名存在If IsExistUser(txtFindName, “ “ ) Then sqlstr= “ update usertable set “ If =1 Snd “ “ Thensqlstr=sqlstr + “realname= ‘ “ amp。 amp。 “ ‘ “bSet=TrueEnd IfIf = 1 And “ “ Then If bSet Then sqlstr=sqlstr+ “ , “ sqlstr=sqlstr+ “ unit=’ “ amp。 txtFUnit amp。 “ ‘ “ bSet=TrueEnd IfIf =1 Then If bSet Then sqlstr=sqlstr+” , “ Select Case Case 0 sqlstr=sqlstr+”usertype=2”Case 1 Sqlstr=sqlstr+”usertype=4”End SelectbSet=True End If If = 1 Then If bSet Then sqlstr=sqlstr+ “ , “ sqlstr=sqlstr+”age=” amp。 bSet=TrueEnd If‘修改If bSet Then Sqlstr=sqlstr+”where username =’ “ amp。 txtFindNameamp。 “ ‘ “ (“cmdFindUser”).CommandText=sqlstr ‘刷新Grid ‘顯示修改結(jié)果 (“cmdFindUser”).CommandText=“select username,realname,age,unit,usertyp E,state,registertime from usertable where username =’ “ amp。 txtFindName amp。 “ ‘ “ =(“cmdFindUser”).Name Else MsgBox”請?zhí)顚懸薷牡馁Y料！”,vbOKOnly + vbInformation,”修改” Exit SubEnd IfElse MsgBox “無此用戶！”,vbOKOnly+vbInformation,”修改” End IfEnd Sub下面是用SQL語言實現(xiàn)查詢功能的“刪除“按鈕激發(fā)的Click事件。Private Sub cmdFDel_Click()‘刪除學(xué)生 Dim sqlstr As String Dim wherestr As String ‘判斷有無Where 語句 Dim bwhere As Booleansqlstr=”delete from studenttable” wherestr=’ “ bwhere= False If = 1 And txtFStudentIDtext “ “ ThenIf bwhere Then wherestr=wherestr+” and “wherestr=wherestr+”Studentid like ‘ % “amp。txtFStudentID amp。 “ % ‘ “bwhere=TrueEnd IfIf =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+” studentname like ‘ %” amp。txtFStudentName amp。 “ %’ “ bwhere=TrueEnd IfIf = 1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+” classlike ‘%” amp。 txtFStudentClass amp。 “ %’ “ bwhere= TrueEnd IfIf = 1 Then If bwher Then wherestr=wherestr+ “ and “ If =0 Then wherestr=wherestr+”gender like ‘%” amp。 “男” amp。 “%’ “ ElseIf = 1 Then wherestr=wherestr+ “gender like ‘ % “ amp?！迸?amp。 “%’ “End If bwhere=TrueEnd If If = 1And “ “ Then If =” “ Then =”00” If bwhere Then wherestr=wherestr+” and “ If Thenwherestr=whrerstr+” acceptancetime ‘ “ amp。 txtFYear+”“+txtFMon amp。 “ ‘ “Else wherestr=wherestr+”acceptancetime’ “ amp。 txtFYear+ ““+txtFMon amp。 “ ‘ “End If bwhere=TrueEnd IfIf =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+” hometown like ‘%” amp。 txtFHometown amp。 “%’ “ bwhere=TrueEnd IfIf bwhere Then sqlstr=sqlstr+ “ where “ +wherestr (“cmdFindStudent”).CommandText=sqlstr‘刪除‘刷新Grid,顯示結(jié)果 =(“cmdStudent”).Name =(0).Text =(1).TextEnd Sub frmSearch窗體的建立 frmSearch窗體實現(xiàn)了查詢表的功能。窗體的設(shè)計界面如圖所示。初始化和載窗體的代碼如下：Private Sub Form_Load() =200 =()/2 Frameborrow(0).Left= Frameborrow(0).Top= Frameborrow(0).Height= Frameborrow(0).Width= Frameborrow(0).Zorder 0 “無“，0 “學(xué)號”,1 “姓名”,2 “班級”,3 “性別”,4 =1 If =adstateOpen Then DataE, End If =True =True =True =True =True =True =False =False call cmdSearch_Click =FalseEnd Sub Private Sub Form_Unload(Cancel As integer)=TrueEnd Sub根據(jù)boBox控件的選項來控制Frame控件的顯示和隱藏的代碼如下。Private Sub cmbItem_Click()Select Case Case 0 =False =True =True =True =True =TrueCase 1 =True =” “ =False =True =True =True =TrueCase 2 =True =” “ =True =False =True =True =TrueCase 3 =True =” “ =True =True =False =True =TrueCase 4 =True = “ “ =True =True =True =False =FalseEnd SelectEnd Sub根據(jù)所有的條件來查詢學(xué)生的代碼如下：Private Sub cmdSearch_Click() Dim sqlstr As String Dim wherestr As String Dim I As Integer Sqlstr=”select StudentID,StudentName,Class,Gender from StudentTable” Wherestr= “ “ If 0 And “ “ Then Select Case Case 1 ‘學(xué)號 wherestr=wherestr+”StudentID=’ “ amp。 txtKey amp。 “ ‘ “ Case 2 ‘姓名 wherestr=wherestr+”StudentName=’ “ amp。 txtKey amp。 “ ‘ “ Case 3 ‘班級 wherestr=wherestr+”Class=’ “ amp。 txtKey amp。 “ ‘ “ Case 4 ‘備注 wherestr=wherestr+”Gender= ‘ “ amp。 txtKey amp。 “ ‘ “ Case 5 ‘關(guān)鍵字 wherestr=wherestr+”(studentid like ‘%” amp。 txtKeyamp。