📄 frmqueryacc.frm
字号:
BackColor = 16777215
Appearance = 1
End
Begin VB.CheckBox Check1
Caption = "定期"
Height = 255
Index = 5
Left = 2280
TabIndex = 26
Top = 4080
Width = 855
End
Begin VB.CheckBox Check1
Caption = "活期"
Height = 255
Index = 4
Left = 1080
TabIndex = 25
Top = 4080
Width = 855
End
Begin VB.CheckBox Check1
Caption = "销户"
Height = 255
Index = 3
Left = 2040
TabIndex = 22
Top = 3720
Width = 735
End
Begin VB.CheckBox Check1
Caption = "未销户"
Height = 255
Index = 2
Left = 1080
TabIndex = 21
Top = 3720
Width = 855
End
Begin VB.CheckBox Check1
Caption = "解冻"
Height = 255
Index = 1
Left = 5040
TabIndex = 20
Top = 3360
Width = 735
End
Begin VB.CheckBox Check1
Caption = "冻结"
Height = 255
Index = 0
Left = 3960
TabIndex = 19
Top = 3360
Width = 735
End
Begin VB.Label Label5
Caption = "账户内外部"
Height = 255
Left = 3000
TabIndex = 59
Top = 3720
Width = 1095
End
Begin VB.Label Label4
Caption = "账户类型"
Height = 255
Left = 120
TabIndex = 58
Top = 4080
Width = 855
End
Begin VB.Label Label3
Caption = "销户状态"
Height = 255
Left = 120
TabIndex = 57
Top = 3720
Width = 855
End
Begin VB.Label Label2
Caption = "冻结状态"
Height = 255
Left = 3000
TabIndex = 56
Top = 3360
Width = 975
End
Begin VB.Label Label1
Caption = "数据来源:"
Height = 255
Index = 17
Left = 120
TabIndex = 47
Top = 3360
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 16
Left = 3120
TabIndex = 46
Top = 3000
Width = 495
End
Begin VB.Label Label1
Caption = "本位币积数"
Height = 255
Index = 15
Left = 120
TabIndex = 45
Top = 3000
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 14
Left = 3120
TabIndex = 44
Top = 2640
Width = 375
End
Begin VB.Label Label1
Caption = "期初积数"
Height = 255
Index = 13
Left = 120
TabIndex = 43
Top = 2640
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 12
Left = 3120
TabIndex = 42
Top = 2280
Width = 375
End
Begin VB.Label Label1
Caption = "本位币余额"
Height = 255
Index = 11
Left = 120
TabIndex = 41
Top = 2280
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 10
Left = 3120
TabIndex = 40
Top = 1920
Width = 375
End
Begin VB.Label Label1
Caption = " 币 别 "
Height = 255
Index = 9
Left = 3000
TabIndex = 39
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "期初余额"
Height = 255
Index = 8
Left = 120
TabIndex = 38
Top = 1920
Width = 1095
End
Begin VB.Label Label1
Caption = "利率代码"
Height = 255
Index = 7
Left = 120
TabIndex = 37
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "结息日代码"
Height = 255
Index = 6
Left = 3000
TabIndex = 36
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "开户银行"
Height = 255
Index = 5
Left = 120
TabIndex = 35
Top = 1560
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 4
Left = 3120
TabIndex = 34
Top = 840
Width = 375
End
Begin VB.Label Label1
Caption = "开户日期"
Height = 255
Index = 3
Left = 120
TabIndex = 33
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "账户名称"
Height = 255
Index = 2
Left = 3000
TabIndex = 32
Top = 120
Width = 1095
End
Begin VB.Label Label1
Caption = "账户号"
Height = 255
Index = 1
Left = 120
TabIndex = 31
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "单位名称"
Height = 255
Index = 0
Left = 120
TabIndex = 30
Top = 120
Width = 1095
End
End
Attribute VB_Name = "frmQuqeryAcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_accUpgrade As Integer
Dim str As String
Private Sub cmdCancel_Click()
str = ""
Select Case m_accUpgrade
Case 1 '账号升级
'frmAccUpgrade.sqlwhere = str
Case 2 '账号信息查询
End Select
m_accUpgrade = 0
Unload Me
End Sub
Private Sub cmdOK_Click()
str = ""
If Trim(txtcUnitName.Text) <> "" Then
str = str & "fd_accUnit.cUnitName like '%" & Trim(txtcUnitName.Text) & "%' and "
End If
If Trim(txtCaccname) <> "" Then
str = str & "fd_accdef.caccName like '%" & Trim(txtCaccname.Text) & "%' and "
End If
If Trim(txtCaccbank) <> "" Then
str = str & "fd_accdef.caccbank like '%" & Trim(txtCaccbank.Text) & "%' And "
End If
If Trim(txtCaccid.Text) <> "" Then
str = str & "fd_accdef.caccid like '%" & Trim(txtCaccid.Text) & "%' and "
End If
If Trim(txtCcadid.Text) <> "" Then
str = str & "fd_accdef.ccadid like '%" & Trim(txtCcadid.Text) & "%' and "
End If
If Trim(txtcexch_name) <> "" Then
str = str & "fd_accdef.cexch_name like '%" & Trim(txtcexch_name.Text) & "%' and "
End If
If Trim(txtCintrid.Text) <> "" Then
str = str & "fd_accdef.cintrid like '%" & Trim(txtCintrid.Text) & "%' and "
End If
If Trim(txtDopenDate1.Text) <> "" Then
If DateCheck(txtDopenDate1.Text) <> "" Then
str = str & "fd_accdef.dopendate>='" & Trim(txtDopenDate1.Text) & "' and "
Else
MsgBox "开户日期输入错误", vbInformation, "账户查询"
Exit Sub
End If
End If
If Trim(txtdopendate2.Text) <> "" Then
If DateCheck(txtdopendate2.Text) <> "" Then
str = str & "fd_accdef.dopendate<='" & Trim(txtdopendate2.Text) & "' and "
Else
MsgBox "开户日期输入错误", vbInformation, "账户查询"
Exit Sub
End If
End If
If Trim(txtmb1.Text) <> "" Then
str = str & "fd_accdef.mb>=" & CDbl(txtmb1.Text) & " and "
End If
If Trim(txtmb2.Text) <> "" Then
If Trim(txtmb1.Text) <> "" Then
If CDbl(txtmb2.Text) >= CDbl(txtmb1.Text) Then
str = str & "fd_accdef.mb<=" & CDbl(txtmb2.Text) & " and "
Else
MsgBox "期初余额输入错误", vbInformation, "账号查询"
Exit Sub
End If
Else
str = str & "fd_accdef.mb<=" & CDbl(txtmb2.Text) & " and "
End If
End If
If Trim(txtmh1.Text) <> "" Then
str = str & "fd_accdef.mh>=" & CDbl(txtmh1.Text) & " and "
End If
If Trim(txtmh2.Text) <> "" Then
If Trim(txtmh1.Text) <> "" Then
If CDbl(txtmh2.Text) >= CDbl(txtmh1.Text) Then
str = str & "fd_accdef.mh<=" & CDbl(txtmh2.Text) & " and "
Else
MsgBox "期初积数输入错误", vbInformation, "账号查询"
Exit Sub
End If
Else
str = str & "fd_accdef.mh<=" & CDbl(txtmh2.Text) & " and "
End If
End If
If Trim(txtqcjs_natural_mny1.Text) <> "" Then
str = str & "fd_accdef.qcjs_natural_mny>=" & CDbl(txtqcjs_natural_mny1.Text) & " and "
End If
If Trim(txtqcjs_natural_mny2.Text) <> "" Then
If Trim(txtqcjs_natural_mny1.Text) <> "" Then
If CDbl(txtqcjs_natural_mny2.Text) >= CDbl(txtqcjs_natural_mny1.Text) Then
str = str & "fd_accdef.qcjs_natural_mny<=" & CDbl(txtqcjs_natural_mny2.Text) & " and "
Else
MsgBox "期初本位币积数输入错误", vbInformation, "账号查询"
Exit Sub
End If
Else
str = str & "fd_accdef.qcjs_natural_mny<=" & CDbl(txtqcjs_natural_mny2.Text) & " and "
End If
End If
If Trim(txtqcye_natural_mny1.Text) <> "" Then
str = str & "fd_accdef.qcye_natural_mny>=" & CDbl(txtqcye_natural_mny1.Text) & " and "
End If
If Trim(txtqcye_natural_mny2.Text) <> "" Then
If Trim(txtqcye_natural_mny1.Text) <> "" Then
If CDbl(txtqcye_natural_mny2.Text) >= CDbl(txtqcye_natural_mny1.Text) Then
str = str & "fd_accdef.qcye_natural_mny<=" & CDbl(txtqcye_natural_mny2.Text) & " and "
Else
MsgBox "期初本位币余额输入错误", vbInformation, "账号查询"
Exit Sub
End If
Else
str = str & "fd_accdef.qcye_natural_mny<=" & CDbl(txtqcye_natural_mny2.Text) & " and "
End If
End If
If Not (optidatasrc(0).Value = 1 And optidatasrc(1).Value = 1) Then
If optidatasrc(0).Value = 1 Then
str = str & "fd_accdef.idatasrc=0 and "
End If
If optidatasrc(1).Value = 1 Then
str = str & "fd_accdef.idatasrc=1 and "
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -