📄 frmyjstj.frm
字号:
_Version = 65536
_ExtentX = 3528
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|"
End
Begin EDITLib.Edit Edityhmc
Height = 264
Index = 1
Left = 1068
TabIndex = 6
Top = 1620
Width = 2904
_Version = 65536
_ExtentX = 5115
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|"
End
Begin EDITLib.Edit Edityhzh
Height = 264
Index = 1
Left = 1065
TabIndex = 7
Top = 1980
Width = 2000
_Version = 65536
_ExtentX = 3528
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|"
End
Begin VB.Line Line1
Index = 2
X1 = 2700
X2 = 2860
Y1 = 2490
Y2 = 2490
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 9
Left = 255
TabIndex = 30
Top = 1620
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 10
Left = 255
TabIndex = 29
Top = 1995
Width = 90
End
Begin VB.Line Line1
Index = 3
X1 = 2700
X2 = 2860
Y1 = 2805
Y2 = 2805
End
Begin VB.Line Line1
Index = 1
X1 = 2015
X2 = 2185
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
Index = 0
X1 = 2515
X2 = 2675
Y1 = 360
Y2 = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 5
Left = 75
TabIndex = 28
Top = 2715
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 4
Left = 615
TabIndex = 27
Top = 2355
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 3
Left = 255
TabIndex = 26
Top = 1290
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 255
TabIndex = 25
Top = 945
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 255
TabIndex = 24
Top = 615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 255
TabIndex = 23
Top = 270
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 6
Left = 1320
TabIndex = 22
Top = 3090
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 7
Left = 2190
TabIndex = 21
Top = 3090
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 8
Left = 3255
TabIndex = 20
Top = 3090
Width = 90
End
End
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 5160
Style = 1 'Graphical
TabIndex = 15
Top = 390
Width = 1080
End
Begin VB.CommandButton cmdcancel
Cancel = -1 'True
Height = 365
Left = 5160
Style = 1 'Graphical
TabIndex = 16
Top = 945
Width = 1080
End
End
Attribute VB_Name = "frmyjstj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 结算表查询条件
'作者: 魏小黎
Option Explicit
Public cxnwb As Byte
Public isEnt As Boolean, Quitfs As Boolean
Private tjzh As String, tjzh1 As String
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdfind_Click()
If Contquit Then
Cond_zh
Quitfs = False
Unload Me
Dim mfm As Form, dqct As String
dqct = "cxjsb" + Trim(str(cxnwb))
For Each mfm In Forms
If mfm.Tag = dqct Then
BringWindowToTop mfm.hWnd
mfm.sqlst = tjzh1
mfm.sqlst1 = tjzh
mfm.cmdExcute_Click
mfm.cmdRefresh_Click
Exit Sub
End If
Next mfm
Dim frm As frmyhckb
Set frm = New frmyhckb
frm.djcqk = 2
frm.djnwb = cxnwb
frm.sqlst = tjzh1
frm.sqlst1 = tjzh
frm.Tag = dqct
frm.Show
End If
End Sub
Private Sub cmdrq_Click(Index As Integer)
View_Calendar Me, Editrq(Index), 0
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CenterForm Me
Me.Icon = LoadResPicture(109, vbResIcon)
If cxnwb = 1 Then
Me.HelpContextID = 88000047
Else
Me.HelpContextID = 88000045
End If
Frame1.Caption = "请输入查询条件"
cmdrq(0).Picture = LoadResPicture(1108, vbResBitmap)
cmdrq(1).Picture = LoadResPicture(1108, vbResBitmap)
cmdfind.Picture = LoadResPicture(103, vbResBitmap)
cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
Label1(0).Caption = "业务日期"
Label1(1).Caption = "业务编号"
Label1(2).Caption = IIf(cxnwb = 1, "银行名称", "收款单位")
Label1(3).Caption = IIf(cxnwb = 1, "银行账户", "收款账号")
Label1(4).Caption = "金额"
Label1(5).Caption = "本位币金额"
If cxnwb = 1 Then
Label1(6).Caption = "收款"
Label1(7).Caption = "付款"
Else
Label1(6).Visible = False
Label1(7).Visible = False
Check1(0).Visible = False
Check1(1).Visible = False
Check1(2).Left = 1110
Label1(8).Left = 1395
End If
Label1(8).Caption = "是否包含未记账"
Label1(9).Caption = IIf(cxnwb = 1, "内部单位", "付款单位")
Label1(10).Caption = IIf(cxnwb = 1, "账户号", "付款账号")
isEnt = True
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
If cxnwb = 1 Then
zjLogInfo.TaskExec "FD021502", 0, zjLogInfo.cIYear
'zjGen_arr.FD021502 = False
Else
zjLogInfo.TaskExec "FD021402", 0, zjLogInfo.cIYear
'zjGen_arr.FD021402 = False
End If
zjLogInfo.ClearError
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -