📄 form61.frm
字号:
Begin VB.Line Line14
X1 = 2040
X2 = 2040
Y1 = 3840
Y2 = 960
End
Begin VB.Line Line13
X1 = 120
X2 = 11880
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line11
X1 = 120
X2 = 11880
Y1 = 960
Y2 = 960
End
Begin VB.Line Line10
X1 = 120
X2 = 120
Y1 = 3840
Y2 = 960
End
Begin VB.Line Line8
X1 = 11880
X2 = 11880
Y1 = 3840
Y2 = 960
End
Begin VB.Line Line7
X1 = 120
X2 = 11880
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line6
X1 = 120
X2 = 11880
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line5
X1 = 120
X2 = 11880
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line4
X1 = 120
X2 = 11880
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line3
X1 = 120
X2 = 11880
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line1
X1 = 120
X2 = 11880
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label1
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "工程编号："
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 27
Top = 1440
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "建设单位："
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 26
Top = 2160
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "系数："
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 25
Top = 3240
Width = 855
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "合同额："
ForeColor = &H00FF0000&
Height = 255
Left = 840
TabIndex = 24
Top = 2520
Width = 735
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "进款额："
ForeColor = &H00FF0000&
Height = 255
Left = 840
TabIndex = 23
Top = 2880
Width = 735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "欠款额："
ForeColor = &H00FF0000&
Height = 255
Left = 6720
TabIndex = 22
Top = 1080
Width = 735
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "结算额："
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 21
Top = 3600
Width = 855
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "工程名称："
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 20
Top = 1800
Width = 975
End
Begin VB.Label Label8
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "姓名："
ForeColor = &H00FF0000&
Height = 255
Left = 960
TabIndex = 19
Top = 1080
Width = 615
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "备注："
ForeColor = &H00FF0000&
Height = 255
Left = 6840
TabIndex = 18
Top = 2160
Width = 615
End
Begin VB.Line Line9
X1 = 6120
X2 = 6120
Y1 = 2760
Y2 = 960
End
Begin VB.Line Line12
X1 = 7800
X2 = 7800
Y1 = 3840
Y2 = 960
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "结算员："
ForeColor = &H00FF0000&
Height = 255
Left = 6720
TabIndex = 17
Top = 1440
Width = 855
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "结算时间："
ForeColor = &H00FF0000&
Height = 255
Left = 6600
TabIndex = 16
Top = 1800
Width = 975
End
End
Attribute VB_Name = "Form61"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, j, m, p, l As Integer
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 经营人员结算单", hzconn, adOpenKeyset, adLockPessimistic
For i = 1 To hzrs.RecordCount
If hzrs.Fields(0).Value = Text1(0).Text Then
hzrs.Fields(1).Value = Combo1.Text
For j = 1 To 5
If Text1(j).Text = "" Then
hzrs.Fields(j + 1).Value = 0
Else
hzrs.Fields(j + 1).Value = Text1(j).Text
End If
Next
hzrs.Fields(7).Value = Combo2.Text
For l = 6 To 10
If Text1(l).Text = "" Then
hzrs.Fields(l + 2).Value = 0
Else
hzrs.Fields(l + 2).Value = Text1(l).Text
End If
Next
hzrs.Fields(13).Value = 0
hzrs.Fields(14).Value = 0
hzrs.Fields(15).Value = 0
hzrs.Fields(16).Value = 0
End If
hzrs.MoveNext
Next
hzrs.Close
Dim ln As Long
ln = MsgBox("信息修改完成！", vbInformation, "提示")
For p = 1 To Form63.ListView1.ListItems.Count
Form63.ListView1.ListItems.Item(p).Checked = False
Next
Unload Me
End Sub
Private Sub Command2_Click()
Dim p As Integer
For p = 1 To Form63.ListView1.ListItems.Count
Form63.ListView1.ListItems.Item(p).Checked = False
Next
Unload Me
End Sub
Private Sub Command3_Click()
Dim p As Integer
For p = 1 To Form60.ListView1.ListItems.Count
Form60.ListView1.ListItems.Item(p).Checked = False
Next
Unload Me
End Sub
Private Sub Form_Load()
Dim i, j, l, m As Integer
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
With Combo1
.AddItem ("李成军") 'Form8.Combo1.AddItem (rs.Fields(i).Name)
.AddItem ("李右新")
.AddItem ("张文玉")
.AddItem ("韩成武")
.AddItem ("付波")
.AddItem ("其他")
End With
With Combo2
.AddItem ("0.08") 'Form8.Combo1.AddItem (rs.Fields(i).Name)
.AddItem ("0.09")
End With
End Sub
Private Sub Timer1_Timer()
Dim i, j, l, m As Integer
Dim a As String
For i = 4 To 7
If Text1(i).Text = "" Then
ll(i) = 0
Else
ll(i) = Val(Text1(i).Text)
End If
Next
Text1(6).Text = Val(ll(5)) * Val(Combo2.Text)
If Text1(6).Text = 0 Then
Text1(6).Text = ""
End If
Text1(7).Text = Val(ll(4)) - Val(ll(5))
If Text1(7).Text = 0 Then
Text1(7).Text = ""
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -