caigouwenyuan.vb

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

    '本窗体的load 事件
    Private Sub ys_zhudan_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
        ElseIf RadioButton3.Checked = True Then
            ssstr = ComboBox4.Text.Trim
        End If


        Dim str As String
        str = "select 编号,项目费用编码,[CD1+2编码],[CD3+4编码],设备名称,参数,[预算支出(人民币-元)] from yusuan_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 TextBox16.Text.Trim = "" And RadioButton2.Checked = False Then
            MsgBox("请输入预算单号！", MsgBoxStyle.Information, "提示")
            TextBox16.Focus()
            Exit Sub
        End If


        If RadioButton2.Checked = False Then
            qg_pub_str = TextBox16.Text.Trim
        Else
            pub_str = ComboBox3.Text.Trim '预算编号
            fk_pub_str = ComboBox2.Text.Trim '工程编号
            qg_pub_str = TextBox2.Text.Trim '工程名称
        End If
        If qg_pub_str = "现有预算单号" Then
            MsgBox("请选择预算单号！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If


        Dim myform As New ys_caiguo_luru
        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
            TextBox16.Enabled = False
            DataGrid1.Enabled = True
            ComboBox3.Text = "现有预算单号"
        End If
    End Sub


    '在ComboBox3上显示所有正在录入的请购编号
    Private Sub xianshiqinggoudan_cmb3()
        Dim str As String = "select 预算单编号 from yusuan_zhubiao where 标志 = " + Chr(39) + "3" + 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 yusuan_zhubiao where  预算单编号 =" + Chr(39) + ComboBox3.Text.Trim + Chr(39) + " and 是否为退回 =" + "1"
            Dim mydataset As New DataSet
            mydataset = GetDataFromDB(mystr)

            If mydataset.Tables(0).Rows.Count <> 0 Then
                MsgBox("此为退回预算！", MsgBoxStyle.Information, "提示")
            End If
            mydataset.Dispose()
        End If
        xianshicailiaoxinxi() '根据请购单编号，显示请购单的内容
        xianzhiqinggoudanzhudanneirong() '显示请购单主单内容
    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
        ElseIf RadioButton3.Checked = True Then
            ssstr = ComboBox4.Text.Trim
        End If
        Dim str As String
        str = "select * from yusuan_zhubiao where 预算单编号=" + Chr(39) + ssstr + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)

        DataGrid2.DataSource = mydataset
        TextBox16.Text = ssstr
        ComboBox2.Text = mydataset.Tables(0).Rows(0)("工程编码")
        TextBox2.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
        ComboBox1.Text = "已提交预算单号"
      


        Dim str As String
        str = "select 预算单编号 from yusuan_zhubiao where 标志 > " + Chr(39) + "3" + 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 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
        xianzhiqinggoudanzhudanneirong() '显示请购单内容
        xianshicailiaoxinxi() '根据请购单编号，显示请购单的内容
    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 yusuan_zhubiao SET  采购部人员提交时间=" + Chr(39) + Now + Chr(39) + " , 采购部录入人员 =" + Chr(39) + UserName + Chr(39) + ",标志=" + Chr(39) + "4" + 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
            If MsgBox("您确定不同意提交该消息吗？", MsgBoxStyle.OKCancel, "提示") = MsgBoxResult.OK Then

                Dim sqlstr As String
                sqlstr = "UPDATE yusuan_zhubiao SET  采购部人员提交时间=" + Chr(39) + Now.Date.ToString + Chr(39) + " , 采购部录入人员 =" + Chr(39) + UserName + Chr(39) + ",标志=" + Chr(39) + "1" + Chr(39) + "where 预算单编号=" + Chr(39) + ComboBox3.Text.Trim + Chr(39)
                If UpdateData(sqlstr) = True Then
                    MsgBox("您已经退回了该预算！", MsgBoxStyle.Information, "提示")
                    Exit Sub
                End If
            Else
                MsgBox("请确认后重新提交该预算！", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If

        End If




    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        ComboBox4.Text = "已存在预算单号"



        Dim str As String
        str = "select 预算单编号 from yusuan_zhubiao where 标志 =" + Chr(39) + "2" + 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.ComboBox4.Items.Clear()
        For i = 0 To (y - 1)
            Dim sstr As String = Trim(mydataset.Tables(0).Rows(i)("预算单编号"))
            ComboBox4.Items.Add(sstr)
        Next
        mydataset.Dispose()
    End Sub


    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        If ComboBox4.Text.Trim = "已存在预算单号" Then
            Exit Sub

        End If
        xianzhiqinggoudanzhudanneirong() '显示请购单内容
        xianshicailiaoxinxi() '根据请购单编号，显示请购单的内容
    End Sub

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        Dim ysd_string As String
        If RadioButton2.Checked = False Then
            MsgBox("请选择要分析的哪项！", MsgBoxStyle.Information, "提示")
            Exit Sub
        Else

            ysd_string = ComboBox3.Text.Trim

        End If
        If ysd_string = "现有预算单号" Then
            MsgBox("请选择要分析的预算单！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If


        Dim mydataset As New DataSet
        str = "select sum([预算支出(人民币-元)]) from yusuan_xiangxiqingkuangbiao where 预算单编号 =" + Chr(39) + ysd_string + Chr(39)
        mydataset = GetDataFromDB(str)


        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then


            pub_ys_str = "0"
        Else
            pub_ys_str = mydataset.Tables(0).Rows(0).Item(0)
        End If



        str = "select sum([预算支出(人民币-元)]) from yusuan_xiangxiqingkuangbiao where 项目费用编码 =" + Chr(39) + "100" + Chr(39) + " and 预算单编号 =" + Chr(39) + ysd_string + Chr(39)
        mydataset = GetDataFromDB(str)
        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then
            pub_ys_str1 = "0"
        Else
            pub_ys_str1 = mydataset.Tables(0).Rows(0).Item(0)
        End If

        str = "select sum([预算支出(人民币-元)]) from yusuan_xiangxiqingkuangbiao where 项目费用编码 =" + Chr(39) + "200" + Chr(39) + " and 预算单编号 =" + Chr(39) + ysd_string + Chr(39)
        mydataset = GetDataFromDB(str)
        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then
            pub_ys_str2 = "0"
        Else
            pub_ys_str2 = mydataset.Tables(0).Rows(0).Item(0)
        End If

        str = "select sum([预算支出(人民币-元)]) from yusuan_xiangxiqingkuangbiao where 项目费用编码 =" + Chr(39) + "300" + Chr(39) + " and 预算单编号 =" + Chr(39) + ysd_string + Chr(39)
        mydataset = GetDataFromDB(str)
        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then
            pub_ys_str3 = "0"
        Else
            pub_ys_str3 = mydataset.Tables(0).Rows(0).Item(0)
        End If

        str = "select sum([预算支出(人民币-元)]) from yusuan_xiangxiqingkuangbiao where 项目费用编码 =" + Chr(39) + "400" + Chr(39) + " and 预算单编号 =" + Chr(39) + ysd_string + Chr(39)
        mydataset = GetDataFromDB(str)
        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then
            pub_ys_str4 = "0"
        Else
            pub_ys_str4 = mydataset.Tables(0).Rows(0).Item(0)
        End If

        str = "select sum([预算支出(人民币-元)]) from yusuan_xiangxiqingkuangbiao where 项目费用编码 =" + Chr(39) + "500" + Chr(39) + " and 预算单编号 =" + Chr(39) + ysd_string + Chr(39)
        mydataset = GetDataFromDB(str)
        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then
            pub_ys_str5 = "0"
        Else
            pub_ys_str5 = mydataset.Tables(0).Rows(0).Item(0)
        End If

        Dim myform As New ys_fenxi
        myform.Show()

    End Sub
End Class