ys_caiguo_luru.vb

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

        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 16)
        Me.Label1.TabIndex = 46
        Me.Label1.Text = "预算单编号"
        '
        'TextBox1
        '
        Me.TextBox1.BackColor = System.Drawing.Color.White
        Me.TextBox1.ForeColor = System.Drawing.Color.Red
        Me.TextBox1.Location = New System.Drawing.Point(600, 32)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.ReadOnly = True
        Me.TextBox1.Size = New System.Drawing.Size(176, 21)
        Me.TextBox1.TabIndex = 24
        Me.TextBox1.Text = "工程名称"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(536, 32)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 16)
        Me.Label2.TabIndex = 23
        Me.Label2.Text = "工程名称"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(592, 104)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.ReadOnly = True
        Me.TextBox3.Size = New System.Drawing.Size(200, 21)
        Me.TextBox3.TabIndex = 59
        Me.TextBox3.Text = "CD1+2名称"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(232, 152)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.ReadOnly = True
        Me.TextBox4.Size = New System.Drawing.Size(168, 21)
        Me.TextBox4.TabIndex = 60
        Me.TextBox4.Text = "设备名称"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label7)
        Me.GroupBox2.Controls.Add(Me.ComboBox5)
        Me.GroupBox2.Controls.Add(Me.Label6)
        Me.GroupBox2.Controls.Add(Me.TextBox5)
        Me.GroupBox2.Location = New System.Drawing.Point(16, 80)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(784, 152)
        Me.GroupBox2.TabIndex = 68
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "选择区域"
        '
        'ys_caiguo_luru
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(816, 542)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.DataGrid2)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.GroupBox2)
        Me.MaximizeBox = False
        Me.Name = "ys_caiguo_luru"
        Me.Tag = ""
        Me.Text = "采购--预算详细信息录入"
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim astr As String

    '显示工程预算数据
    Private Sub xianshiyusuanshuju()
        Dim str As String
        Dim mydataset As New DataSet
        Dim sstr As String
        sstr = TextBox6.Text.Trim
        str = "select * from yusuan_xiangxiqingkuangbiao where 预算单编号 =" + Chr(39) + sstr + Chr(39)
        mydataset = GetDataFromDB(str)

        DataGrid2.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 = "300" 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)("费用名称"))
        mydataset.Dispose()

        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
        mydataset1.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名称"))
        mydataset.Dispose()

        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
        mydataset1.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名称"))
        mydataset.Dispose()

        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
        mydataset1.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 yusuan_xiangxiqingkuangbiao where 预算单编号=" + Chr(39) + Me.TextBox6.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 yusuan_xiangxiqingkuangbiao " & _
        "(预算单编号,工程编码,工程名称,项目费用编码,[CD1+2编码],[CD3+4编码],设备名称,参数,[预算支出(人民币-元)],备注) " & _
        "VALUES ('" & Me.TextBox6.Text.Trim & "','" & Me.ComboBox1.Text.Trim & "','" & Me.TextBox1.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() '显示工程预算数据
        Else
            MsgBox("不能添加了该新预算信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
                               MsgBoxStyle.Exclamation, "添加成功")
        End If

    End Sub


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




        ComboBox2.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 3))

        ComboBox3.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 4))
        ComboBox4.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 5))
        ComboBox5.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 7))
        TextBox5.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 8))
        TextBox7.Text = Trim(DataGrid2.Item(DataGrid2.CurrentCell.RowNumber, 10))
        astr = Trim(DataGrid2.Item(DataGrid2.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 yusuan_xiangxiqingkuangbiao WHERE 编号='" & astr & "'"
        If MsgBox("该预算信息是否已经使用？", MsgBoxStyle.YesNo, "提示！") = MsgBoxResult.Yes Then
            MsgBox("不能进行删除，请与开发者联系？", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        If UpdateData(sqlstr) = True Then

            MsgBox("已经成功删除了该预算信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "删除成功")
            xianshiyusuanshuju() '显示工程预算数据
        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 yusuan_xiangxiqingkuangbiao SET  参数=" + 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, "更新成功")
        End If
    End Sub



    'load窗体
    Private Sub ys_caiguo_luru_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox6.Text = pub_str
        ComboBox1.Text = fk_pub_str
        TextBox1.Text = qg_pub_str
        xianshiyusuanshuju() '显示工程预算数据
        xiangmufeiyong() '得到所有项目费用，并且读到ComboBox2中
    End Sub

    '返回前一个窗体

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim myform As New caigouwenyuan
        myform.Show()
        Me.Dispose()
    End Sub
End Class