📄 form37.frm
字号:
Begin VB.Line Line1
Index = 23
X1 = 2400
X2 = 9960
Y1 = 7320
Y2 = 7320
End
Begin VB.Line Line1
Index = 22
X1 = 2400
X2 = 9960
Y1 = 6960
Y2 = 6960
End
Begin VB.Line Line1
Index = 21
X1 = 2400
X2 = 9960
Y1 = 6600
Y2 = 6600
End
Begin VB.Line Line1
Index = 20
X1 = 2400
X2 = 9960
Y1 = 6240
Y2 = 6240
End
Begin VB.Line Line1
Index = 19
X1 = 2400
X2 = 9960
Y1 = 5880
Y2 = 5880
End
Begin VB.Line Line1
Index = 18
X1 = 2400
X2 = 9960
Y1 = 3600
Y2 = 3600
End
Begin VB.Line Line1
Index = 16
X1 = 2400
X2 = 9960
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line2
Index = 13
X1 = 4200
X2 = 4200
Y1 = 7680
Y2 = 4440
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "备 注"
ForeColor = &H00FF0000&
Height = 255
Left = 3000
TabIndex = 135
Top = 8085
Width = 780
End
Begin VB.Line Line1
Index = 17
X1 = 2400
X2 = 9960
Y1 = 8325
Y2 = 8325
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "超 期"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 134
Top = 4560
Width = 855
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "其 它"
ForeColor = &H00FF0000&
Height = 240
Left = 3000
TabIndex = 133
Top = 7800
Width = 855
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = " 共 计"
ForeColor = &H00FF0000&
Height = 255
Left = 2760
TabIndex = 132
Top = 3720
Width = 855
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "队 金 额"
ForeColor = &H00FF0000&
Height = 255
Left = 8805
TabIndex = 131
Top = 4560
Width = 855
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "组 金 额"
ForeColor = &H00FF0000&
Height = 255
Left = 7275
TabIndex = 130
Top = 4605
Width = 855
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "产 值"
ForeColor = &H00FF0000&
Height = 255
Left = 5760
TabIndex = 129
Top = 4560
Width = 855
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "作 业 组"
ForeColor = &H00FF0000&
Height = 255
Left = 2955
TabIndex = 128
Top = 4560
Width = 735
End
Begin VB.Line Line1
Index = 15
X1 = 2400
X2 = 9600
Y1 = 8040
Y2 = 8040
End
Begin VB.Line Line1
Index = 14
X1 = 2400
X2 = 9960
Y1 = 5160
Y2 = 5160
End
Begin VB.Line Line1
Index = 13
X1 = 2400
X2 = 9960
Y1 = 5520
Y2 = 5520
End
Begin VB.Line Line2
Index = 12
X1 = 9960
X2 = 9960
Y1 = 7800
Y2 = 4440
End
Begin VB.Line Line1
Index = 12
X1 = 2400
X2 = 9960
Y1 = 4440
Y2 = 4440
End
Begin VB.Line Line1
Index = 10
X1 = 2400
X2 = 9960
Y1 = 4800
Y2 = 4800
End
Begin VB.Line Line2
Index = 10
X1 = 2400
X2 = 2400
Y1 = 8400
Y2 = 4440
End
Begin VB.Line Line2
Index = 8
X1 = 5280
X2 = 5280
Y1 = 7680
Y2 = 4440
End
Begin VB.Line Line2
Index = 6
X1 = 6840
X2 = 6840
Y1 = 7680
Y2 = 4440
End
Begin VB.Line Line2
Index = 4
X1 = 8400
X2 = 8400
Y1 = 7680
Y2 = 4440
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "时间："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 127
Top = 3195
Width = 735
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "工程：编号"
ForeColor = &H00FF0000&
Height = 615
Left = 120
TabIndex = 126
Top = 2160
Width = 615
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "单 位："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 125
Top = 840
Width = 855
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = " 合 计"
ForeColor = &H00FF0000&
Height = 255
Left = 9000
TabIndex = 124
Top = 120
Width = 735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "技术费"
ForeColor = &H00FF0000&
Height = 255
Left = 7920
TabIndex = 123
Top = 120
Width = 615
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "系数"
ForeColor = &H00FF0000&
Height = 255
Left = 7080
TabIndex = 122
Top = 120
Width = 375
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "单 价"
ForeColor = &H00FF0000&
Height = 255
Left = 6000
TabIndex = 121
Top = 120
Width = 495
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "数量"
ForeColor = &H00FF0000&
Height = 255
Left = 5040
TabIndex = 120
Top = 120
Width = 375
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单位"
ForeColor = &H00FF0000&
Height = 255
Left = 4200
TabIndex = 119
Top = 120
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = " 项 目"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 118
Top = 120
Width = 1095
End
Begin VB.Line Line2
Index = 11
X1 = 9960
X2 = 9960
Y1 = 4320
Y2 = 0
End
Begin VB.Line Line2
Index = 9
X1 = 8760
X2 = 8760
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 7
X1 = 7680
X2 = 7680
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 5
X1 = 6840
X2 = 6840
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 3
X1 = 5640
X2 = 5640
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 2
X1 = 4800
X2 = 4800
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 1
X1 = 3960
X2 = 3960
Y1 = 4320
Y2 = 0
End
Begin VB.Line Line1
Index = 9
X1 = 2400
X2 = 9960
Y1 = 2880
Y2 = 2880
End
Begin VB.Line Line1
Index = 8
X1 = 2400
X2 = 9960
Y1 = 2520
Y2 = 2520
End
Begin VB.Line Line1
Index = 7
X1 = 2400
X2 = 9960
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line1
Index = 6
X1 = 2400
X2 = 9960
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line1
Index = 5
X1 = 2400
X2 = 9960
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line1
Index = 4
X1 = 2400
X2 = 9960
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
Index = 3
X1 = 2400
X2 = 9960
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
Index = 2
X1 = 2400
X2 = 9960
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
Index = 1
X1 = 2400
X2 = 9960
Y1 = 360
Y2 = 360
End
Begin VB.Line Line2
Index = 0
X1 = 2400
X2 = 2400
Y1 = 4320
Y2 = 0
End
Begin VB.Line Line1
Index = 0
X1 = 2400
X2 = 9960
Y1 = 0
Y2 = 0
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "结算员"
ForeColor = &H00FF0000&
Height = 255
Left = 9120
TabIndex = 117
Top = 6645
Width = 615
End
End
Attribute VB_Name = "Form37"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i, j As Integer
For j = 1 To Form36.ListView1.ListItems.Count
Form36.ListView1.ListItems.Item(j).Checked = False
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -