fk_cailiao_xiangmujingli.vb

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

        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(560, 168)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(48, 16)
        Me.Label23.TabIndex = 128
        Me.Label23.Text = "密  码"
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(560, 120)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(56, 16)
        Me.Label24.TabIndex = 127
        Me.Label24.Text = "用 户 名"
        '
        'ComboBox8
        '
        Me.ComboBox8.Items.AddRange(New Object() {"同意", "不同意"})
        Me.ComboBox8.Location = New System.Drawing.Point(624, 272)
        Me.ComboBox8.Name = "ComboBox8"
        Me.ComboBox8.Size = New System.Drawing.Size(96, 20)
        Me.ComboBox8.TabIndex = 131
        Me.ComboBox8.Text = "同意"
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(560, 272)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(56, 16)
        Me.Label22.TabIndex = 130
        Me.Label22.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(608, 336)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 32)
        Me.Button1.TabIndex = 134
        Me.Button1.Tag = ""
        Me.Button1.Text = "提  交"
        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.PictureBox1)
        Me.GroupBox3.Controls.Add(Me.LinkLabel1)
        Me.GroupBox3.Location = New System.Drawing.Point(544, 16)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(184, 416)
        Me.GroupBox3.TabIndex = 136
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "操作区域"
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(48, 24)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(32, 24)
        Me.PictureBox1.TabIndex = 54
        Me.PictureBox1.TabStop = False
        '
        'LinkLabel1
        '
        Me.LinkLabel1.Image = CType(resources.GetObject("LinkLabel1.Image"), System.Drawing.Image)
        Me.LinkLabel1.Location = New System.Drawing.Point(40, 40)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(104, 32)
        Me.LinkLabel1.TabIndex = 53
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "项目经理查询窗口"
        Me.LinkLabel1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        '
        'DataGrid2
        '
        Me.DataGrid2.CaptionText = "详细信息"
        Me.DataGrid2.DataMember = ""
        Me.DataGrid2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.Location = New System.Drawing.Point(16, 440)
        Me.DataGrid2.Name = "DataGrid2"
        Me.DataGrid2.Size = New System.Drawing.Size(712, 120)
        Me.DataGrid2.TabIndex = 137
        '
        'Fk_cailiao_xiangmujingli
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(744, 566)
        Me.Controls.Add(Me.DataGrid2)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label21)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label23)
        Me.Controls.Add(Me.Label24)
        Me.Controls.Add(Me.ComboBox8)
        Me.Controls.Add(Me.Label22)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.DateTimePicker2)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox3)
        Me.MaximizeBox = False
        Me.Name = "Fk_cailiao_xiangmujingli"
        Me.Text = "收货单-项目经理审批"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    'load事件
    Private Sub Fk_cailiao_xiangmujingli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox9.Text = UserName


    End Sub

    



    '当工程编号，改变时候，显示工程的名称
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim str As String
        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 RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            ComboBox5.Enabled = True
            
        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_cailiao_shouhuo_zhudan 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
        If RadioButton1.Checked = True Then
            ComboBox4.Text = "没有提交的收货单"
            ComboBox4.Enabled = True

        Else
            ComboBox4.Enabled = False
            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_cailiao_shouhuo_zhudan 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 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_cailiao_shouhuo_zhudan   where 收货单编号 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(mystr)
        DataGrid2.DataSource = mydataset
        TextBox1.Text = Trim(mydataset.Tables(0).Rows(0)("收货单编号"))
        TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
        DateTimePicker3.Value = Trim(mydataset.Tables(0).Rows(0)("收货日期"))
        TextBox3.Text = Trim(mydataset.Tables(0).Rows(0)("订购单编号"))
        TextBox4.Text = Trim(mydataset.Tables(0).Rows(0)("供应商"))
        TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("收货人"))
        DateTimePicker2.Value = Trim(mydataset.Tables(0).Rows(0)("日期"))
        TextBox8.Text = Trim(mydataset.Tables(0).Rows(0)("备注"))

        mystr = "select * from fk_cailiao_shouhuo_xiangdan   where 收货单编号 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(mystr)
        DataGrid1.DataSource = mydataset


        mydataset.Dispose()
    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_cailiao_shouhuo_zhudan SET  项目经理审批时间=" + Chr(39) + Now.Date.ToString + Chr(39) + " , 项目经理 =" + Chr(39) + UserName + Chr(39) + ",项目经理审批意见=" + Chr(39) + TextBox6.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_cailiao_shouhuo_zhudan 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 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_cailiao_shouhuo_zhudan   where 收货单编号 =" + Chr(39) + ComboBox5.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(mystr)
        DataGrid2.DataSource = mydataset
        TextBox1.Text = Trim(mydataset.Tables(0).Rows(0)("收货单编号"))
        TextBox2.Text = Trim(mydataset.Tables(0).Rows(0)("工程名称"))
        DateTimePicker3.Value = Trim(mydataset.Tables(0).Rows(0)("收货日期"))
        TextBox3.Text = Trim(mydataset.Tables(0).Rows(0)("订购单编号"))
        TextBox4.Text = Trim(mydataset.Tables(0).Rows(0)("供应商"))
        TextBox5.Text = Trim(mydataset.Tables(0).Rows(0)("收货人"))
        DateTimePicker2.Value = Trim(mydataset.Tables(0).Rows(0)("日期"))
        TextBox8.Text = Trim(mydataset.Tables(0).Rows(0)("备注"))

        mystr = "select * from fk_cailiao_shouhuo_xiangdan   where 收货单编号 =" + Chr(39) + ComboBox5.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(mystr)
        DataGrid1.DataSource = mydataset


        mydataset.Dispose()
    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


  
End Class