📄 form32.frm
字号:
ForeColor = &H00FF0000&
Height = 255
Left = 5760
TabIndex = 130
Top = 4560
Width = 855
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "作 业 组"
ForeColor = &H00FF0000&
Height = 255
Left = 2955
TabIndex = 129
Top = 4560
Width = 735
End
Begin VB.Line Line1
Index = 15
X1 = 2400
X2 = 9600
Y1 = 8040
Y2 = 8040
End
Begin VB.Line Line1
Index = 14
X1 = 2400
X2 = 9960
Y1 = 5160
Y2 = 5160
End
Begin VB.Line Line1
Index = 13
X1 = 2400
X2 = 9960
Y1 = 5520
Y2 = 5520
End
Begin VB.Line Line2
Index = 12
X1 = 9960
X2 = 9960
Y1 = 7680
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 = 8280
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 = 128
Top = 2595
Width = 735
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "工程：编号"
ForeColor = &H00FF0000&
Height = 615
Left = 120
TabIndex = 127
Top = 1680
Width = 615
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "单位："
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 126
Top = 600
Width = 855
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = " 合 计"
ForeColor = &H00FF0000&
Height = 255
Left = 9000
TabIndex = 125
Top = 120
Width = 735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "技术费"
ForeColor = &H00FF0000&
Height = 255
Left = 7920
TabIndex = 124
Top = 120
Width = 615
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "系数"
ForeColor = &H00FF0000&
Height = 255
Left = 7080
TabIndex = 123
Top = 120
Width = 375
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "单 价"
ForeColor = &H00FF0000&
Height = 255
Left = 6000
TabIndex = 122
Top = 120
Width = 495
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "数量"
ForeColor = &H00FF0000&
Height = 255
Left = 5040
TabIndex = 121
Top = 120
Width = 375
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单位"
ForeColor = &H00FF0000&
Height = 255
Left = 4200
TabIndex = 120
Top = 120
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = " 项 目"
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 119
Top = 120
Width = 1095
End
Begin VB.Line Line2
Index = 11
X1 = 9960
X2 = 9960
Y1 = 4320
Y2 = 0
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 = 118
Top = 6645
Width = 615
End
End
Attribute VB_Name = "Form32"
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 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
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 = Form32.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
Form32.Text40.Text = username
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form31.ListView1.ListItems.Clear
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For j = 0 To 2
Form31.Combo1.AddItem (grs.Fields(j).Name)
Next j
For i = 1 To grs.RecordCount
k = k + 1
Form31.ListView1.ListItems.Add , , grs.Fields(0).Value
Form31.ListView1.ListItems.Item(i).SubItems(1) = grs.Fields(1).Value
Form31.ListView1.ListItems.Item(i).SubItems(2) = grs.Fields(2).Value
Form31.ListView1.ListItems.Item(i).SubItems(3) = grs.Fields(52).Value
Form31.ListView1.ListItems.Item(i).SubItems(4) = grs.Fields(53).Value
If grs.Fields(129).Value = "0" Then
Form31.ListView1.ListItems.Item(k).ForeColor = vbRed
For m = 1 To 4
Form31.ListView1.ListItems.Item(k).ListSubItems.Item(m).ForeColor = vbRed
Next
End If
grs.MoveNext
Next
grs.Close
If Form31.ListView1.ListItems.Count <> "0" Then
Form31.ListView1.ListItems(Form31.ListView1.ListItems.Count).Selected = True
Form31.ListView1.SelectedItem.EnsureVisible
Form31.ListView1.Refresh
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -