📄 frmjobpay.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Begin VB.Form frmJobPay
BorderStyle = 3 'Fixed Dialog
Caption = "在建工程付款"
ClientHeight = 3105
ClientLeft = 45
ClientTop = 330
ClientWidth = 7590
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3105
ScaleWidth = 7590
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin GATLCTRLLibCtl.CalEdit curInput
Height = 285
Index = 0
Left = 4245
OleObjectBlob = "frmJobPay.frx":0000
TabIndex = 21
Top = 2190
Width = 1785
End
Begin AtlEdit.TEdit txtInput
Height = 255
Index = 0
Left = 3720
TabIndex = 17
Top = 1800
Width = 2325
_ExtentX = 4101
_ExtentY = 450
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.CommandButton cmdYesNo
Height = 350
Index = 0
Left = 6300
Style = 1 'Graphical
TabIndex = 0
Tag = "1001"
Top = 510
Width = 1215
End
Begin VB.CommandButton cmdYesNo
Height = 350
Index = 1
Left = 6300
Style = 1 'Graphical
TabIndex = 1
Tag = "1002"
Top = 900
Width = 1215
End
Begin ListRefer.ListText refInput
Height = 285
Index = 1
Left = 1185
TabIndex = 11
Top = 960
Width = 4875
_ExtentX = 8599
_ExtentY = 503
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GACALENDARLibCtl.Calendar dtmInput
Height = 285
Left = 1200
OleObjectBlob = "frmJobPay.frx":0081
TabIndex = 7
Top = 570
Width = 1305
End
Begin ListRefer.ListText refInput
Height = 285
Index = 0
Left = 3705
TabIndex = 9
Top = 570
Width = 2355
_ExtentX = 4154
_ExtentY = 503
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText refInput
Height = 285
Index = 2
Left = 1185
TabIndex = 13
Top = 1380
Width = 4875
_ExtentX = 8599
_ExtentY = 503
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText refInput
Height = 285
Index = 3
Left = 1200
TabIndex = 15
Top = 1770
Width = 1335
_ExtentX = 2355
_ExtentY = 503
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin AtlEdit.TEdit txtInput
Height = 255
Index = 1
Left = 1200
TabIndex = 19
Top = 2190
Width = 1335
_ExtentX = 2355
_ExtentY = 450
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin ListRefer.ListText refInput
Height = 285
Index = 4
Left = 1170
TabIndex = 3
Top = 60
Width = 1935
_ExtentX = 3413
_ExtentY = 503
AutoPop = 0 'False
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GATLCTRLLibCtl.CalEdit curInput
Height = 285
Index = 1
Left = 4620
OleObjectBlob = "frmJobPay.frx":010A
TabIndex = 5
Top = 60
Width = 1545
End
Begin VB.Label lblF
BorderStyle = 1 'Fixed Single
Height = 270
Index = 11
Left = 4230
TabIndex = 25
Top = 2610
Width = 1800
End
Begin VB.Label lblF
BorderStyle = 1 'Fixed Single
Height = 270
Index = 10
Left = 1200
TabIndex = 23
Top = 2610
Width = 1320
End
Begin VB.Label lblF
AutoSize = -1 'True
Caption = "票据号(&M)"
Height = 180
Index = 5
Left = 2850
TabIndex = 16
Top = 1860
Width = 810
End
Begin VB.Label lblF
AutoSize = -1 'True
Caption = "发票已到金额(&G)"
Height = 180
Index = 7
Left = 2850
TabIndex = 20
Top = 2250
Width = 1350
End
Begin VB.Label lblF
AutoSize = -1 'True
Caption = "合同号(&I)"
Height = 180
Index = 1
Left = 2880
TabIndex = 8
Top = 630
Width = 810
End
Begin VB.Label lblF
AutoSize = -1 'True
Caption = "累计已开票金额"
Height = 180
Index = 9
Left = 2850
TabIndex = 24
Top = 2640
Width = 1260
End
Begin VB.Label lblTitle
Height = 180
Index = 3
Left = 4650
TabIndex = 27
Top = 120
Width = 1530
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "本次付款金额(&B)"
Height = 180
Index = 2
Left = 3270
TabIndex = 4
Top = 120
Width = 1350
End
Begin VB.Label lblTitle
Height = 180
Index = 1
Left = 1200
TabIndex = 26
Top = 120
Width = 1860
End
Begin VB.Label lblTitle
AutoSize = -1 'True
Caption = "在建工程(&P)"
Height = 180
Index = 0
Left = 156
TabIndex = 2
Top = 120
Width = 1008
End
Begin VB.Label lblF
AutoSize = -1 'True
Caption = "付 款 方(&U)"
Height = 180
Index = 3
Left = 210
TabIndex = 12
Top = 1440
Width = 990
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -