📄 -+
字号:
Width = 1080
End
Begin VB.Label Label1
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Height = 270
Index = 0
Left = 1620
TabIndex = 41
Top = 90
Width = 825
End
Begin VB.Label Label1
Caption = "-"
Height = 195
Index = 6
Left = 2460
TabIndex = 40
Top = 150
Width = 75
End
Begin VB.Label Label1
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Height = 270
Index = 1
Left = 1620
TabIndex = 39
Top = 435
Width = 825
End
Begin VB.Label Label3
Caption = "-"
Height = 195
Index = 2
Left = 2460
TabIndex = 38
Top = 480
Width = 75
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "日期"
Height = 180
Index = 3
Left = 5700
TabIndex = 37
Top = 480
Width = 360
End
Begin VB.Shape Shape2
Height = 3165
Left = 300
Top = 780
Width = 7500
End
Begin VB.Shape Shape1
BackColor = &H8000000A&
BackStyle = 1 'Opaque
Height = 3045
Left = 345
Top = 840
Width = 7410
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "审核："
Height = 180
Index = 5
Left = 660
TabIndex = 36
Top = 4020
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "记帐："
Height = 180
Index = 4
Left = 3210
TabIndex = 35
Top = 4020
Width = 570
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "制单："
Height = 180
Index = 3
Left = 5520
TabIndex = 34
Top = 4020
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 1260
TabIndex = 33
Top = 4020
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 3
Left = 3840
TabIndex = 32
Top = 4020
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 4
Left = 6180
TabIndex = 31
Top = 4020
Width = 90
End
End
Begin ComctlLib.ImageList ImageList1
Left = 30
Top = 420
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "本金还款单"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 0
Left = 3405
TabIndex = 18
Top = 810
Width = 1290
End
End
Attribute VB_Name = "frmReturnBj2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 拆借还款、还息单
'作者: 赵春立
Option Explicit
Public FindFlag As Boolean
Public UnionFindflag As Boolean
Public sqlFind As String
Public sqlUnionkey As String
Public iReturnType As Byte '1-内部拆借还款，2-内部拆借利息还款
Public Event Move(StepRs As Long)
Private VeriSuccess As Boolean
Private rstReturn As New UfRecordset, rstCred As New UfRecordset, rstCad As New UfRecordset
Private blnSavFlag As Boolean
Private blnAddFlag As Boolean
Private creMoney As Currency ' 贷款金额
Private cadMoney As Currency ' 利息金额
Private bSettle As Boolean ' 贷款业务是否结清
Private blnCombo As Boolean
Private Checkqx As Boolean
Private Type CopyInfo
blnCopy As Boolean
strDkbh As String
strSkdw As String
strFkdw As String
strSkzh As String
strFkzh As String
dblHkje As Double
strBib As String
dblHl As Double
dblBje As Double
strLldm As String
dJkrq As Date
dHkrq As Date
strFkjb As String
strSkjb As String
strZxjb As String
strDigest As String
End Type
Private mCopy As CopyInfo
Private blnGetRecord As Boolean
Dim bRq As Boolean
Dim bSkzh As Boolean
Dim bFkzh As Boolean
Private Sub Combo1_Click()
If blnCombo Then Exit Sub
If MoveCob Then
GetRecord
Else
SetFormZero
End If
End Sub
Private Sub Combo1_DropDown()
ReQryCombo
End Sub
Private Sub ReQryCombo()
Dim i As Integer
Dim mStr As String
ReQueryRecord rstReturn
With rstReturn
' If .Restartable Then
' .Requery
' Else
' Set rstReturn = dbsZJ.OpenRecordset(.Name, .Type)
' End If
i = Combo1.ListIndex
Combo1.clear
If .EOF Then
SetFormZero
Exit Sub
Else
While Not .EOF
Combo1.AddItem right(.Fields(0), 10)
.MoveNext
Wend
If i > Combo1.ListCount - 1 Then i = Combo1.ListCount - 1
blnCombo = True
Combo1.ListIndex = i
blnCombo = False
Select Case iReturnType
Case 1: mStr = "[cRetID]='12" & Combo1.List(Combo1.ListIndex) & "'"
Case 2: mStr = "[cUnaID]='13" & Combo1.List(Combo1.ListIndex) & "'"
End Select
.FindFirst mStr
End If
End With
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{Tab}", False
KeyAscii = 0
Exit Sub
End If
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: DisplayCalendar edtRq, Me.hwnd, Picture1.left, Picture1.top
End Select
End Sub
Private Sub PasteInformation()
With mCopy
edtHkje = .dblHkje
edtHl = .dblHl
edtBje = .dblBje
edtHkrq = .dHkrq
edtJkrq = .dJkrq
edtBib = .strBib
edtDigest = .strDigest
edtDkbh = .strDkbh
edtFkdw = .strFkdw
edtSkdw = .strSkdw
edtFkzh = .strFkzh
edtSkzh = .strSkzh
edtFkjb = .strFkjb
edtSkjb = .strSkjb
edtZxjb = .strZxjb
edtLldm = .strLldm
End With
End Sub
Private Sub CopyInformation()
With mCopy
.blnCopy = True
.dblHkje = edtHkje
.dblHl = edtHl
.dblBje = edtBje
.dHkrq = edtHkrq
.dJkrq = edtJkrq
.strBib = edtBib
.strDigest = edtDigest
.strDkbh = edtDkbh
.strFkdw = edtFkdw
.strSkdw = edtSkdw
.strFkzh = edtFkzh
.strSkzh = edtSkzh
.strFkjb = edtFkjb
.strSkjb = edtSkjb
.strZxjb = edtZxjb
.strLldm = edtLldm
End With
End Sub
Private Function GetSqlReturn() As String
Dim id As Integer
GetSqlReturn = "select * from "
Select Case iReturnType
Case 1
If FindFlag Then
GetSqlReturn = GetSqlReturn & "FD_UnwRet WHERE [cRetID] like '12%'"
Else
GetSqlReturn = GetSqlReturn & "FD_UnwRet WHERE [cBookCode] IS NULL AND [cRetID] like '12%' ORDER BY [cRetID]"
End If
Me.Caption = "内部拆借还款"
Label2(0) = "本金还款单"
Case 2
If FindFlag Then
GetSqlReturn = GetSqlReturn & "FD_UnwAcrRcp WHERE [cUnaID] like '13%'"
Else
GetSqlReturn = GetSqlReturn & "FD_UnwAcrRcp WHERE [cBookCode] IS NULL AND [cUnaID] like '13%' ORDER BY [cUnaID]"
End If
Me.Caption = "内部拆借还息"
Label2(0) = "利息还款单"
End Select
End Function
Private Sub initFind_Form()
Dim i As Integer
For i = 4 To 8
Toolbar1.Buttons(i).Visible = False
Next i
For i = 15 To 16
Toolbar1.Buttons(i).Visible = False
Next i
End Sub
Private Sub LoadStaticRes()
' 将资源放这儿
Dim id As Integer
Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
Label2(1) = "贷款业务编号"
Label2(2) = "还款业务编号"
Label2(3) = "日期"
Label2(4) = "收款单位"
Label2(5) = "付款单位"
Label2(6) = "还款金额"
Label2(7) = "币别"
Label2(8) = "汇率"
Label2(9) = "付款经办"
Label2(10) = "本位币还款金额"
Label2(11) = "已还金额"
Label2(12) = "借款日期"
Label2(13) = "还款日期"
Label2(14) = "利率代码"
Label2(15) = "收款经办"
Label2(16) = "摘 要"
Label2(17) = "收款账号"
Label2(18) = "付款账号"
Label2(19) = "中心经办"
Label5(5) = "审核："
Label5(4) = "记账："
Label5(3) = "制单："
End Sub
Private Sub InitForm()
Dim rsTemp As New UfRecordset, sqlTemp As String, sqlT As String
sqlTemp = "select * from FD_Class where csign='"
sqlT = sqlTemp
Select Case iReturnType
Case 1:
sqlTemp = sqlTemp & "12'"
sqlT = sqlT & "07'"
Me.HelpContextID = 88000040
Case 2:
sqlTemp = sqlTemp & "13'"
sqlT = sqlT & "07'"
Me.HelpContextID = 88000042
End Select
Set rsTemp = dbsZJ.OpenRecordset(sqlTemp, dbOpenDynaset)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -