fk_cailiao_zongjingli.vb

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

        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(408, 21)
        Me.TextBox2.TabIndex = 104
        Me.TextBox2.Text = ""
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Button2)
        Me.GroupBox4.Controls.Add(Me.TextBox200)
        Me.GroupBox4.Controls.Add(Me.TextBox100)
        Me.GroupBox4.Controls.Add(Me.Button1)
        Me.GroupBox4.Controls.Add(Me.Label22)
        Me.GroupBox4.Controls.Add(Me.ComboBox8)
        Me.GroupBox4.Controls.Add(Me.Label23)
        Me.GroupBox4.Controls.Add(Me.Label24)
        Me.GroupBox4.Location = New System.Drawing.Point(544, 64)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(208, 424)
        Me.GroupBox4.TabIndex = 252
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "操作区"
        '
        'Button2
        '
        Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button2.Location = New System.Drawing.Point(64, 344)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(96, 32)
        Me.Button2.TabIndex = 111
        Me.Button2.Tag = ""
        Me.Button2.Text = "预  览"
        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TextBox200
        '
        Me.TextBox200.Location = New System.Drawing.Point(80, 176)
        Me.TextBox200.Name = "TextBox200"
        Me.TextBox200.Size = New System.Drawing.Size(112, 21)
        Me.TextBox200.TabIndex = 109
        Me.TextBox200.Text = ""
        '
        'TextBox100
        '
        Me.TextBox100.Location = New System.Drawing.Point(80, 104)
        Me.TextBox100.Name = "TextBox100"
        Me.TextBox100.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.TextBox100.Size = New System.Drawing.Size(112, 21)
        Me.TextBox100.TabIndex = 105
        Me.TextBox100.Text = ""
        '
        'Button1
        '
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button1.Location = New System.Drawing.Point(64, 296)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(96, 32)
        Me.Button1.TabIndex = 110
        Me.Button1.Tag = ""
        Me.Button1.Text = "审   批"
        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(16, 176)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(64, 16)
        Me.Label22.TabIndex = 108
        Me.Label22.Text = "审批意见"
        '
        'ComboBox8
        '
        Me.ComboBox8.Items.AddRange(New Object() {"同意", "不同意"})
        Me.ComboBox8.Location = New System.Drawing.Point(80, 248)
        Me.ComboBox8.Name = "ComboBox8"
        Me.ComboBox8.Size = New System.Drawing.Size(112, 20)
        Me.ComboBox8.TabIndex = 107
        Me.ComboBox8.Text = "同意"
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(16, 248)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(64, 16)
        Me.Label23.TabIndex = 106
        Me.Label23.Text = "审批结果"
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(16, 104)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(64, 16)
        Me.Label24.TabIndex = 104
        Me.Label24.Text = "密    码"
        '
        'Fk_cailiao_zongjingli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(768, 606)
        Me.Controls.Add(Me.RadioButton3)
        Me.Controls.Add(Me.ComboBox7)
        Me.Controls.Add(Me.TextBox17)
        Me.Controls.Add(Me.Label19)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.Label18)
        Me.Controls.Add(Me.TextBox15)
        Me.Controls.Add(Me.Label17)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.TextBox14)
        Me.Controls.Add(Me.Label16)
        Me.Controls.Add(Me.TextBox12)
        Me.Controls.Add(Me.Label14)
        Me.Controls.Add(Me.TextBox11)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.DateTimePicker2)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label21)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label20)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox4)
        Me.MaximizeBox = False
        Me.Name = "Fk_cailiao_zongjingli"
        Me.Text = "付款-总经理审批"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim intz As Decimal
    Dim intf As Decimal
    Dim int123 As Decimal
    Dim inty As Integer
    Dim yyy As Integer


    '本次付款金额值的填写
    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 yyy <> 0 Then
            If TextBox14.Text.Trim = "" Then
                MsgBox("请输入--应付款--值！", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If

            If TextBox15.Text.Trim = "" Then
                MsgBox("请输入--应付款--值！", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If
        Else
            yyy = yyy + 1
            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
        int = int2 / int1
        int = int * 100
        TextBox7.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

        If inty = 0 Then
            inty = inty + 1
            Exit Sub
        Else
            intz = Convert.ToDecimal(str1)
            If intz <> 0 Then
                int123 = intf / intz

                TextBox4.Text = int123.ToString + "%"
            Else
                TextBox4.Text = "0%"
            End If
        End If
    End Sub




    Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged




        Dim str2 As String = TextBox14.Text.Trim
        If str2 = "" Then
            str2 = "0"
            Exit Sub
        End If

        Dim int1 As Decimal
        Dim int2 As Decimal
        Dim int3 As Decimal

        Dim int As Decimal
        int1 = Convert.ToDecimal(str2) '总额

        int3 = Convert.ToDecimal(TextBox17.Text.Trim) '剩下金额


        int = int3 / int1
        int = int * 100
        TextBox9.Text = int.ToString + "%"

    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
            Button1.Enabled = False