📄 form25.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form25
BorderStyle = 0 'None
Caption = "Form25"
ClientHeight = 8010
ClientLeft = 0
ClientTop = 0
ClientWidth = 12165
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form25.frx":0000
LinkTopic = "Form25"
Picture = "Form25.frx":1782
ScaleHeight = 8010
ScaleWidth = 12165
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 64768
Left = 10200
Top = 7560
End
Begin VB.CommandButton Command2
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3360
Picture = "Form25.frx":43D7
Style = 1 'Graphical
TabIndex = 2
Top = 7560
Width = 855
End
Begin VB.CommandButton Command1
Caption = "关闭"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 8040
Picture = "Form25.frx":557B
Style = 1 'Graphical
TabIndex = 1
Top = 7560
Width = 855
End
Begin MSComctlLib.ListView ListView1
Height = 6975
Left = 0
TabIndex = 0
Top = 480
Width = 12045
_ExtentX = 21246
_ExtentY = 12303
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = 0
BackColor = 16777215
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = " 单位名称"
Object.Width = 5292
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "工程编号"
Object.Width = 3706
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "时间"
Object.Width = 3175
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "工程款"
Object.Width = 3175
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "预收款"
Object.Width = 2600
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 5
Text = "作业组"
Object.Width = 3176
EndProperty
Picture = "Form25.frx":671F
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "院长没有审批"
ForeColor = &H000000FF&
Height = 375
Left = 600
TabIndex = 7
Top = 120
Width = 1575
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "主管院长没有审批"
ForeColor = &H00C0C000&
Height = 375
Left = 2520
TabIndex = 6
Top = 120
Width = 2055
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "经营部长没有审批"
ForeColor = &H00FF0000&
Height = 375
Left = 4920
TabIndex = 5
Top = 120
Width = 2055
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "经营副部长没有校核"
ForeColor = &H000080FF&
Height = 375
Left = 7320
TabIndex = 4
Top = 120
Width = 2295
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "结算员没有结算"
ForeColor = &H00000000&
Height = 375
Left = 9840
TabIndex = 3
Top = 120
Width = 1695
End
End
Attribute VB_Name = "Form25"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Dim i, a, b, j, n, m As Integer
Static l As Integer
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, a51, a52, a53, a54, a55, a56, a57, a58, a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70, 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, a121, a122, a123, a124, a125, a126, a127, a128, a129, a130 As String
a = 0
b = 0
j = 0
For i = 1 To Form25.ListView1.ListItems.Count
If Form25.ListView1.ListItems.Item(i).Checked = True Then
m = m + 1
End If
Next
If m <> 1 Then
MsgBox "选择一条记录！", vbInformation, "提示"
Exit Sub
End If
For n = 1 To Form25.ListView1.ListItems.Count
If Form25.ListView1.ListItems.Item(n).Checked = True Then
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 = Form25.ListView1.ListItems.Item(n).ListSubItems(1) Then
splc = Form25.ListView1.ListItems.Item(n).ListSubItems(1)
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 = ""
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
a11 = grs.Fields(10)
End If
If grs.Fields(11) = 0 Then
a12 = ""
Else
a12 = grs.Fields(11)
End If
If grs.Fields(12) = 0 Then
a13 = ""
Else
a13 = grs.Fields(12)
End If
If grs.Fields(13) = 0 Then
a14 = ""
Else
a14 = grs.Fields(13)
End If
If grs.Fields(14) = 0 Then
a15 = ""
Else
a15 = grs.Fields(14)
End If
If grs.Fields(15) = 0 Then
a16 = ""
Else
a16 = grs.Fields(15)
End If
If grs.Fields(16) = 0 Then
a17 = ""
Else
a17 = grs.Fields(16)
End If
If grs.Fields(17) = 0 Then
a18 = ""
Else
a18 = grs.Fields(17)
End If
If grs.Fields(18) = 0 Then
a19 = ""
Else
a19 = grs.Fields(18)
End If
If grs.Fields(19) = 0 Then
a20 = ""
Else
a20 = grs.Fields(19)
End If
If grs.Fields(20) = 0 Then
a21 = ""
Else
a21 = grs.Fields(20)
End If
If grs.Fields(21) = 0 Then
a22 = ""
Else
a22 = grs.Fields(21)
End If
If grs.Fields(22) = 0 Then
a23 = ""
Else
a23 = grs.Fields(22)
End If
If grs.Fields(23) = 0 Then
a24 = ""
Else
a24 = grs.Fields(23)
End If
If grs.Fields(24) = 0 Then
a25 = ""
Else
a25 = grs.Fields(24)
End If
If grs.Fields(25) = 0 Then
a26 = ""
Else
a26 = grs.Fields(25)
End If
If grs.Fields(26) = 0 Then
a27 = ""
Else
a27 = grs.Fields(26)
End If
If grs.Fields(27) = 0 Then
a28 = ""
Else
a28 = grs.Fields(27)
End If
If grs.Fields(28) = 0 Then
a29 = ""
Else
a29 = grs.Fields(28)
End If
If grs.Fields(29) = 0 Then
a30 = ""
Else
a30 = grs.Fields(29)
End If
If grs.Fields(30) = 0 Then
a31 = ""
Else
a31 = grs.Fields(30)
End If
If grs.Fields(31) = 0 Then
a32 = ""
Else
a32 = grs.Fields(31)
End If
If grs.Fields(32) = 0 Then
a33 = ""
Else
a33 = grs.Fields(32)
End If
If grs.Fields(33) = 0 Then
a34 = ""
Else
a34 = grs.Fields(33)
End If
If grs.Fields(34) = 0 Then
a35 = ""
Else
a35 = grs.Fields(34)
End If
If grs.Fields(35) = 0 Then
a36 = ""
Else
a36 = grs.Fields(35)
End If
If grs.Fields(36) = 0 Then
a37 = ""
Else
a37 = grs.Fields(36)
End If
If grs.Fields(37) = 0 Then
a38 = ""
Else
a38 = grs.Fields(37)
End If
If grs.Fields(38) = 0 Then
a39 = ""
Else
a39 = grs.Fields(38)
End If
If grs.Fields(39) = 0 Then
a40 = ""
Else
a40 = grs.Fields(39)
End If
If grs.Fields(40) = 0 Then
a41 = ""
Else
a41 = grs.Fields(40)
End If
If grs.Fields(41) = 0 Then
a42 = ""
Else
a42 = grs.Fields(41)
End If
If grs.Fields(42) = 0 Then
a43 = ""
Else
a43 = grs.Fields(42)
End If
If grs.Fields(43) = 0 Then
a44 = ""
Else
a44 = grs.Fields(43)
End If
If grs.Fields(44) = 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -