📄 form50.frm
字号:
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 375
Index = 7
Left = 18120
TabIndex = 7
Top = 3480
Width = 1455
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 330
Index = 6
Left = 3960
TabIndex = 6
Top = 1425
Width = 4935
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 330
Index = 5
Left = 6240
TabIndex = 5
Top = 1110
Width = 2655
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 330
Index = 4
Left = 6240
TabIndex = 4
Top = 795
Width = 2655
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 640
Index = 3
Left = 1320
TabIndex = 3
Top = 795
Width = 2655
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 330
Index = 2
Left = 6240
TabIndex = 2
Top = 480
Width = 2655
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 330
Index = 1
Left = 1320
TabIndex = 1
Top = 480
Width = 2655
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Index = 0
Left = 2280
TabIndex = 0
Text = "勘察工程任务结算单"
Top = 0
Width = 3855
End
Begin MSComctlLib.ListView ListView1
Height = 5535
Left = 8880
TabIndex = 99
Top = 480
Width = 3255
_ExtentX = 5741
_ExtentY = 9763
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 16711680
BackColor = 16777215
BorderStyle = 1
Appearance = 0
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "工程编号"
Object.Width = 3096
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "工程名称"
Object.Width = 2646
EndProperty
Picture = "Form50.frx":239B1
End
Begin VB.Label Label64
BackStyle = 0 'Transparent
Caption = "土工"
ForeColor = &H00FF0000&
Height = 255
Left = 2440
TabIndex = 148
Top = 7125
Width = 495
End
Begin VB.Label Label63
BackStyle = 0 'Transparent
Caption = "技术"
ForeColor = &H00FF0000&
Height = 255
Left = 2440
TabIndex = 147
Top = 6840
Width = 495
End
Begin VB.Label Label62
BackStyle = 0 'Transparent
Caption = "外业"
ForeColor = &H00FF0000&
Height = 255
Left = 2440
TabIndex = 146
Top = 6525
Width = 615
End
Begin VB.Line Line50
X1 = 2040
X2 = 8880
Y1 = 7020
Y2 = 7020
End
Begin VB.Line Line49
X1 = 2040
X2 = 8880
Y1 = 6720
Y2 = 6720
End
Begin VB.Line Line48
X1 = 3240
X2 = 3240
Y1 = 6480
Y2 = 7320
End
Begin VB.Label Label61
BackStyle = 0 'Transparent
Caption = "外委项目"
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 145
Top = 6840
Width = 975
End
Begin VB.Label Label60
BackStyle = 0 'Transparent
Caption = "7"
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 144
Top = 7760
Width = 255
End
Begin VB.Line Line47
X1 = 0
X2 = 8880
Y1 = 7330
Y2 = 7330
End
Begin VB.Label Label59
BackStyle = 0 'Transparent
Caption = "累计下拨"
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 140
Top = 7440
Width = 975
End
Begin VB.Label Label58
BackStyle = 0 'Transparent
Caption = "下拨合计"
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 139
Top = 6240
Width = 975
End
Begin VB.Label Label57
BackStyle = 0 'Transparent
Caption = "6"
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 138
Top = 7440
Width = 255
End
Begin VB.Label Label56
BackStyle = 0 'Transparent
Caption = "5"
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 137
Top = 6840
Width = 255
End
Begin VB.Line Line46
X1 = 0
X2 = 8880
Y1 = 7650
Y2 = 7650
End
Begin VB.Line Line45
X1 = 0
X2 = 8880
Y1 = 7950
Y2 = 7950
End
Begin VB.Line Line44
X1 = 2040
X2 = 7560
Y1 = 5820
Y2 = 5820
End
Begin VB.Line Line43
X1 = 2040
X2 = 7560
Y1 = 5505
Y2 = 5505
End
Begin VB.Line Line42
X1 = 0
X2 = 8880
Y1 = 6435
Y2 = 6435
End
Begin VB.Line Line41
X1 = 2040
X2 = 7560
Y1 = 5190
Y2 = 5190
End
Begin VB.Line Line40
X1 = 2040
X2 = 7560
Y1 = 4560
Y2 = 4560
End
Begin VB.Line Line39
X1 = 0
X2 = 8880
Y1 = 4875
Y2 = 4875
End
Begin VB.Label Label55
BackStyle = 0 'Transparent
Caption = "备注"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 9120
TabIndex = 100
Top = 6960
Width = 495
End
Begin VB.Label Label54
BackStyle = 0 'Transparent
Caption = "结算日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 9120
TabIndex = 98
Top = 6285
Width = 855
End
Begin VB.Label Label53
BackStyle = 0 'Transparent
Caption = "11"
ForeColor = &H00FF0000&
Height = 255
Left = 3960
TabIndex = 97
Top = 5280
Width = 495
End
Begin VB.Label Label52
BackStyle = 0 'Transparent
Caption = "7"
ForeColor = &H00FF0000&
Height = 255
Left = 3960
TabIndex = 96
Top = 4920
Width = 495
End
Begin VB.Label Label51
BackStyle = 0 'Transparent
Caption = "34"
ForeColor = &H00FF0000&
Height = 255
Left = 3960
TabIndex = 95
Top = 3975
Width = 495
End
Begin VB.Label Label50
BackStyle = 0 'Transparent
Caption = "21"
ForeColor = &H00FF0000&
Height = 255
Left = 3960
TabIndex = 94
Top = 3720
Width = 495
End
Begin VB.Label Label49
BackStyle = 0 'Transparent
Caption = ">25m"
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 93
Top = 5280
Width = 735
End
Begin VB.Label Label48
BackStyle = 0 'Transparent
Caption = "≤25"
ForeColor = &H00FF0000&
Height = 255
Left = 2400
TabIndex = 92
Top = 4920
Width = 495
End
Begin VB.Line Line32
X1 = 2040
X2 = 7560
Y1 = 3930
Y2 = 3930
End
Begin VB.Line Line31
X1 = 0
X2 = 8880
Y1 = 6120
Y2 = 6120
End
Begin VB.Line Line16
X1 = 2040
X2 = 7560
Y1 = 4245
Y2 = 4245
End
Begin VB.Label Label47
BackStyle = 0 'Transparent
Caption = ">25m"
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 91
Top = 3975
Width = 735
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = "≤25"
ForeColor = &H00FF0000&
Height = 255
Left = 2400
TabIndex = 90
Top = 3720
Width = 495
End
Begin VB.Label Label12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -