📄 form27.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form27
BorderStyle = 0 'None
Caption = "Form27"
ClientHeight = 7905
ClientLeft = 0
ClientTop = 0
ClientWidth = 12165
Icon = "Form27.frx":0000
LinkTopic = "Form27"
Picture = "Form27.frx":1782
ScaleHeight = 8010
ScaleMode = 0 'User
ScaleWidth = 12165
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 64768
Left = 5760
Top = 7560
End
Begin VB.CommandButton Command2
Caption = "关闭"
Height = 300
Left = 7680
Picture = "Form27.frx":43D7
Style = 1 'Graphical
TabIndex = 6
Top = 7560
Width = 855
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 300
Left = 3360
Picture = "Form27.frx":557B
Style = 1 'Graphical
TabIndex = 5
Top = 7560
Width = 855
End
Begin MSComctlLib.ListView ListView1
Height = 6855
Left = 0
TabIndex = 0
Top = 600
Width = 12045
_ExtentX = 21246
_ExtentY = 12091
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
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 = 3176
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "工程款"
Object.Width = 3088
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 = 2912
EndProperty
Picture = "Form27.frx":671F
End
Begin VB.Label Label7
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 = 7680
TabIndex = 9
Top = 158
Width = 1695
End
Begin VB.Label Label6
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 = &H00008000&
Height = 255
Left = 11160
TabIndex = 8
Top = 158
Width = 975
End
Begin VB.Label Label5
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 = &H000080FF&
Height = 375
Left = 5520
TabIndex = 7
Top = 158
Width = 2055
End
Begin VB.Label Label4
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 = &H00FF00FF&
Height = 375
Left = 9480
TabIndex = 4
Top = 158
Width = 1815
End
Begin VB.Label Label3
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 = 3600
TabIndex = 3
Top = 158
Width = 1815
End
Begin VB.Label Label2
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 = &H00C0C000&
Height = 375
Left = 1680
TabIndex = 2
Top = 165
Width = 1815
End
Begin VB.Label Label1
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 = 240
TabIndex = 1
Top = 165
Width = 1335
End
End
Attribute VB_Name = "Form27"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command1_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 Form27.ListView1.ListItems.Count
If Form27.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 Form27.ListView1.ListItems.Count
If Form27.ListView1.ListItems.Item(n).Checked = True Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For j = 1 To grs.RecordCount
If grs.Fields(1).Value = Form27.ListView1.ListItems.Item(n).ListSubItems(1) Then
splc = Form27.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 = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -