📄 rgzlcx.frm
字号:
Width = 3255
End
End
Begin VB.CommandButton Command4
Caption = "全部清空"
Height = 375
Left = -70080
TabIndex = 11
Top = 600
Width = 2295
End
Begin VB.CommandButton Command3
Caption = "查 询"
Height = 375
Left = -70080
TabIndex = 10
Top = 1080
Width = 2295
End
Begin VB.Frame Frame2
Caption = "查询的条件："
Height = 2895
Left = -74880
TabIndex = 7
Top = 4200
Width = 4095
Begin RichTextLib.RichTextBox RichTextBox1
Height = 2535
Left = 120
TabIndex = 8
Top = 360
Width = 3855
_ExtentX = 6800
_ExtentY = 4471
_Version = 393217
BackColor = 16777215
ScrollBars = 1
TextRTF = $"Rgzlcx.frx":0122
End
Begin VB.Label TjMc
Caption = "Label1"
Height = 375
Left = 240
TabIndex = 9
Top = 2520
Visible = 0 'False
Width = 3615
End
End
Begin VB.Frame Frame1
Caption = "请选择查询的条件："
Height = 3615
Left = -74880
TabIndex = 1
Top = 480
Width = 4095
Begin VB.Frame Frame5
Caption = "请选择逻辑关系"
Height = 855
Left = 120
TabIndex = 29
Top = 2160
Width = 3855
Begin VB.ComboBox Combo1
Height = 300
Left = 120
TabIndex = 30
Top = 360
Width = 3615
End
End
Begin VB.CommandButton Command1
BackColor = &H00FFFFFF&
Caption = "累积条件"
Height = 375
Left = 1200
TabIndex = 6
Top = 3120
Width = 1575
End
Begin VB.Frame Tj
Caption = "条件1:"
Height = 1695
Left = 120
TabIndex = 2
Top = 360
Width = 3855
Begin VB.ComboBox Fhtj
Height = 300
Left = 120
TabIndex = 4
Text = "Combo2"
Top = 1080
Width = 3615
End
Begin VB.ComboBox Xztj
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 3
Top = 360
Width = 3615
End
Begin VB.Label Fh
AutoSize = -1 'True
Caption = "="
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 120
TabIndex = 5
Top = 720
Width = 210
End
End
End
Begin VB.Label Tjlr
AutoSize = -1 'True
Caption = "Label1"
ForeColor = &H00FF0000&
Height = 180
Index = 0
Left = -74040
TabIndex = 16
Top = 600
Width = 540
End
Begin VB.Label Tjm
AutoSize = -1 'True
Caption = "Label1"
ForeColor = &H000000FF&
Height = 180
Index = 0
Left = -74760
TabIndex = 15
Top = 600
Width = 540
End
End
Begin VB.Menu Filemenu
Caption = "文件(&F)"
Begin VB.Menu BackMenu
Caption = "返回(&Q)"
End
End
Begin VB.Menu PrintMenu
Caption = "打印(&P)"
Visible = 0 'False
Begin VB.Menu PrintTjjgmenu
Caption = "打印"
End
Begin VB.Menu RenoMenu
Caption = "取消"
End
End
Begin VB.Menu PopuMenu
Caption = "Popu"
Visible = 0 'False
Begin VB.Menu DwMenu
Caption = "定位"
End
End
End
Attribute VB_Name = "Rgzlcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public dbs As Database '定义数据库
Public TjI As Integer '定义条件号
Public BM As String '定义表名
Public Cxtj As String '定义查询条件
Public Cxzd As String '定义查询字段
Public Cxzdcd As Integer '定义查询字段长度
Public Cxzd1 As String
Dim strk As String
Sub ClearTj() '清空统计的条件
List2.clear
List3.clear
Tjjg.Text = ""
End Sub
Sub Zdtjjg() '统计字段的结果
If List2.ListCount = 0 Then
MsgBox "请先选择统计的字段!"
Exit Sub
End If
If List2.ListCount <> List3.ListCount Then
MsgBox "统计的字段要和统计的条件相对应！"
Exit Sub
End If
If TjMc.Caption = "" Then
MsgBox "请先选择统计的条件！"
Call ClearTj
SSTab1.Tab = 0
Exit Sub
End If
Dim i As Integer
Dim Fh, xs As String
Fh = ""
xs = ""
Dim Sql As String
Tjjg.Text = ""
For i = 0 To List2.ListCount - 1
List2.ListIndex = i
On Error Resume Next
Select Case Trim(Left(List3.Text, 10))
Case "Sum"
Fh = "sum"
xs = "字段的和是:"
Case "Count"
Fh = "count"
xs = "字段的列的值是:"
Case "Avg"
Fh = "avg"
xs = "字段的平均值是:"
Case "Max"
Fh = "max"
xs = "字段的最大值是:"
Case "Min"
Fh = "min"
xs = "字段的最小值是:"
End Select
Sql = "select " & Fh & "(val(" & List2.Text & ")) as One from " & BM & " where " & TjMc.Caption
Dim re As Recordset
Set re = dbs.OpenRecordset(Sql)
If re.RecordCount <> 0 Then
re.MoveLast: re.MoveFirst
End If
Dim k As Boolean
If Len(Tjjg.Text) = 0 Then
k = False
TjI = 1
Else
k = True
TjI = TjI + 1
End If
If k = False Then
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &H0&
Tjjg.SelText = "统计" & TjI & ":在表" & BM & "中"
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &HFF&
Tjjg.SelText = List2.Text
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &H4000&
Tjjg.SelText = xs
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &HFF0000
Tjjg.SelText = re![one]
Else
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &H0&
Tjjg.SelText = Chr(13) & Chr(10) & "统计" & TjI & ":在表" & BM & "中"
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &HFF&
Tjjg.SelText = List2.Text
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &H4000&
Tjjg.SelText = xs
Tjjg.SelStart = Len(Tjjg.Text)
Tjjg.SelColor = &HFF0000
Tjjg.SelText = re![one]
End If
Next i
End Sub
Sub clear() '清空无用的值
Xztj.clear
Fhtj.clear
RichTextBox1.Text = ""
TjMc.Caption = ""
List1.clear
TjI = 0
Tjm(0).Caption = ""
Tjlr(0).Caption = ""
Tjfh.clear
Tjjg.Text = ""
Zdtj.clear
List2.clear
List3.clear
End Sub
Sub Xstj() '显示条件
Dim re As Recordset
Set re = dbs.OpenRecordset("select * from " & BM & "")
Dim Re_i As Integer
For Re_i = 0 To re.Fields.Count - 1
Xztj.AddItem re.Fields(Re_i).name
Zdtj.AddItem re.Fields(Re_i).name
Next Re_i
'显示统计的条件
Tjfh.AddItem "Sum" & String(10, " ") & "求和"
Tjfh.AddItem "Count" & String(8, " ") & "求列中的值"
Tjfh.AddItem "Avg" & String(10, " ") & "求平均值"
Tjfh.AddItem "Max" & String(10, " ") & "求最大"
Tjfh.AddItem "Min" & String(10, " ") & "求最小"
'选择查询的逻辑关系
Combo1.AddItem "and" & String(9, " ") & "和"
Combo1.AddItem "in" & String(10, " ") & "之内"
'Combo1.AddItem "between" & String(5, " ") & "之间"
Combo1.AddItem "or" & String(10, " ") & "或"
End Sub
Sub Ljtj() '累积条件
Dim k As Boolean
If Len(RichTextBox1.Text) = 0 Then
k = False
TjI = 1
Else
k = True
TjI = TjI + 1
End If
If k = False Then
RichTextBox1.SelStart = Len(RichTextBox1.Text)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -