gc_baoxiaoguanli.vb

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

        Me.TextBox6.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(272, 192)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 16)
        Me.Label8.TabIndex = 63
        Me.Label8.Text = "报销时间"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Location = New System.Drawing.Point(352, 192)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(152, 21)
        Me.DateTimePicker1.TabIndex = 0
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(32, 224)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(64, 16)
        Me.Label9.TabIndex = 64
        Me.Label9.Text = "备    注"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(136, 224)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(368, 21)
        Me.TextBox7.TabIndex = 65
        Me.TextBox7.Text = ""
        '
        'gc_baoxiaoguanli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(536, 582)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.GroupBox1)
        Me.MaximizeBox = False
        Me.Name = "gc_baoxiaoguanli"
        Me.Text = "工程报销管理"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim astr As String

    Private Sub gc_baoxiaoguanli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        gongchengbianhao() '显示工程编号，到ComboBox1中

    End Sub

    '显示工程编号，到ComboBox1中
    Private Sub gongchengbianhao()
        Dim str As String
        Dim sstr As String
        Dim i As Integer
        Dim y As Integer
        Dim mydataset As New DataSet
        str = "select 工程编号 from technologyInf where 工程结束标志 = " + Chr(39) + "0" + Chr(39)
        mydataset = GetDataFromDB(str)
        y = 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.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 = "100" Or ComboBox2.Text.Trim = "200" Then
            MsgBox("对不起，您没有这个权限对该项预算进行填写！", MsgBoxStyle.Information, "提示")
            ComboBox2.SelectedIndex = 3
            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 gc_baoxiao where 工程编码=" + Chr(39) + Me.ComboBox1.Text.Trim + Chr(39) + " and  [CD3+4编码] = " + Chr(39) + ComboBox4.Text.Trim + Chr(39) + " and  报销人=" + Chr(39) + TextBox6.Text.Trim + Chr(39) + " and  报销日期 = " + Chr(39) + DateTimePicker1.Value.Date + 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 gc_baoxiao " & _
        "(工程编码,工程名称,项目费用编码,[CD1+2编码],[CD3+4编码],报销名称,参数,金额,报销人,报销日期,录入日期,备注) " & _
        "VALUES ('" & 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 + Chr(39) + "," + Chr(39) + TextBox6.Text.Trim + Chr(39) + "," + Chr(39) + DateTimePicker1.Value.Date + Chr(39) + "," + Chr(39) + Now.Date + Chr(39) + "," + Chr(39) + TextBox7.Text.Trim + Chr(39) + ")"
        If UpdateData(sqlstr) = True Then
            MsgBox("成功添加了该新信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")

            xianshifeiyong() '显示该工程的报销和临时施舍费用 到 datagrid1中
        End If

    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 gc_baoxiao 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, "删除成功")
            xianshifeiyong()
        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 gc_baoxiao SET  工程编码 = " + Chr(39) + Trim(ComboBox1.Text) + Chr(39) + ",工程名称=" + Chr(39) + Trim(TextBox1.Text) + Chr(39) + ",项目费用编码 = " + 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(TextBox6.Text) + Chr(39) + ", 报销日期 = " + Chr(39) + DateTimePicker1.Value.Date + 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, "更新成功")
            xianshifeiyong()
        Else
            MsgBox("没有成功更新该资料", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "更新成功")
        End If
    End Sub


    '根据工程编号，显示工程名称
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim str As String
        Dim aastr As String
        Dim bstr As String
        Dim mydataset As New DataSet
        aastr = ComboBox1.Text.Trim
        str = "select 工程名称 from technologyInf  where 工程编号 = " + Chr(39) + aastr + Chr(39)
        mydataset = GetDataFromDB(str)
        TextBox1.Text = mydataset.Tables(0).Rows(0)("工程名称")
        mydataset.Dispose()

        xianshifeiyong() '显示该工程的报销和临时施舍费用 到 datagrid1中

    End Sub

    '显示该工程的报销和临时施舍费用 到 datagrid1中
    Private Sub xianshifeiyong()
        Dim str As String
        str = "select * from gc_baoxiao where 工程编码 = " + Chr(39) + ComboBox1.Text.Trim + Chr(39)
        Dim mydataset As DataSet
        mydataset = GetDataFromDB(str)
        DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub


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

        
        astr = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)

        ComboBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
        ComboBox2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
        ComboBox3.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
        ComboBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)
        ComboBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 7)
        TextBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 8)
        TextBox6.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 9)
        DateTimePicker1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 10)
        TextBox7.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 12)



        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 6)

    End Sub
End Class