📄 frmcxjs.frm
字号:
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 19
Left = 780
TabIndex = 41
Top = 3660
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 21
Left = 3750
TabIndex = 40
Top = 3660
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 23
Left = 6765
TabIndex = 39
Top = 3660
Width = 90
End
End
Begin VB.OptionButton Option1
BackColor = &H80000016&
Enabled = 0 'False
Height = 228
Index = 0
Left = 300
TabIndex = 19
Top = 720
Value = -1 'True
Width = 708
End
Begin VB.OptionButton Option1
BackColor = &H80000016&
Enabled = 0 'False
Height = 228
Index = 1
Left = 300
TabIndex = 18
Top = 960
Width = 708
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 5565
Top = 630
_Version = 524288
_ExtentX = 1323
_ExtentY = 609
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
m_lngrtpFitRows = 30
End
Begin VB.Label Label0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Left = 3405
TabIndex = 20
Top = 750
Width = 150
End
Begin ComctlLib.ImageList ImageList1
Left = 1290
Top = 630
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmcxjs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 软件著作权: 北京用友软件集团有限公司
' 系统名称: 资金计息8。0
' 功能说明: 外部结算单据查询
' 作者: 魏小黎
Option Explicit
Private rsTckd As New UfRecordset
Public sqlst As String
Public djdqbh As String
Private Sub Combo1_Click()
If Combo1.Text = Editbh.Text Then
Exit Sub
End If
With rsTckd
.FindFirst "cSetid='14" & Combo1.Text & "'"
End With
Carddata
ckdbutt
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CenterForm Me
InjsForm
Refyhmc(0).Picture = LoadResPicture(129, vbResBitmap)
Refyhmc(1).Picture = LoadResPicture(129, vbResBitmap)
Refyhzh(0).Picture = LoadResPicture(129, vbResBitmap)
Refyhzh(1).Picture = LoadResPicture(129, vbResBitmap)
Label2.Caption = Ywbhtoname("14")
Set rsTckd = dbsZJ.OpenRecordset(sqlst, dbOpenDynaset)
Combo1.clear
With rsTckd
If Not .EOF Then
.MoveFirst
Do While Not .EOF
Combo1.AddItem right(![cSetid], 10)
.MoveNext
Loop
.MoveFirst
End If
End With
getckd1 djdqbh
ckdbutt
'Me.Show
Screen.MousePointer = vbDefault
End Sub
Public Sub Form_Unload(Cancel As Integer)
On Error Resume Next
rsTckd.oClose
Unload Me
End Sub
Private Sub tlbckd_ButtonClick(ByVal Button As ComctlLib.Button)
Gen_Key Button.key
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF4
If Shift = 4 Then
Gen_Key "Exit"
End If
Case vbKeyF7
If Shift = 4 And Tlbckd.Buttons("PingZheng").Enabled Then
Gen_Key "PingZheng"
End If
Case vbKeyP
If Shift = 2 And Tlbckd.Buttons("Print").Enabled Then
Gen_Key "Print"
KeyCode = 0
End If
Case vbKeyS
'cuidong 2001.01.15
'If Shift = 2 And Tlbckd.Buttons("Preview").Enabled Then
' Gen_Key "Preview"
' KeyCode = 0
'End If
Case vbKeyW
If Shift = 2 And Tlbckd.Buttons("Dataout").Enabled Then
Gen_Key "Dataout"
KeyCode = 0
End If
Case vbKeyPageUp
If Shift = 0 And Tlbckd.Buttons("PriorPage").Enabled Then
Gen_Key "PriorPage"
ElseIf Shift = 2 And Tlbckd.Buttons("FirstPage").Enabled Then
Gen_Key "FirstPage"
End If
Case vbKeyPageDown
If Shift = 0 And Tlbckd.Buttons("NextPage").Enabled Then
Gen_Key "NextPage"
ElseIf Shift = 2 And Tlbckd.Buttons("LastPage").Enabled Then
Gen_Key "LastPage"
End If
End Select
End Sub
Private Sub Gen_Key(TLB_Key As String)
On Error Resume Next
Select Case TLB_Key
Case Is = "Print", "Preview", "Dataout"
zjPrnViewOut Me, "ybjsdj", TLB_Key
Case Is = "FirstPage"
Getckd 1
Case Is = "PriorPage"
Getckd 2
Case Is = "NextPage"
Getckd 3
Case Is = "LastPage"
Getckd 4
Case Is = "PingZheng"
With pzInfo
.pDjrq = Editrq.Text
.pMoney = Editje(0)
.pYwID = "14" & Editbh.Text
.pZhID1 = Edityhzh(0).Text
.pZhID2 = Edityhzh(1).Text
.pDigest = Editzy(0).Text
.pHl = Editje(1)
.blnFind = True
End With
If ZjAccInfo.zjPrnCtrl Then Exit Sub
ZjAccInfo.zjPrnCtrl = True
DoVouch
ZjAccInfo.zjPrnCtrl = False
Case Is = "Help"
SendKeys "{F1}"
Case Is = "Exit"
Unload Me
Exit Sub
End Select
ckdbutt
End Sub
Private Sub Carddata()
With rsTckd
If Not .EOF Then
Textjsfs.Text = Jsfscton(![icen_id], True)
Editrq.Text = Format(![dbill_date], "yyyy-mm-dd")
Editbh.Text = right(![cSetid], 10)
Edityhzh(0).Text = ![cGAccID]
Edityhmc(0).Text = Zhbhtodwmc(Edityhzh(0).Text)
Edityhzh(1).Text = ![cPAccID]
Edityhmc(1).Text = Zhbhtodwmc(Edityhzh(1).Text)
Textbb.Text = Wgetwbb(Edityhzh(0).Text)
Editje(0).Text = Format(![mMoney], "#0.00")
Editje(1).Text = ![nFrat]
Textje.Text = Format(![mMoney_F], "#0.00")
Editzy(0).Text = IIf(IsNull(![cDigest]), "", ![cDigest])
Editzy(1).Text = IIf(IsNull(![center_name]), "", ![center_name])
Editzy(2).Text = IIf(IsNull(![cbank_name]), "", ![cbank_name])
Editzy(3).Text = IIf(IsNull(![cbank_code]), "", ![cbank_code])
Editzy(4).Text = IIf(IsNull(![crun_name]), "", ![crun_name])
Editzy(5).Text = IIf(IsNull(![cset_name]), "", ![cset_name])
Label1(19).Caption = IIf(IsNull(![cCheckCode]), "", ![cCheckCode])
Label1(21).Caption = IIf(IsNull(![cBookCode]), "", ![cBookCode])
Label1(23).Caption = ![cBillCode]
Option1(0).Value = IIf(![igp_flag] = 0, True, False)
Option1(1).Value = IIf(![igp_flag] = 0, False, True)
Tlbckd.Buttons("Preview").Enabled = True
Tlbckd.Buttons("Print").Enabled = True
Tlbckd.Buttons("Dataout").Enabled = True
Tlbckd.Buttons("PingZheng").Enabled = True
Else
Textqk
End If
End With
End Sub
Private Sub ckdbutt()
If Editbh.Text <> "" Then
Combo1.Text = Editbh.Text
End If
Pagezt Tlbckd, rsTckd
End Sub
Private Sub Textqk()
Textjsfs.Text = ""
Editbh.Text = ""
Editrq.Text = ""
Edityhmc(0).Text = ""
Edityhzh(0).Text = ""
Edityhmc(1).Text = ""
Edityhzh(1).Text = ""
Textbb.Text = ""
Editje(0).Text = ""
Editje(1).Text = ""
Textje.Text = ""
Editzy(0).Text = ""
Editzy(1).Text = ""
Editzy(2).Text = ""
Editzy(3).Text = ""
Editzy(4).Text = ""
Editzy(5).Text = ""
Label1(19).Caption = ""
Label1(21).Caption = ""
Label1(23).Caption = ""
Tlbckd.Buttons("Preview").Enabled = False
Tlbckd.Buttons("Print").Enabled = False
Tlbckd.Buttons("Dataout").Enabled = False
Tlbckd.Buttons("PingZheng").Enabled = False
End Sub
Private Sub Getckd(zt As Integer)
Select Case zt
Case Is = 1
rsTckd.MoveFirst
Case Is = 2
rsTckd.MovePrevious
Case Is = 3
rsTckd.MoveNext
Case Is = 4
rsTckd.MoveLast
End Select
Carddata
End Sub
Public Sub getckd1(bhk As String)
With rsTckd
If .EOF Then
Textqk
Exit Sub
End If
.MoveLast
End With
With rsTckd
.FindFirst "cSetid='14" & bhk & "'"
If .NoMatch Then
.MoveLast
End If
End With
Carddata
End Sub
Private Sub InjsForm()
Informtlb Tlbckd, ImageList1, False
Me.Icon = LoadResPicture(109, vbResIcon)
Me.Caption = "收款"
cmdrq.Picture = LoadResPicture(1108, vbResBitmap)
cmdjsfs.Picture = LoadResPicture(129, vbResBitmap)
Option1(0).Caption = "收款"
Option1(1).Caption = "付款"
Label0.Caption = "对外结算单"
Label1(0).Caption = "结算方式"
Label1(1).Caption = "业务编号"
Label1(2).Caption = "日期"
Label1(3).Caption = "银行名称"
Label1(4).Caption = "银行账户"
Label1(5).Caption = "内部单位"
Label1(6).Caption = "账户号"
Label1(7).Caption = "结算金额"
Label1(8).Caption = "币别"
Label1(9).Caption = "汇率"
Label1(10).Caption = "本位币金额"
Label1(11).Caption = "摘要"
Label1(12).Caption = "往来单位"
Label1(14).Caption = "往来银行"
Label1(15).Caption = "往来账号"
Label1(16).Caption = "内部经办"
Label1(17).Caption = "中心经办"
Label1(18).Caption = "审核:"
Label1(20).Caption = "记账:"
Label1(22).Caption = "制单:"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -