📄 form46.frm
字号:
Index = 12
X1 = 2280
X2 = 9840
Y1 = 4440
Y2 = 4440
End
Begin VB.Line Line1
Index = 10
X1 = 2280
X2 = 9840
Y1 = 4800
Y2 = 4800
End
Begin VB.Line Line2
Index = 10
X1 = 2280
X2 = 2280
Y1 = 8400
Y2 = 4440
End
Begin VB.Line Line2
Index = 8
X1 = 5160
X2 = 5160
Y1 = 7680
Y2 = 4440
End
Begin VB.Line Line2
Index = 6
X1 = 6720
X2 = 6720
Y1 = 7680
Y2 = 4440
End
Begin VB.Line Line2
Index = 4
X1 = 8280
X2 = 8280
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 = 8880
TabIndex = 152
Top = 120
Width = 735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "技术费"
ForeColor = &H00FF0000&
Height = 255
Left = 7800
TabIndex = 151
Top = 120
Width = 615
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "系数"
ForeColor = &H00FF0000&
Height = 255
Left = 6960
TabIndex = 150
Top = 120
Width = 375
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "单 价"
ForeColor = &H00FF0000&
Height = 255
Left = 5880
TabIndex = 149
Top = 120
Width = 495
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "数量"
ForeColor = &H00FF0000&
Height = 255
Left = 4920
TabIndex = 148
Top = 120
Width = 375
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单位"
ForeColor = &H00FF0000&
Height = 255
Left = 4080
TabIndex = 147
Top = 120
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = " 项 目"
ForeColor = &H00FF0000&
Height = 255
Left = 2520
TabIndex = 146
Top = 120
Width = 1095
End
Begin VB.Line Line2
Index = 11
X1 = 9840
X2 = 9840
Y1 = 4320
Y2 = -120
End
Begin VB.Line Line2
Index = 9
X1 = 8640
X2 = 8640
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 7
X1 = 7560
X2 = 7560
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 5
X1 = 6720
X2 = 6720
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 3
X1 = 5520
X2 = 5520
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 2
X1 = 4680
X2 = 4680
Y1 = 3600
Y2 = 0
End
Begin VB.Line Line2
Index = 1
X1 = 3840
X2 = 3840
Y1 = 4320
Y2 = 0
End
Begin VB.Line Line1
Index = 9
X1 = 2280
X2 = 9840
Y1 = 2880
Y2 = 2880
End
Begin VB.Line Line1
Index = 8
X1 = 2280
X2 = 9840
Y1 = 2520
Y2 = 2520
End
Begin VB.Line Line1
Index = 7
X1 = 2280
X2 = 9840
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line1
Index = 6
X1 = 2280
X2 = 9840
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line1
Index = 5
X1 = 2280
X2 = 9840
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line1
Index = 4
X1 = 2280
X2 = 9840
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
Index = 3
X1 = 2280
X2 = 9840
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
Index = 2
X1 = 2280
X2 = 9840
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
Index = 1
X1 = 2280
X2 = 9840
Y1 = 360
Y2 = 360
End
Begin VB.Line Line2
Index = 0
X1 = 2280
X2 = 2280
Y1 = 4320
Y2 = 0
End
Begin VB.Line Line1
Index = 0
X1 = 2280
X2 = 9840
Y1 = 0
Y2 = 0
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "结算员"
ForeColor = &H00FF0000&
Height = 255
Left = 9000
TabIndex = 145
Top = 6645
Width = 615
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "实收额"
ForeColor = &H00FF0000&
Height = 255
Left = 7800
TabIndex = 144
Top = 4080
Width = 615
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = " 差 额"
ForeColor = &H00FF0000&
Height = 255
Left = 5715
TabIndex = 143
Top = 4080
Width = 855
End
Begin VB.Label Label28
BackStyle = 0 'Transparent
Caption = " 预收款"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 142
Top = 4080
Width = 855
End
End
Attribute VB_Name = "Form46"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
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 j As Integer
For Each mytab In gcat.Tables
a = a + 1
lty11 = mytab.Name
lty12 = left(lty11, 2)
If lty12 <> "sy" And lty12 <> "dt" And lty12 <> "my" And lty12 <> "密码" And lty12 <> "流程" Then
grs.CursorLocation = adUseClient
grs.Open lty11, gconn, adOpenKeyset, adLockPessimistic
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
End If
Next
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 = Form46.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
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form45.ListView1.ListItems.Clear
For Each mytab In gcat.Tables
a = a + 1
lty11 = mytab.Name
lty12 = left(lty11, 2)
If lty12 <> "sy" And lty12 <> "dt" And lty12 <> "my" And lty12 <> "密码" And lty12 <> "流程" Then
grs.CursorLocation = adUseClient
grs.Open lty11, gconn, adOpenKeyset, adLockPessimistic
For n = 1 To grs.RecordCount
If grs.Fields(118).Value <> "0" Or grs.Fields(126).Value <> "0" Then
If grs.Fields(124).Value = "0" Then
b = b + 1
Form45.ListView1.ListItems.Add , , grs.Fields(0).Value
Form45.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
Form45.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
Form45.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
Form45.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(53).Value
End If
End If
grs.MoveNext
Next
grs.Close
End If
Next
If Form45.ListView1.ListItems.Count <> "0" Then
Form45.ListView1.ListItems(Form45.ListView1.ListItems.Count).Selected = True
Form45.ListView1.Sele⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -