qg_caigoubuwenyuanluru.vb

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

        Me.TextBox7.TabIndex = 105
        Me.TextBox7.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(48, 432)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(144, 16)
        Me.Label3.TabIndex = 104
        Me.Label3.Text = "最终该供应商优惠总金额"
        '
        'Button5
        '
        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button5.ForeColor = System.Drawing.Color.Red
        Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button5.Location = New System.Drawing.Point(400, 424)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(136, 32)
        Me.Button5.TabIndex = 104
        Me.Button5.Tag = ""
        Me.Button5.Text = "单价录完后填写确认"
        Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox3
        '
        Me.GroupBox3.Location = New System.Drawing.Point(8, 408)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(648, 64)
        Me.GroupBox3.TabIndex = 106
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "供应商实际"
        '
        'qg_caigoubuwenyuanluru
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 486)
        Me.Controls.Add(Me.DataGrid2)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.Label19)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.GroupBox3)
        Me.MaximizeBox = False
        Me.Name = "qg_caigoubuwenyuanluru"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text = "采购部门单价录入"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim astr As String
    '该窗体的的load事件
    Private Sub qg_caigoubuwenyuanluru_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        TextBox16.Text = qg_pub_str
        ' Label8.Text = qg_pub_gongyingshang
        xianshiyusuanshuju()
        gongyingshangxinxi() '得到所有供应商的名称,读到TextBox8中
    End Sub

    '得到所有供应商的名称,读到TextBox8中
    Private Sub gongyingshangxinxi()
        Dim str As String
        Dim mydataset As New DataSet
        str = "select 名称,供应商编号 from  gongyingshangxinxi"
        mydataset = GetDataFromDB(str)


        TextBox8.Items.Clear()
        Dim y As Integer = mydataset.Tables(0).Rows.Count
        Dim i As Integer
        For i = 0 To (y - 1)
            Dim sstr As String = Trim(mydataset.Tables(0).Rows(i)("名称"))
            TextBox8.Items.Add(sstr)

        Next

        mydataset.Dispose()
    End Sub

    '显示工程预算数据
    Private Sub xianshiyusuanshuju()
        Dim str As String
        Dim mydataset As New DataSet

        str = "select 编号,[CD3+4编码],物品名称,参数,数量,备注 from cq_huowu_xiangxiqingkuangbiao where 采购单编号 =" + Chr(39) + TextBox16.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)

        DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub







    '当DataGrid当前单元格变化的时候响应事件
    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged




        TextBox2.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1))
        TextBox3.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3))
        TextBox5.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4))
        TextBox4.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2))





    End Sub

    '当DataGrid当前单元格变化的时候响应事件
    Private Sub DataGrid2_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid2.CurrentCellChanged

        Button6.Enabled = True
        ' ComboBox2.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1))

        ' ComboBox3.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2))
        TextBox2.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 2))
        TextBox3.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 4))
        TextBox5.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 5))
        TextBox4.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 3))

        TextBox1.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 7))
        '  TextBox6.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 10))

        astr = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 0))
    End Sub




    '录入操作，其实就是更新
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If TextBox8.Text.Trim = "" Or TextBox8.Text.Trim = "供应商名称" Then
            MsgBox("请输入正确的供购商名称！", MsgBoxStyle.Information, "提示！")
            TextBox8.Focus()
            Exit Sub
        End If

        Dim sqlstr As String
        sqlstr = "UPDATE dinggou_cailiao_baojiadan SET   供应商名称 =" + Chr(39) + Trim(TextBox8.Text) + Chr(39) + ",供应商单价 =" + Chr(39) + Trim(TextBox1.Text) + Chr(39) + ",供应商金额 =" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + "  where 编号=" + Chr(39) + astr + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功更新该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新成功")
            xianshi_danjia_xinxi() ''显示物品单价信息
        Else
            MsgBox("没有成功更新该信息", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "更新不成功")
            Exit Sub
        End If
    End Sub


    '返回上级窗体

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("每个供应商的优惠总金额是否已经填写？", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
            Dim myform As New qg_caigoubumen_wenyuanzongbiao
            myform.Show()
            Me.Dispose()
        Else
            MsgBox("请选择每个供应商后填写！", MsgBoxStyle.Information, "提示")
        End If


    End Sub


    '从TextBox1输入数字，在TextBox5中显示得到的计算结果

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text.Trim = "" Then
            TextBox6.Text = ""
            Exit Sub
        End If
        Dim str1 As String = TextBox1.Text
        Dim y As Integer = str1.Length
        Dim sstr As String
        Dim i As Integer
        Dim yy As Integer = 0
        For i = 1 To y
            sstr = Microsoft.VisualBasic.Mid(str1, i, 1)
            If sstr = "0" Or sstr = "1" Or sstr = "2" Or sstr = "3" Or sstr = "4" Or sstr = "5" Or sstr = "6" Or sstr = "7" Or sstr = "8" Or sstr = "9" Or sstr = "." Then
                If sstr = "." Then
                    yy = yy + 1
                    If yy = 2 Then
                        MsgBox("已经有了--.--,不能再输入了！", MsgBoxStyle.Information, "提示")
                        TextBox1.Focus()
                        Exit Sub
                    End If
                End If
            Else
                MsgBox("请输入正确的数字，特别要分清----。----和---.----", MsgBoxStyle.Information, "提示")
                TextBox1.Focus()
                Exit Sub
            End If
        Next
        Dim str2 As String = TextBox5.Text
        Dim int1 As Decimal
        Dim int2 As Decimal

        Dim int As Decimal
        int1 = Convert.ToDecimal(str2)
        int2 = Convert.ToDecimal(str1)
        int = int1 * int2
        TextBox6.Text = int.ToString

    End Sub


    '添加供应商信息
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If MsgBox("确认选择项中没有要选择的供应商信息了吗？", MsgBoxStyle.OKCancel, "提示！") = MsgBoxResult.OK Then

            Dim myform As New gongyingshang_xinxi
            myform.Show()

        Else

            Exit Sub
        End If
    End Sub


    '刷新
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox16.Text = qg_pub_str
        ' Label8.Text = qg_pub_gongyingshang
        xianshiyusuanshuju()
        gongyingshangxinxi() '得到所有供应商的名称
    End Sub


    '保  存
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox8.Text = "供应商名称" Then
            MsgBox("请选择供应商，如果没有请自己添加！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        Dim mysql As String
        mysql = "select * from dinggou_cailiao_baojiadan where 采购单编号=" + Chr(39) + Me.TextBox16.Text.Trim + Chr(39) + " and  参数=" + Chr(39) + TextBox3.Text.Trim + Chr(39) + " and  [CD3+4编码]=" + Chr(39) + TextBox2.Text.Trim + Chr(39) + " and  供应商名称 =" + Chr(39) + TextBox8.Text.Trim + Chr(39)
        If GetDataFromDB(mysql).Tables(0).Rows.Count <> 0 Then
            MsgBox("该信息已经添加，如果想修改请使用--更新--按钮", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        Dim sqlstr As String

        sqlstr = "INSERT INTO dinggou_cailiao_baojiadan " & _
        "(采购单编号,[CD3+4编码],物品名称,参数,数量,供应商名称,供应商单价,供应商金额) " & _
        "VALUES ('" & Me.TextBox16.Text.Trim & "','" & Me.TextBox2.Text.Trim & "','" & Me.TextBox4.Text.Trim & "','" & Me.TextBox3.Text.Trim & "','" & Me.TextBox5.Text.Trim & "','" & TextBox8.Text.Trim & "','" & TextBox1.Text & "','" & TextBox6.Text.Trim & "')"
        If UpdateData(sqlstr) = True Then
            MsgBox("成功添加了单价信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")

            xianshi_danjia_xinxi() '显示物品单价信息

        End If
    End Sub

    '显示物品单价信息
    Private Sub xianshi_danjia_xinxi()
        Dim str As String
        Dim mydataset As New DataSet

        str = "select * from dinggou_cailiao_baojiadan where 采购单编号 =" + Chr(39) + TextBox16.Text.Trim + Chr(39) + " and 供应商名称 =" + Chr(39) + TextBox8.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)

        DataGrid2.DataSource = mydataset
        mydataset.Dispose()
    End Sub

    '根据供应商，显示该订购单对应该供应商的订购信息
    Private Sub TextBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.SelectedIndexChanged
        xianshi_danjia_xinxi() '显示物品单价信息

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If TextBox8.Text = "供应商名称" Then
            MsgBox("请选择供应商！", MsgBoxStyle.Information, "提示")
            Exit Sub
        Else
            If TextBox7.Text = "" Then
                MsgBox("请填写最终优惠金额！", MsgBoxStyle.Information, "提示")
                Exit Sub
            Else


            End If
            Dim sqlstr As String
            sqlstr = "INSERT INTO dg_gongyingshang_youhuijia " & _
                  "(订购单编号,供应商名称,优惠后金额) " & _
                  "VALUES ('" & Me.TextBox16.Text.Trim & "','" & Me.TextBox8.Text.Trim & "','" & Me.TextBox7.Text.Trim & "')"
            If UpdateData(sqlstr) = True Then
                MsgBox("成功添加了金额信息！", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "添加成功")



            End If
        End If
    End Sub
End Class