VB.NET机房收费系统——组合查询

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB.NET机房收费系统——组合查询，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

在VB.NET 机房收费系统的组合查询中我写了完了一条线，然后看了其他同学对于组合查询的代码我感觉自己的代码很幼稚，不过还是想发表一下这个代码花了我半天的时间完成的。接下来就贴上图和代码。@H_403_2@

@H_403_2@

组合查询的窗体：@H_403_2@


U层代码：@H_403_2@

Public ClassUIFrmOperatorWorkRecord@H_403_2@

Private SubUIFrmOperatorWorkRecord_Load(ByVal sender As System.Object,ByVal e AsSystem.EventArgs) Handles MyBase.Load@H_403_2@

’定义字符串数组@H_403_2@

DimstrFieldName(6) As String@H_403_2@

Dim strOperator(3) As String@H_403_2@

Dim strCompositionRelation(1) As String@H_403_2@

@H_403_2@

DimIntTemp As Integer@H_403_2@

@H_403_2@

'给字符串数组赋值@H_403_2@

For IntTemp = 0 To 6@H_403_2@

Select Case IntTemp@H_403_2@

Case 0@H_403_2@

strFieldName(0) ="教师"@H_403_2@

strOperator(0) ="="@H_403_2@

strCompositionRelation(0) ="或"@H_403_2@

Case 1@H_403_2@

strFieldName(1) ="级别"@H_403_2@

strOperator(1) =">"@H_403_2@

strCompositionRelation(1) ="与"@H_403_2@

Case 2@H_403_2@

strFieldName(2) ="登录日期"@H_403_2@

strOperator(2) ="<"@H_403_2@

Case 3@H_403_2@

strFieldName(3) ="登录时间"@H_403_2@

strOperator(3) ="="@H_403_2@

Case 4@H_403_2@

strFieldName(4) ="注销日期"@H_403_2@

Case 5@H_403_2@

strFieldName(5) ="注销时间"@H_403_2@

Case 6@H_403_2@

strFieldName(6) ="机器名"@H_403_2@

End Select@H_403_2@

Next IntTemp@H_403_2@

@H_403_2@

'控件增加字段@H_403_2@

cboFieldName1.Items.AddRange(strFieldName)@H_403_2@

cboFieldName2.Items.AddRange(strFieldName)@H_403_2@

cboFieldName3.Items.AddRange(strFieldName)@H_403_2@

cboOperator1.Items.AddRange(strOperator)@H_403_2@

cboOperator2.Items.AddRange(strOperator)@H_403_2@

cboOperator3.Items.AddRange(strOperator)@H_403_2@

cboCompositionRelation1.Items.AddRange(strCompositionRelation)@H_403_2@

cboCompositionRelation2.Items.AddRange(strCompositionRelation)@H_403_2@

@H_403_2@

End Sub@H_403_2@

@H_403_2@

Private Sub BtnCheck_Click(ByVal sender AsSystem.Object,ByVal e As System.EventArgs) Handles BtnCheck.Click@H_403_2@

Dim ECombination As NewEntity.Combination@H_403_2@

Dim BCombination As NewBLL.BLLOperatorWorkRecord@H_403_2@

Dim dt As New DataTable@H_403_2@

'把信息传给ECombination@H_403_2@

ECombination.FieldName1 =Trim(cboFieldName1.Text)@H_403_2@

ECombination.FieldName2 =Trim(cboFieldName2.Text)@H_403_2@

ECombination.FieldName3 =Trim(cboFieldName3.Text)@H_403_2@

ECombination.Operator1 =Trim(cboOperator1.Text)@H_403_2@

ECombination.Operator2 =Trim(cboOperator2.Text)@H_403_2@

ECombination.Operator3 =Trim(cboOperator3.Text)@H_403_2@

ECombination.CompositionRelation1 =Trim(cboCompositionRelation1.Text)@H_403_2@

ECombination.CompositionRelation2 =Trim(cboCompositionRelation2.Text)@H_403_2@

ECombination.ChcekContent1 =Trim(txtChcekContent1.Text)@H_403_2@

ECombination.ChcekContent2 =Trim(txtChcekContent2.Text)@H_403_2@

ECombination.ChcekContent3 =Trim(txtChcekContent3.Text)@H_403_2@

'组合查询@H_403_2@

dt =BCombination.CombinationCheck(ECombination)@H_403_2@

'把查到的结果传给gvwViewOperatorWorkRecord控件显示出来@H_403_2@

gvwViewOperatorWorkRecord.DataSource =dt@H_403_2@

End Sub@H_403_2@

@H_403_2@

Private Sub BtnExit_Click(ByVal sender AsSystem.Object,ByVal e As System.EventArgs) Handles BtnExit.Click@H_403_2@

Me.Hide()@H_403_2@

End Sub@H_403_2@

End Class@H_403_2@

@H_403_2@

B层代码@H_403_2@

Public ClassBLLOperatorWorkRecord@H_403_2@

''' <summary>@H_403_2@

''' 组合查询@H_403_2@

''' </summary>@H_403_2@

''' <paramname="Combination"></param>@H_403_2@

''' <returns></returns>@H_403_2@

''' <remarks></remarks>@H_403_2@

Function CombinationCheck(ByVal CombinationAs Entity.Combination) As DataTable@H_403_2@

Dim ECombination As NewEntity.Combination '定义一个实体类@H_403_2@

Dim DCombiantion As NewDAL.DALWorkLogInfo '定义一个DALWorkLogInfo来调用D层的方法@H_403_2@

Dim strsqlString As String '定义一个存sql语句@H_403_2@

Dim dt As New DataTable'定义一个DataTable来存储查询出来的语句@H_403_2@

ECombination = Combination '把传过来的值传给ECombination@H_403_2@

strsqlString =CombinationsqlString(ECombination) '调用 CombinationsqlString函数来拼接sql语句@H_403_2@

dt =DCombiantion.CheckWorkLogInfo(strsqlString)'调用D层的CheckWorkLogInfo方法来查询，并把查询到的结果传给dt@H_403_2@

Return dt@H_403_2@

End Function@H_403_2@

''' <summary>@H_403_2@

''' 改变把中文字符编程英文@H_403_2@

''' </summary>@H_403_2@

''' <paramname="Field"></param>@H_403_2@

''' <returns></returns>@H_403_2@

''' <remarks></remarks>@H_403_2@

Function ChangeField(ByVal Field As String)As String@H_403_2@

Select Case Field@H_403_2@

Case "教师"@H_403_2@

Field = " OperatorID "@H_403_2@

Case "级别"@H_403_2@

Field = " OperatorLevel"@H_403_2@

Case "登录日期"@H_403_2@

Field = " logonDate"@H_403_2@

Case "登录时间"@H_403_2@

Field = " logonTime"@H_403_2@

Case "注销日期"@H_403_2@

Field = " logoutDate"@H_403_2@

Case "注销时间"@H_403_2@

Field = " logoutTime"@H_403_2@

Case "机器名"@H_403_2@

Field = " OperatorUseComputer "@H_403_2@

Case "或"@H_403_2@

Field = " or"@H_403_2@

Case "与"@H_403_2@

Field = " and"@H_403_2@

End Select@H_403_2@

Return Field@H_403_2@

End Function@H_403_2@

''' <summary>@H_403_2@

''' 组合条件@H_403_2@

''' </summary>@H_403_2@

''' <paramname="Combination"></param>@H_403_2@

''' <returns></returns>@H_403_2@

''' <remarks></remarks>@H_403_2@

Function CombinationsqlString(ByValCombination As Entity.Combination) As String@H_403_2@

Dim ECombination As NewEntity.Combination '定义一个实体类@H_403_2@

@H_403_2@

'定义字符串存储查询的内容@H_403_2@

Dim strsqlString1 As String@H_403_2@

Dim strsqlString2 As String@H_403_2@

Dim strsqlString3 As String@H_403_2@

Dim strsqlAll As String@H_403_2@

@H_403_2@

ECombination = Combination@H_403_2@

'拼接sql字符串@H_403_2@

ECombination.FieldName1 =ChangeField(Combination.FieldName1)@H_403_2@

ECombination.FieldName2 =ChangeField(Combination.FieldName2)@H_403_2@

ECombination.FieldName3 =ChangeField(Combination.FieldName3)@H_403_2@

ECombination.ChcekContent1 ="'" + Combination.ChcekContent1 + "'"@H_403_2@

ECombination.ChcekContent2 ="'" + Combination.ChcekContent2 + "'"@H_403_2@

ECombination.ChcekContent3 ="'" + Combination.ChcekContent3 + "'"@H_403_2@

ECombination.CompositionRelation1 =ChangeField(Combination.CompositionRelation1)@H_403_2@

ECombination.CompositionRelation2 =ChangeField(Combination.CompositionRelation2)@H_403_2@

strsqlString1 = ECombination.FieldName1+ ECombination.Operator1 + ECombination.ChcekContent1 +ECombination.CompositionRelation1@H_403_2@

strsqlString2 = ECombination.FieldName2+ ECombination.Operator2 + ECombination.ChcekContent2 +ECombination.CompositionRelation2@H_403_2@

strsqlString3 = ECombination.FieldName3+ ECombination.Operator3 + ECombination.ChcekContent3@H_403_2@

@H_403_2@

'检查某些字符串为空的情况@H_403_2@

Select Case True@H_403_2@

Case ECombination.FieldName2 ="" And ECombination.CompositionRelation1 <> ""@H_403_2@

strsqlString1 =ECombination.FieldName1 + ECombination.Operator1 + ECombination.ChcekContent1@H_403_2@

strsqlString2 = ""@H_403_2@

strsqlString3 = ""@H_403_2@

Case ECombination.FieldName3 ="" And ECombination.CompositionRelation2 <> ""@H_403_2@

strsqlString2 =ECombination.FieldName2 + ECombination.Operator2 + ECombination.ChcekContent2@H_403_2@

strsqlString3 = ""@H_403_2@

strsqlAll =AddString(strsqlString1,strsqlString2,strsqlString3)@H_403_2@

CaseECombination.CompositionRelation1 = ""@H_403_2@

strsqlString1 =ECombination.FieldName1 + ECombination.Operator1 + ECombination.ChcekContent1@H_403_2@

strsqlString2 = ""@H_403_2@

strsqlString3 = ""@H_403_2@

CaseECombination.CompositionRelation2 = ""@H_403_2@

strsqlString2 =ECombination.FieldName2 + ECombination.Operator2 + ECombination.ChcekContent2@H_403_2@

strsqlString3 = ""@H_403_2@

End Select@H_403_2@

'把查询字符串拼接在一起@H_403_2@

strsqlAll = AddString(strsqlString1,strsqlString3)@H_403_2@

Return strsqlAll@H_403_2@

End Function@H_403_2@

''' <summary>@H_403_2@

''' 字符串拼接@H_403_2@

''' </summary>@H_403_2@

''' <paramname="str1"></param>@H_403_2@

''' <paramname="str2"></param>@H_403_2@

''' <paramname="str3"></param>@H_403_2@

''' <returns></returns>@H_403_2@

''' <remarks></remarks>@H_403_2@

Function AddString(ByVal str1 As String,ByVal str2 As String,ByVal str3 As String) As String@H_403_2@

Dim strAllString As String@H_403_2@

strAllString = str1 + str2 + str3@H_403_2@

Return strAllString@H_403_2@

End Function@H_403_2@

End Class@H_403_2@

@H_403_2@

D层：@H_403_2@

''' <summary>@H_403_2@

''' 组合查询@H_403_2@

''' </summary>@H_403_2@

''' @H_403_2@

''' <returns></returns>@H_403_2@

''' <remarks></remarks>@H_403_2@

Function CheckWorkLogInfo(ByValstrCombinationsql As String) As DataTable@H_403_2@

Dim strsql As String ="select OperatorID as教师,OperatorLevel as 级别,logonDate as 登录日期,logonTime as 登录时间,logoutDate as注销日期,logoutTime as 注销时间,OperatorUseComputer as 机器名 from WorkLog_Info where" + strCombinationsql‘sql语句@H_403_2@

Dim cmd As sqlCommand = NewsqlCommand(strsql,conn)’连接数据库@H_403_2@

Dim sqlda As NewsqlDataAdapter‘建一个sqlDataAdapter@H_403_2@

Dim ds As New DataSet’定义一个新的DataSet@H_403_2@

Dim dt As NewDataTable‘定义一个新的DataTable@H_403_2@

Try@H_403_2@

conn.Open()’打开数据库@H_403_2@

sqlda.SelectCommand = cmd‘把cmd传给da@H_403_2@

sqlda.Fill(dt)’填充dt@H_403_2@

Return dt@H_403_2@

Catch ex As Exception@H_403_2@

Return dt@H_403_2@

Finally@H_403_2@

cmd.Dispose()@H_403_2@

conn.Close()@H_403_2@

End Try@H_403_2@

@H_403_2@

End Function@H_403_2@

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积