📄 sec_dialog.frm
字号:
VERSION 5.00
Begin VB.Form SEC_Dialog
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fixed Dialog
Caption = "查询对话框"
ClientHeight = 2235
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5835
Icon = "SEC_Dialog.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2235
ScaleWidth = 5835
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
Caption = "模糊查询选项"
Height = 855
Left = 30
TabIndex = 9
Top = 810
Width = 5775
Begin VB.ComboBox Combo1
Height = 300
Index = 1
ItemData = "SEC_Dialog.frx":0442
Left = 90
List = "SEC_Dialog.frx":0455
TabIndex = 12
Top = 495
Width = 2655
End
Begin VB.ComboBox Combo2
Height = 300
Index = 1
ItemData = "SEC_Dialog.frx":047D
Left = 2820
List = "SEC_Dialog.frx":0484
TabIndex = 11
Top = 495
Width = 1245
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 4140
TabIndex = 10
Top = 510
Width = 1575
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "查询字段"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 120
TabIndex = 15
Top = 240
Width = 2265
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "操作符"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 2820
TabIndex = 14
Top = 240
Width = 825
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "值"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 5
Left = 4200
TabIndex = 13
Top = 240
Width = 885
End
End
Begin VB.CommandButton C_Qk
BackColor = &H00E0E0E0&
Caption = "清空条件"
Height = 375
Left = 60
Style = 1 'Graphical
TabIndex = 8
Top = 1800
Width = 945
End
Begin VB.TextBox Text1
Height = 300
Index = 0
Left = 4170
TabIndex = 4
Top = 330
Width = 1575
End
Begin VB.ComboBox Combo2
Height = 300
Index = 0
ItemData = "SEC_Dialog.frx":048E
Left = 2850
List = "SEC_Dialog.frx":049E
TabIndex = 3
Top = 330
Width = 1245
End
Begin VB.ComboBox Combo1
Height = 300
Index = 0
ItemData = "SEC_Dialog.frx":04B1
Left = 60
List = "SEC_Dialog.frx":04B8
TabIndex = 2
Top = 330
Width = 2655
End
Begin VB.CommandButton CmD_Cancel
BackColor = &H00E0E0E0&
Caption = "取消"
Height = 375
Left = 4830
Style = 1 'Graphical
TabIndex = 1
Top = 1800
Width = 945
End
Begin VB.CommandButton CmD_OK
BackColor = &H00E0E0E0&
Caption = "确定"
Height = 375
Left = 3900
MaskColor = &H00E0E0E0&
Style = 1 'Graphical
TabIndex = 0
Top = 1800
Width = 945
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "值"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 4260
TabIndex = 7
Top = 60
Width = 2265
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "操作符"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 2850
TabIndex = 6
Top = 60
Width = 2265
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "查询字段"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 90
TabIndex = 5
Top = 60
Width = 2265
End
End
Attribute VB_Name = "SEC_Dialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Tj_A, Tj_B As String
Private Sub C_Qk_Click()
Combo1(0).Text = ""
Combo2(1).Text = ""
Combo1(1).Text = ""
Combo2(0).Text = ""
Text1(0).Text = ""
Text1(1).Text = ""
End Sub
Private Sub CmD_Cancel_Click()
Unload Me
End Sub
Private Sub CmD_OK_Click()
On Error GoTo Err_Ts
If Trim(Combo1(0).Text) <> Trim(Combo1(1).Text) Then
If Trim(Combo1(0).Text) <> "" And Trim(Combo2(0).Text) <> "" And Trim(Text1(0).Text) <> "" Then
ZF_wZ = InStr(Trim(Combo1(0).Text), "(")
CX_zD1 = Left(Trim(Combo1(0).Text), ZF_wZ - 1)
Tj_A = " and " & CX_zD1 & Trim(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'"
End If
If Trim(Combo1(0).Text) <> "" And Trim(Text1(0).Text) = "" Then
ZF_wZ = InStr(Trim(Combo1(0).Text), "(")
CX_zD1 = Left(Trim(Combo1(0).Text), ZF_wZ - 1)
Tj_A = " and " & CX_zD1 & " is null"
End If
If Trim(Combo1(1).Text) <> "" And Trim(Text1(1).Text) <> "" Then
ZF_wZ = InStr(Trim(Combo1(1).Text), "(")
Cx_Zd2 = Left(Trim(Combo1(1).Text), ZF_wZ - 1)
Tj_B = " and " & Cx_Zd2 & " like '%" & Trim(Text1(1).Text) & "%'"
End If
If Trim(Combo1(1).Text) <> "" And Trim(Text1(1).Text) = "" Then
ZF_wZ = InStr(Trim(Combo1(1).Text), "(")
Cx_Zd2 = Left(Trim(Combo1(1).Text), ZF_wZ - 1)
Tj_B = " and " & Cx_Zd2 & " is null"
End If
CX_FrM_SjY.ConnectionString = Conn_Str
CX_FrM_SjY.RecordSource = CX_SJy & Tj_A & Tj_B
CX_FrM_SjY.Refresh
Else
MsgBox "查询字段不允许相同，请核对！", vbOKOnly + 16, "系统提示"
Exit Sub
End If
Unload Me
Err_Ts:
'MsgBox "查询输入值有误，请重新核对！", vbOKOnly + 16, "系统提示"
Exit Sub
End Sub
Private Sub Form_Load()
Tj_A = ""
Tj_B = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -