📄 frmcuikd.frm
字号:
OrigLeft = 7050
OrigTop = 1110
OrigRight = 7290
OrigBottom = 1350
Max = 999
Enabled = 0 'False
End
Begin EDITLib.Edit Editr1
Height = 255
Index = 0
Left = 2790
TabIndex = 4
Top = 3345
Width = 315
_Version = 65536
_ExtentX = 556
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 2
EStopPaste = -1 'True
End
Begin EDITLib.Edit Editr1
Height = 255
Index = 1
Left = 2790
TabIndex = 6
Top = 3585
Width = 315
_Version = 65536
_ExtentX = 556
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Enabled = 0 'False
Appearance = 1
Property = 3
MaxLength = 2
EStopPaste = -1 'True
Enabled = 0 'False
End
Begin EDITLib.Edit Editdw
Height = 264
Left = 570
TabIndex = 0
Top = 105
Width = 2775
_Version = 65536
_ExtentX = 4895
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 60
EStopPaste = -1 'True
End
Begin EDITLib.Edit Editbz
Height = 264
Left = 900
TabIndex = 2
Top = 3000
Width = 6485
_Version = 65536
_ExtentX = 11439
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 60
EStopPaste = -1 'True
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 16
Left = 450
TabIndex = 39
Top = 3045
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 15
Left = 3360
TabIndex = 34
Top = 3615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 14
Left = 3360
TabIndex = 33
Top = 3360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 13
Left = 2580
TabIndex = 32
Top = 3615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 12
Left = 2580
TabIndex = 31
Top = 3360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 11
Left = 705
TabIndex = 30
Top = 3615
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 10
Left = 705
TabIndex = 29
Top = 3360
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 7
Left = 6400
TabIndex = 23
Top = 4000
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 4
Left = 830
TabIndex = 22
Top = 4000
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 6
Left = 255
TabIndex = 21
Top = 4000
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 2
Left = 435
TabIndex = 18
Top = 600
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 4
Left = 4710
TabIndex = 17
Top = 600
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 3
Left = 3120
TabIndex = 16
Top = 600
Width = 90
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 Label2
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 264
Index = 3
Left = 5496
TabIndex = 11
Top = 555
Width = 1875
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.Line Line1
Index = 0
X1 = 570
X2 = 3340
Y1 = 385
Y2 = 385
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 0
Left = 270
TabIndex = 15
Top = 180
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 180
Index = 1
Left = 5920
TabIndex = 14
Top = 180
Width = 90
End
Begin VB.Shape Shape1
Height = 3495
Left = 240
Top = 450
Width = 7335
End
Begin VB.Shape Shape2
Height = 3405
Left = 285
Top = 495
Width = 7245
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 6510
Top = 690
_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 = 1290
Top = 630
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmcuikd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 录入催款单
'作者: 魏小黎
Option Explicit
Public sDate As String
Public eDate As String
Public ywbh As String
Public ywzl As String
Private IsNew As Boolean, rsTckd As New UfRecordset, isSave As Boolean, Frtin As Boolean
Private Sub Editbh_Change()
Tbr_Change
End Sub
Private Sub Editbz_Change()
Tbr_Change
End Sub
Private Sub Editdw_Change()
Tbr_Change
End Sub
Private Sub Editdw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Editdw.ToolTipText = Editdw.Text
End Sub
Private Sub Editr1_Change(Index As Integer)
Tbr_Change
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -