📄 frm_outcustomer_riches_find.frm
字号:
VERSION 5.00
Begin VB.Form Frm_OutCustomer_Riches_Find
BorderStyle = 1 'Fixed Single
Caption = "外卖母盘客户财产查找"
ClientHeight = 5745
ClientLeft = 5565
ClientTop = 2865
ClientWidth = 8280
Icon = "Frm_OutCustomer_Riches_Find.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 8280
Begin VB.Frame Frame2
Caption = "选择查询方式"
Height = 615
Left = 113
TabIndex = 15
Top = 120
Width = 8055
Begin VB.OptionButton Option2
Caption = "所选客户"
ForeColor = &H000000FF&
Height = 255
Left = 2520
TabIndex = 17
Top = 240
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "所有客户"
Enabled = 0 'False
ForeColor = &H000000FF&
Height = 255
Left = 480
TabIndex = 16
Top = 240
Width = 1215
End
End
Begin VB.Frame Frame1
Height = 4935
Left = 113
TabIndex = 0
Top = 720
Width = 8055
Begin VB.CommandButton Cmd_Add
Caption = "添加(A&dd)"
Height = 375
Left = 2535
TabIndex = 10
Top = 1080
Width = 1215
End
Begin VB.CommandButton Cmd_Clear
Caption = "清除(&Clear)"
Height = 375
Left = 6540
TabIndex = 9
Top = 1080
Width = 1215
End
Begin VB.CommandButton Cmd_Or
Caption = "或者(&Or)"
Height = 375
Left = 5175
TabIndex = 8
Top = 1080
Width = 1215
End
Begin VB.CommandButton Cmd_And
Caption = "并且(&And)"
Height = 375
Left = 3855
TabIndex = 7
Top = 1080
Width = 1215
End
Begin VB.TextBox Txt_ConditionAll
ForeColor = &H00FF0000&
Height = 2295
Left = 255
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 6
Text = "Frm_OutCustomer_Riches_Find.frx":0CCA
Top = 1920
Width = 7560
End
Begin VB.ComboBox Cob_Amount_like
Height = 300
Left = 2655
Style = 2 'Dropdown List
TabIndex = 5
Top = 600
Width = 1200
End
Begin VB.TextBox Txt_Condition
Height = 300
Left = 3975
TabIndex = 4
Text = "Text1"
Top = 600
Width = 3840
End
Begin VB.ComboBox Cob_Fields
Height = 300
Left = 255
Style = 2 'Dropdown List
TabIndex = 3
Top = 600
Width = 2295
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出(&X)"
Height = 375
Left = 4320
TabIndex = 2
Top = 4320
Width = 1215
End
Begin VB.CommandButton Cmd_Find
Caption = "查询(&F)"
Height = 375
Left = 2640
TabIndex = 1
Top = 4320
Width = 1215
End
Begin VB.Line Line1
BorderColor = &H00C0FFFF&
X1 = 240
X2 = 7800
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "条件值"
Height = 180
Left = 3975
TabIndex = 14
Top = 360
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "查询规则"
Height = 180
Left = 2655
TabIndex = 13
Top = 360
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "查询总条件"
Height = 180
Left = 255
TabIndex = 12
Top = 1680
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "选择查询字段"
Height = 180
Left = 255
TabIndex = 11
Top = 360
Width = 1080
End
End
End
Attribute VB_Name = "Frm_OutCustomer_Riches_Find"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Add_Click()
On Error GoTo err
If Me.Cob_Amount_like.text = "like" Then
Me.Txt_ConditionAll.text = Me.Cob_Fields.text & " like '%'+'" & Me.Txt_Condition.text & "'+'%' "
Else
Me.Txt_ConditionAll.text = Me.Cob_Fields.text & " = '" & Me.Txt_Condition.text & "'"
End If
Me.Cmd_Add.Enabled = False
Me.Cmd_And.Enabled = True
Me.Cmd_Or.Enabled = True
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Cmd_And_Click()
On Error GoTo err
If Me.Cob_Amount_like.text = "like" Then
Me.Txt_ConditionAll.text = Me.Txt_ConditionAll.text & " And " & Me.Cob_Fields.text & " like '%'+'" & Me.Txt_Condition.text & "'+'%' "
Else
Me.Txt_ConditionAll.text = Me.Txt_ConditionAll.text & " And " & Me.Cob_Fields.text & " = '" & Me.Txt_Condition.text & "'"
End If
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Cmd_Clear_Click()
On Error GoTo err
Me.Txt_ConditionAll.text = ""
Me.Cmd_Add.Enabled = True
Me.Cmd_And.Enabled = False
Me.Cmd_Or.Enabled = False
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub cmd_Exit_Click()
Unload Me
End Sub
Private Sub Cmd_Find_Click()
On Error GoTo err
If Me.Txt_ConditionAll.text = "" Then
MsgBox "查询条件为空!" + Chr(13) + "请输入后再查询!", vbInformation, "提示信息"
Exit Sub
End If
'超级查找
If Me.Option1.Value = True And Me.Option2.Value = False Then
Rs_OutCR.Close
Rs_OutCR.Open "select * from OutCustomer_Riches where " & Me.Txt_ConditionAll.text & _
"order by 节目名称,母盘号码", Cn_OutCR, adOpenKeyset, adLockOptimistic, adCmdText
If Rs_OutCR.RecordCount <> 0 Then
Set Frm_OutCustomer_Riches.TDBGrid_CusRiches.DataSource = Rs_OutCR
Frm_OutCustomer_Riches.StatusBar1.Panels(7).text = "记录总数： " & Str(Rs_OutCR.RecordCount)
Call DGrid_Width_Set(Frm_OutCustomer_Riches)
Unload Me
Exit Sub
Else
Rs_OutCR.Close
Rs_OutCR.Open "select * from OutCustomer_Riches" & _
" where 内编码 like '%' + '" & AreaCustomer_Key & "' + '%' order by 节目名称,母盘号码", Cn_OutCR, adOpenKeyset, adLockOptimistic, adCmdText
Set Frm_OutCustomer_Riches.TDBGrid_CusRiches.DataSource = Rs_OutCR
Frm_OutCustomer_Riches.StatusBar1.Panels(7).text = "记录总数： " & Str(Rs_OutCR.RecordCount)
Call DGrid_Width_Set(Frm_OutCustomer_Riches)
MsgBox "找不到此记录!", vbInformation, "提示信息"
Me.Txt_ConditionAll.text = ""
Me.Cmd_Add.Enabled = True
Me.Cmd_And.Enabled = False
Me.Cmd_Or.Enabled = False
Exit Sub
End If
'按客户查找
ElseIf Me.Option1.Value = False And Me.Option2.Value = True Then
Rs_OutCR.Close
Me.Txt_ConditionAll.text = Me.Txt_ConditionAll.text & " And 内编码 like '%' + '" & AreaCustomer_Key & "' + '%' "
' And " & "YN_leak_argent" & " " & "like '%'+ '" & Me.Txt_Condition.text & "'+'%'"
Rs_OutCR.Open "select * from OutCustomer_Riches where " & Me.Txt_ConditionAll.text & _
"order by 节目名称,母盘号码", Cn_OutCR, adOpenKeyset, adLockOptimistic, adCmdText
If Rs_OutCR.RecordCount <> 0 Then
Set Frm_OutCustomer_Riches.TDBGrid_CusRiches.DataSource = Rs_OutCR
Frm_OutCustomer_Riches.StatusBar1.Panels(7).text = "记录总数： " & Str(Rs_OutCR.RecordCount)
Call DGrid_Width_Set(Frm_OutCustomer_Riches)
Unload Me
Exit Sub
Else
Rs_OutCR.Close
Rs_OutCR.Open "select * from OutCustomer_Riches" & _
" where 内编码 like '%' + '" & AreaCustomer_Key & "' + '%' order by 节目名称,母盘号码", Cn_OutCR, adOpenKeyset, adLockOptimistic, adCmdText
Set Frm_OutCustomer_Riches.TDBGrid_CusRiches.DataSource = Rs_OutCR
Frm_OutCustomer_Riches.StatusBar1.Panels(7).text = "记录总数： " & Str(Rs_OutCR.RecordCount)
Call DGrid_Width_Set(Frm_OutCustomer_Riches)
MsgBox "找不到这样的记录!", vbInformation, "提示信息"
Me.Txt_ConditionAll.text = ""
Me.Cmd_Add.Enabled = True
Me.Cmd_And.Enabled = False
Me.Cmd_Or.Enabled = False
Exit Sub
End If
End If
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Cmd_Or_Click()
On Error GoTo err
If Me.Cob_Amount_like.text = "like" Then
Me.Txt_ConditionAll.text = Me.Txt_ConditionAll.text & " Or " & Me.Cob_Fields.text & " like '%'+'" & Me.Txt_Condition.text & "'+'%'"
Else
Me.Txt_ConditionAll.text = Me.Txt_ConditionAll.text & " Or " & Me.Cob_Fields.text & " = '" & Me.Txt_Condition.text & "'"
End If
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Form_Load()
On Error GoTo err
Me.Cob_Amount_like.AddItem ("like")
Me.Cob_Amount_like.AddItem ("=")
Me.Cob_Amount_like.text = "like"
Me.Cob_Fields.AddItem ("节目名称")
Me.Cob_Fields.AddItem ("母盘号码")
Me.Cob_Fields.AddItem ("料号")
Me.Cob_Fields.AddItem ("菲林索引")
Me.Cob_Fields.AddItem ("节目种类")
Me.Cob_Fields.AddItem ("内编码")
Me.Cob_Fields.AddItem ("母盘刻字要求")
Me.Cob_Fields.AddItem ("刻录速度")
Me.Cob_Fields.AddItem ("GP要求")
Me.Cob_Fields.AddItem ("质量等级")
Me.Cob_Fields.AddItem ("复制要求")
Me.Cob_Fields.AddItem ("品质要求")
Me.Cob_Fields.AddItem ("印刷方式")
Me.Cob_Fields.AddItem ("印刷内圈")
Me.Cob_Fields.AddItem ("委托书编码")
Me.Cob_Fields.text = "节目名称"
If StrCondition <> "" Then Me.Txt_Condition.text = StrCondition Else Me.Txt_Condition.text = ""
If StrField <> "" Then Me.Cob_Fields.text = StrField
Me.Txt_ConditionAll.text = ""
Me.Option1.Value = False
Me.Option2.Value = True
Me.Cmd_Add.Enabled = True
Me.Cmd_And.Enabled = False
Me.Cmd_Or.Enabled = False
' Set Cn = New ADODB.Connection
' Cn.Open Cs
' Set Rs = New ADODB.Recordset
' Rs.Open "select * from Customer_Riches order by in_code", Cn, adOpenKeyset, adLockOptimistic, adCmdText
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Trim(Me.Txt_Condition.text) <> "" Then StrCondition = Trim(Me.Txt_Condition.text)
If Trim(Me.Cob_Fields.text) <> "" Then StrField = Trim(Me.Cob_Fields.text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -