qg_caigoubumen_wenyuanzongbiao.vb

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

            MsgBox("请选择订购单编号！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If


        Dim myform As New qg_caigoubuwenyuanluru
        myform.Show()
        Me.Dispose()
    End Sub


    '在ComboBox3中显示现在有的请购单
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            xianshiqinggoudan_cmb3() '在ComboBox3中显示现在有的请购单

            TextBox17.Enabled = True


            DataGrid1.Enabled = True
            ComboBox3.Text = "现有采购单"
        End If
    End Sub


    '在ComboBox3上显示所有正在录入的请购编号
    Private Sub xianshiqinggoudan_cmb3()
        Dim str As String = "select 采购单编号 from dinggou_zongbiao where 流程 = " + Chr(39) + "0" + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        Dim i As Integer = 0
        Dim y As Integer = mydataset.Tables(0).Rows.Count
        Me.ComboBox3.Items.Clear()
        For i = 0 To (y - 1)
            Dim sstr As String = Trim(mydataset.Tables(0).Rows(i)("采购单编号"))
            ComboBox3.Items.Add(sstr)
        Next
        mydataset.Dispose()
    End Sub

    '根据请购单编号，显示请购单的内容
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        '判断是否是退回审批
        If Me.RadioButton2.Checked = True Then
            Dim mystr As String
            mystr = "select * from dinggou_zongbiao where  采购单编号 =" + Chr(39) + ComboBox3.Text.Trim + Chr(39) + " and 是否为退回 =" + Chr(39) + "1" + Chr(39)
            Dim mydataset As New DataSet
            mydataset = GetDataFromDB(mystr)
            If GetDataFromDB(mystr).Tables(0).Rows.Count <> 0 Then
                MsgBox("此为退回采购单！", MsgBoxStyle.Information, "提示")

            End If


            mydataset.Dispose()
        End If
        xianshigongyingshang_mingcheng() '显示每个采购单的所有已经填写的供应商名称
        xianzhiqinggoudanzhudanneirong() '显示请购单主单内容
    End Sub


    '显示每个采购单的所有已经填写的供应商名称
    Private Sub xianshigongyingshang_mingcheng()
        Dim str As String
        Dim mystr As String
        Dim mydataset As New DataSet
        Dim i, y, h, x As Integer
        Dim ssstr As String
        If RadioButton2.Checked = True Then
            ssstr = ComboBox3.Text.Trim
        ElseIf RadioButton1.Checked = True Then
            ssstr = ComboBox1.Text.Trim
        End If
        str = "select 供应商名称 from dinggou_cailiao_baojiadan where 采购单编号 = " + Chr(39) + ssstr + Chr(39)
        mydataset = GetDataFromDB(str)
        y = mydataset.Tables(0).Rows.Count
        If y = 0 Then
            mydataset.Clear()
            DataGrid1.DataSource = mydataset
        End If
        ComboBox4.Items.Clear()
        For i = 0 To y - 1
            x = ComboBox4.Items.Count

            mystr = Trim(mydataset.Tables(0).Rows(i)("供应商名称"))

            If x = 0 Then
                ComboBox4.Items.Add(mystr)
            Else

                For h = 0 To x - 1
                    ComboBox4.SelectedIndex = h
                    If ComboBox4.Text.Trim = mystr Then
                        Exit For
                    Else
                        If h = x - 1 Then
                            ComboBox4.Items.Add(mystr)
                        End If
                    End If

                Next

                ' If ComboBox4.Items.IndexOf(mystr) <> 0 Then
                ' ComboBox4.Items.Add(mystr)

                '  End If  
            End If
        Next
    End Sub



    '显示请购单主单内容
    Private Sub xianzhiqinggoudanzhudanneirong()
        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 * from dinggou_zongbiao where 采购单编号=" + Chr(39) + ssstr + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)

        DataGrid2.DataSource = mydataset

        ComboBox2.Text = mydataset.Tables(0).Rows(0)("工程编号")
        TextBox2.Text = mydataset.Tables(0).Rows(0)("工程名称")
        TextBox10.Text = mydataset.Tables(0).Rows(0)("送货地点")

        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("订购日期")
        ComboBox5.Text = mydataset.Tables(0).Rows(0)("是否含运费")
        TextBox1.Text = mydataset.Tables(0).Rows(0)("发票方式")
        DateTimePicker2.Value = mydataset.Tables(0).Rows(0)("需货日期")
        TextBox3.Text = mydataset.Tables(0).Rows(0)("付款方式")
        TextBox10.Text = mydataset.Tables(0).Rows(0)("送货地点")
        TextBox4.Text = mydataset.Tables(0).Rows(0)("工地收货人")
        TextBox5.Text = mydataset.Tables(0).Rows(0)("收货人联系方式")
        TextBox12.Text = mydataset.Tables(0).Rows(0)("备注")

        mydataset.Dispose()
    End Sub




    '已经提交请购单
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            ComboBox1.Text = "已提交采购单"



            Dim str As String
            str = "select 采购单编号 from dinggou_zongbiao where 流程 > " + Chr(39) + "0" + Chr(39)
            Dim mydataset As New DataSet
            mydataset = GetDataFromDB(str)


            Dim i As Integer = 0
            Dim y As Integer = mydataset.Tables(0).Rows.Count
            Me.ComboBox1.Items.Clear()
            For i = 0 To (y - 1)
                Dim sstr As String = Trim(mydataset.Tables(0).Rows(i)("采购单编号"))
                ComboBox1.Items.Add(sstr)
            Next

            mydataset.Dispose()
        End If
    End Sub

    '由工程编号得到工程名称
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim str As String = "select 工程名称 from technologyInf where 工程编号 = " + Chr(39) + ComboBox2.Text.Trim + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
        mydataset.Dispose()
    End Sub


    '改变已提交请购编号，显示详细的请购信息
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text.Trim = "已提交采购单" Then
            Exit Sub

        End If
        xianshigongyingshang_mingcheng() '显示每个采购单的所有已经填写的供应商名称

        xianshigongyingshang_mingcheng() '显示每个采购单的所有已经填写的供应商名称
        xianzhiqinggoudanzhudanneirong() '显示请购单主单内容

    End Sub

    '提交请购单，如果“现有请购单”没有被选中，或者选中了，但他的text为“现有请购单”，则不能进行提交
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If RadioButton2.Checked = False Or ComboBox3.Text = "现有请购单" Then
            MsgBox("请选择要提交的请购单号！", MsgBoxStyle.Information, "提示！")
            Exit Sub
        End If


        If MsgBox("注意：请再好好复查一下，如果确定无误后再提交，提交后你将不能再进行修改了。你确定要提交吗？", MsgBoxStyle.OKCancel, "提示") = MsgBoxResult.OK Then
            Dim sqlstr As String
            Dim mysqlstr As String
            sqlstr = "UPDATE dinggou_zongbiao SET  采购文员录入价格时间=" + Chr(39) + Now + Chr(39) + " , 采购文员 =" + Chr(39) + UserName + Chr(39) + ",流程=" + Chr(39) + "1" + Chr(39) + ",是否为退回=" + Chr(39) + "0" + Chr(39) + "where 采购单编号=" + Chr(39) + ComboBox3.Text.Trim + Chr(39)

            If UpdateData(sqlstr) = True Then
                MsgBox("已经成功提交了该采购资料", MsgBoxStyle.OKOnly + _
                MsgBoxStyle.Exclamation, "提示")
                Me.RadioButton1.Checked = True
            Else
                MsgBox("没有成功提交该采购资料，请与管理员联系", MsgBoxStyle.OKOnly + _
                            MsgBoxStyle.Exclamation, "提示")
                Exit Sub
            End If
        Else
            Exit Sub
        End If




    End Sub

    '更新信息
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim sqlstr As String
        sqlstr = "UPDATE dinggou_zongbiao SET   订购日期 =" + Chr(39) + Trim(DateTimePicker1.Value.Date) + Chr(39) + ",是否含运费 =" + Chr(39) + Trim(ComboBox5.Text.Trim) + Chr(39) + ",发票方式 =" + Chr(39) + Trim(TextBox1.Text.Trim) + Chr(39) + ",需货日期 =" + Chr(39) + Trim(DateTimePicker2.Value.Date) + Chr(39) + ",付款方式 =" + Chr(39) + Trim(TextBox3.Text) + Chr(39) + ",送货地点 =" + Chr(39) + Trim(TextBox10.Text) + Chr(39) + ",工地收货人 =" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",收货人联系方式 =" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",备注 =" + Chr(39) + Trim(TextBox12.Text) + Chr(39) + "  where 采购单编号=" + Chr(39) + ComboBox3.Text.Trim + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功更新该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新")


        Else
            MsgBox("没有成功更新该信息", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "更新")
            Exit Sub
        End If
    End Sub



    '根据供应商的名称显示具体的采购信息，包含单价，金额等等
    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        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 = "select * from dinggou_cailiao_baojiadan where 采购单编号 = " + Chr(39) + ssstr + Chr(39) + " and 供应商名称 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        DataGrid1.DataSource = mydataset
        Dim i As Integer
        Dim mystr As String
        Dim int1 As Decimal = 0
        Dim int As Decimal = 0
        Dim y As Integer = mydataset.Tables(0).Rows.Count
        If y = 0 Then
            TextBox6.Text = "0"
        Else
            For i = 0 To y - 1
                mystr = mydataset.Tables(0).Rows(i)("供应商金额")
                int1 = Convert.ToDecimal(mystr)
                int = int1 + int
                TextBox6.Text = int.ToString
            Next
        End If
        mydataset.Dispose()


        '显示优惠后总金额
        Dim sstr As String = "select * from dg_gongyingshang_youhuijia where 订购单编号 = " + Chr(39) + ssstr + Chr(39) + " and 供应商名称 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        Dim myddataset As New DataSet
        myddataset = GetDataFromDB(sstr)
        Dim yy As Integer = myddataset.Tables(0).Rows.Count
        If yy = 0 Then
            MsgBox("您还没有填写该供应商的优惠总价！", MsgBoxStyle.Information, "提示")
            TextBox7.Text = ""
            Exit Sub
        Else
            TextBox7.Text = myddataset.Tables(0).Rows(0)("优惠后金额")
            myddataset.Dispose()
        End If

      

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton2.Checked = False Or ComboBox3.Text.Trim = "现有订购单" Then
            MsgBox("你还没有选择订购单号！", MsgBoxStyle.Information, "提示")
            Exit Sub
        ElseIf ComboBox4.Text.Trim = "供应商信息" Then
            MsgBox("你还没有选择供应商名称！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        baobiao_str = ComboBox3.Text.Trim '现有订购单信息
        baobiao_str1 = ComboBox4.Text.Trim '现有供应商信息

        Dim myform As New frm_dg_baobiao
        myform.Show()

    End Sub
End Class