fk_cailiao_caigoujingli.vb

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

        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label2)
        Me.GroupBox2.Controls.Add(Me.TextBox2)
        Me.GroupBox2.Location = New System.Drawing.Point(16, 144)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(520, 200)
        Me.GroupBox2.TabIndex = 138
        Me.GroupBox2.TabStop = False
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 168)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 103
        Me.Label2.Text = "付款说明"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(96, 168)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(408, 21)
        Me.TextBox2.TabIndex = 104
        Me.TextBox2.Text = ""
        '
        'GroupBox5
        '
        Me.GroupBox5.Location = New System.Drawing.Point(16, 8)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(520, 56)
        Me.GroupBox5.TabIndex = 145
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.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, 8)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(208, 480)
        Me.GroupBox4.TabIndex = 157
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "操作区"
        '
        '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, 320)
        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 = "密    码"
        '
        'GroupBox3
        '
        Me.GroupBox3.Location = New System.Drawing.Point(16, 344)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(520, 144)
        Me.GroupBox3.TabIndex = 159
        Me.GroupBox3.TabStop = False
        '
        '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, 384)
        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
        '
        'fk_cailiao_caigoujingli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(768, 606)
        Me.Controls.Add(Me.GroupBox4)
        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.Label10)
        Me.Controls.Add(Me.DateTimePicker2)
        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.GroupBox2)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox3)
        Me.MaximizeBox = False
        Me.Name = "fk_cailiao_caigoujingli"
        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