智慧共享分享源代码.docVIP

智慧共享 共享你我的智慧 程序源代码第 PAGE 33 页 共 NUMPAGES 36 页****************************************************************************智慧共享 共享你我的智慧！‘开发环境：VB语言与数据库SQL 作者：双城联社跃进信用社 徐鹏涛制作日期：2010年6月5日描 述：农信银智慧共享考试系统题库题库不全，敬请见谅。你如有好的建议请联系我QQ：183330129‘如有需要源程序的请联系我。让我们共同学习，分享智慧！****************************************************************************‘以下是模糊查询主界面代码Dim sql As StringDim zongshu As StringDim addlist As ListItemPrivate Sub about_Click()frmAbout.ShowEnd SubPrivate Sub aboutme_Click()frmAbout.ShowEnd SubPrivate Sub Form_Resize() 在窗口的改变大小时所触发的事件On Error Resume Next 有错误跳到下一条继续执行FormZHGX.Height = 10185 设定窗口高FormZHGX.Width = 8700 设定窗口宽End SubPrivate Sub Check1_Click() Call xuanxiang’调用函数End SubPrivate Sub Check2_Click() Call xuanxiang’调用函数End SubPrivate Sub xuanxiang() 选项Dim danxt As Stringdanxt = 单选题Dim duoxt As Stringduoxt = 多选题Me.ListView1.ListItems.Clear 先清空listview If TextCX.Text = Then TextCX.SetFocus Else分割线If Check1.Value = 1 And Check2.Value = 0 Then 如果单选选中多选未选中Me.ListView1.ListItems.Clear 先清空listviewIf TextCX.Text = Then TextCX.SetFocus Else sql = select zhgxbh,zhgxtx,zhgxnr,zhgxda from zhgx where zhgxnr like % Trim(TextCX.Text) % or zhgxpy like % Trim(TextCX.Text) %or zhgxqpy like % Trim(TextCX.Text) % and ZHGXTX= + danxt + order by zhgxbh desc Call mhcx End If Else Me.ListView1.ListItems.Clear 先清空listview If TextCX.Text = Then TextCX.SetFocus Elsesql = select zhgxbh,zhgxtx,zhgxnr,zhgxda from zhgx where zhgxnr like % Trim(TextCX.Text) %or zhgxpy like % Trim(TextCX.Text) %or zhgxqpy like % Trim(TextCX.Text) % order by zhgxbh desc Call mhcx End If End If 分割线If Check2.Value = 1 And Check1.Value = 1 Then 如果单选选中多选也选中Me.ListView1.ListItems.Clear 先清空listviewIf TextCX.Text = Then TextCX.SetFocus Elsesql = select zhgxbh,zhgxtx,zhgxnr,zhgxda from zhgx where zhgxnr like % Trim(TextCX.Text) %or zhgxpy like % Trim(TextCX.Text) %or zhgxqpy like % Trim(TextCX.Text) % order by zhgxbh desc Call mhcx End If End If 分割线If Check2.V