📄 form28.frm
字号:
Width = 855
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "作 业 组"
ForeColor = &H00FF0000&
Height = 255
Left = 2955
TabIndex = 129
Top = 4530
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 = 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 = 0
TabIndex = 128
Top = 2880
Width = 735
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "工程：编号"
ForeColor = &H00FF0000&
Height = 495
Left = 0
TabIndex = 127
Top = 1920
Width = 615
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "单位："
ForeColor = &H00FF0000&
Height = 255
Left = 0
TabIndex = 126
Top = 720
Width = 615
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 = -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 = 118
Top = 6645
Width = 615
End
End
Attribute VB_Name = "Form28"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command3_Click()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50
Dim a, b, j, k As Integer
Dim ln, ln1 As Long
k = 0
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 j = 1 To grs.RecordCount
If grs.Fields(1).Value = Form28.Text2.Text Then
If username = "张琼" And grs("depart").Value <= 5 Then
If Text18.Text = "" Then
a115 = 0
Else
a115 = Text18.Text
End If
With grs
.Fields(114) = a115
.Fields(131) = 11
End With
k = k + 1
End If
If username = "衣鸿波" And grs("depart").Value <= 4 Then
If Text19.Text = "" Then
a117 = 0
Else
a117 = Text19.Text
End If
With grs
.Fields(116) = a117
.Fields(131) = 11
End With
k = k + 1
End If
If username = "李五夫" And grs("depart").Value <= 3 Then
If Text25.Text = "" Then
a119 = 0
Else
a119 = Text25.Text
End If
With grs
.Fields(118) = a119
.Fields(131) = 11
End With
k = k + 1
End If
If username = "任剑锋" And grs("depart").Value <= 2 Then
If Text46.Text = "" Then
a127 = 0
Else
a127 = Text46.Text
End If
With grs
.Fields(126) = a127
.Fields(131) = 11
End With
k = k + 1
End If
End If
grs.MoveNext
Next
grs.Close
End If
Next
If k = 1 Then
grs.CursorLocation = adUseClient
grs.Open "select * from 流程记录", gconn, adOpenKeyset, adLockPessimistic
If username = "张琼" Then
If Text4.Text = "" Then
a116 = 0
Else
a116 = Text4.Text
End If
grs.AddNew
grs("sp_rws_num").Value = Form28.Text2.Text
grs("sp_fromman_dept").Value = department
grs("sp_fromman").Value = username
grs("sp_opinion").Value = a116
grs("sp_xz").Value = "退稿"
End If
If username = "衣鸿波" Then
If Text5.Text = "" Then
a118 = 0
Else
a118 = Text5.Text
End If
grs.AddNew
grs("sp_rws_num").Value = Form28.Text2.Text
grs("sp_fromman_dept").Value = department
grs("sp_fromman").Value = username
grs("sp_opinion").Value = a118
grs("sp_xz").Value = "退稿"
End I⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -