📄 form30.frm
字号:
TabIndex = 134
Top = 120
Width = 375
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "数量"
ForeColor = &H00FF0000&
Height = 255
Left = 5040
TabIndex = 133
Top = 120
Width = 375
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "单 价"
ForeColor = &H00FF0000&
Height = 255
Left = 6000
TabIndex = 132
Top = 120
Width = 495
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "系数"
ForeColor = &H00FF0000&
Height = 255
Left = 7080
TabIndex = 131
Top = 120
Width = 375
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "技术费"
ForeColor = &H00FF0000&
Height = 255
Left = 7920
TabIndex = 130
Top = 120
Width = 615
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = " 合 计"
ForeColor = &H00FF0000&
Height = 255
Left = 9000
TabIndex = 129
Top = 120
Width = 735
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "单位："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 128
Top = 600
Width = 615
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "工程：编号"
ForeColor = &H00FF0000&
Height = 495
Left = 120
TabIndex = 127
Top = 1800
Width = 615
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "时间："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 126
Top = 2760
Width = 735
End
Begin VB.Line Line2
Index = 4
X1 = 8400
X2 = 8400
Y1 = 7235.345
Y2 = 4182.934
End
Begin VB.Line Line2
Index = 6
X1 = 6840
X2 = 6840
Y1 = 7235.345
Y2 = 4182.934
End
Begin VB.Line Line2
Index = 8
X1 = 5280
X2 = 5280
Y1 = 7235.345
Y2 = 4182.934
End
Begin VB.Line Line2
Index = 10
X1 = 2400
X2 = 2400
Y1 = 7913.659
Y2 = 4182.934
End
Begin VB.Line Line1
Index = 10
X1 = 2400
X2 = 9960
Y1 = 4522.09
Y2 = 4522.09
End
Begin VB.Line Line1
Index = 12
X1 = 2400
X2 = 9960
Y1 = 4182.934
Y2 = 4182.934
End
Begin VB.Line Line2
Index = 12
X1 = 9960
X2 = 9960
Y1 = 7348.397
Y2 = 4182.934
End
Begin VB.Line Line1
Index = 13
X1 = 2400
X2 = 9960
Y1 = 5200.404
Y2 = 5200.404
End
Begin VB.Line Line1
Index = 14
X1 = 2400
X2 = 9960
Y1 = 4861.248
Y2 = 4861.248
End
Begin VB.Line Line1
Index = 15
X1 = 2400
X2 = 9600
Y1 = 7574.501
Y2 = 7574.501
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "作 业 组"
ForeColor = &H00FF0000&
Height = 255
Left = 2955
TabIndex = 125
Top = 4530
Width = 735
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "产 值"
ForeColor = &H00FF0000&
Height = 255
Left = 5760
TabIndex = 124
Top = 4530
Width = 855
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "组 金 额"
ForeColor = &H00FF0000&
Height = 255
Left = 7275
TabIndex = 123
Top = 4530
Width = 855
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "队 金 额"
ForeColor = &H00FF0000&
Height = 255
Left = 8805
TabIndex = 122
Top = 4530
Width = 855
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = " 共 计"
ForeColor = &H00FF0000&
Height = 255
Left = 2760
TabIndex = 121
Top = 3720
Width = 855
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "其 它"
ForeColor = &H00FF0000&
Height = 240
Left = 3000
TabIndex = 120
Top = 7800
Width = 855
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "超 期"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 119
Top = 4530
Width = 855
End
Begin VB.Line Line1
Index = 17
X1 = 2640
X2 = 10200
Y1 = 7899.527
Y2 = 7899.527
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "备 注"
ForeColor = &H00FF0000&
Height = 255
Left = 3000
TabIndex = 118
Top = 8160
Width = 735
End
Begin VB.Line Line2
Index = 13
X1 = 4200
X2 = 4200
Y1 = 7235.345
Y2 = 4182.934
End
Begin VB.Line Line1
Index = 16
X1 = 2400
X2 = 9960
Y1 = 3052.411
Y2 = 3052.411
End
Begin VB.Line Line1
Index = 18
X1 = 2400
X2 = 9960
Y1 = 3391.568
Y2 = 3391.568
End
Begin VB.Line Line1
Index = 19
X1 = 2400
X2 = 9960
Y1 = 5539.561
Y2 = 5539.561
End
Begin VB.Line Line1
Index = 20
X1 = 2400
X2 = 9960
Y1 = 5878.718
Y2 = 5878.718
End
Begin VB.Line Line1
Index = 21
X1 = 2400
X2 = 9960
Y1 = 6217.875
Y2 = 6217.875
End
Begin VB.Line Line1
Index = 22
X1 = 2400
X2 = 9960
Y1 = 6557.031
Y2 = 6557.031
End
Begin VB.Line Line1
Index = 23
X1 = 2400
X2 = 9960
Y1 = 6896.188
Y2 = 6896.188
End
Begin VB.Line Line1
Index = 24
X1 = 2400
X2 = 9960
Y1 = 7235.345
Y2 = 7235.345
End
Begin VB.Line Line1
Index = 25
X1 = 2400
X2 = 9960
Y1 = 4069.882
Y2 = 4069.882
End
Begin VB.Line Line1
Index = 11
X1 = 2400
X2 = 9960
Y1 = 3730.725
Y2 = 3730.725
End
End
Attribute VB_Name = "Form30"
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 Text58.Text = "" Then
grs.Fields(129).Value = "0"
Else
grs.Fields(129).Value = Text58.Text
End If
If Text54.Text = "" Then
grs.Fields(130).Value = "0"
Else
grs.Fields(130).Value = Text54.Text
End If
End If
grs.MoveNext
Next
grs.Close
End If
Next
grs.CursorLocation = adUseClient
grs.Open "select * from 流程记录", gconn, adOpenKeyset, adLockPessimistic
If Text54.Text = "" Then
a116 = 0
Else
a116 = Text54.Text
End If
grs.AddNew
grs("sp_rws_num").Value = Form30.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
MsgBox "数据存储完毕！", vbInformation, "存储数据"
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)
Form29.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(128).Value <> "0" And grs.Fields(129).Value = "0" Then
b = b + 1
Form29.ListView1.ListItems.Add , , grs.Fields(0).Value
Form29.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
Form29.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
Form29.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
Form29.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(53).Value
End If
grs.MoveNext
Next
grs.Close
End If
Next
If Form29.ListView1.ListItems.Count <> "0" Then
Form29.ListView1.ListItems(Form29.ListView1.ListItems.Count).Selected = True
Form29.ListView1.SelectedItem.EnsureVisible
Form29.ListView1.Refresh
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -