fk_cailiao_xiangmuwenyuan.vb

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

        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        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.GroupBox4)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.MaximizeBox = False
        Me.Name = "fk_cailiao_xiangmuwenyuan"
        Me.Text = "材料付款-收货单录入"
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    'load事件
    Private Sub fk_cailiao_xiangmuwenyuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xianshi_gongcheng_mingcheng() '显示所有的工程名称
        xianshi_gongyingshang() '显示供应商的名称
        xianshi_dinggoudanbianhao() '显示采购单编号
    End Sub

    '显示供应商的名称
    Private Sub xianshi_gongyingshang()
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select 名称 from gongyingshangxinxi  "
        mydataset = GetDataFromDB(mystr)
        TextBox4.Items.Clear()
        y = mydataset.Tables(0).Rows.Count
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("名称"))
            TextBox4.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub

    '显示订购单编号
    Private Sub xianshi_dinggoudanbianhao()
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        Dim mystr As String
        Dim str As String
        mystr = "select 采购单编号 from dinggou_zongbiao   where 流程 = " + Chr(39) + "4" + Chr(39)
        mydataset = GetDataFromDB(mystr)
        TextBox3.Items.Clear()
        y = mydataset.Tables(0).Rows.Count
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("采购单编号"))
            TextBox3.Items.Add(str)
        Next
        mydataset.Dispose()
    End Sub



    '显示所有存在的工程编号
    Private Sub xianshi_gongcheng_mingcheng()
        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 where 工程结束标志 = " + Chr(39) + "0" + Chr(39)
        mydataset = GetDataFromDB(mystr)
        TextBox2.Items.Clear()
        y = mydataset.Tables(0).Rows.Count
        For i = 0 To y - 1
            str = Trim(mydataset.Tables(0).Rows(i)("工程名称"))
            TextBox2.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_cailiao_shouhuo_zhudan 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_cailiao_shouhuo_zhudan " & _
        "(收货单编号,工程名称,收货日期,订购单编号,供应商,收货人,日期,备注,录入时间) " & _
        "VALUES ('" & Me.TextBox1.Text.Trim & "','" & Me.TextBox2.Text.Trim & "','" & Me.DateTimePicker3.Value.Date & "','" & Me.TextBox3.Text.Trim & "','" & Me.TextBox4.Text.Trim & "','" & Me.TextBox5.Text.Trim & "','" & Me.DateTimePicker2.Value.Date & "','" & Me.TextBox8.Text.Trim & "','" & Now.Date & "')"

        If UpdateData(sqlstr) = False Then
            MsgBox("没有成功添加了该收货主单信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Exit Sub
        Else
            MsgBox("已经成功添加了该收货主单信息,请添加收货的详细内容！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Button1.Enabled = False
            Button6.Enabled = True

            Dim sssstr As String
            sssstr = "UPDATE dinggou_zongbiao SET   流程 =" + Chr(39) + "5" + Chr(39) + "  where 采购单编号 =" + Chr(39) + TextBox3.Text.Trim + Chr(39)
            UpdateData(sssstr)
        End If


    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
            Button5.Enabled = False
            Button3.Enabled = False
            Button6.Enabled = False
            Button1.Enabled = False
        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) + "0" + 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 = "没有提交的收货单"
            Button1.Enabled = False
            ComboBox4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True
            Button3.Enabled = True
        Else
            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) + "0" + 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)
        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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim sqlstr As String
        sqlstr = "UPDATE fk_cailiao_shouhuo_zhudan SET   工程名称 =" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",收货日期 =" + Chr(39) + DateTimePicker3.Value.Date + Chr(39) + ",订购单编号 =" + Chr(39) + Trim(TextBox3.Text) + Chr(39) + ",供应商 =" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",收货人 =" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",日期 =" + Chr(39) + DateTimePicker2.Value.Date + Chr(39) + ",备注 =" + Chr(39) + Trim(TextBox8.Text) + Chr(39) + "  where 收货单编号 =" + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功更新该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新")


        Else
            MsgBox("没有成功更新该信息", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "更新")
            Exit Sub
        End If
    End Sub


    '新建，清空编号
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = ""
        Button6.Enabled = False
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        Button1.Enabled = True
    End Sub



    '删除
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton1.Checked = False Or RadioButton1.Text.Trim = "没有提交的收货单" Then
            MsgBox("请选择要删除的项的编号！", MsgBoxStyle.Information, "提示")
            RadioButton1.Checked = True
            Exit Sub
        End If
        Dim sqlstr As String
        Dim str As String
        sqlstr = "delete fk_cailiao_shouhuo_zhudan  where 收货单编号 = " + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        str = "delete fk_cailiao_shouhuo_xiangdan  where 收货单编号 = " + Chr(39) + ComboBox4.Text.Trim + Chr(39)
        If MsgBox("确定要删除吗？", MsgBoxStyle.YesNo, "删除") = MsgBoxResult.No Then
            Exit Sub
        End If
        If UpdateData(sqlstr) = True And UpdateData(str) Then
            MsgBox("已经成功删除该信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "删除")


        Else
            MsgBox("没有成功删除该信息", MsgBoxStyle.OKOnly + _
                        MsgBoxStyle.Exclamation, "删除")
            Exit Sub
        End If
    End Sub

    '提交申请单
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If RadioButton1.Checked = False Or ComboBox4.Text.Trim = "没有提交的收货单" Then
            MsgBox("请选择要提交的项的编号！", MsgBoxStyle.Information, "提示")
            RadioButton1.Checked = True
            Exit Sub
        End If

        Dim sqlstr As String
        sqlstr = "UPDATE fk_cailiao_shouhuo_zhudan 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


    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)
        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


    '打开货物录入窗口

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If ComboBox4.Text.Trim = "没有提交的收货单" Then
            MsgBox("请选择要录入的收货单号！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        fk_pub_str = TextBox1.Text.Trim
        Dim myform As New fk_cailiao_shouhuoxiangdan
        myform.Show()
        RadioButton1.Checked = False
    End Sub

    Private Sub TextBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.SelectedIndexChanged
        TextBox1.Text = "sh_" + TextBox3.Text.Trim
    End Sub
End Class