论文题目：“连续-离散”型企业智能管理系统研究、设计与开发.pptVIP

客户端用Net-Library和SQL SERVER连接 13 VB技术专题* 13.1 VB中复杂组合查询的实现 13.1.1 引言 复杂组合查询是一个设计难度大但很能方便用户的功能模块，在系统开发时要尽量满足用户的需要，实现多条件复杂组合查询功能，提高应用系统的智能。 VB有很好的数据库应用系统开发能力，简单查询甚至可以通过系统自动生成。但是设计一个好的组合查询需要有一定的技巧与经验。因为VB中查询结果是靠Data控件的DataSource属性来控制的，它实际上是一个SQL查询语句，并且有一些特殊的格式，与标准的SQL并不完全相同。 13.1.2 实例说明 本文以作者开发的经过缩略的《税务征收管理系统》中《纳税申报》模块中的查询部分为例说明主要方法。简化后的系统界面如图13-1所示（图右侧是控件名与界面的对照表）。 图13-1 复杂组合查询系统界面 cmdHelp.Enabled = True ‘使帮助按钮有效。 Select Case Combo1.Text Case 代 码 t1 = [dm] Case 征收单位 t1 = [zsdwdm] Case 税 种 t1 = [szdm] Case 实缴金额 cmdHelp.Enabled = False ‘此项不用帮助。 t1 = [sjje] End Select End Sub Private Sub DBCdm_Click(Area As Integer) If Len(DBCdm.Text) 0 Then txtZ.Text = DBCdm.BoundText ‘把自己清空,然后隐藏。 DBCdm.Text = ” DBCdm.BoundText = DBCdm.Visible = False help = False cmdHelp.Enabled = False End If End Sub Private Sub txtZ_Change() If Combo1.Text = 代 码 And Len(txtZ) 10 Then Exit Sub End If If Combo1.Text = 税票号码 And Len(txtZ) 9 Then Exit Sub End If If Combo1.Text 实缴金额 Then t3 = txtZ End If tmp = tmp link t1 t2 t3 End Sub Private Sub txtZ_LostFocus() If Len(txtZ) = 0 Then Exit Sub End If If Combo1.Text = 实缴金额 Then t3 = txtZ tmp = tmp link t1 t2 val( t3 ) End If Opt2.Value = False: Opt3.Value = False End Sub cn.Connect = uid=usb; pwd=usb; server=dec6200; driver={SQL Server};_ database=qhgsdb;dsn=dec6200; cn.EstablishConnection End Sub Private Sub Command1_Click() With qy .SQL = select sum(sjje),ysxdm _ from usb.usb_glj _ where tbrq between 1998-7-24 and 1998-7-24 _ group by ysxdm ‘按预算项代码分组求和当日的“实缴金额”。 Set .ActiveConnection = cn ‘设置当前连接为“连接对象cn”。 End With cn.Execute SQL