frmbilllist.vb

visual Basic 数据库开发实例导航

        Me.trvList.Name = "trvList"
        Me.trvList.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("全部产品")})
        Me.trvList.SelectedImageIndex = -1
        Me.trvList.Size = New System.Drawing.Size(205, 182)
        Me.trvList.TabIndex = 1
        '
        'GroupBox3
        '
        Me.GroupBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox3.Controls.Add(Me.btnOpen)
        Me.GroupBox3.Controls.Add(Me.TextBox10)
        Me.GroupBox3.Controls.Add(Me.Label13)
        Me.GroupBox3.Controls.Add(Me.txbCheckDate)
        Me.GroupBox3.Controls.Add(Me.Label12)
        Me.GroupBox3.Controls.Add(Me.txbRate)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.txbDepot)
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.txbWorkShop)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.txbCode)
        Me.GroupBox3.Controls.Add(Me.Label8)
        Me.GroupBox3.Controls.Add(Me.txbCount)
        Me.GroupBox3.Controls.Add(Me.Label7)
        Me.GroupBox3.Controls.Add(Me.txbPID)
        Me.GroupBox3.Controls.Add(Me.Label6)
        Me.GroupBox3.Controls.Add(Me.txbName)
        Me.GroupBox3.Controls.Add(Me.Label5)
        Me.GroupBox3.Controls.Add(Me.txbId)
        Me.GroupBox3.Controls.Add(Me.Label4)
        Me.GroupBox3.Location = New System.Drawing.Point(216, 0)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(472, 264)
        Me.GroupBox3.TabIndex = 0
        Me.GroupBox3.TabStop = False
        '
        'btnOpen
        '
        Me.btnOpen.Enabled = False
        Me.btnOpen.Image = CType(resources.GetObject("btnOpen.Image"), System.Drawing.Image)
        Me.btnOpen.Location = New System.Drawing.Point(104, 32)
        Me.btnOpen.Name = "btnOpen"
        Me.btnOpen.Size = New System.Drawing.Size(24, 23)
        Me.btnOpen.TabIndex = 20
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(376, 32)
        Me.TextBox10.Multiline = True
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(88, 120)
        Me.TextBox10.TabIndex = 19
        Me.TextBox10.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(384, 16)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 16)
        Me.Label13.TabIndex = 18
        Me.Label13.Text = "备注"
        '
        'txbCheckDate
        '
        Me.txbCheckDate.Location = New System.Drawing.Point(256, 128)
        Me.txbCheckDate.Name = "txbCheckDate"
        Me.txbCheckDate.ReadOnly = True
        Me.txbCheckDate.Size = New System.Drawing.Size(88, 21)
        Me.txbCheckDate.TabIndex = 17
        Me.txbCheckDate.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(254, 112)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(56, 16)
        Me.Label12.TabIndex = 16
        Me.Label12.Text = "审核日期"
        '
        'txbRate
        '
        Me.txbRate.Location = New System.Drawing.Point(136, 128)
        Me.txbRate.Name = "txbRate"
        Me.txbRate.ReadOnly = True
        Me.txbRate.Size = New System.Drawing.Size(88, 21)
        Me.txbRate.TabIndex = 15
        Me.txbRate.Text = "0"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(136, 112)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(56, 16)
        Me.Label11.TabIndex = 14
        Me.Label11.Text = "损耗率"
        '
        'txbDepot
        '
        Me.txbDepot.Location = New System.Drawing.Point(10, 128)
        Me.txbDepot.Name = "txbDepot"
        Me.txbDepot.ReadOnly = True
        Me.txbDepot.Size = New System.Drawing.Size(88, 21)
        Me.txbDepot.TabIndex = 13
        Me.txbDepot.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(8, 112)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(56, 16)
        Me.Label10.TabIndex = 12
        Me.Label10.Text = "领料库房"
        '
        'txbWorkShop
        '
        Me.txbWorkShop.Location = New System.Drawing.Point(256, 80)
        Me.txbWorkShop.Name = "txbWorkShop"
        Me.txbWorkShop.ReadOnly = True
        Me.txbWorkShop.Size = New System.Drawing.Size(88, 21)
        Me.txbWorkShop.TabIndex = 11
        Me.txbWorkShop.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(254, 64)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 16)
        Me.Label9.TabIndex = 10
        Me.Label9.Text = "领料车间"
        '
        'txbCode
        '
        Me.txbCode.Location = New System.Drawing.Point(136, 80)
        Me.txbCode.Name = "txbCode"
        Me.txbCode.ReadOnly = True
        Me.txbCode.Size = New System.Drawing.Size(88, 21)
        Me.txbCode.TabIndex = 9
        Me.txbCode.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(136, 64)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 16)
        Me.Label8.TabIndex = 8
        Me.Label8.Text = "底层码"
        '
        'txbCount
        '
        Me.txbCount.Location = New System.Drawing.Point(10, 80)
        Me.txbCount.Name = "txbCount"
        Me.txbCount.ReadOnly = True
        Me.txbCount.Size = New System.Drawing.Size(88, 21)
        Me.txbCount.TabIndex = 7
        Me.txbCount.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 64)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "需要数量"
        '
        'txbPID
        '
        Me.txbPID.Location = New System.Drawing.Point(256, 32)
        Me.txbPID.Name = "txbPID"
        Me.txbPID.ReadOnly = True
        Me.txbPID.Size = New System.Drawing.Size(88, 21)
        Me.txbPID.TabIndex = 5
        Me.txbPID.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(254, 16)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 16)
        Me.Label6.TabIndex = 4
        Me.Label6.Text = "父项编号"
        '
        'txbName
        '
        Me.txbName.Location = New System.Drawing.Point(136, 32)
        Me.txbName.Name = "txbName"
        Me.txbName.ReadOnly = True
        Me.txbName.Size = New System.Drawing.Size(88, 21)
        Me.txbName.TabIndex = 3
        Me.txbName.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(136, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 2
        Me.Label5.Text = "物料名称"
        '
        'txbId
        '
        Me.txbId.Location = New System.Drawing.Point(10, 32)
        Me.txbId.Name = "txbId"
        Me.txbId.ReadOnly = True
        Me.txbId.Size = New System.Drawing.Size(88, 21)
        Me.txbId.TabIndex = 1
        Me.txbId.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 0
        Me.Label4.Text = "物料编号"
        '
        'GroupBox2
        '
        Me.GroupBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox2.Controls.Add(Me.dgdDetail)
        Me.GroupBox2.Location = New System.Drawing.Point(0, 264)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(696, 136)
        Me.GroupBox2.TabIndex = 5
        Me.GroupBox2.TabStop = False
        '
        'dgdDetail
        '
        Me.dgdDetail.CaptionVisible = False
        Me.dgdDetail.DataMember = ""
        Me.dgdDetail.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgdDetail.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdDetail.Location = New System.Drawing.Point(3, 17)
        Me.dgdDetail.Name = "dgdDetail"
        Me.dgdDetail.Size = New System.Drawing.Size(690, 116)
        Me.dgdDetail.TabIndex = 0
        '
        'frmBillList
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(696, 397)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.grbSearch)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "frmBillList"
        Me.Text = "物料清单（产品结构维护）"
        Me.grbSearch.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.dgdDetail, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmBillList_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Dim db As DataBase = New DataBase
        Dim strSQL As String
        strSQL = "select a.物料编号,物料名称,父项编号,"
        strSQL += "需要数量,a.低层码,领料车间,领料库房,"
        strSQL += "损耗率,审核日期 from 物料清单 as a ,"
        strSQL += "物料主文件 as b where a.物料编号 = b.物料编号"
        dvMasterList = db.RunSelectSQL(strSQL)
        db.Dispose()
        '初始化TreeView控件的各个节点
        trvList.Nodes(0).Tag = New TreeNodeData("0", "", _
        "全部产品", "", "0", "", "", "", "")
        InitTree(trvList.Nodes(0).Nodes, "0", "0")
    End Sub
    'InitTree是用递归方法初始化TreeView控件的节点
    Private Sub InitTree(ByRef nodes As TreeNodeCollection, _
    ByVal sParentIndex As String, ByVal sCode As String)
        Try
            Dim tmpNode As TreeNode
            Dim Id As String
            Dim dvTemp As DataView = dvMasterList.Table.DefaultView
            '选出数据源中ParentIndex为sParentIndex数据行