组合查询 ——vb_vb 组合查询-程序员宅基地

技术标签: *【应用】  

     机房收费系统中需要组合查询,如图

需实现的功能如图

     首先,我分析了查询的流程,并画了流程图,如下:

流程图


思路总结好了,下面就是代码的编写了(以学生上机统计信息为例):

Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim Msgtxt As String


   If Combo3(0).Text = "" Then                                 '不需要组合查询,第一行有为空值时提示错误信息
       If Combo1(0).Text = "" Then
           MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"
           Exit Sub
       Else
         If Combo2(0).Text = "" Then
            MsgBox "请选择操作符", vbOKOnly + vbExclamation, "警告"
            Exit Sub
         Else
           If Text1.Text = "" Then
             MsgBox "请填写要查询的内容", vbOKOnly + vbExclamation, "警告"
             Exit Sub
           Else                                 '组合关系框为空且条件成立时,建立的查询,只有第一行"
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
               txtSQL = "select * from line_info where "
               txtSQL = txtSQL & FName(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'"
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
              Set mrc = ExecuteSQL(txtSQL, Msgtxt)
              
              If Not (mrc.BOF And mrc.EOF) Then
                  MSFlexGrid1.Rows = 1
                  
                  MSFlexGrid1.CellAlignment = 4
                  MSFlexGrid1.TextMatrix(0, 0) = "卡号"
                  MSFlexGrid1.TextMatrix(0, 1) = "姓名"
                  MSFlexGrid1.TextMatrix(0, 2) = "上机日期"
                  MSFlexGrid1.TextMatrix(0, 3) = "上机时间"
                  MSFlexGrid1.TextMatrix(0, 4) = "下机日期"
                  MSFlexGrid1.TextMatrix(0, 5) = "下机时间"
                  MSFlexGrid1.TextMatrix(0, 6) = "消费金额"
                  MSFlexGrid1.TextMatrix(0, 7) = "金额"
                  MSFlexGrid1.TextMatrix(0, 8) = "备注"

   
               Do While Not mrc.EOF                                   '显示数据
                 With MSFlexGrid1
                 .Rows = .Rows + 1 '这种方式也可防止空白行的出现
                 .CellAlignment = 4
                 .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                 .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
                 .TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
                 .TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 5) = mrc.Fields(9)
                 .TextMatrix(.Rows - 1, 6) = mrc.Fields(11)
                 .TextMatrix(.Rows - 1, 7) = mrc.Fields(12)
                 .TextMatrix(.Rows - 1, 8) = mrc.Fields(13)
                
                   mrc.MoveNext
                 End With
               Loop
             Else
                   MsgBox "该条件下没有记录!"
             End If
           End If
        End If
      End If
   End If
       
   If Not (Combo3(0).Text = "") Then                                        'combo3(0)不为空时,分两行或三行查询
       If (Combo1(0).Text = "" Or Combo1(1).Text = "") Then
           MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"              '第一行与第二行都不能有空值,否则报错
           Exit Sub
       Else
         If (Combo2(0).Text = "" Or Combo2(1).Text = "") Then
            MsgBox "请选择操作符", vbOKOnly + vbExclamation, "警告"
            Exit Sub
         Else
           If (Text1.Text = "" Or Text2.Text = "") Then
             MsgBox "请填写要查询的内容", vbOKOnly + vbExclamation, "警告"
             Exit Sub
           Else
             If Combo3(1).Text = "" Then     'combo3(1)为空值时,前两行查询

                       txtSQL = "select * from line_info where "
                       txtSQL = txtSQL & FName(Combo1(0).Text) & " " & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'" & FName(Combo3(0).Text) & " " & FName(Combo1(1).Text) & Combo2(1).Text & "'" & Trim(Text2.Text) & "'"
                     
                End If

              If Not Combo3(1).Text = "" Then                         'combo3(1)不为空值时,三行查询
                 If (Combo1(2).Text = "") Then
                    MsgBox "请选择条件3字段名", vbOKOnly + vbExclamation, "警告"              '第一行与第二行都不能有空值,否则报错
                    Exit Sub
                 Else
                    If (Combo2(2).Text = "") Then
                      MsgBox "请选择条件3操作符", vbOKOnly + vbExclamation, "警告"
                      Exit Sub
                    Else
                      If (Text3.Text = "") Then
                         MsgBox "请填写条件3要查询的内容", vbOKOnly + vbExclamation, "警告"
                         Exit Sub
                      Else                     '没有空值
                      
                         txtSQL = "select * from line_info where "
                         
                         txtSQL = txtSQL & FName(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'" & FName(Combo3(0).Text) & " " & FName(Combo1(1).Text) & Trim(Combo2(1).Text) & "'" & Trim(Text2.Text) & "' " & FName(Combo3(1).Text) & " " & FName(Combo1(2).Text) & Trim(Combo2(2).Text) & "'" & Trim(Text3.Text) & "'"
                       End If
                    End If
                  End If
               End If
            End If
          End If
        End If
     End If
     
         Set mrc = ExecuteSQL(txtSQL, Msgtxt)
              
              If Not (mrc.BOF And mrc.EOF) Then
                  MSFlexGrid1.Rows = 1
                  
                  MSFlexGrid1.CellAlignment = 4
                  MSFlexGrid1.TextMatrix(0, 0) = "卡号"
                  MSFlexGrid1.TextMatrix(0, 1) = "姓名"
                  MSFlexGrid1.TextMatrix(0, 2) = "上机日期"
                  MSFlexGrid1.TextMatrix(0, 3) = "上机时间"
                  MSFlexGrid1.TextMatrix(0, 4) = "下机日期"
                  MSFlexGrid1.TextMatrix(0, 5) = "下机时间"
                  MSFlexGrid1.TextMatrix(0, 6) = "消费金额"
                  MSFlexGrid1.TextMatrix(0, 7) = "余额"
                  MSFlexGrid1.TextMatrix(0, 8) = "备注"

   
               Do While Not mrc.EOF                                   '显示数据
                 With MSFlexGrid1
                 .Rows = .Rows + 1 '这种方式也可防止空白行的出现
                 .CellAlignment = 4
                 .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                 .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
                 .TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
                 .TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
                 .TextMatrix(.Rows - 1, 5) = mrc.Fields(9)
                 .TextMatrix(.Rows - 1, 6) = mrc.Fields(11)
                 .TextMatrix(.Rows - 1, 7) = mrc.Fields(12)
                 .TextMatrix(.Rows - 1, 8) = mrc.Fields(13)
               
                   mrc.MoveNext
                 End With
               Loop
             Else
                   MsgBox "该条件下没有记录!"
             End If
             
        mrc.Close

       逻辑不难,但是查询的时候我的思维有些问题,太麻烦了 ,在跟别人交流时,发现这种查询方法比我的简单多了,学到了很多,尤其是思维方式,自己应该积极转变,多多学习。
 txtSQL = "select * from line_info where "
 txtSQL = txtSQL & ...


版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/JYL15732624861/article/details/47210925

智能推荐

强大的虚拟音频器:Loopback for Mac_音频虚拟器作用-程序员宅基地

文章浏览阅读1.5k次。loopback mac 激活版是mac上一款强大的虚拟音频器,可以帮助您创建聚合来自多个源(如麦克风或各种应用程序)的输入的虚拟设备,然后可以将其设置为其他应用程序中的默认输入设备。每个设备都可以配置为从任何应用程序或输入源绘制音频,甚至可以实时监视输出。而且通道映射是自动执行的,但您也可以通过将项目从音频源表拖动到通道映射表来手动配置虚拟设备。原文链接:https://mac.orsoon.com/Mac/164753.html(附安装下载教程)适用于MAC的无线音频路由突然间,在Mac上的应_音频虚拟器作用

linux中vi编辑的使用_linux如何进入vi编辑模式-程序员宅基地

文章浏览阅读5.7k次,点赞2次,收藏37次。1.1 vi的三种模式命令模式、插入模式/编辑模式、末行模式三种模式的用法:命令模式:进入vi编辑器之后就是命令模式,命令模式不可编辑,只可以执行命令。插入模式/编辑模式:在命令模式中,按i进入插入模式/编辑模式末行模式:编辑完成后,按ESC返回命令模式,在命令模式中,按:进入末行模式,在末行模式中wq保存并退出vi模式,按q!不保存并退出。1.2 如何进入vi编辑模式① vi 新文件 ---创建新文件并打开vi命令模式。 例:vi a.txt ---创建新文..._linux如何进入vi编辑模式

Xcode清除缓存、清理多余证书-程序员宅基地

文章浏览阅读210次。Xcode清除缓存、清理多余证书 1、删除Xcode中多余的证书provisioning profile 手动删除: Xcode6 provisioning profile path: ~/Library/MobileDevice/Provisioning Profiles2、清理Xcode编译项目产生的缓存垃圾 (Xcode永久了,会产生很多项目编译缓

DSP320C6000的指令列表汇集__mpysp2dp-程序员宅基地

文章浏览阅读8.2k次,点赞3次,收藏71次。TMS320C6000产品是美国TI公司于1997年推出的dsp芯片,该DSP芯片定点、浮点兼容,其中,定点系列是TMS320C62xx系列,浮点系列是TMS320C67xx系列,2000年3月,TI发布新的C64xx内核,主频为1.1GHz,处理速度9000MIPS,在图像处理和流媒体领域得到了广泛的应用。C6000片内有8个并行的处理单元,分为相同的两组。DSP的体系结构采用超长指令字(v...__mpysp2dp

pytorch保存模型pth_浅谈pytorch 模型 .pt, .pth, .pkl的区别及模型保存方式-程序员宅基地

文章浏览阅读1k次。我们经常会看到后缀名为.pt, .pth, .pkl的pytorch模型文件,这几种模型文件在格式上有什么区别吗?其实它们并不是在格式上有区别,只是后缀不同而已(仅此而已),在用torch.save()函数保存模型文件时,各人有不同的喜好,有些人喜欢用.pt后缀,有些人喜欢用.pth或.pkl.用相同的torch.save()语句保存出来的模型文件没有什么不同。在pytorch官方的文档/代码里,..._模型保存为pth

随便推点

Stm32CubeIDE设置补全快捷键和主题_cubeide快捷键设置-程序员宅基地

文章浏览阅读8.2k次,点赞8次,收藏32次。Stm32CubeIDE设置补全快捷键和主题stm32CubeIde的设置,省的自己忘记了。一、主题设置提示:这里可以添加要学的内容例如:1、 help->Eclipse Market->输入"Devstyle"查找主题插件->install安装2、窗口->首选项 找到主题3、按照如下设置完成后会提示重启,重启后效果如下所示二、补全设置用于设置代码的自动补全搜索: key->content assist默认的补全快捷键时alt+/,这里我改成双击两次_cubeide快捷键设置

【QBKbupt】洛谷P2525Uim的情人节礼物·其之壱-程序员宅基地

文章浏览阅读142次。(题目链接:https://www.luogu.com.cn/problem/P2525)#include<bits/stdc++.h>using namespace std;int main(){ int tmp,pos,s,n,number,symbol=1,input[10],data[10],memory[10]; scanf("%d",&n); for(int i=1;i<=n;i++) { scanf("%d",&input[i]);

CSS入门|空余空间、换行和省略-程序员宅基地

文章浏览阅读241次,点赞3次,收藏7次。text-overflow:ellipsis(省略号);(如果用clip(裁剪),就没有三个点)nowrap 文本不换行,直到遇到标签【最常用】pre 预格式化文本-保留空格,tab,回车。pre-line 显示回车,不显示换行,空格。做出多的文本省略、显示三个点的效果——容器宽度:width:200px;White-space空余空间。pre-wrap 自然换行。

小学计算机片段教学设计,小学信息片段教学设计-程序员宅基地

文章浏览阅读227次。小学信息片段教学设计教学目的:认知目标:掌握含有小数连除问题的解决方法,进一步巩固小数除法,同时体会解决问题策略的多样性。技能目标:在学习的过程中,培养学生的推理概括能力、灵活解决问题的能力。 情感目标:使学生会解决有关小数除法的简单实际问题,体会小数除法的应用价值。教学重点:探究解决问题的方法。教学难点:分析数量关系,引导学生用量的`关系来描述解题思路。教学过程:多媒体课件教学过程:一、揭示课题..._计算机片段教学设计

&以及*运算符说明-程序员宅基地

文章浏览阅读345次。&以及*运算符说明&和*介绍&说明:*说明:代码片段:分析总结:&和*介绍&说明:取址运算符&用来取得其操作数的地址。如果操作数 x 的类型为 T,则表达式 &x 的类型是 T 类型指针(指向 T 的指针)。取址运算符的操作数必须是在内存中可寻址到的地址。换句话说,该运算符只能用于函数或对象(例如左值),而不可以用于位字段,以及那些还未被存储类修饰符 register 声明的内容。当需要初始化指针,以指向某些对象或函数时,需要获得这些对象或函

python将两份excel文件分两个sheet合并成一个-程序员宅基地

文章浏览阅读265次。创建一个新的 Excel workbook 对象,并加载已存在的文件(output.xlsx)创建一个新的 sheet,并将第二个 DataFrame 写入其中,并命名。将第一个 DataFrame 写入一个新的 sheet,并命名。保存合并后的 Excel 文件。保存合并后的 Excel 文件。导入包和定义需要保存的文件名。读取第一个 Excel 文件。读取第二个 Excel 文件。删除默认的 Sheet。