fk_xiangmuwenyuan.vb

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

        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(64, 16)
        Me.Label15.TabIndex = 28
        Me.Label15.Text = "合同金额"
        '
        'TextBox14
        '
        Me.TextBox14.BackColor = System.Drawing.Color.White
        Me.TextBox14.ForeColor = System.Drawing.Color.Green
        Me.TextBox14.Location = New System.Drawing.Point(368, 336)
        Me.TextBox14.Name = "TextBox14"
        Me.TextBox14.Size = New System.Drawing.Size(152, 21)
        Me.TextBox14.TabIndex = 31
        Me.TextBox14.Text = "0"
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(280, 336)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(88, 16)
        Me.Label16.TabIndex = 30
        Me.Label16.Text = "应付金额"
        '
        'TextBox15
        '
        Me.TextBox15.Location = New System.Drawing.Point(112, 368)
        Me.TextBox15.Name = "TextBox15"
        Me.TextBox15.ReadOnly = True
        Me.TextBox15.Size = New System.Drawing.Size(152, 21)
        Me.TextBox15.TabIndex = 33
        Me.TextBox15.Text = "0"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(32, 368)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(64, 16)
        Me.Label17.TabIndex = 32
        Me.Label17.Text = "已付金额"
        '
        'TextBox16
        '
        Me.TextBox16.Location = New System.Drawing.Point(368, 368)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.Size = New System.Drawing.Size(152, 21)
        Me.TextBox16.TabIndex = 35
        Me.TextBox16.Text = "0"
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(280, 368)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(88, 16)
        Me.Label18.TabIndex = 34
        Me.Label18.Text = "本次金额"
        '
        'TextBox17
        '
        Me.TextBox17.BackColor = System.Drawing.Color.White
        Me.TextBox17.ForeColor = System.Drawing.Color.Red
        Me.TextBox17.Location = New System.Drawing.Point(112, 400)
        Me.TextBox17.Name = "TextBox17"
        Me.TextBox17.ReadOnly = True
        Me.TextBox17.Size = New System.Drawing.Size(152, 21)
        Me.TextBox17.TabIndex = 37
        Me.TextBox17.Text = "0"
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(32, 400)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(64, 16)
        Me.Label19.TabIndex = 36
        Me.Label19.Text = "余    额"
        '
        'GroupBox1
        '
        Me.GroupBox1.Location = New System.Drawing.Point(16, 64)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(520, 80)
        Me.GroupBox1.TabIndex = 38
        Me.GroupBox1.TabStop = False
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.ComboBox2)
        Me.GroupBox2.Location = New System.Drawing.Point(16, 144)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(520, 176)
        Me.GroupBox2.TabIndex = 39
        Me.GroupBox2.TabStop = False
        '
        'ComboBox2
        '
        Me.ComboBox2.Location = New System.Drawing.Point(352, 56)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox2.TabIndex = 46
        Me.ComboBox2.Text = "没有该合同号，请双击"
        Me.ToolTip1.SetToolTip(Me.ComboBox2, "如果下拉选项中没有请双击该下拉框进去填写合同")
        '
        'GroupBox3
        '
        Me.GroupBox3.Location = New System.Drawing.Point(16, 320)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(520, 104)
        Me.GroupBox3.TabIndex = 40
        Me.GroupBox3.TabStop = False
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(150, 440)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 41
        Me.Button1.Text = "保 存"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(239, 440)
        Me.Button2.Name = "Button2"
        Me.Button2.TabIndex = 42
        Me.Button2.Text = "删 除"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(417, 440)
        Me.Button3.Name = "Button3"
        Me.Button3.TabIndex = 43
        Me.Button3.Text = "提 交"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Button4)
        Me.GroupBox4.Location = New System.Drawing.Point(16, 424)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(520, 56)
        Me.GroupBox4.TabIndex = 44
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "操作区"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(48, 16)
        Me.Button4.Name = "Button4"
        Me.Button4.TabIndex = 0
        Me.Button4.Text = "新 建"
        '
        'ComboBox1
        '
        Me.ComboBox1.Location = New System.Drawing.Point(112, 256)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox1.TabIndex = 45
        Me.ComboBox1.Text = "ComboBox1"
        '
        'ComboBox3
        '
        Me.ComboBox3.Location = New System.Drawing.Point(112, 168)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox3.TabIndex = 46
        Me.ComboBox3.Text = "ComboBox3"
        '
        'RadioButton1
        '
        Me.RadioButton1.Location = New System.Drawing.Point(24, 24)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(80, 32)
        Me.RadioButton1.TabIndex = 47
        Me.RadioButton1.Text = "没有提交"
        '
        'RadioButton2
        '
        Me.RadioButton2.Location = New System.Drawing.Point(280, 24)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(80, 32)
        Me.RadioButton2.TabIndex = 48
        Me.RadioButton2.Text = "已经提交"
        '
        'ComboBox4
        '
        Me.ComboBox4.Enabled = False
        Me.ComboBox4.Location = New System.Drawing.Point(112, 32)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox4.TabIndex = 49
        Me.ComboBox4.Text = "ComboBox4"
        '
        'ComboBox5
        '
        Me.ComboBox5.Enabled = False
        Me.ComboBox5.Location = New System.Drawing.Point(368, 32)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox5.TabIndex = 50
        Me.ComboBox5.Text = "ComboBox5"
        '
        '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 = 51
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "工程付款申请单"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(328, 440)
        Me.Button5.Name = "Button5"
        Me.Button5.TabIndex = 52
        Me.Button5.Text = "更 新"
        '
        'fk_xiangmuwenyuan
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(552, 494)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        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.TextBox14)
        Me.Controls.Add(Me.Label16)
        Me.Controls.Add(Me.TextBox13)
        Me.Controls.Add(Me.Label15)
        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.Label8)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox5)
        Me.MaximizeBox = False
        Me.Name = "fk_xiangmuwenyuan"
        Me.Text = "付款--项目文员录入"
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    'load事件
    Private Sub fk_xiangmuwenyuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xianshiyinhangxinxi() '显示所有银行的信息
        xianshihetongmingcheng() '显示所有存在的合同号
        xianshi_gongcheng_bianhao()'显示所有存在的工程编号
    End Sub

    '显示所有银行的信息
    Private Sub xianshiyinhangxinxi()
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select 银行名称 from bankInf"
        mydataset = GetDataFromDB(mystr)
        y = mydataset.Tables(0).Rows.Count
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("银行名称"))
            ComboBox1.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub

    '显示所有存在的合同编号
    Private Sub xianshihetongmingcheng()
        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_hetong"
        mydataset = GetDataFromDB(mystr)
        y = mydataset.Tables(0).Rows.Count
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("合同编号"))
            ComboBox2.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub

    '显示所有存在的工程编号
    Private Sub xianshi_gongcheng_bianhao()
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select 工程编号 from technologyInf"
        mydataset = GetDataFromDB(mystr)
        y = mydataset.Tables(0).Rows.Count
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("工程编号"))
            ComboBox3.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub


    '保存付款申请单
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.TextBox1.Text.Trim = "" Then
            MsgBox("请输入付款申请单编号！", MsgBoxStyle.Information, "提示！")
            Me.TextBox1.Text = Nothing
            Exit Sub
        End If
        Dim mystr As String
        Dim mystr1 As String = Me.TextBox1.Text.Trim
        mystr = "select * from fk_gongcheng_fukuan where 编号 =" + Chr(39) + mystr1 + Chr(39)
        If panduan(mystr) = True Then
            MsgBox("该付款申请单编号已经存在！", MsgBoxStyle.Information, "提示！")
            TextBox1.Text = Nothing
            TextBox1.Focus()
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "INSERT INTO fk_gongcheng_fukuan " & _
        "(编号,收文单位,收文人,发文日期,工程名称,工程编号,付款内容,[订购单/合同号],付款时间,收款单位,开户银行,帐号,付款依据,付款方式,合同金额,应付金额,已付金额,本次金额,余额,申请付款时间) " & _
        "VALUES ('" & Me.TextBox1.Text.Trim & "','" & Me.TextBox2.Text.Trim & "','" & Me.TextBox3.Text.Trim & "','" & Me.DateTimePicker1.Value.Date & "','" & Me.TextBox5.Text.Trim & "','" & Me.ComboBox3.Text.Trim & "','" & Me.TextBox6.Text.Trim & "','" & Me.ComboBox2.Text.Trim & "','" & Me.DateTimePicker2.Value.Date & "','" & Me.TextBox8.Text.Trim & "','" & Me.ComboBox1.Text.Trim & "','" & Me.TextBox10.Text.Trim & "','" & Me.TextBox11.Text.Trim & "','" & Me.TextBox12.Text.Trim & "','" & Me.TextBox13.Text.Trim & "','" & Me.TextBox14.Text.Trim & "','" & Me.TextBox15.Text.Trim & "','" & Me.TextBox16.Text.Trim & "','" & Me.TextBox17.Text.Trim & "','" & Now.Date & "')"