📄 +
字号:
AutoSize = -1 'True
Caption = "日期"
Height = 180
Index = 3
Left = 5790
TabIndex = 36
Top = 510
Width = 360
End
Begin VB.Shape Shape2
Height = 3075
Left = 270
Top = 810
Width = 7470
End
Begin VB.Shape Shape1
BackColor = &H8000000A&
BackStyle = 1 'Opaque
Height = 2955
Left = 315
Top = 870
Width = 7380
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "审核："
Height = 180
Index = 5
Left = 660
TabIndex = 35
Top = 3900
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "记帐："
Height = 180
Index = 4
Left = 3420
TabIndex = 34
Top = 3900
Width = 570
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "制单："
Height = 180
Index = 3
Left = 6150
TabIndex = 33
Top = 3900
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 1260
TabIndex = 32
Top = 3930
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 3
Left = 4050
TabIndex = 31
Top = 3900
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 4
Left = 6810
TabIndex = 30
Top = 3900
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "单据编号"
Height = 180
Index = 1
Left = 390
TabIndex = 42
Top = 135
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "单据类型"
Height = 180
Index = 15
Left = 390
TabIndex = 50
Top = 135
Visible = 0 'False
Width = 720
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 = 3420
TabIndex = 43
Top = 750
Width = 1320
End
End
Attribute VB_Name = "frmCad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 利息单
'作者: 赵春立
Option Explicit
Private mCopy_binCopy As Boolean
Public FindFlag As Boolean
Public UnionFindflag As Boolean
Public sqlFind As String
Public sqlUnionkey As String
Public Event Move(StepRs As Long)
Private VeriSuccess As Boolean
Private rstCad As New UfRecordset
Private blnSavFlag As Boolean
Private blnAddFlag As Boolean
Private iArtype_Cad As Byte
Private blnCombo As Boolean
Private Checkqx As Boolean
Private dHandDateFrom As Date
'系统启用时间
Private dSysStart As Date
Private Type CopyInfo
blnCopy As Boolean
iCobListindex As Integer
strDjbh As String
strYwbh As String
dFrom As Date
dTo As Date
dRq As Date
strSxdw As String
strSxzh As String
strFxdw As String
strFxzh As String
dblJe As Double
strBib As String
dblHl As Double
dblBje As Double
strLldm As String
strCad As String
strDigest As String
iYqjx As Integer
End Type
Private mCopy As CopyInfo
Private blnGetRecord As Boolean
Private strDanID As String
Dim bRq 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 rstCad
With rstCad
' If .Restartable Then
' .Requery
' Else
' Set rstCad = dbsZJ.OpenRecordset(.Name, .Type)
' End If
i = Combo1.ListIndex
Combo1.Clear
If .EOF Then
SetFormZero
Exit Sub
Else
While Not .EOF
Combo1.AddItem Right(![cCarID], 8)
.MoveNext
Wend
If i > Combo1.ListCount - 1 Then i = Combo1.ListCount - 1
blnCombo = True
Combo1.ListIndex = i
blnCombo = False
mStr = "[cCarID]='16" & Combo1.List(Combo1.ListIndex) & "'"
.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 Combo2_Click()
If Combo2.ListIndex = 0 Then
strDanID = edtDjbh
edtDjbh = ""
Else
If edtDjbh = "" Then edtDjbh = strDanID
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 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)
Me.Icon = LoadResPicture(109, vbResIcon)
Me.Caption = "利息单"
Label2(0) = "利 息 单"
Label2(1) = "单据编号"
Label2(2) = "业务编号"
Label2(3) = "日期"
Label2(4) = "收息账户"
Label2(5) = "付息账户"
Label2(6) = "利息金额"
Label2(7) = "币别"
Label2(8) = "汇率"
Label2(18) = "结息日代码"
Label2(10) = "本位币金额"
Label2(11) = "计息方式"
Label2(12) = "收息单位"
Label2(13) = "付息单位"
Label2(14) = "利率代码"
Label2(19) = "摘 要"
Label2(17) = "计息时间"
Label5(3) = "制单："
Label5(4) = "记账："
Label5(5) = "审核："
End Sub
Private Sub InitForm()
Dim rsTemp As New UfRecordset, sqlTemp As String
If UnionFindflag Then
rstCad.FindFirst "cCarID='" & sqlUnionkey & "'"
End If
If Not rstCad.EOF Then
GetRecord
Else
SetFormZero
End If
sqlTemp = "select * from FD_Class where csign='16'"
Set rsTemp = dbsZJ.OpenRecordset(sqlTemp, dbOpenDynaset)
Label1(0) = rsTemp![ctext]
CloseRS rsTemp
End Sub
'********************************************************************
'*函数说明: 取填充数据到窗体 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub GetRecord()
Dim rsTemp As New UfRecordset
'Dim oAcc As UsFDSet.CAccount
blnGetRecord = True
Label2(1).Visible = True
Label1(1).Visible = True
Label2(15).Visible = False
Combo2.Visible = False
Combo1.Visible = True
edtYwbh.Visible = False
With rstCad
edtYwbh = Right(![cCarID], Len(![cCarID]) - 2) '业务日期
If Not IsNull(![cDanID]) Then
edtDjbh = Right(![cDanID], Len(![cDanID]) - 2)
Set rsTemp = dbsZJ.OpenRecordset("SELECT * FROM FD_Class WHERE [csign]='" & Left(![cDanID], 2) & "'", dbOpenSnapshot)
Label1(1) = rsTemp![ctext]
If Left(![cDanID], 2) = "05" Or Left(![cDanID], 2) = "06" Then
edtYqjx = Getjxfs(![iartyp])
If ![iartyp] <> 0 Then
edtCad = IIf(IsNull(![cCadID]), "", ![cCadID])
Else
edtCad = ""
End If
Else
edtYqjx = ""
edtCad = IIf(IsNull(![cCadID]), "", ![cCadID])
End If
edtJs = ""
Else
edtDjbh = ""
Combo2.ListIndex = 0
Label1(1) = ""
edtYqjx = ""
edtCad = IIf(IsNull(![cCadID]), "", ![cCadID])
edtJs = FormatCur(!mJs)
End If
blnCombo = True
'Combo1.Text = edtYwbh 'cuidong 2001.08.23
MoveComboByText Combo1, edtYwbh 'cuidong 2001.08.23
blnCombo = False
edtRq = Format(![dbill_date], "YYYY-MM-DD")
edtSxzh = IIf(IsNull(![cGAccID]), "", ![cGAccID])
edtFxzh = IIf(IsNull(![cPAccID]), "", ![cPAccID])
If IsNull(![cGAccID]) Then
edtSxdw = ""
Else
edtSxdw = AccIDToUnitName(![cGAccID])
' Set oAcc = New UsFDSet.CAccount 'Cuidong 2000/08/10
' oAcc.Init dbsZJ.DbConnect, , !cGAccID 'Cuidong 2000/08/10
' edtAccBank = oAcc.sAccBank 'Cuidong 2000/08/10
Dim RsBank As New UfRecordset 'Cuidong 2000/08/10
Set RsBank = dbsZJ.OpenRecordset("Select cAccName, cAccBank From FD_AccDef Where cAccID = '" & !cGAccID & "'") 'Cuidong 2000/08/10
With RsBank 'Cuidong 2000/08/10
If Not (.EOF Or .BOF) Then 'Cuidong 2000/08/10
' edtAccBank = IIf(IsNull(.Fields(0)), "", .Fields(0)) 'Cuidong 2000.12.26 'Cuidong 2000/08/10
edtAccBank = IIf(IsNull(.Fields(1)), "", .Fields(1)) 'Cuidong 2000.12.26 'Cuidong 2000/08/10
Else 'Cuidong 2000/08/10
edtAccBank = "" 'Cuidong 2000/08/10
End If 'Cuidong 2000/08/10
.oClose 'Cuidong 2000/08/10
End With 'Cuidong 2000/08/10
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -