?? frm出庫(kù)審核.frm
字號(hào):
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出庫(kù)審核
Caption = "出庫(kù)審核"
ClientHeight = 7680
ClientLeft = 60
ClientTop = 345
ClientWidth = 10275
Icon = "Frm出庫(kù)審核.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7680
ScaleWidth = 10275
StartUpPosition = 1 '所有者中心
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 = 7
Top = 6480
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 = 6
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 = 2
Left = 3720
TabIndex = 5
Top = 7200
Width = 2055
End
Begin VB.OptionButton Option1
Caption = "通過(guò)審核"
Height = 375
Left = 6840
TabIndex = 4
Top = 6600
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton Option2
Caption = "未通過(guò)審核"
Height = 375
Left = 6840
TabIndex = 3
Top = 7080
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "提交"
Height = 495
Left = 8520
TabIndex = 2
Top = 6720
Width = 1455
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出庫(kù)審核.frx":058A
Key = "Root"
Object.Tag = "Root"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm出庫(kù)審核.frx":08A4
Key = "Child"
Object.Tag = "Child"
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView tvTreeView
Height = 7440
Left = 120
TabIndex = 0
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 = 1
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 = 5880
OleObjectBlob = "Frm出庫(kù)審核.frx":12B6
Top = 6960
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "物資編號(hào):"
Height = 180
Index = 1
Left = 2880
TabIndex = 10
Top = 6600
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 = "物資型號(hào):"
Height = 180
Index = 4
Left = 2880
TabIndex = 8
Top = 7320
Width = 810
End
End
Attribute VB_Name = "Frm出庫(kù)審核"
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("確認(rèn)要審核全部列表記錄么？", vbYesNo, "審核對(duì)話框") 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_輔料出庫(kù)表 set 審核狀態(tài)=1 where 流水號(hào)='" & ListView1.ListItems(i).Text & "'"
CmdExe.Execute
Next i
Else
If ListView1.ListItems.Count > 1 Then
If vbYes <> MsgBox("確認(rèn)要審核全部列表記錄么？", vbYesNo, "審核對(duì)話框") 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_輔料出庫(kù)表 set 審核狀態(tài)=2 ,票據(jù)狀態(tài)=3 where 流水號(hào)='" & 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 票據(jù)編號(hào) FROM FL_輔料出庫(kù)表 where 審核狀態(tài)=0 order by 票據(jù)編號(hào)")
With RsRoot
Do While Not .EOF
tvTreeView.Nodes.Add , 4, "T" + Trim(.Fields("票據(jù)編號(hào)")), Trim(.Fields("票據(jù)編號(hào)")), "Root"
Cshgns (Trim(.Fields("票據(jù)編號(hào)")))
.MoveNext
Loop
End With
End Sub
Public Sub Cshgns(RootString As Long)
Set RsChild = Cw_DataEnvi.DataConnect.Execute("SELECT 票據(jù)編號(hào),物資編號(hào),流水號(hào) FROM FL_輔料出庫(kù)表 where 審核狀態(tài)=0 and 票據(jù)編號(hào)='" & RootString & "' order by 流水號(hào)")
With RsChild
Do While Not .EOF
Set nodX = tvTreeView.Nodes.Add("T" + Trim(.Fields("票據(jù)編號(hào)")), 4, "L" + Trim(.Fields("流水號(hào)")), Trim(.Fields("物資編號(hào)")), "Child")
.MoveNext
Loop
End With
End Sub
Public Sub Wzxx(WzbhString As Long)
Set Rstmp = Cw_DataEnvi.DataConnect.Execute("select * from Fl_物資信息表 where 物資編號(hào)= " & WzbhString)
Text1(0).Text = Rstmp!物資編號(hào)
Text1(1).Text = Rstmp!物資名稱
Text1(2).Text = Rstmp!物資型號(hào)
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListView1.ListItems.Count > 0 Then Wzxx ListView1.SelectedItem.ListSubItems(3)
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) '票據(jù)編號(hào)
loadTree (PJBH)
ElseIf Left(Node.Key, 1) = "L" Then
PJBH = Right(Node.Parent.Key, Len(Node.Parent.Key) - 1) '票據(jù)編號(hào)
LSH = Right(Node.Key, Len(Node.Key) - 1) '流水號(hào)
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_輔料出庫(kù)表 where 審核狀態(tài)=0 and 票據(jù)編號(hào)='" & PjbhString & "' order by 流水號(hào)", 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!流水號(hào))
ItmX.SubItems(1) = LConRs!部門(mén)名稱
ItmX.SubItems(2) = LConRs!類(lèi)別名稱
ItmX.SubItems(3) = LConRs!物資編號(hào)
ItmX.SubItems(4) = LConRs!單價(jià)
ItmX.SubItems(5) = LConRs!數(shù)量
ItmX.SubItems(6) = LConRs!金額
ItmX.SubItems(7) = LConRs!業(yè)務(wù)員
ItmX.SubItems(8) = LConRs!出庫(kù)時(shí)間
ItmX.SubItems(9) = LConRs!倉(cāng)庫(kù)名稱
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_輔料出庫(kù)表 where 審核狀態(tài)=0 and 流水號(hào)='" & LshString & "' order by 流水號(hào)", 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!流水號(hào))
ItmX.SubItems(1) = LConRs!部門(mén)名稱
ItmX.SubItems(2) = LConRs!類(lèi)別名稱
ItmX.SubItems(3) = LConRs!物資編號(hào)
ItmX.SubItems(4) = LConRs!單價(jià)
ItmX.SubItems(5) = LConRs!數(shù)量
ItmX.SubItems(6) = LConRs!金額
ItmX.SubItems(7) = LConRs!業(yè)務(wù)員
ItmX.SubItems(8) = LConRs!出庫(kù)時(shí)間
ItmX.SubItems(9) = LConRs!倉(cāng)庫(kù)名稱
LConRs.MoveNext
Loop
End Sub
Public Sub DoList()
Dim ItmX As ListItem
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "流水號(hào)", Len("流水號(hào)") + 550 * 2
ListView1.ColumnHeaders.Add , , "部門(mén)名稱", Len("部門(mén)名稱") + 550 * 2
ListView1.ColumnHeaders.Add , , "類(lèi)別名稱", Len("類(lèi)別名稱") * 100 + 550
ListView1.ColumnHeaders.Add , , "物資編號(hào)", Len("物資編號(hào)") * 100 + 550
ListView1.ColumnHeaders.Add , , "單價(jià)", Len("單價(jià)") * 100 + 550
ListView1.ColumnHeaders.Add , , "數(shù)量", Len("數(shù)量") * 100 + 550
ListView1.ColumnHeaders.Add , , "金額", Len("金額") * 100 + 550
ListView1.ColumnHeaders.Add , , "業(yè)務(wù)員", Len("業(yè)務(wù)員") * 100 + 500
ListView1.ColumnHeaders.Add , , "出庫(kù)時(shí)間", Len("出庫(kù)時(shí)間") + 550 * 2
ListView1.ColumnHeaders.Add , , "倉(cāng)庫(kù)名稱", Len("倉(cāng)庫(kù)名稱") + 550 * 2
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -