qg_wupinluru.vb

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

        '
        'TextBox16
        '
        Me.TextBox16.Location = New System.Drawing.Point(104, 8)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.ReadOnly = True
        Me.TextBox16.Size = New System.Drawing.Size(216, 21)
        Me.TextBox16.TabIndex = 69
        Me.TextBox16.Text = "TextBox16"
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(16, 8)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(80, 24)
        Me.Label19.TabIndex = 68
        Me.Label19.Text = "请购单编号"
        Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'qg_wupinluru
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 406)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.Label19)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.GroupBox2)
        Me.MaximizeBox = False
        Me.Name = "qg_wupinluru"
        Me.Text = "材料选择录入"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

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

        xiangmufeiyong() '得到所有项目费用，并且读到ComboBox2中
        TextBox16.Text = qg_pub_str
        xianshiyusuanshuju()
    End Sub
    '显示工程预算数据
    Private Sub xianshiyusuanshuju()
        Dim str As String
        Dim mydataset As New DataSet
     
        str = "select 编号,费用编码,[CD1+2编码],[CD3+4编码],物品名称,参数,数量,备注 from qg_huowu_xiangxiqingkuang where 请购单编号 =" + Chr(39) + TextBox16.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)

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

    '得到所有项目费用，并且读到ComboBox2中
    Private Sub xiangmufeiyong()
        Dim mystr As String
        Dim mydataset As New DataSet
        mystr = "select 费用编号 from material_zongbiao "
        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 = mydataset.Tables(0).Rows(i)("费用编号")
            str = str.Trim
            ComboBox2.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub
   
    'ComboBox2改变事件
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text.Trim = "400" Or ComboBox2.Text.Trim = "500" Then
            MsgBox("对不起，您没有这个权限对该项预算进行填写！", MsgBoxStyle.Information, "提示")
            ComboBox2.SelectedIndex = 1
            Exit Sub
        End If
        Dim str As String
        Dim mydataset As New DataSet
        str = "select 费用名称 from material_zongbiao where 费用编号 = " + Chr(39) + ComboBox2.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)
        TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("费用名称"))

        Dim str2 As String
        Dim mydataset1 As New DataSet
        str2 = "select [CD1+2编号] from material_cd12 where 费用名称 = " + Chr(39) + TextBox2.Text.Trim + Chr(39)
        mydataset1 = GetDataFromDB(str2)


        Dim i As Integer
        Dim y As Integer = mydataset1.Tables(0).Rows.Count
        Dim str3 As String
        ComboBox3.Items.Clear()

        For i = 0 To (y - 1)
            str3 = mydataset1.Tables(0).Rows(i)("CD1+2编号")
            str3 = str3.Trim
            ComboBox3.Items.Add(str3)
        Next

        mydataset.Dispose()
    End Sub

    'ComboBox3改变事件
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        Dim str As String
        Dim mydataset As New DataSet
        str = "select [CD1+2名称] from material_cd12 where [CD1+2编号] = " + Chr(39) + ComboBox3.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)
        TextBox3.Text = Trim(mydataset.Tables(0).Rows(0)("CD1+2名称"))

        Dim str2 As String
        Dim mydataset1 As New DataSet
        str2 = "select [CD3+4编号] from material_cd34 where [CD1+2名称] = " + Chr(39) + TextBox3.Text.Trim + Chr(39)
        mydataset1 = GetDataFromDB(str2)


        Dim i As Integer
        Dim y As Integer = mydataset1.Tables(0).Rows.Count
        Dim str4 As String
        ComboBox4.Items.Clear()

        For i = 0 To (y - 1)
            str4 = mydataset1.Tables(0).Rows(i)("CD3+4编号")
            str4 = str4.Trim
            ComboBox4.Items.Add(str4)
        Next
        mydataset.Dispose()
    End Sub

    'ComboBox4改变事件
    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Dim str As String
        Dim mydataset As New DataSet
        str = "select [CD3+4名称] from material_cd34 where [CD3+4编号] = " + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)
        TextBox4.Text = Trim(mydataset.Tables(0).Rows(0)("CD3+4名称"))

        Dim str2 As String
        Dim mydataset1 As New DataSet
        str2 = "select 参数 from material_canshu where [CD3+4名称] = " + Chr(39) + TextBox4.Text.Trim + Chr(39)
        mydataset1 = GetDataFromDB(str2)


        Dim i As Integer
        Dim y As Integer = mydataset1.Tables(0).Rows.Count
        Dim str4 As String
        ComboBox5.Items.Clear()

        For i = 0 To (y - 1)
            str4 = mydataset1.Tables(0).Rows(i)("参数")
            str4 = str4.Trim
            ComboBox5.Items.Add(str4)
        Next
        mydataset.Dispose()
    End Sub
    '保存单项预算数据
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mysql As String
        mysql = "select * from qg_huowu_xiangxiqingkuang where 请购单编号=" + Chr(39) + Me.TextBox16.Text.Trim + Chr(39) + " and  参数=" + Chr(39) + ComboBox5.Text.Trim + Chr(39) + " and  [CD3+4编码]=" + Chr(39) + ComboBox4.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 qg_huowu_xiangxiqingkuang " & _
        "(请购单编号,费用编码,[CD1+2编码],[CD3+4编码],物品名称,参数,数量,备注) " & _
        "VALUES ('" & Me.TextBox16.Text.Trim & "','" & Me.ComboBox2.Text.Trim & "','" & Me.ComboBox3.Text.Trim & "','" & Me.ComboBox4.Text.Trim & "','" & Me.TextBox4.Text.Trim & "','" & ComboBox5.Text.Trim & "','" & TextBox5.Text.Trim & "','" & TextBox7.Text.Trim & "')"
        If UpdateData(sqlstr) = True Then
            MsgBox("成功添加了该新物品信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")

            xianshiyusuanshuju() '显示工程预算数据
        End If

    End Sub

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

        ComboBox2.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1))

        ComboBox3.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2))
        ComboBox4.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3))
        ComboBox5.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5))
        TextBox5.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 6))
        TextBox7.Text = Trim(DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 7))

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

    '删除操作
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim sqlstr As String

        sqlstr = "DELETE FROM qg_huowu_xiangxiqingkuang WHERE 编号='" & astr & "'"

        If UpdateData(sqlstr) = True Then

            MsgBox("已经成功删除了该预算信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "删除成功")
            xianshiyusuanshuju() '显示工程预算数据
        Else
            MsgBox("不能删除该预算信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
                       MsgBoxStyle.Exclamation, "删除不成功")
        End If
    End Sub

    '更新操作
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim sqlstr As String
        sqlstr = "UPDATE qg_huowu_xiangxiqingkuang SET  费用编码=" + Chr(39) + Trim(ComboBox2.Text) + Chr(39) + ",[CD1+2编码]=" + Chr(39) + Trim(ComboBox3.Text) + Chr(39) + ",[CD3+4编码]=" + Chr(39) + Trim(ComboBox4.Text) + Chr(39) + ",物品名称=" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",参数=" + Chr(39) + Trim(ComboBox5.Text) + Chr(39) + ",数量=" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",备注=" + Chr(39) + Trim(TextBox7.Text) + Chr(39) + "where 编号=" + Chr(39) + astr + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功更新了该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新成功")
            xianshiyusuanshuju() '显示工程预算数据
        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
        Dim myform As New xmb_wenyuanluru
        myform.Show()
        Me.Dispose()
    End Sub

    '判断输入的字符是否为数字

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        Dim str1 As String = TextBox5.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" Then

            Else
                MsgBox("请输入整数！", MsgBoxStyle.Information, "提示")
                TextBox5.Focus()
                Exit Sub
            End If
        Next
    End Sub
End Class