📄 增加.frm
字号:
Alignment = 2
SubItemIndex = 14
Text = "完成单位"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 15
Text = "超期工程"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 16
Text = "备注"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 17
Text = "规划报件审批编号"
Object.Width = 7056
EndProperty
BeginProperty ColumnHeader(19) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 18
Text = "预收款备注"
Object.Width = 7056
EndProperty
BeginProperty ColumnHeader(20) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 19
Text = "登记人"
Object.Width = 3528
EndProperty
Picture = "增加.frx":8A67
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "登记人："
ForeColor = &H00FF0000&
Height = 255
Left = 8400
TabIndex = 39
Top = 1920
Width = 855
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "予收额备注："
ForeColor = &H00FF0000&
Height = 255
Left = 8160
TabIndex = 38
Top = 1560
Width = 1095
End
Begin VB.Line Line11
X1 = 240
X2 = 12000
Y1 = 0
Y2 = 0
End
Begin VB.Line Line10
X1 = 240
X2 = 240
Y1 = 2160
Y2 = 0
End
Begin VB.Line Line9
X1 = 9360
X2 = 9360
Y1 = 2160
Y2 = 0
End
Begin VB.Line Line8
X1 = 12000
X2 = 12000
Y1 = 2280
Y2 = 120
End
Begin VB.Line Line7
X1 = -600
X2 = 11640
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line6
X1 = 240
X2 = 12000
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line5
X1 = 240
X2 = 11760
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line4
X1 = 240
X2 = 11760
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line3
X1 = 240
X2 = 11760
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
X1 = 240
X2 = 12000
Y1 = 360
Y2 = 360
End
Begin VB.Line Line2
X1 = 240
X2 = 12000
Y1 = -120
Y2 = -120
End
Begin VB.Label Label1
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "工程编号："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 31
Top = 120
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "建设单位："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 30
Top = 460
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "工程地点："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 29
Top = 1200
Width = 1095
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = " 联系人： 及联系电话"
ForeColor = &H00FF0000&
Height = 375
Left = 360
TabIndex = 28
Top = 1440
Width = 975
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "接收日期："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 27
Top = 1920
Width = 975
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "下达日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 26
Top = 115
Width = 975
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "应交日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 25
Top = 480
Width = 975
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "实交日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 24
Top = 840
Width = 1095
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = " 总工办 ： 接受日期"
ForeColor = &H00FF0000&
Height = 375
Left = 4200
TabIndex = 23
Top = 1080
Width = 1215
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "出图日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 22
Top = 1560
Width = 1095
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "予收额(元)："
ForeColor = &H00FF0000&
Height = 255
Left = 4200
TabIndex = 21
Top = 1920
Width = 1095
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "结算额(元)："
ForeColor = &H00FF0000&
Height = 255
Left = 8160
TabIndex = 20
Top = 120
Width = 1095
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "实收额(元)："
ForeColor = &H00FF0000&
Height = 255
Left = 8160
TabIndex = 19
Top = 480
Width = 1095
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "完成单位："
ForeColor = &H00FF0000&
Height = 255
Left = 8280
TabIndex = 18
Top = 840
Width = 975
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "工程名称："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 17
Top = 840
Width = 975
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "规划报件： 审批编号"
ForeColor = &H00FF0000&
Height = 495
Left = 8280
TabIndex = 16
Top = 1080
Width = 1095
End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mc_cN As cNeoCaption
Dim aa(30) As String
Private Sub Command1_Click()
Dim f, i, j, f1, m, n, o, p, q, r As Integer
Dim a, b, c, d, e, g, a1, b1, c1, d1, e1, g1 As String
Dim SearchString, SearchChar, MyPos, SearchString1, SearchChar1, MyPos1 As String
If biaoming = "定线" Then
renwushu1 biaoming
End If
If biaoming = "计划内" Then
renwushu3 biaoming
End If
If biaoming = "松北" Then
renwushu2 biaoming
End If
If biaoming = "地籍" Then
renwushu2 biaoming
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim i, j As Integer
Dim a1, a2, a3, a4 As String
Dim ln As String
Static l As Integer
Dim da As Date
Form7.top = -100
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
If biaoming = "定线" Then
Text1(15).Enabled = True
End If
da = Date
Text1(5).Text = da
Text1(6).Text = da
Text1(17).Text = username
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -