fk_xiangmuwenyuan.vb

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

        If UpdateData(sqlstr) = False Then
            MsgBox("没有成功添加了该付款申请信息信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Exit Sub
        Else
            MsgBox("已经成功添加了该付款申请信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Button1.Enabled = False
        End If


    End Sub

    '当工程编号，改变时候，显示工程的名称
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        Dim str As String = Me.ComboBox3.Text.Trim
        Dim mystr As String
        Dim mydataset As DataSet
        mystr = "select 工程名称 from technologyInf where 工程编号 =" + Chr(39) + str + Chr(39)
        mydataset = GetDataFromDB(mystr)
        TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
        mydataset.Dispose()

    End Sub


    '本次付款金额值的填写
    Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged
        If TextBox16.Text = "" Then
            Exit Sub
        End If
        If TextBox14.Text.Trim = "" Then
            MsgBox("请输入--应付款--值！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        If TextBox15.Text.Trim = "" Then
            MsgBox("请输入--应付款--值！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If

        If TextBox16.Text.Trim = "" Then
            TextBox17.Text = ""
            Exit Sub
        End If
        Dim str1 As String = TextBox16.Text.Trim
        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" Or sstr = "." Then
                If sstr = "." Then
                    yy = yy + 1
                    If yy = 2 Then
                        MsgBox("已经有了--.--,不能再输入了！", MsgBoxStyle.Information, "提示")
                        TextBox16.Focus()
                        Exit Sub
                    End If
                End If
            Else
                MsgBox("请输入正确的数字，特别要分清----。----和---.----", MsgBoxStyle.Information, "提示")
                TextBox1.Focus()
                Exit Sub
            End If
        Next
        Dim str2 As String = TextBox14.Text.Trim
        Dim int1 As Decimal
        Dim int2 As Decimal
        Dim int3 As Decimal

        Dim int As Decimal
        int1 = Convert.ToDecimal(str2)
        int2 = Convert.ToDecimal(str1)
        int3 = Convert.ToDecimal(TextBox15.Text.Trim)

        int = int1 - int2 - int3
        TextBox17.Text = int.ToString
    End Sub


    '判断输入的数字是否正确
    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
        Dim str1 As String = TextBox14.Text.Trim
        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" Or sstr = "." Then
                If sstr = "." Then
                    yy = yy + 1
                    If yy = 2 Then
                        MsgBox("已经有了--.--,不能再输入了！", MsgBoxStyle.Information, "提示")
                        TextBox1.Focus()
                        Exit Sub
                    End If
                End If
            Else
                MsgBox("请输入正确的数字，特别要分清----。----和---.----", MsgBoxStyle.Information, "提示")
                TextBox14.Focus()
                Exit Sub
            End If
        Next
    End Sub

    '从合同名称得到合同金额
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        TextBox1.Text = ComboBox2.Text.Trim
        Dim str, mystr As String
        str = "select sum(本次金额) from fk_gongcheng_fukuan where [订购单/合同号] = " + Chr(39) + ComboBox2.Text.Trim + Chr(39)
        mystr = "select 合同金额 from fk_hetong where 合同编号 = " + Chr(39) + ComboBox2.Text.Trim + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        Dim y As Integer = mydataset.Tables(0).Rows.Count

        If mydataset.Tables(0).Rows(0).Item(0) Is System.DBNull.Value Then
            TextBox15.Text = "0"
        Else
            TextBox15.Text = Trim(mydataset.Tables(0).Rows(0).Item(0))

        End If


        mydataset = GetDataFromDB(mystr)
        If mydataset.Tables(0).Rows(0)("合同金额") Is System.DBNull.Value Then
            TextBox13.Text = "0"
        Else
            TextBox13.Text = Trim(mydataset.Tables(0).Rows(0)("合同金额"))

        End If


    End Sub

    Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged
        TextBox14.Text = TextBox13.Text.Trim
    End Sub

    Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged
        Dim str As String = TextBox17.Text.Trim
        If str = "" Then
            Exit Sub
        ElseIf Convert.ToDecimal(str) < 0 Then
            MsgBox("请注意你的付款已经超过应付款拉！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
    End Sub


    '已经提交工程付款申请单,显示到“已经提交”项中
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            ComboBox5.Enabled = True
            Button5.Enabled = False
            Button3.Enabled = False

            Button1.Enabled = False
        Else
            ComboBox5.Enabled = False
        End If
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select 编号 from fk_gongcheng_fukuan where 标志 <>" + Chr(39) + "0" + Chr(39)
        mydataset = GetDataFromDB(mystr)
        y = mydataset.Tables(0).Rows.Count
        ComboBox5.Items.Clear()
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("编号"))
            ComboBox5.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub


    '没有提交的工程申请单,显示到“没有提交”项中
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            Button1.Enabled = False
            ComboBox4.Enabled = True
            Button5.Enabled = True
            Button3.Enabled = True
        Else
            ComboBox4.Enabled = False
        End If
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select 编号 from fk_gongcheng_fukuan where 标志 =" + Chr(39) + "0" + Chr(39)
        mydataset = GetDataFromDB(mystr)
        y = mydataset.Tables(0).Rows.Count
        ComboBox4.Items.Clear()
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("编号"))
            ComboBox4.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub

    '根据工程申请单编号，显示关于该申请单的所有项目于界面上
    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select * from fk_gongcheng_fukuan   where 编号 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(mystr)
        TextBox1.Text = Trim(mydataset.Tables(0).Rows(0)("编号"))
        TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("收文单位"))
        TextBox3.Text = Trim(mydataset.Tables(0).Rows(0)("收文人"))
        DateTimePicker1.Value = Trim(mydataset.Tables(0).Rows(0)("发文日期"))
        ComboBox3.Text = Trim(mydataset.Tables(0).Rows(0)("工程编号"))
        TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
        TextBox6.Text = Trim(mydataset.Tables(0).Rows(0)("付款内容"))
        ComboBox2.Text = Trim(mydataset.Tables(0).Rows(0)("订购单/合同号"))
        DateTimePicker2.Value = Trim(mydataset.Tables(0).Rows(0)("付款时间"))
        TextBox8.Text = Trim(mydataset.Tables(0).Rows(0)("收款单位"))
        ComboBox1.Text = Trim(mydataset.Tables(0).Rows(0)("开户银行"))
        TextBox10.Text = Trim(mydataset.Tables(0).Rows(0)("帐号"))
        TextBox11.Text = Trim(mydataset.Tables(0).Rows(0)("付款依据"))
        TextBox12.Text = Trim(mydataset.Tables(0).Rows(0)("付款方式"))
        TextBox13.Text = Trim(mydataset.Tables(0).Rows(0)("合同金额"))
        TextBox14.Text = Trim(mydataset.Tables(0).Rows(0)("应付金额"))
        TextBox15.Text = Trim(mydataset.Tables(0).Rows(0)("已付金额"))
        TextBox16.Text = Trim(mydataset.Tables(0).Rows(0)("本次金额"))
        TextBox17.Text = Trim(mydataset.Tables(0).Rows(0)("余额"))



        mydataset.Dispose()
    End Sub


    '更新信息
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim sqlstr As String
        sqlstr = "UPDATE fk_gongcheng_fukuan SET   收文单位 =" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",收文人 =" + Chr(39) + Trim(TextBox3.Text) + Chr(39) + ",发文日期 =" + Chr(39) + Trim(DateTimePicker1.Value.Date) + Chr(39) + ",工程名称 =" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",工程编号 =" + Chr(39) + Trim(ComboBox3.Text) + Chr(39) + ",付款内容 =" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + ",[订购单/合同号] =" + Chr(39) + Trim(ComboBox2.Text) + Chr(39) + ",付款时间 =" + Chr(39) + Trim(DateTimePicker2.Value.Date) + Chr(39) + ",收款单位 =" + Chr(39) + Trim(TextBox8.Text) + Chr(39) + ",开户银行 =" + Chr(39) + Trim(ComboBox1.Text) + Chr(39) + ",帐号 =" + Chr(39) + Trim(TextBox10.Text) + Chr(39) + ",付款依据 =" + Chr(39) + Trim(TextBox11.Text) + Chr(39) + ",付款方式 =" + Chr(39) + Trim(TextBox12.Text) + Chr(39) + ",合同金额 =" + Chr(39) + Trim(TextBox13.Text) + Chr(39) + ",应付金额 =" + Chr(39) + Trim(TextBox14.Text) + Chr(39) + ",已付金额 =" + Chr(39) + Trim(TextBox15.Text) + Chr(39) + ",本次金额 =" + Chr(39) + Trim(TextBox16.Text) + Chr(39) + ",余额 =" + Chr(39) + Trim(TextBox17.Text) + Chr(39) + "  where 编号=" + Chr(39) + ComboBox4.Text.Trim + 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 Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = ""
        TextBox17.Text = ""
        TextBox16.Text = ""
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        Button1.Enabled = True
    End Sub



    '删除
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton1.Checked = False Then
            MsgBox("请选择要删除的项的编号！", MsgBoxStyle.Information, "提示")
            RadioButton1.Checked = True
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "delete fk_gongcheng_fukuan  where 编号 = " + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        If MsgBox("确定要删除吗？", MsgBoxStyle.YesNo, "删除") = MsgBoxResult.No Then
            Exit Sub
        End If
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功删除该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "删除")


        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
        If RadioButton1.Checked = False Then
            MsgBox("请选择要提交的项的编号！", MsgBoxStyle.Information, "提示")
            RadioButton1.Checked = True
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "UPDATE fk_gongcheng_fukuan SET   标志 =" + Chr(39) + "1" + Chr(39) + "  where 编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功提交该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "提交")

            RadioButton2.Checked = True
        Else
            MsgBox("没有成功提交该信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "提交")
            Exit Sub
        End If
    End Sub


    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select * from fk_gongcheng_fukuan   where 编号 =" + Chr(39) + ComboBox5.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(mystr)
        TextBox1.Text = Trim(mydataset.Tables(0).Rows(0)("编号"))
        TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("收文单位"))
        TextBox3.Text = Trim(mydataset.Tables(0).Rows(0)("收文人"))
        DateTimePicker1.Value = Trim(mydataset.Tables(0).Rows(0)("发文日期"))
        ComboBox3.Text = Trim(mydataset.Tables(0).Rows(0)("工程编号"))
        TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
        TextBox6.Text = Trim(mydataset.Tables(0).Rows(0)("付款内容"))
        ComboBox2.Text = Trim(mydataset.Tables(0).Rows(0)("订购单/合同号"))
        DateTimePicker2.Value = Trim(mydataset.Tables(0).Rows(0)("付款时间"))
        TextBox8.Text = Trim(mydataset.Tables(0).Rows(0)("收款单位"))
        ComboBox1.Text = Trim(mydataset.Tables(0).Rows(0)("开户银行"))
        TextBox10.Text = Trim(mydataset.Tables(0).Rows(0)("帐号"))
        TextBox11.Text = Trim(mydataset.Tables(0).Rows(0)("付款依据"))
        TextBox12.Text = Trim(mydataset.Tables(0).Rows(0)("付款方式"))
        TextBox13.Text = Trim(mydataset.Tables(0).Rows(0)("合同金额"))
        TextBox14.Text = Trim(mydataset.Tables(0).Rows(0)("应付金额"))
        TextBox15.Text = Trim(mydataset.Tables(0).Rows(0)("已付金额"))
        TextBox16.Text = Trim(mydataset.Tables(0).Rows(0)("本次金额"))
        TextBox17.Text = Trim(mydataset.Tables(0).Rows(0)("余额"))



        mydataset.Dispose()
    End Sub

   

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        Dim myform As New fu_hetongluru
        myform.Show()
    End Sub
End Class