注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

糊涂小妹

一个矫情到不行的文艺小青年

 
 
 

日志

 
 

机房收费——组合查询  

2014-08-26 21:38:02|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
看了一个师姐的博客,这部分挂了两天,各种的伤心泪啊,最后在同桌的“威逼”下(我写他调),自己写了段代码,望指教。
Private Sub Cmdinquire_Click()

    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from Line_info where "       '从表中取出所需内容
    '判断第一层关系,第一个组合框为空,则查第一行
    If Combo3(0).Text = "" Then
        If Combo1(0).Text = "" Or Combo2(0).Text = "" Or Text1(0).Text = "" Then
            MsgBox "请填好信息", vbOKOnly + vbOKCancel, "警告"
    Else
        txtSQL = txtSQL & Filename(Combo1(0).Text) & Combo2(0).Text & "'" & Text1(0) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        Debug.Print txtSQL
        Debug.Print MsgText
        
        If mrc.EOF = True Then
            MsgBox "此段没有信息,请再次选择!", vbOKOnly + vbExclamation, "警告"
            mrc.Close
        Else
          Call Tianjia(MSHFlexGrid1, mrc)
        End If
        Exit Sub
        End If
    End If
  
    '判断第一层关系,第一层不为空,则查看前两行
    If Not Combo3(0).Text = "" Then
        If Combo1(0).Text = "" Or Combo2(0).Text = "" Or Text1(0).Text = "" _
            Or Combo1(1).Text = "" Or Combo2(1).Text = "" Or Text1(1).Text = "" Then
            MsgBox "请填好信息", vbOKOnly + vbOKCancel, "警告"
    Else
        txtSQL = txtSQL & Filename(Combo1(0).Text) & Combo2(0).Text & "'" & Text1(0) & "'" & Filename(Combo3(0)) & " " _
            & Filename(Combo1(1).Text) & Combo2(1).Text & "'" & Text1(1) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
     
        If mrc.EOF = True Then
        MsgBox "此段没有信息,请再次选择!", vbOKOnly + vbExclamation, "警告"
        mrc.Close
        Else
        Debug.Print txtSQL
        Debug.Print MsgText
    
        Call Tianjia(MSHFlexGrid1, mrc)
        End If
        Exit Sub
        End If
    End If
    '判断第二层关系,第一层为空第二层不为空
    If Combo3(0).Text = "" And Not Combo3(1).Text = "" Then
        MsgBox "组合不合理,请重新选择", vbOKOnly + vbOKCancel
    End If
    '判断第二层关系,第二层不为空
    If Not Combo3(0).Text Then
        If Combo1(0).Text = "" Or Combo2(0).Text = "" Or Text1(0).Text = "" _
            Or Combo1(1).Text = "" Or Combo2(1).Text = "" Or Text1(1).Text = "" _
            Or Combo1(2).Text = "" Or Combo2(2).Text = "" Or Text1(2).Text = "" Then
            MsgBox "请填好信息", vbOKOnly + vbOKCancel, "警告"
    Else
       txtSQL = txtSQL & Filename(Combo1(0).Text) & Combo2(0).Text & "'" & Text1(0) & "'" & Filename(Combo3(0)) & " " _
            & Filename(Combo1(1).Text) & " " & Combo2(1).Text & "'" & Text1(1) & "'" & Filename(Combo3(1)) & " " _
            & Filename(Combo1(2).Text) & " " & Combo2(2).Text & "'" & Text1(2) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = True Then
        MsgBox "此段没有信息,请再次选择!", vbOKOnly + vbExclamation, "警告"
        mrc.Close
        Else
        Debug.Print txtSQL
        Debug.Print MsgText
    
        Call Tianjia(MSHFlexGrid1, mrc)
        End If
        Exit Sub
    End If
    End If
    
End Sub
确定关系,写明查询语句,也就没什么问题了,过去了感觉真好!
  评论这张
 
阅读(40)| 评论(28)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017