📄 form48.frm
字号:
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 = 155
Top = 2760
Width = 735
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "工程：编号"
ForeColor = &H00FF0000&
Height = 495
Left = 120
TabIndex = 154
Top = 1800
Width = 615
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "单位："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 153
Top = 600
Width = 615
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = " 合 计"
ForeColor = &H00FF0000&
Height = 255
Left = 9000
TabIndex = 152
Top = 120
Width = 735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "技术费"
ForeColor = &H00FF0000&
Height = 255
Left = 7920
TabIndex = 151
Top = 120
Width = 615
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "系数"
ForeColor = &H00FF0000&
Height = 255
Left = 7080
TabIndex = 150
Top = 120
Width = 375
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "单 价"
ForeColor = &H00FF0000&
Height = 255
Left = 6000
TabIndex = 149
Top = 120
Width = 495
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "数量"
ForeColor = &H00FF0000&
Height = 255
Left = 5040
TabIndex = 148
Top = 120
Width = 375
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单位"
ForeColor = &H00FF0000&
Height = 255
Left = 4200
TabIndex = 147
Top = 120
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = " 项 目"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 146
Top = 120
Width = 1095
End
Begin VB.Line Line2
Index = 11
X1 = 9960
X2 = 9960
Y1 = 4320
Y2 = -120
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 = 145
Top = 6645
Width = 615
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "实收额"
ForeColor = &H00FF0000&
Height = 255
Left = 7920
TabIndex = 144
Top = 4080
Width = 615
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = " 差 额"
ForeColor = &H00FF0000&
Height = 255
Left = 5835
TabIndex = 143
Top = 4080
Width = 855
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = " 预收款"
ForeColor = &H00FF0000&
Height = 255
Left = 2760
TabIndex = 142
Top = 4080
Width = 855
End
End
Attribute VB_Name = "Form48"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a116 As String
Dim i, j As Integer
grs.CursorLocation = adUseClient
grs.Open biaoming, gconn, adOpenKeyset, adLockPessimistic
j = 0
For i = 1 To grs.RecordCount
If grs.Fields(1).Value = Text2.Text Then
If grs.Fields(114).Value <> "0" Or grs.Fields(116).Value <> "0" Or grs.Fields(118).Value <> "0" Or grs.Fields(126).Value <> "0" Then
j = j + 1
If Text33.Text = "" Then
grs.Fields(122).Value = "0" '实际回款
Else
grs.Fields(122).Value = Text33.Text
End If
If Text40.Text = "" Then '财务部余额
grs.Fields(124).Value = "0"
Else
grs.Fields(124).Value = Text40.Text
End If
If Text39.Text = "" Then '财务部余额注释
grs.Fields(125).Value = "0"
Else
grs.Fields(125).Value = Text39.Text
End If
End If
End If
grs.MoveNext
Next
grs.Close
grs.CursorLocation = adUseClient
grs.Open "select * from 流程记录", gconn, adOpenKeyset, adLockPessimistic
If Text39.Text = "" Then
a116 = 0
Else
a116 = Text39.Text
End If
grs.AddNew
grs("sp_rws_num").Value = Form48.Text2.Text
grs("sp_opinion").Value = a116
grs("sp_fromman_dept").Value = department
grs("sp_fromman").Value = username
grs("sp_xz").Value = "实收"
grs.Update
grs.Close
If j <> 0 Then
MsgBox "数据存储完毕！", vbInformation, "存储数据"
Else
MsgBox "没有领导审批签字！", vbInformation, "存储数据"
End If
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
Form48.Text40.Text = username
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form47.ListView1.ListItems.Clear
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For j = 0 To 2
Form47.Combo1.AddItem (grs.Fields(j).Name)
Next j
For i = 1 To grs.RecordCount
k = k + 1
Form47.ListView1.ListItems.Add , , grs.Fields(0).Value
Form47.ListView1.ListItems.Item(i).SubItems(1) = grs.Fields(1).Value
Form47.ListView1.ListItems.Item(i).SubItems(2) = grs.Fields(2).Value
Form47.ListView1.ListItems.Item(i).SubItems(3) = grs.Fields(52).Value
Form47.ListView1.ListItems.Item(i).SubItems(4) = grs.Fields(53).Value
If grs.Fields(124).Value = "0" Then
Form47.ListView1.ListItems.Item(k).ForeColor = vbRed
For m = 1 To 4
Form47.ListView1.ListItems.Item(k).ListSubItems.Item(m).ForeColor = vbRed
Next
End If
grs.MoveNext
Next
grs.Close
If Form47.ListView1.ListItems.Count <> "0" Then
Form47.ListView1.ListItems(Form47.ListView1.ListItems.Count).Selected = True
Form47.ListView1.SelectedItem.EnsureVisible
Form47.ListView1.Refresh
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -