📄 frm采购审核.frm
字号:
VERSION 5.00
Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "VSLIGHT6.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm采购审核
Caption = "采购审核"
ClientHeight = 7620
ClientLeft = 60
ClientTop = 345
ClientWidth = 10275
Icon = "Frm采购审核.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7620
ScaleWidth = 10275
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command1
Caption = "提交"
Height = 495
Left = 8520
TabIndex = 5
Top = 6720
Width = 1455
End
Begin VB.OptionButton Option2
Caption = "未通过审核"
Height = 375
Left = 6840
TabIndex = 4
Top = 7080
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "通过审核"
Height = 375
Left = 6840
TabIndex = 3
Top = 6600
Value = -1 'True
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 315
Index = 2
Left = 3720
TabIndex = 2
Top = 7200
Width = 2055
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 315
Index = 1
Left = 3720
TabIndex = 1
Top = 6840
Width = 2055
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 315
Index = 0
Left = 3720
TabIndex = 0
Top = 6480
Width = 2055
End
Begin MSComctlLib.ImageList ImageList1
Left = 1920
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm采购审核.frx":06EA
Key = "Root"
Object.Tag = "Root"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm采购审核.frx":0A04
Key = "Child"
Object.Tag = "Child"
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView tvTreeView
Height = 7440
Left = 120
TabIndex = 6
Top = 120
Width = 2490
_ExtentX = 4392
_ExtentY = 13123
_Version = 393217
Indentation = 564
LineStyle = 1
Style = 7
ImageList = "ImageList1"
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 6255
Left = 2760
TabIndex = 7
Top = 120
Width = 7455
_ExtentX = 13150
_ExtentY = 11033
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin vsElasticLightLibCtl.vsElasticLight vsElasticLight1
Left = 6240
OleObjectBlob = "Frm采购审核.frx":1416
Top = 6960
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "物资型号:"
Height = 180
Index = 4
Left = 2880
TabIndex = 10
Top = 7320
Width = 810
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "物资名称:"
Height = 180
Index = 3
Left = 2880
TabIndex = 9
Top = 6960
Width = 810
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "物资编号:"
Height = 180
Index = 1
Left = 2880
TabIndex = 8
Top = 6600
Width = 810
End
End
Attribute VB_Name = "Frm采购审核"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim nodX As Node
Dim CmdExe As ADODB.Command
Dim LConRs As ADODB.Recordset
Dim Rstmp As ADODB.Recordset
Dim RsRoot As New ADODB.Recordset
Dim RsChild As New ADODB.Recordset
Dim TxtSqlbj As String
Dim PJBH As String
Dim LSH As String
Dim WZBH As String
Private Sub Command1_Click()
If Option1.Value = True Then
If ListView1.ListItems.Count > 1 Then
If vbYes <> MsgBox("确认要审核全部列表记录么？", vbYesNo, "审核对话框") Then
Exit Sub
End If
End If
For i = 1 To ListView1.ListItems.Count
Set CmdExe = New ADODB.Command
CmdExe.ActiveConnection = Cw_DataEnvi.DataConnect
CmdExe.CommandText = "update Fl_采购票据表 set 审核状态=1 where 申请编号='" & Trim(ListView1.ListItems(i).Text) & "'"
CmdExe.Execute
Next i
Else
If ListView1.ListItems.Count > 1 Then
If vbYes <> MsgBox("确认要审核全部列表记录么？", vbYesNo, "审核对话框") Then
Exit Sub
End If
End If
For i = 1 To ListView1.ListItems.Count
Set CmdExe = New ADODB.Command
CmdExe.ActiveConnection = Cw_DataEnvi.DataConnect
CmdExe.CommandText = "update Fl_采购票据表 set 审核状态=2 ,票据状态=3 where 申请编号='" & Trim(ListView1.ListItems(i).Text) & "'"
CmdExe.Execute
Next i
End If
tvTreeView.Nodes.Clear
ListTree
ListView1.ListItems.Clear
End Sub
Private Sub Form_Load()
DoList
ListTree
End Sub
Public Sub ListTree()
Set RsRoot = Cw_DataEnvi.DataConnect.Execute("SELECT Distinct 票据编号 FROM Fl_采购票据表 where 审核状态=0 order by 票据编号")
With RsRoot
Do While Not .EOF
tvTreeView.Nodes.Add , 4, "T" + Trim(.Fields("票据编号")), Trim(.Fields("票据编号")), "Root"
Cshgns (Trim(.Fields("票据编号")))
.MoveNext
Loop
End With
End Sub
Public Sub Cshgns(RootString As Long)
Set RsChild = Cw_DataEnvi.DataConnect.Execute("SELECT 票据编号,物资编号,ID FROM Fl_采购票据表 where 审核状态=0 and 票据编号='" & RootString & "' order by ID")
With RsChild
Do While Not .EOF
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("票据编号")), 4, "L" + Trim(.Fields("ID")), Trim(.Fields("物资编号")), "Child")
.MoveNext
Loop
End With
End Sub
Public Sub Wzxx(WzbhString As Long)
Set Rstmp = Cw_DataEnvi.DataConnect.Execute("select * from Fl_物资信息表 where 物资编号= " & WzbhString)
Text1(0).Text = Rstmp!物资编号
Text1(1).Text = Rstmp!物资名称
Text1(2).Text = Rstmp!物资型号
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListView1.ListItems.Count > 0 Then Wzxx ListView1.SelectedItem.ListSubItems(2)
End Sub
Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
If Left(Node.Key, 1) = "T" Then
PJBH = Right(Node.Key, Len(Node.Key) - 1) '票据编号
loadTree (PJBH)
ElseIf Left(Node.Key, 1) = "L" Then
PJBH = Right(Node.Parent.Key, Len(Node.Parent.Key) - 1) '票据编号
LSH = Right(Node.Key, Len(Node.Key) - 1) 'ID
WZBH = Node.Text
loadChild PJBH, LSH, WZBH
End If
End Sub
Public Sub loadTree(PjbhString As String)
DoList
Set LConRs = New ADODB.Recordset
LConRs.Open "SELECT * FROM Fl_采购票据表 where 审核状态=0 and 票据编号='" & PjbhString & "' order by ID", Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
If Not LConRs.BOF Then LConRs.MoveFirst
ListView1.ListItems.Clear
Do While Not LConRs.EOF
Set ItmX = ListView1.ListItems.Add(, , LConRs!申请编号)
ItmX.SubItems(1) = LConRs!类别名称
ItmX.SubItems(2) = LConRs!物资编号
ItmX.SubItems(3) = LConRs!单价
ItmX.SubItems(4) = LConRs!数量
ItmX.SubItems(5) = LConRs!金额
ItmX.SubItems(6) = LConRs!业务员
ItmX.SubItems(7) = LConRs!采购时间
ItmX.SubItems(8) = LConRs!仓库名称
ItmX.SubItems(9) = LConRs!供货单位
LConRs.MoveNext
Loop
End Sub
Public Sub loadChild(PjbhString As String, LshString As String, WzbhString As String)
DoList
Set LConRs = New ADODB.Recordset
LConRs.Open "SELECT * FROM Fl_采购票据表 where 审核状态=0 and ID='" & LshString & "' order by ID", Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
If Not LConRs.BOF Then LConRs.MoveFirst
ListView1.ListItems.Clear
Do While Not LConRs.EOF
Set ItmX = ListView1.ListItems.Add(, , LConRs!申请编号)
ItmX.SubItems(1) = LConRs!类别名称
ItmX.SubItems(2) = LConRs!物资编号
ItmX.SubItems(3) = LConRs!单价
ItmX.SubItems(4) = LConRs!数量
ItmX.SubItems(5) = LConRs!金额
ItmX.SubItems(6) = LConRs!业务员
ItmX.SubItems(7) = LConRs!采购时间
ItmX.SubItems(8) = LConRs!仓库名称
ItmX.SubItems(9) = LConRs!供货单位
LConRs.MoveNext
Loop
End Sub
Public Sub DoList()
Dim ItmX As ListItem
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , " 申请编号", Len("申请编号") * 100 + 1200
ListView1.ColumnHeaders.Add , , "类别名称", Len("类别名称") * 100 + 550
ListView1.ColumnHeaders.Add , , "物资编号", Len("物资编号") * 100 + 550
ListView1.ColumnHeaders.Add , , "单价", Len("单价") * 100 + 550
ListView1.ColumnHeaders.Add , , "数量", Len("数量") * 100 + 550
ListView1.ColumnHeaders.Add , , "金额", Len("金额") * 100 + 550
ListView1.ColumnHeaders.Add , , "业务员", Len("业务员") * 100 + 500
ListView1.ColumnHeaders.Add , , "采购时间", Len("采购时间") + 550 * 2
ListView1.ColumnHeaders.Add , , "仓库名称", Len("仓库名称") + 550 * 2
ListView1.ColumnHeaders.Add , , "供货单位", Len("供货单位") + 550 * 2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -