📄 form21.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form21
BorderStyle = 0 'None
Caption = "Form21"
ClientHeight = 8010
ClientLeft = 0
ClientTop = 0
ClientWidth = 12165
Icon = "Form21.frx":0000
LinkTopic = "Form21"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form21.frx":1782
ScaleHeight = 8010
ScaleWidth = 12165
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "编辑"
ForeColor = &H00FF0000&
Height = 7995
Left = 0
TabIndex = 0
Top = 0
Width = 1215
Begin VB.PictureBox Picture6
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form21.frx":43D7
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 12
Top = 5520
Width = 495
End
Begin VB.PictureBox Picture5
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form21.frx":4CA1
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 10
Top = 4200
Width = 495
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form21.frx":556B
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 8
Top = 3000
Width = 495
End
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form21.frx":5E35
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 3
Top = 6720
Width = 495
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form21.frx":62D2
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 2
Top = 1800
Width = 495
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 495
Left = 360
Picture = "Form21.frx":6B9C
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 1
Top = 600
Width = 495
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "院外打印"
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 13
Top = 5280
Width = 735
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "院内打印"
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 11
Top = 3960
Width = 735
End
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "保存"
ForeColor = &H00FF0000&
Height = 255
Left = 460
TabIndex = 9
Top = 2760
Width = 495
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "关闭"
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 6
Top = 6480
Width = 495
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "修改"
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 5
Top = 360
Width = 495
End
Begin VB.Label Label5
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "删除"
ForeColor = &H00FF0000&
Height = 255
Left = 480
TabIndex = 4
Top = 1560
Width = 495
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 10560
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ListView ListView1
Height = 7575
Left = 1200
TabIndex = 14
Top = 0
Width = 10935
_ExtentX = 19288
_ExtentY = 13361
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = 16711680
BackColor = 16777215
BorderStyle = 1
Appearance = 0
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = " 单位名称"
Object.Width = 7056
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "工程编号"
Object.Width = 5292
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "时间"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "结算员"
Object.Width = 3353
EndProperty
Picture = "Form21.frx":7466
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "黑色代表退稿"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 5760
TabIndex = 17
Top = 7680
Width = 1695
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "红色代表没有结算"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 1440
TabIndex = 16
Top = 7680
Width = 1815
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "蓝色代表审核正常流转"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 3360
TabIndex = 15
Top = 7680
Width = 2175
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 7320
TabIndex = 7
Top = 7680
Width = 4815
End
End
Attribute VB_Name = "Form21"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim normalstring(30) As String
Dim mm As Integer
Dim string1, string2 As String
Option Explicit
Dim rn As ADODB.Connection
Private Sub Form_Load()
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
End Sub
Private Sub Picture1_Click()
Dim i, m, j, n, k, p, l As Integer
Dim c, MyPos, MyPos1, MyPos2 As Integer
Dim c1, c2, c3, c4, c5, SearchString, SearchChar As String
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, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70, a71, a72, a73, a74, a75, a76, a77, a78, a79, a80, a81, a82, a83, a84, a85, a86, a87, a88, a89, a90, a91, a92, a93, a94, a95, a96, a97, a98, a99, a100, a101, a102, a103, a104, a105, a106, a107, a108, a109, a110, a111, a112, a113, a114, a115, a116, a117, a118, a119, a120, a121, a122, a123, a124, a125, a126, a127, a128, a129, a130, a131
Dim da As Date
Dim splc
da = Date
MyPos = 0
MyPos1 = 0
MyPos2 = 0
For i = 1 To Form21.ListView1.ListItems.Count
If Form21.ListView1.ListItems.Item(i).Checked = True Then
m = m + 1
End If
Next
If m <> 1 Then
MsgBox "修改一条记录！", vbInformation, "提示"
Exit Sub
End If
l = 0
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For j = 1 To Form21.ListView1.ListItems.Count
If Form21.ListView1.ListItems.Item(j).Checked = True Then
For n = 1 To grs.RecordCount
If grs.Fields(1).Value = Form21.ListView1.ListItems.Item(j).ListSubItems(1) Then
splc = Form21.ListView1.ListItems.Item(j).ListSubItems(1)
If grs.Fields(122).Value = "0" Then
MyPos2 = 1
End If
If grs.Fields(120).Value = "0" Or grs.Fields(120).Value = username Then
MyPos1 = 1
End If
If grs.Fields(114).Value = "0" And grs.Fields(116).Value = "0" And grs.Fields(118).Value = "0" And grs.Fields(126).Value = "0" Then
MyPos = 1 ' 要查找字符串 "P"。
End If
If grs("depart").Value = "11" Then
MyPos = 1
End If
If MyPos <> 0 And MyPos1 <> 0 And MyPos2 <> 0 Then
If grs.Fields(0) = 0 Then
a1 = ""
Else
a1 = grs.Fields(0)
End If
If grs.Fields(1) = 0 Then
a2 = ""
Else
a2 = grs.Fields(1)
End If
If grs.Fields(2) = 0 Then
a3 = da
Else
a3 = grs.Fields(2)
End If
If grs.Fields(3) = 0 Then
a4 = ""
Else
a4 = grs.Fields(3)
End If
If grs.Fields(4) = 0 Then
a5 = ""
Else
a5 = grs.Fields(4)
End If
If grs.Fields(5) = 0 Then
a6 = ""
Else
a6 = grs.Fields(5)
End If
If grs.Fields(6) = 0 Then
a7 = ""
Else
a7 = grs.Fields(6)
End If
If grs.Fields(7) = 0 Then
a8 = ""
Else
a8 = grs.Fields(7)
End If
If grs.Fields(8) = 0 Then
a9 = ""
Else
a9 = grs.Fields(8)
End If
If grs.Fields(9) = 0 Then
a10 = ""
Else
a10 = grs.Fields(9)
End If
If grs.Fields(10) = 0 Then
a11 = ""
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -