xmb_wenyuanluru.vb

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

        '
        'xmb_wenyuanluru
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(792, 502)
        Me.Controls.Add(Me.DataGrid2)
        Me.Controls.Add(Me.GroupBox4)
        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.TextBox16)
        Me.Controls.Add(Me.Label19)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox1)
        Me.ForeColor = System.Drawing.SystemColors.ControlText
        Me.MaximizeBox = False
        Me.Name = "xmb_wenyuanluru"
        Me.Text = "请购单录入界面"
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        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 yusuan_zhubiao where 标志 =" + 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 = Trim(mydataset.Tables(0).Rows(i)("工程编码"))

            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 编号,费用编码,[CD1+2编码],[CD3+4编码],物品名称,参数,数量 from qg_huowu_xiangxiqingkuang  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
            qg_pub_str = ComboBox3.Text.Trim
        End If
        If qg_pub_str = "现有请购单" Then
            MsgBox("请选择请购单编号！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If


        Dim myform As New qg_wupinluru
        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中显示现在有的请购单
            Button2.Enabled = False
            Button3.Enabled = True
            Button1.Enabled = True
            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 qinggou_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 qinggou_zongbiao 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
                Dim tuihui_frm As New tuihui_frm
                pub_str = ComboBox3.Text.Trim '得到工程编号
                pub_str_yijian = "项目经理审批意见"
                qg_pub_biaoming = "qinggou_zongbiao"
                qg_pub_zidun = "请购单编号"

                tuihui_frm.Show()


            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
        End If
        Dim str As String
        str = "select * from qinggou_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)("送货地点")
        TextBox12.Text = mydataset.Tables(0).Rows(0)("其它事项")
        mydataset.Dispose()
    End Sub

    '新建采购单号
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox16.ReadOnly = False
        TextBox16.Enabled = True
        TextBox17.Enabled = False
        Button3.Enabled = False
        Button2.Enabled = True
        RadioButton2.Checked = False
        DataGrid1.Enabled = False


    End Sub


    '保存新建的请购单
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox17.Enabled = True

        Button3.Enabled = True

        '判断请购单号有没有填写
        If TextBox16.Text.Trim = "" Then
            MsgBox("请购单编号不能为空，请输入请购单编号！", MsgBoxStyle.Information, "提示！")
            TextBox16.Focus()
            Exit Sub
        End If

        '判断该请购单好是否存在
        Dim sstr As String
        sstr = "select * from qinggou_zongbiao where 请购单编号 = " + Chr(39) + TextBox16.Text.Trim + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(sstr)
        If mydataset.Tables(0).Rows.Count > 0 Then
            MsgBox("该请购单编号已经存在，请输入其它请购单编号！", MsgBoxStyle.Information, "提示！")
            TextBox16.Focus()
            Exit Sub
        End If
        mydataset.Dispose()
        '保存新建的请购单的信息
        Dim sqlstr As String
        sqlstr = "INSERT INTO qinggou_zongbiao " & _
        "(请购单编号,工程编号,工程名称,送货地点,其它事项,订购日期) " & _
        "VALUES ('" & Me.TextBox16.Text.Trim & "','" & Me.ComboBox2.Text.Trim & "','" & Me.TextBox2.Text.Trim & "','" & Me.TextBox10.Text.Trim & "','" & Me.TextBox12.Text.Trim & "','" & Me.DateTimePicker1.Value.Date & "')"
        If UpdateData(sqlstr) = False Then
            MsgBox("没有成功添加了该信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Exit Sub
        Else
            MsgBox("请购单保存成功，请双击-货描-文本筐，填写具体请购物品！", MsgBoxStyle.Information, "提示！")
            Button2.Enabled = False
            RadioButton2.Checked = True
        End If




    End Sub

    '已经提交请购单
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        ComboBox1.Text = "已提交请购单"
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False


        Dim str As String
        str = "select 请购单编号 from qinggou_zongbiao where 流程 <> " + Chr(39) + "0" + Chr(39) + "and 是否分离 = 0"
        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
        TextBox16.Text = "qg_" + ComboBox2.Text.Trim
        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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sqlstr As String
        sqlstr = "UPDATE qinggou_zongbiao SET  工程编号=" + Chr(39) + Trim(ComboBox2.Text) + Chr(39) + ",工程名称=" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",送货地点=" + Chr(39) + Trim(TextBox10.Text) + Chr(39) + ",其它事项=" + Chr(39) + Trim(TextBox12.Text) + Chr(39) + ",订购日期=" + Chr(39) + Trim(DateTimePicker1.Value.Date) + Chr(39) + "where 请购单编号=" + Chr(39) + Trim(ComboBox3.Text) + 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 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 qinggou_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
        If RadioButton2.Checked = False Or ComboBox3.Text = "现有请购单" Then
            MsgBox("请选择要提交的请购单号！", MsgBoxStyle.Information, "提示！")
            Exit Sub
        End If
        baobiao_str = ComboBox3.Text.Trim
        '显示报表
        Dim myform As New qg_baobiao
        myform.Show()

    End Sub
End Class