📄 frmqueryaccinfo.frm
字号:
Index = 3
Left = 2040
TabIndex = 21
Top = 4080
Width = 735
End
Begin VB.CheckBox Check1
Caption = "未销户"
Height = 255
Index = 2
Left = 1080
TabIndex = 20
Top = 4080
Width = 855
End
Begin VB.CheckBox Check1
Caption = "解冻"
Height = 255
Index = 1
Left = 5040
TabIndex = 19
Top = 3720
Width = 735
End
Begin VB.CheckBox Check1
Caption = "冻结"
Height = 255
Index = 0
Left = 3960
TabIndex = 18
Top = 3720
Width = 735
End
Begin EDITLib.Edit txtUpgDate2
Height = 255
Left = 3960
TabIndex = 62
Top = 120
Width = 1815
_Version = 65536
_ExtentX = 3201
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit txtUpgDate1
Height = 255
Left = 1080
TabIndex = 63
Top = 120
Width = 1575
_Version = 65536
_ExtentX = 2778
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin VB.Label Label1
Caption = "调整日期"
Height = 255
Index = 19
Left = 120
TabIndex = 65
Top = 120
Width = 975
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 18
Left = 3120
TabIndex = 64
Top = 120
Width = 495
End
Begin VB.Label Label5
Caption = "账户内外部"
Height = 255
Left = 3000
TabIndex = 57
Top = 4080
Width = 1095
End
Begin VB.Label Label4
Caption = "账户类型"
Height = 255
Left = 120
TabIndex = 56
Top = 4440
Width = 855
End
Begin VB.Label Label3
Caption = "销户状态"
Height = 255
Left = 120
TabIndex = 55
Top = 4080
Width = 855
End
Begin VB.Label Label2
Caption = "冻结状态"
Height = 255
Left = 3000
TabIndex = 54
Top = 3720
Width = 975
End
Begin VB.Label Label1
Caption = "数据来源:"
Height = 255
Index = 17
Left = 120
TabIndex = 17
Top = 3720
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 16
Left = 3120
TabIndex = 16
Top = 3360
Width = 375
End
Begin VB.Label Label1
Caption = "本位币积数"
Height = 255
Index = 15
Left = 120
TabIndex = 15
Top = 3360
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 14
Left = 3120
TabIndex = 14
Top = 3000
Width = 375
End
Begin VB.Label Label1
Caption = "期初积数"
Height = 255
Index = 13
Left = 120
TabIndex = 13
Top = 3000
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 12
Left = 3120
TabIndex = 12
Top = 2640
Width = 375
End
Begin VB.Label Label1
Caption = "本位币余额"
Height = 255
Index = 11
Left = 120
TabIndex = 11
Top = 2640
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 10
Left = 3120
TabIndex = 10
Top = 2280
Width = 375
End
Begin VB.Label Label1
Caption = " 币 别 "
Height = 255
Index = 9
Left = 3000
TabIndex = 9
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "期初余额"
Height = 255
Index = 8
Left = 120
TabIndex = 8
Top = 2280
Width = 1095
End
Begin VB.Label Label1
Caption = "利率代码"
Height = 255
Index = 7
Left = 120
TabIndex = 7
Top = 1560
Width = 1095
End
Begin VB.Label Label1
Caption = "结息日代码"
Height = 255
Index = 6
Left = 3000
TabIndex = 6
Top = 1560
Width = 1095
End
Begin VB.Label Label1
Caption = "开户银行"
Height = 255
Index = 5
Left = 120
TabIndex = 5
Top = 1920
Width = 1095
End
Begin VB.Label Label1
Caption = "——"
Height = 255
Index = 4
Left = 3120
TabIndex = 4
Top = 1200
Width = 375
End
Begin VB.Label Label1
Caption = "开户日期"
Height = 255
Index = 3
Left = 120
TabIndex = 3
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "账户名称"
Height = 255
Index = 2
Left = 3000
TabIndex = 2
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "账户号"
Height = 255
Index = 1
Left = 120
TabIndex = 1
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "单位名称"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 480
Width = 1095
End
End
Attribute VB_Name = "frmQuqeryAccInfo"
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 '账号升级
'frmAccInfo.sqlwhere = str
Case 2 '账号信息查询
End Select
m_accUpgrade = 0
Unload Me
End Sub
Private Sub cmdOK_Click()
str = ""
If Trim(txtUpgDate1.Text) <> "" Then
If DateCheck(txtUpgDate1.Text) <> "" Then
str = str & "fd_accupgrade.upgrade_date>='" & Trim(txtUpgDate1.Text) & "' and "
Else
MsgBox "调整日期输入错误", vbInformation, "账户查询"
Exit Sub
End If
End If
If Trim(txtUpgDate2.Text) <> "" Then
If DateCheck(txtUpgDate2.Text) <> "" Then
str = str & "fd_accupgrade.upgrade_date<='" & Trim(txtUpgDate2.Text) & "' and "
Else
MsgBox "调整日期输入错误", vbInformation, "账户查询"
Exit Sub
End If
End If
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -