📄 form16.frm
字号:
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "工程名称："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 32
Top = 1440
Width = 975
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "实收额(元)："
ForeColor = &H00FF0000&
Height = 255
Left = 8280
TabIndex = 31
Top = 360
Width = 1095
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "结算额(元)："
ForeColor = &H00FF0000&
Height = 255
Left = 4200
TabIndex = 30
Top = 2475
Width = 1095
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "予收额(元)："
ForeColor = &H00FF0000&
Height = 255
Left = 4200
TabIndex = 29
Top = 2160
Width = 1095
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "出图日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 28
Top = 1800
Width = 1095
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = " 总工办 ： 接受日期"
ForeColor = &H00FF0000&
Height = 375
Left = 4200
TabIndex = 27
Top = 1320
Width = 1215
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "实交日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 26
Top = 1080
Width = 1095
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "应交日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 25
Top = 720
Width = 975
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "下达日期："
ForeColor = &H00FF0000&
Height = 255
Left = 4320
TabIndex = 24
Top = 315
Width = 975
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "接收日期："
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 23
Top = 2520
Width = 975
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = " 联系人： 及联系电话"
ForeColor = &H00FF0000&
Height = 375
Left = 360
TabIndex = 22
Top = 2040
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "工程地点："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 21
Top = 1800
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "建设单位："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 20
Top = 1020
Width = 975
End
Begin VB.Label Label1
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "工程编号："
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 19
Top = 360
Width = 975
End
Begin VB.Line Line2
X1 = 120
X2 = 12000
Y1 = 600
Y2 = 600
End
Begin VB.Line Line3
X1 = 120
X2 = 11760
Y1 = 960
Y2 = 960
End
Begin VB.Line Line4
X1 = 120
X2 = 11760
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line5
X1 = 120
X2 = 11760
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line1
X1 = 120
X2 = 12000
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line7
X1 = 120
X2 = 12000
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line8
X1 = 12000
X2 = 12000
Y1 = 2760
Y2 = 240
End
Begin VB.Line Line9
X1 = 9360
X2 = 9360
Y1 = 2760
Y2 = 240
End
End
Attribute VB_Name = "Form16"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mc_cN As cNeoCaption
Dim string1, string2, string3, string4 As String
Option Explicit
Dim rn As ADODB.Connection
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To Form15.ListView1.ListItems.Count
Form15.ListView1.ListItems.Item(i).Checked = False
Next
Unload Me
End Sub
Private Sub Form_Load()
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
End Sub
Private Sub Command3_Click()
'Dim a, b, c, d, e, g As String
Dim a(30) As String
Dim SearchString, SearchChar, MyPos As String
Dim i, j, k, m As Integer
Dim da, da1 As String
Static l As Integer
l = 0
m = 0
If biaoming <> "零星验字工程" Then
grs.CursorLocation = adUseClient
grs.Open biaoming, gconn, adOpenKeyset, adLockPessimistic
For i = 1 To grs.RecordCount
If Text1(0).Text = grs.Fields(1).Value Then
If grs.Fields(129) = 0 Then
With grs
If Text1(12).Text = "" Then
.Fields(128).Value = "0"
Else
.Fields(128).Value = Text1(12).Text
End If
End With
Else
m = m + 1
MsgBox "财务部已经确认！", vbInformation, "提示"
End If
End If
grs.MoveNext
Next
grs.Close
rs.CursorLocation = adUseClient
rs.Open biaoming, conn, adOpenKeyset, adLockPessimistic
For i = 1 To rs.RecordCount
If Text1(0).Text = rs.Fields(0).Value Then
l = l + 1
With rs
.Fields(0).Value = Text1(0).Text
For k = 1 To 14
If Text1(k).Text = "" Then
.Fields(k).Value = "0"
Else
.Fields(k).Value = Text1(k + 1).Text
End If
Next
.Fields(17).Value = Text1(1).Text
.Fields(18).Value = Text1(16).Text
.Fields(19).Value = Text1(17).Text
.Fields(20).Value = Text1(18).Text
End With
End If
rs.MoveNext
Next
rs.Close
If m = 0 Then
MsgBox "数据修改完毕！", vbInformation, "存储数据"
End If
Unload Me
End If
If biaoming = "零星验字工程" Then
grs.CursorLocation = adUseClient
grs.Open biaoming, gconn, adOpenKeyset, adLockPessimistic
For i = 1 To grs.RecordCount
If Text1(0).Text = grs.Fields(1).Value Then
If grs.Fields(129) = 0 Then
With grs
If Text1(12).Text = "" Then
.Fields(128).Value = "0"
Else
.Fields(128).Value = Text1(12).Text
End If
End With
Else
m = m + 1
MsgBox "财务部已经确认！", vbInformation, "提示"
End If
End If
grs.MoveNext
Next
grs.Close
rs.CursorLocation = adUseClient
rs.Open biaoming, conn, adOpenKeyset, adLockPessimistic
For i = 1 To rs.RecordCount
If Text1(0).Text = rs.Fields(0).Value Then
l = l + 1
With rs
.Fields(0).Value = Text1(0).Text
For k = 1 To 14
If Text1(k).Text = "" Then
.Fields(k).Value = "0"
Else
.Fields(k).Value = Text1(k + 1).Text
End If
Next
.Fields(17).Value = Text1(1).Text
.Fields(18).Value = Text1(17).Text
.Fields(19).Value = Text1(18).Text
End With
End If
rs.MoveNext
Next
rs.Close
If m = 0 Then
MsgBox "数据修改完毕！", vbInformation, "存储数据"
End If
Unload Me
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 1 To Form15.ListView1.ListItems.Count
Form15.ListView1.ListItems.Item(i).Checked = False
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -