qg_neibei_feilei.vb

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

        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(304, 220)
        Me.ListBox1.TabIndex = 0
        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.ForeColor = System.Drawing.Color.Navy
        Me.Button3.Location = New System.Drawing.Point(240, 440)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 24)
        Me.Button3.TabIndex = 14
        Me.Button3.Text = "退回请购单"
        '
        'Button4
        '
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button4.ForeColor = System.Drawing.Color.Navy
        Me.Button4.Location = New System.Drawing.Point(456, 440)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 24)
        Me.Button4.TabIndex = 16
        Me.Button4.Text = "生成订购单"
        '
        'qg_neibei_feilei
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(776, 478)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.MaximizeBox = False
        Me.Name = "qg_neibei_feilei"
        Me.Text = "请购单类别分类(!)"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim str4 As String



    '得到请购单号，读入ListBox1中，显示格式为“”
    Private Sub dedaoQinggoudanhao()
        Dim strSQL As String

        strSQL = "SELECT [CD3+4编码] ,物品名称,参数,数量 FROM qg_huowu_xiangxiqingkuang where 请购单编号 = " + Chr(39) + TextBox1.Text.Trim + Chr(39)
        objDataSet.Clear()
        objDataSet = GetDataFromDB(strSQL)
        Dim strTemp As String
        Dim count, i As Integer
        count = objDataSet.Tables(0).Rows.Count
        If count <= 0 Then
            Exit Sub
        End If
        ListBox1.Items.Clear()
        For i = 0 To count - 1
            strTemp = Trim(objDataSet.Tables(0).Rows(i)("CD3+4编码"))
            strTemp = strTemp & " / " & objDataSet.Tables(0).Rows(i)("物品名称")
            strTemp = strTemp & " / " & objDataSet.Tables(0).Rows(i)("参数")
            strTemp = strTemp & " / " & objDataSet.Tables(0).Rows(i)("数量")
            Me.ListBox1.Items.Add(strTemp)
        Next
    End Sub


    '从listbox1中选择信息录入listbox2中
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        Dim strtemp As String
        strtemp = Me.ListBox1.SelectedItem
        Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)
        If strtemp Is Nothing Then
            MsgBox("请购单中没有请购信息")
            Exit Sub
        End If
        strtemp = strtemp + "/"
        Me.ListBox2.Items.Add(strtemp)

    End Sub


    '去除listbox2中选择项
    Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
        Dim strtemp As String
        strtemp = Me.ListBox2.SelectedItem
        Me.ListBox2.Items.Remove(Me.ListBox2.SelectedItem)
        If strtemp Is Nothing Then
            MsgBox("订购单中没有订购信息")
            Exit Sub
        End If
        Dim i As Integer
        i = strtemp.Length
        strtemp = Microsoft.VisualBasic.Mid(strtemp, 1, i - 1)
        Me.ListBox1.Items.Add(strtemp)
    End Sub


    '退回，打开一个窗体，可以输入退回理由
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Dispose()
    End Sub

  

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles ListBox1.DoubleClick

        Button1_Click(Nothing, Nothing)

    End Sub




    '从一段字符中到/前的的字符串
    Private Sub quzifu(ByVal a As String)
        Dim temp As String
        Dim aint As Integer = a.Length
        Dim i As Integer = 0
        Dim y As Integer = 0

        Dim c As String
        
            For y = 0 To 3
            c = a.Substring(0, a.IndexOf("/"))
                temp = a.Remove(0, c.Length + 1)
                i = i + c.Length + 1
                If y = 0 Then
                    str1 = c.Trim
                ElseIf y = 1 Then
                    str2 = c.Trim
                ElseIf y = 2 Then
                    str3 = c.Trim
                Else
                    str4 = c.Trim

            End If
            a = temp

        Next

    End Sub



    '根据请购单号，显示该"请购单物品信息"和“工程其它信息”
    Private Sub TextBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.SelectedIndexChanged
        TextBox2.Text = TextBox1.Text.Trim
        Dim y As Integer = ListBox1.Items.Count

        Me.ListBox2.Items.Clear()
        qinggoudanxinxin() '得到请购单的基本信息，录入显示到窗体的text中
        dedaoQinggoudanhao() '得到请购单号，读入ListBox1中，显示格式为“”
    End Sub


    '得到请购单的基本信息，录入显示到窗体中
    Private Sub qinggoudanxinxin()
        Dim str As String

        str = "select 工程编号,工程名称,送货地点,付款期限,订购日期 from qinggou_zongbiao where 请购单编号 = " + Chr(39) + TextBox1.Text.Trim + Chr(39)
        objDataSet = GetDataFromDB(str)
        TextBox3.Text = objDataSet.Tables(0).Rows(0)("工程编号")
        TextBox4.Text = objDataSet.Tables(0).Rows(0)("工程名称")
        TextBox5.Text = objDataSet.Tables(0).Rows(0)("送货地点")
        TextBox6.Text = objDataSet.Tables(0).Rows(0)("付款期限")
        DateTimePicker1.Text = objDataSet.Tables(0).Rows(0)("订购日期")
        objDataSet.Clear()
    End Sub



    '生成订购单
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i As Integer
        Dim y As Integer = ListBox2.Items.Count
        Dim x As Integer = ListBox1.Items.Count
        Dim mysttr As String
        If Me.ListBox2.Items.Count = 0 Then
            MsgBox("还没有选择物品，请先选择物品。", MsgBoxStyle.Exclamation + _
            MsgBoxStyle.OKOnly, "未选择物品")
            Exit Sub
        End If

      

        If Trim(Me.TextBox2.Text) = "" Then
            MsgBox("请输入订购单号！", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "订购单号为空")
            Exit Sub
        End If

        Dim sqlstr As String = "SELECT * FROM dinggou_zongbiao WHERE 采购单编号=" & _
        "'" & Trim(TextBox2.Text) & "'"
        Dim ds As New DataSet
        ds.Clear()
        ds = GetDataFromDB(sqlstr)
        If ds.Tables(0).Rows.Count <> 0 Then
            MsgBox("该订购单号已经存在，请重新输入订购单号。", MsgBoxStyle.Exclamation _
            + MsgBoxStyle.OKOnly, "订购单存在")
            ds.Dispose()
            Exit Sub
        End If


        sqlstr = "INSERT INTO dinggou_zongbiao " & _
        "(采购单编号,工程编号,工程名称,送货地点,付款期限,需货日期) " & _
        "VALUES ('" & Me.TextBox2.Text.Trim & "','" & Me.TextBox3.Text.Trim & "','" & Me.TextBox4.Text.Trim & "','" & Me.TextBox5.Text.Trim & "','" & Me.TextBox6.Text.Trim & "','" & DateTimePicker1.Value.ToString & "')"
        Dim mysqlstr As String
        For i = 0 To y - 1
            mysttr = Me.ListBox2.Items(i).ToString.Trim
            quzifu(mysttr)
            mysqlstr = "INSERT INTO cq_huowu_xiangxiqingkuangbiao " & _
                    "(采购单编号,[CD3+4编码],物品名称,参数,数量,采购单录入日期) " & _
                    "VALUES ('" & Me.TextBox2.Text.Trim & "','" & str1 & "','" & str2 & "','" & str3 & "','" & str4 & "','" + Now.Date.ToString + "')"

            If UpdateData(mysqlstr) = False Then
                MsgBox("不能添加添加或修改成功！", MsgBoxStyle.Information, "提示")
                Exit Sub


            End If
        Next
        ListBox2.Items.Clear() '清空listbox


        If UpdateData(sqlstr) = True And Me.ListBox1.Items.Count = 0 And RadioButton2.Checked = True Then
            
                Dim str As String
            str = "update qinggou_zongbiao set 是否分离=" + Chr(39) + "1" + Chr(39) + " , 流程 = " + Chr(39) + "4" + Chr(39) + "where 请购单编号 =" + Chr(39) + TextBox1.Text.Trim + Chr(39)
            If UpdateData(str) = False Then
                MsgBox("不能成功更新---请购总表的--是否分离，请与管理员联系！", MsgBoxStyle.Information, "提示！")
            Else
                MsgBox("祝贺你，分离成功,现在可以寻价，并录入订购物品单价！", MsgBoxStyle.Information, "提示！")
            End If

        End If

    End Sub


    '双击，让 ListBox2中的信息，录入到 ListBox1
    Private Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
        Button2_Click(Nothing, Nothing)
    End Sub



    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If Me.RadioButton2.Checked = True Then
            TextBox1.Text = "已有请购单号"
            Dim str As String
            Dim mydataset As New DataSet
            str = "select 请购单编号 from qinggou_zongbiao where 流程 = " + Chr(39) + "3" + Chr(39) + " and 是否分离 =" + Chr(39) + "0" + Chr(39)
            mydataset = GetDataFromDB(str)

            Dim sstr As String
            Dim i As Integer
            Dim y As Integer = mydataset.Tables(0).Rows.Count
            TextBox1.Items.Clear()
            For i = 0 To (y - 1)
                sstr = Trim(mydataset.Tables(0).Rows(i)("请购单编号"))
                TextBox1.Items.Add(sstr)
            Next
            mydataset.Clear()
            mydataset.Dispose()
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If Me.RadioButton1.Checked = True Then
            ComboBox1.Text = "已有订购单号"
            Dim str As String
            Dim mydataset As New DataSet
            str = "select 采购单编号 from dinggou_zongbiao where 流程 = " + Chr(39) + "0" + Chr(39) + " and 工程编号 =" + Chr(39) + TextBox3.Text.Trim + Chr(39)
            mydataset = GetDataFromDB(str)

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


End Class