fk_xiangmujingli.vb

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

        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(48, 32)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(32, 24)
        Me.PictureBox1.TabIndex = 52
        Me.PictureBox1.TabStop = False
        '
        'LinkLabel1
        '
        Me.LinkLabel1.Image = CType(resources.GetObject("LinkLabel1.Image"), System.Drawing.Image)
        Me.LinkLabel1.Location = New System.Drawing.Point(40, 48)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(104, 32)
        Me.LinkLabel1.TabIndex = 51
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "项目经理查询窗口"
        Me.LinkLabel1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        '
        'DataGrid1
        '
        Me.DataGrid1.CaptionText = "详细信息"
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(16, 424)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.ReadOnly = True
        Me.DataGrid1.Size = New System.Drawing.Size(720, 120)
        Me.DataGrid1.TabIndex = 109
        '
        'fk_xiangmujingli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(752, 558)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.Label21)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label23)
        Me.Controls.Add(Me.Label24)
        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.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.Label20)
        Me.Controls.Add(Me.ComboBox8)
        Me.Controls.Add(Me.Label22)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox5)
        Me.MaximizeBox = False
        Me.Name = "fk_xiangmujingli"
        Me.Text = "付款—项目经理审批"
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    '没有提交的工程申请单,显示到“没有提交”项中
 

    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)
        DataGrid1.DataSource = mydataset
        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 RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        ComboBox5.Text = "已提交工程申请付款单"

        ComboBox5.Enabled = True
        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) + "1" + 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
        ComboBox4.Text = "待审批工程付款单"

        ComboBox4.Enabled = True
        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) + "1" + 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 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)

        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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        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

    '改变“提交”按钮的text，为“退回”
    Private Sub ComboBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox8.SelectedIndexChanged
        If ComboBox8.Text = "不同意" Then
            Button1.Text = "退  回"
        Else
            Button1.Text = "提  交"
        End If
    End Sub

    '提交给下面一级操作
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '判断用户提交的合法性
        Dim mystr As String = TextBox7.Text.Trim
        Dim str As String = "select user_pwd from UserInfo where user_id =" + Chr(39) + user_id_yj.Trim + Chr(39) + " and user_pwd =" + Chr(39) + mystr + Chr(39)

        If GetDataFromDB(str).Tables(0).Rows.Count = 0 Then
            MsgBox("您的密码错误,请重新输入！", MsgBoxStyle.Information, "提示")
            TextBox1.Text = ""
            TextBox1.Focus()
            Exit Sub
        End If


        If RadioButton1.Checked = False Or ComboBox4.Text.Trim = "待审批工程付款单" Then
            MsgBox("现在不能提交，请选择要提交的申请单编号！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If


        '提交过程或者退回操作
        If ComboBox8.Text.Trim = "同意" Then
            If MsgBox("注意：请再好好复查一下，如果确定无误后再提交，提交后您将不能再进行修改了。你确定要提交吗？", MsgBoxStyle.OKCancel, "提示") = MsgBoxResult.OK Then
                Dim sqlstr As String

                sqlstr = "UPDATE fk_gongcheng_fukuan SET  项目经理审批时间=" + Chr(39) + Now.Date.ToString + Chr(39) + " , 项目经理 =" + Chr(39) + UserName + Chr(39) + ",项目经理审批意见=" + Chr(39) + TextBox4.Text.Trim + Chr(39) + ",项目经理审批结果=" + Chr(39) + ComboBox8.Text.Trim + Chr(39) + ",标志=" + Chr(39) + "2" + Chr(39) + "where 编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
                If UpdateData(sqlstr) = True Then
                    MsgBox("已经成功提交了该工程付款申请单！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "提示")
                    Me.RadioButton2.Checked = True
                Else
                    MsgBox("没有成功提交该工程付款申请单！，请与管理员联系", MsgBoxStyle.OKOnly + _
                                MsgBoxStyle.Exclamation, "提示")
                    Exit Sub
                End If
            Else

                MsgBox("没有成功提交该工程付款申请单！，请与管理员联系", MsgBoxStyle.OKOnly + _
                               MsgBoxStyle.Exclamation, "提示")
                Exit Sub
            End If
        Else
            If MsgBox("您确定不同意提交该消息吗？", MsgBoxStyle.OKCancel, "提示") = MsgBoxResult.OK Then
                Dim mysqlstr As String
                mysqlstr = "UPDATE fk_gongcheng_fukuan SET  标志=" + Chr(39) + "0" + Chr(39) + ", 是否是退回操作=" + Chr(39) + "1" + Chr(39) + " where 编号=" + Chr(39) + ComboBox4.Text.Trim + Chr(39)


                If UpdateData(mysqlstr) = True Then
                    MsgBox("您已经退回了该申请单！", MsgBoxStyle.Information, "提示")
                    Exit Sub
                End If
            Else
                MsgBox("请确认后重新提交该申请单！", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If



        End If

    End Sub


    Private Sub fk_xiangmujingli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox9.Text = UserName
    End Sub

    
End Class