📄 frmqueryaccinfo.frm.bak
字号:
Width = 855
End
Begin VB.Label Label2
Caption = "冻结状态"
Height = 255
Left = 3000
TabIndex = 55
Top = 3360
Width = 975
End
Begin VB.Label Label1
Caption = "数据来源:"
Height = 255
Index = 17
Left = 120
TabIndex = 17
Top = 3360
Width = 1095
End
Begin VB.Label Label1
Caption = "本位币积数"
Height = 255
Index = 16
Left = 3000
TabIndex = 16
Top = 3000
Width = 1095
End
Begin VB.Label Label1
Caption = "本位币积数"
Height = 255
Index = 15
Left = 120
TabIndex = 15
Top = 3000
Width = 1095
End
Begin VB.Label Label1
Caption = "期初积数"
Height = 255
Index = 14
Left = 3000
TabIndex = 14
Top = 2640
Width = 1095
End
Begin VB.Label Label1
Caption = "期初积数"
Height = 255
Index = 13
Left = 120
TabIndex = 13
Top = 2640
Width = 1095
End
Begin VB.Label Label1
Caption = "本位币余额"
Height = 255
Index = 12
Left = 3000
TabIndex = 12
Top = 2280
Width = 1095
End
Begin VB.Label Label1
Caption = "本位币余额"
Height = 255
Index = 11
Left = 120
TabIndex = 11
Top = 2280
Width = 1095
End
Begin VB.Label Label1
Caption = "期初余额"
Height = 255
Index = 10
Left = 3000
TabIndex = 10
Top = 1920
Width = 1095
End
Begin VB.Label Label1
Caption = " 币 别 "
Height = 255
Index = 9
Left = 3000
TabIndex = 9
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "期初余额"
Height = 255
Index = 8
Left = 120
TabIndex = 8
Top = 1920
Width = 1095
End
Begin VB.Label Label1
Caption = "利率代码"
Height = 255
Index = 7
Left = 120
TabIndex = 7
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "结息日代码"
Height = 255
Index = 6
Left = 3000
TabIndex = 6
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "开户银行"
Height = 255
Index = 5
Left = 120
TabIndex = 5
Top = 1560
Width = 1095
End
Begin VB.Label Label1
Caption = "开户日期"
Height = 255
Index = 4
Left = 3000
TabIndex = 4
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "开户日期"
Height = 255
Index = 3
Left = 120
TabIndex = 3
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "账户名称"
Height = 255
Index = 2
Left = 3000
TabIndex = 2
Top = 120
Width = 1095
End
Begin VB.Label Label1
Caption = "账户号"
Height = 255
Index = 1
Left = 120
TabIndex = 1
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "单位名称"
Height = 255
Index = 0
Left = 120
TabIndex = 0
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.strwhere = str
Case 2 '账号信息查询
End Select
m_accUpgrade = 0
Unload Me
End Sub
Private Sub cmdOk_Click()
str = ""
If Trim(txtcUnitName.Text) <> "" Then
str = str & "cUnitName like '" & Trim(txtcUnitName.Text) & "' and "
End If
If Trim(txtCaccname) <> "" Then
str = str & "caccName like '" & Trim(txtCaccname.Text) & "' and "
End If
If Trim(txtCaccbank) <> "" Then
str = str & "caccbank like '" & Trim(txtCaccbank.Text) & "' And "
End If
If Trim(txtCaccid.Text) <> "" Then
str = str & "caccid like '" & Trim(txtCaccid.Text) & "' and "
End If
If Trim(txtCcadid.Text) <> "" Then
str = str & "ccadid like '" & Trim(txtCcadid.Text) & "' and "
End If
If Trim(txtcexch_name) <> "" Then
str = str & "cexch_name like '" & Trim(txtcexch_name.Text) & "' and "
End If
If Trim(txtCintrid.Text) <> "" Then
str = str & "cintrid like '" & Trim(txtCintrid.Text) & "' and "
End If
If Trim(txtDopenDate1.Text) <> "" Then
If DateCheck(txtDopenDate1.Text) <> "" Then
str = str & "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 & "dopendate<='" & Trim(txtdopendate2.Text) & "' and "
Else
MsgBox "开户日期输入错误", vbInformation, "账户查询"
Exit Sub
End If
End If
If Trim(txtmb1.Text) <> "" Then
str = str & "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 & "mb<=" & CDbl(txtmb2.Text) & " and "
Else
MsgBox "", vbInformation, ""
Exit Sub
End If
Else
str = str & "mb<=" & CDbl(txtmb2.Text) & " and "
End If
End If
If Trim(txtmh1.Text) <> "" Then
str = str & "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 & "mh<=" & CDbl(txtmh2.Text) & " and "
Else
MsgBox "", vbInformation, ""
Exit Sub
End If
Else
str = str & "mh<=" & CDbl(txtmh2.Text) & " and "
End If
End If
If Trim(txtqujs_natural_mny1.Text) <> "" Then
str = str & "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 & "qcjs_natural_mny<=" & CDbl(txtqcjs_natural_mny2.Text) & " and "
Else
MsgBox "", vbInformation, ""
Exit Sub
End If
Else
str = str & "qcjs_natural_mny<=" & CDbl(txtqcjs_natural_mny2.Text) & " and "
End If
End If
If Trim(txtqcye_natural_mny1.Text) <> "" Then
str = str & "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 & "qcye_natural_mny<=" & CDbl(txtqcye_natural_mny2.Text) & " and "
Else
MsgBox "", vbInformation, ""
Exit Sub
End If
Else
str = str & "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 & "idatasrc=0 and "
End If
If optidatasrc(0).Value = 1 Then
str = str & "idatasrc=1 and "
End If
End If
If Not (Check1(0).Value = 1 And Check1(1).Value = 1) Then
If Check1(0).Value = 1 Then
str = str & "istate=1 and "
End If
If Check1(1).Value = 1 Then
str = str & "istate=0 and "
End If
End If
If Not (Check1(2).Value = 1 And Check1(3).Value = 1) Then
If Check1(2).Value = 1 Then
str = str & "bdestroy=0 and "
End If
If Check1(3).Value = 1 Then
str = str & "bdestroy=1 and "
End If
End If
If Not (Check1(7).Value = 1 And Check1(8).Value = 1) Then
If Check1(7).Value = 1 Then
str = str & "Ii0=1 and "
End If
If Check1(8).Value = 1 Then
str = str & "Iio=0 and "
End If
End If
If Not (Check1(4).Value = 1 And Check1(5).Value = 1 And Check1(6).Value = 1) Then
If Check1(4).Value = 1 Then
str = str & "itype=1 and "
End If
If Check1(5).Value = 1 Then
str = str & "itype=0 and "
End If
If Check1(6).Value = 1 Then
str = str & "itype=2 and "
End If
End If
str = str & "1=1"
Select Case m_accUpgrade
Case 1 '账号升级
frmAccUpgrade.strwhere = str
Case 2 '账号信息查询
End Select
m_accUpgrade = 0
End Sub
Private Sub Form_Load()
str = ""
End Sub
Private Sub Label1_Click(Index As Integer)
End Sub
Private Sub refcaccbank_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select distinct caccbank as 开户银行 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtcaccbank_name.Text = rs1(0)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
Private Sub refCaccid_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select cAccid As 账户号,cAccname As 账户名称 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtCaccid.Text = rs1(0)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
Private Sub refCaccname_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select cAccid As 账户号,cAccname As 账户名称 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtCaccname.Text = rs1(1)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
Private Sub refCcadid_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select distinct cCadid as 结息日编码 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtCcadid.Text = rs1(0)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
Private Sub refcexch_name_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select distinct cexch_name as 币别 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtcexch_name.Text = rs1(0)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
Private Sub refcUnitName_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select cAccid As 账户号,cAccname As 账户名称 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtcUnitName.Text = rs1(1)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
Private Sub refIntrid_Click()
Dim rs1 As New ADODB.Recordset
Dim rfd As New UFReferC.UFReferClient
sqlstr = "select distinct CIntrid as 利率代码 from FD_AccDef order by cAccid"
rfd.SetLogin zjLogInfo
rfd.SetReferSQLString sqlstr
rfd.SetReferDisplayMode enuGrid
rfd.Show
If rfd.recmx Is Nothing Then Exit Sub
Set rs1 = rfd.recmx
txtCintrid.Text = rs1(0)
Set rfd = Nothing
Set rs1 = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -