qg_caigoubumen_wenyuanzongbiao.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Me.Label7.Location = New System.Drawing.Point(424, 48)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(64, 24)
        Me.Label7.TabIndex = 87
        Me.Label7.Text = "需货日期"
        '
        'Label6
        '
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(232, 48)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(72, 24)
        Me.Label6.TabIndex = 86
        Me.Label6.Text = "发票方式"
        '
        'Label5
        '
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(24, 48)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 24)
        Me.Label5.TabIndex = 85
        Me.Label5.Text = "是否含运费"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Location = New System.Drawing.Point(496, 16)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(152, 21)
        Me.DateTimePicker1.TabIndex = 84
        '
        'Label4
        '
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(424, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(64, 24)
        Me.Label4.TabIndex = 83
        Me.Label4.Text = "订购日期"
        '
        'ComboBox5
        '
        Me.ComboBox5.BackColor = System.Drawing.Color.White
        Me.ComboBox5.ForeColor = System.Drawing.SystemColors.WindowText
        Me.ComboBox5.Items.AddRange(New Object() {"含", "不含"})
        Me.ComboBox5.Location = New System.Drawing.Point(104, 48)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(120, 20)
        Me.ComboBox5.TabIndex = 81
        Me.ComboBox5.Text = "是否含运费"
        '
        'TextBox1
        '
        Me.TextBox1.BackColor = System.Drawing.Color.White
        Me.TextBox1.Location = New System.Drawing.Point(304, 48)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(112, 21)
        Me.TextBox1.TabIndex = 81
        Me.TextBox1.Text = "TextBox1"
        '
        'GroupBox1
        '
        Me.GroupBox1.Location = New System.Drawing.Point(16, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(656, 48)
        Me.GroupBox1.TabIndex = 69
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "采购单号选择区域"
        '
        'ComboBox4
        '
        Me.ComboBox4.ImeMode = System.Windows.Forms.ImeMode.Off
        Me.ComboBox4.Location = New System.Drawing.Point(120, 184)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(208, 20)
        Me.ComboBox4.TabIndex = 82
        Me.ComboBox4.Text = "供应商信息"
        '
        'TextBox4
        '
        Me.TextBox4.BackColor = System.Drawing.Color.White
        Me.TextBox4.Location = New System.Drawing.Point(112, 416)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(224, 21)
        Me.TextBox4.TabIndex = 84
        Me.TextBox4.Text = "TextBox4"
        '
        'Label9
        '
        Me.Label9.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label9.Location = New System.Drawing.Point(32, 416)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(72, 24)
        Me.Label9.TabIndex = 83
        Me.Label9.Text = "工地收货人"
        '
        'TextBox5
        '
        Me.TextBox5.BackColor = System.Drawing.Color.White
        Me.TextBox5.Location = New System.Drawing.Point(432, 416)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(224, 21)
        Me.TextBox5.TabIndex = 86
        Me.TextBox5.Text = "TextBox5"
        '
        'Label10
        '
        Me.Label10.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label10.Location = New System.Drawing.Point(352, 416)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(72, 24)
        Me.Label10.TabIndex = 85
        Me.Label10.Text = "联系方式"
        '
        'GroupBox2
        '
        Me.GroupBox2.Location = New System.Drawing.Point(16, 376)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(656, 104)
        Me.GroupBox2.TabIndex = 87
        Me.GroupBox2.TabStop = False
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(16, 80)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(64, 23)
        Me.Button5.TabIndex = 106
        Me.Button5.Text = "更 新"
        '
        'GroupBox4
        '
        Me.GroupBox4.BackColor = System.Drawing.SystemColors.Control
        Me.GroupBox4.Controls.Add(Me.Button2)
        Me.GroupBox4.Controls.Add(Me.Label11)
        Me.GroupBox4.Controls.Add(Me.TextBox7)
        Me.GroupBox4.Controls.Add(Me.Label3)
        Me.GroupBox4.Controls.Add(Me.TextBox6)
        Me.GroupBox4.Controls.Add(Me.Button5)
        Me.GroupBox4.Controls.Add(Me.Button4)
        Me.GroupBox4.Location = New System.Drawing.Point(680, 8)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(96, 472)
        Me.GroupBox4.TabIndex = 107
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "操作区"
        '
        'Label11
        '
        Me.Label11.ForeColor = System.Drawing.Color.Red
        Me.Label11.Location = New System.Drawing.Point(16, 280)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(56, 16)
        Me.Label11.TabIndex = 3
        Me.Label11.Text = "优惠金额"
        '
        'TextBox7
        '
        Me.TextBox7.ForeColor = System.Drawing.Color.Red
        Me.TextBox7.Location = New System.Drawing.Point(16, 312)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(64, 21)
        Me.TextBox7.TabIndex = 2
        Me.TextBox7.Text = "TextBox7"
        '
        'Label3
        '
        Me.Label3.ForeColor = System.Drawing.Color.Red
        Me.Label3.Location = New System.Drawing.Point(24, 200)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 16)
        Me.Label3.TabIndex = 1
        Me.Label3.Text = "总  计"
        '
        'TextBox6
        '
        Me.TextBox6.ForeColor = System.Drawing.Color.Red
        Me.TextBox6.Location = New System.Drawing.Point(16, 232)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.ReadOnly = True
        Me.TextBox6.Size = New System.Drawing.Size(64, 21)
        Me.TextBox6.TabIndex = 0
        Me.TextBox6.Text = "TextBox6"
        '
        'DataGrid2
        '
        Me.DataGrid2.CaptionText = "详细情况表"
        Me.DataGrid2.DataMember = ""
        Me.DataGrid2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.Location = New System.Drawing.Point(16, 480)
        Me.DataGrid2.Name = "DataGrid2"
        Me.DataGrid2.ReadOnly = True
        Me.DataGrid2.Size = New System.Drawing.Size(760, 96)
        Me.DataGrid2.TabIndex = 108
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(32, 184)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(72, 16)
        Me.Label17.TabIndex = 138
        Me.Label17.Text = "选择供货商"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(16, 368)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(64, 24)
        Me.Button2.TabIndex = 108
        Me.Button2.Text = "预 览"
        '
        'qg_caigoubumen_wenyuanzongbiao
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(792, 590)
        Me.Controls.Add(Me.Label17)
        Me.Controls.Add(Me.DataGrid2)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.TextBox17)
        Me.Controls.Add(Me.Label20)
        Me.Controls.Add(Me.TextBox12)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox4)
        Me.MaximizeBox = False
        Me.Name = "qg_caigoubumen_wenyuanzongbiao"
        Me.Text = "采购文员录入总窗体"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    '得到待填写的工程编号
    Private Sub gongchengbianhao()
        Dim mystr As String
        Dim mydataset As New DataSet
        mystr = "select 工程编号 from technologyInf where 请购过程标志 =" + Chr(39) + "1" + Chr(39) + " and 预算过程标志=" + Chr(39) + "6" + Chr(39)
        mydataset = GetDataFromDB(mystr)


        Dim i As Integer
        Dim y As Integer = mydataset.Tables(0).Rows.Count
        Dim str As String
        ComboBox2.Items.Clear()
        For i = 0 To (y - 1)
            str = mydataset.Tables(0).Rows(i)("工程编号")
            str = str.Trim
            ComboBox2.Items.Add(str)
        Next
        mydataset.Dispose()

    End Sub

    '本窗体的load 事件
    Private Sub xmb_wenyuanluru_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gongchengbianhao() '得到待填写的工程编号

    End Sub
    '显示已有请购单的请购内容
    Private Sub xianshicailiaoxinxi()
        Dim ssstr As String
        If RadioButton2.Checked = True Then
            ssstr = ComboBox3.Text.Trim
        ElseIf RadioButton1.Checked = True Then
            ssstr = ComboBox1.Text.Trim
        End If


        Dim str As String
        str = "select 编号,[CD3+4编码],物品名称,参数,数量,[供应商（一）名称],[供应商（一）单价],[供应商（一）金额],[供应商（二）名称],[供应商（二）单价],[供应商（二）金额],[供应商（三）名称],[供应商（三）单价],[供应商（三）金额],[供应商（四）名称],[供应商（四）单价],[供应商（四）金额]  from cq_huowu_xiangxiqingkuangbiao  where 采购单编号=" + Chr(39) + ssstr + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub

    '根据TextBox17，显示物品录入窗口

    Private Sub TextBox17_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox17.DoubleClick

        If MsgBox("供应商是否已经正确选择？", MsgBoxStyle.OKCancel, "确认？") = MsgBoxResult.Cancel Then
            Exit Sub

        End If

        qg_pub_gongyingshang = ComboBox4.Text.Trim
        If RadioButton2.Checked = False Then

        Else
            qg_pub_str = ComboBox3.Text.Trim
        End If
        If qg_pub_str = "现有订购单" Then