📄 frmcuick.frm
字号:
X1 = 570
X2 = 3340
Y1 = 385
Y2 = 385
End
Begin VB.Label Label2
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 270
Index = 1
Left = 6710
TabIndex = 9
Top = 135
Width = 810
End
Begin VB.Label Label2
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 264
Index = 3
Left = 5496
TabIndex = 37
Top = 555
Width = 1875
End
Begin VB.Label Label2
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 264
Index = 2
Left = 3545
TabIndex = 10
Top = 555
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 3
Left = 3115
TabIndex = 36
Top = 600
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 4
Left = 4715
TabIndex = 35
Top = 600
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 2
Left = 435
TabIndex = 34
Top = 600
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 6
Left = 255
TabIndex = 33
Top = 4000
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 4
Left = 830
TabIndex = 32
Top = 4000
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 7
Left = 6400
TabIndex = 31
Top = 4000
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 10
Left = 705
TabIndex = 30
Top = 3360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 11
Left = 705
TabIndex = 29
Top = 3615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 12
Left = 2580
TabIndex = 28
Top = 3360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 13
Left = 2580
TabIndex = 27
Top = 3615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 14
Left = 3360
TabIndex = 26
Top = 3360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 15
Left = 3360
TabIndex = 25
Top = 3615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Index = 16
Left = 450
TabIndex = 24
Top = 3045
Width = 90
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 5715
Top = 585
_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 ComctlLib.ImageList ImageList1
Left = 435
Top = 315
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmcuick"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 查询催款单
'作者: 魏小黎
Option Explicit
Public ywbh As String
Private Sub Editdw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Editdw.ToolTipText = Editdw.Text
End Sub
Private Sub Form_Load()
On Error Resume Next
Screen.MousePointer = vbHourglass
UfGridADO1.Redraw = False
UfGridADO1.FixedCols = 0
UfGridADO1.Cols = 5
UfGridADO1.ColWidth(0) = 1200
UfGridADO1.ColWidth(1) = 1200
UfGridADO1.ColWidth(2) = 830
UfGridADO1.ColWidth(3) = 810
UfGridADO1.ColWidth(4) = 2300
UfGridADO1.Rows = 2
UfGridADO1.FixedRows = 2
With Me.UfGridADO1
.TextMatrix(0, 0) = "开始日期"
.JoinCells 0, 0, 1, 0, True
.ColAlignment(0) = UG_ALIGNCENTER
.TextMatrix(0, 1) = "结束日期"
.JoinCells 0, 1, 1, 1, True
.ColAlignment(1) = UG_ALIGNCENTER
.TextMatrix(0, 2) = "利率"
.TextMatrix(1, 2) = "（%）"
.ColAlignment(2) = UG_ALIGNRIGHT
.TextMatrix(0, 3) = "天数"
.ColAlignment(3) = UG_ALIGNRIGHT
.JoinCells 0, 3, 1, 3, True
.TextMatrix(0, 4) = "结欠利息"
.JoinCells 0, 4, 1, 4, True
.ColAlignment(4) = UG_ALIGNRIGHT
.HeadFont.Name = "宋体"
.HeadForeColor = &H404040
.HeadBackColor = &H8000000E
.HeadFont.Size = 9
.HeadFont.Bold = True
End With
InitForm
'Me.Show
Screen.MousePointer = vbDefault
End Sub
Private Sub InitForm()
Dim rsTemp As New UfRecordset, jqlx As Double
CenterForm Me
Informtlbckdck
Me.Icon = LoadResPicture(109, vbResIcon)
Me.Caption = "催款单"
Picture2.width = ZjAccInfo.zjPictWidth
Picture2.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.bmp")
Picture2.left = 7850 - ZjAccInfo.zjPictWidth
Label0.Caption = "催 款 单"
Label0.left = 3350 + ZjAccInfo.zjPictWidth - 7850
Label1(0).Caption = "致:"
Label1(1).Caption = "业务编号"
Label1(2).Caption = "合同号"
Label1(3).Caption = "币别"
Label1(4).Caption = "本金余额"
Label1(5).Caption = "分段 计息 记录"
Label1(6).Caption = "单位: "
Label1(8).Caption = "利息合计（大写）"
Label1(9).Caption = "本息合计(大写)"
Label1(10).Caption = "请将上述利息于"
Label1(11).Caption = "请将上述本息于"
Label1(12).Caption = "月"
Label1(13).Caption = Label1(12).Caption
Label1(14).Caption = "日之前加急电汇汇入我单位（或通过结算中心转入）"
Label1(15).Caption = Label1(14).Caption
Label1(16).Caption = "备注"
Label2(4).Caption = ZjAccInfo.zjZtUnitName
Label2(4).left = Label1(6).left + Label1(6).width
Set rsTemp = dbsZJ.OpenRecordset("select * from FD_Hasten where right([cHid],5)='" & right(ywbh, 5) & "'order by [cHid]", dbOpenSnapshot)
With rsTemp
If .EOF Then
.oClose
Exit Sub
End If
.MoveFirst
Label2(1).Caption = "00000" & right(![cHid], 5)
Editdw.Text = ![cUnitNmae]
Label2(2).Caption = ![cexch_name]
Label1(7).Caption = "" & Year(![dBeday]) & "年" & Month(![dBeday]) & "月" & Day(![dBeday]) & "日"
If IsNull(![dDate1]) Then
Option1(0).Value = False
Option1(1).Value = True
Edity1(1).Text = Month(![dDate2])
Editr1(1).Text = Day(![dDate2])
Edity1(1).Locked = True
Editr1(1).Locked = True
Edity1(0).Enabled = False
Editr1(0).Enabled = False
Else
Option1(1).Value = False
Option1(0).Value = True
Edity1(0).Text = Month(![dDate1])
Editr1(0).Text = Day(![dDate1])
Edity1(0).Locked = True
Editr1(0).Locked = True
Edity1(1).Enabled = False
Editr1(1).Enabled = False
End If
If Not IsNull(![ctext]) Then
Editbh.Text = ![ctext]
End If
If Not IsNull(![cMark]) Then
Editbz.Text = ![cMark]
End If
jqlx = ![cIntrest]
Label2(3).Caption = Format(![mMoney], "##,##0.00")
Label2(5).Caption = Rmbdx(jqlx)
Label2(6).Caption = Rmbdx(![mMoney] + jqlx)
.MoveNext
Do While Not .EOF
If left(![cHid], 3) <> "000" Then
UfGridADO1.AddItem "" & Format(![dBeday], "yyyy-mm-dd") & Chr(9) & _
Format(![dEndday], "yyyy-mm-dd") & Chr(9) & _
Format(![Intra], "#0.#####") & Chr(9) & _
Format(![Days], "##,##0") & Chr(9) & _
Format(![cMoney], "##,##0.00")
End If
.MoveNext
Loop
.oClose
End With
Label1(7).left = 7520 - Label1(7).width
With UfGridADO1
.AddItem "合计" & Chr(9) & _
"" & Chr(9) & _
"" & Chr(9) & _
"" & Chr(9) & _
Format(jqlx, "##,##0.00")
.row = 2
.col = 0
.Redraw = True
End With
Set rsTemp = Nothing
End Sub
Private Sub Informtlbckdck()
Dim imgt As ListImage
Set imgt = ImageList1.ListImages.Add(, "Print", LoadResPicture(314, vbResBitmap))
Set imgt = ImageList1.ListImages.Add(, "Preview", LoadResPicture(312, vbResBitmap))
Set imgt = ImageList1.ListImages.Add(, "Dataout", LoadResPicture(307, vbResBitmap))
Set imgt = ImageList1.ListImages.Add(, "Help", LoadResPicture(396, vbResBitmap))
Set imgt = ImageList1.ListImages.Add(, "Exit", LoadResPicture(1118, vbResBitmap))
With Tlbckd
.Buttons("Print").Image = "Print"
.Buttons("Print").Caption = "打印"
.Buttons("Print").ToolTipText = "Ctrl+P"
.Buttons("Preview").Image = "Preview"
.Buttons("Preview").Caption = "预览"
' .Buttons("Preview").ToolTipText = "Ctrl+S" 'cuidong 2001.01.15
.Buttons("Preview").ToolTipText = "" 'cuidong 2001.01.15
.Buttons("Dataout").Image = "Dataout"
.Buttons("Dataout").Caption = "设置"
.Buttons("Dataout").ToolTipText = "Ctrl+W"
.Buttons("Help").Image = "Help"
.Buttons("Help").Caption = "帮助"
.Buttons("Help").ToolTipText = "F1"
.Buttons("Exit").Image = "Exit"
.Buttons("Exit").Caption = "退出"
.Buttons("Exit").ToolTipText = "Alt+F4"
End With
End Sub
Public Sub Form_Unload(Cancel As Integer)
On Error Resume Next
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 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
End Select
End Sub
Private Sub Gen_Key(TLB_Key As String)
On Error Resume Next
Select Case TLB_Key
Case Is = "Print", "Preview"
UfGridADO1.ColWidth(0) = 2100
UfGridADO1.ColWidth(1) = 2100
UfGridADO1.ColWidth(2) = 1200
UfGridADO1.ColWidth(3) = 1200
UfGridADO1.ColWidth(4) = 3000
zjbPrnViewOut Me, "cuikdj", TLB_Key, False
UfGridADO1.ColWidth(0) = 1200
UfGridADO1.ColWidth(1) = 1200
UfGridADO1.ColWidth(1) = 830
UfGridADO1.ColWidth(1) = 810
UfGridADO1.ColWidth(1) = 2300
Case Is = "Dataout"
wTabPrnPaperSet
Case Is = "Help"
SendKeys "{F1}"
Case Is = "Exit"
Unload Me
Exit Sub
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -