gc_pandian_xinxi.vb

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

        'GroupBox3
        '
        Me.GroupBox3.Location = New System.Drawing.Point(568, 8)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(136, 400)
        Me.GroupBox3.TabIndex = 74
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "操作区"
        '
        'gc_pandian_xinxi
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(720, 558)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.LinkLabel1)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox3)
        Me.MaximizeBox = False
        Me.Name = "gc_pandian_xinxi"
        Me.Text = "工程盘点信息录入"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    '新建按钮，但不是新建保存到数据库
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.ReadOnly = False
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""
        RadioButton1.Checked = False
        RadioButton2.Checked = False

        Me.Button3.Enabled = False
        Me.Button4.Enabled = False
        Me.Button2.Enabled = True
        Me.Button6.Enabled = True

    End Sub

    '本窗体的load事件
    Private Sub gc_pandian_xinxi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Button2.Enabled = False
        technologyinf()
        '  loadchuangti()
        gongchengbianhao()
    End Sub

    '显示所有的工程编号

    Private Sub gongchengbianhao()
        Dim str As String
        Dim sstr As String
        Dim mydataset As New DataSet
        Dim i As Integer
        Dim y As Integer
        str = "select 工程编号,工程名称 from technologyInf"
        mydataset = GetDataFromDB(str)
        y = mydataset.Tables(0).Rows.Count
        TextBox2.Items.Clear()
        For i = 0 To y - 1
            sstr = Trim(mydataset.Tables(0).Rows(i)("工程编号"))
            TextBox2.Items.Add(sstr)
        Next
        mydataset.Dispose()
    End Sub

    '得到所有工程的信息,并且加载到datagrid中
    Private Sub technologyinf()
        Dim mydataset As New DataSet

        Dim str As String = "select * from gongcheng_pandian"
        mydataset = GetDataFromDB(str)
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub


    '把表中第一个数据加载到窗体中
    Private Sub loadchuangti()
        Dim a As New DataSet
        Dim str As String = "select * from gongcheng_pandian"
        a = GetDataFromDB(str)
        TextBox1.Text = Trim(a.Tables(0).Rows(0)("盘点编号"))

        'Textbox2显示的是项目名称
        TextBox2.Text = Trim(a.Tables(0).Rows(0)("工程编号"))
        TextBox3.Text = Trim(a.Tables(0).Rows(0)("工程名称"))
        TextBox4.Text = Trim(a.Tables(0).Rows(0)("盘点简介"))
        TextBox5.Text = Trim(a.Tables(0).Rows(0)("盘点金额"))
        TextBox6.Text = Trim(a.Tables(0).Rows(0)("备注"))
        DateTimePicker1.Text = Trim(a.Tables(0).Rows(0)("盘点日期"))
        a.Dispose()
    End Sub


    '添加工程基本休息
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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 gongcheng_pandian where 盘点编号 =" + Chr(39) + mystr1 + Chr(39)
        If panduan(mystr) = True Then
            MsgBox("盘点编号已经存在！", MsgBoxStyle.Information, "提示！")
            Me.TextBox1.Text = Nothing
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "INSERT INTO gongcheng_pandian " & _
        "(盘点编号,工程编号,工程名称,盘点简介,盘点金额,备注,添加日期,盘点日期,盘点人) " & _
        "VALUES ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Now.Date & "'," + Chr(39) + DateTimePicker1.Value + Chr(39) + "," + Chr(39) + UserName.Trim + Chr(39) + ")"
        If UpdateData(sqlstr) = False Then
            MsgBox("没有成功添加了该盘点信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加成功")
            Exit Sub
        Else
            RadioButton1.Checked = True
            MsgBox("成功添加了该盘点信息！", MsgBoxStyle.OKOnly + _
                   MsgBoxStyle.Exclamation, "添加成功")
        End If

        Me.TextBox1.ReadOnly = False
        Me.Button3.Enabled = True
        Me.Button4.Enabled = True
        Me.Button1.Enabled = True
        Me.Button6.Enabled = True

        Me.Button2.Enabled = False
        MsgBox("已经成功添加了该盘点信息！", MsgBoxStyle.OKOnly + _
        MsgBoxStyle.Exclamation, "添加成功")
    End Sub





    '更新用户信息
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sqlstr As String
        sqlstr = "UPDATE gongcheng_pandian SET   " + "盘点简介=" + Chr(39) + Trim(TextBox4.Text) + Chr(39) + ",盘点金额=" + Chr(39) + Trim(TextBox5.Text) + Chr(39) + ",备注=" + Chr(39) + Trim(TextBox6.Text) + Chr(39) + ",工程编号 =" + Chr(39) + Trim(TextBox2.Text) + Chr(39) + ",工程名称 =" + Chr(39) + Trim(TextBox3.Text) + Chr(39) + "where 盘点编号=" + Chr(39) + Trim(TextBox1.Text) + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功更新了该盘点资料", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新成功")
            RadioButton1.Checked = True
        Else
            MsgBox("没有更新该盘点资料，请与管理员联系！", MsgBoxStyle.OKOnly + _
                       MsgBoxStyle.Exclamation, "更新成功")
        End If
    End Sub



    '删除工程信息
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim sqlstr As String
        sqlstr = "DELETE FROM gongcheng_pandian WHERE 盘点编号='" & Trim(TextBox1.Text) & "'"
        If MsgBox("该盘点信息是否已经被审批？", MsgBoxStyle.YesNo, "提示！") = MsgBoxResult.Yes Then
            MsgBox("不能进行删除，请与开发者联系？", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        If UpdateData(sqlstr) = True Then

            MsgBox("已经成功删除了该盘点信息", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "删除成功")
            RadioButton1.Checked = True
        Else
            MsgBox("不能删除该盘点信息", MsgBoxStyle.OKOnly + _
                       MsgBoxStyle.Exclamation, "删除成功")
        End If
    End Sub



    '取消新建操作
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Button1.Enabled = False
        Me.Button2.Enabled = True
        Me.Button3.Enabled = True
        Me.Button4.Enabled = True

    End Sub


    '根据工程编号，显示工程名称
    Private Sub TextBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.SelectedIndexChanged
        Dim str As String
        Dim sstr As String = TextBox2.Text.Trim
        str = "select 工程名称 from technologyInf where 工程编号 = " + Chr(39) + sstr + Chr(39)
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        TextBox3.Text = mydataset.Tables(0).Rows(0)("工程名称")
        mydataset.Dispose()

    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If ComboBox1.Text = "未提交的收货单号" Or RadioButton1.Checked = False Then
            MsgBox("请选择要提交的收货单！", MsgBoxStyle.Information, "提示")
            Exit Sub
        End If
        Dim sqlstr As String
        sqlstr = "UPDATE gongcheng_pandian SET   " + "流程=" + Chr(39) + "1" + Chr(39) + "where 盘点编号=" + Chr(39) + Trim(ComboBox1.Text) + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功提交了该盘点资料", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新成功")
        Else
            MsgBox("没有成功提交了该盘点资料", MsgBoxStyle.OKOnly + _
                      MsgBoxStyle.Exclamation, "更新成功")
            RadioButton2.Checked = True

        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True

            ComboBox2.Enabled = False
            ComboBox1.Enabled = True
            ComboBox1.Text = "未提交的收货单号"
            Dim i, y As Integer
            Dim str As String
            Dim mydataset As New DataSet
            str = "select 盘点编号 from gongcheng_pandian where 流程 = " + Chr(39) + "0" + Chr(39)
            mydataset = GetDataFromDB(str)
            ComboBox1.Items.Clear()
            y = mydataset.Tables(0).Rows.Count
            Dim sstr As String
            For i = 0 To y - 1
                sstr = Trim(mydataset.Tables(0).Rows(i)("盘点编号"))
                ComboBox1.Items.Add(sstr)
            Next
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = True
            ComboBox1.Enabled = False
            ComboBox2.Enabled = True

            Dim i, y As Integer
            Dim str As String
            Dim mydataset As New DataSet
            str = "select 盘点编号 from gongcheng_pandian where 流程 > " + Chr(39) + "0" + Chr(39)
            mydataset = GetDataFromDB(str)
            ComboBox2.Items.Clear()
            y = mydataset.Tables(0).Rows.Count
            Dim sstr As String
            For i = 0 To y - 1
                sstr = Trim(mydataset.Tables(0).Rows(i)("盘点编号"))
                ComboBox2.Items.Add(sstr)
            Next
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim str As String
        Dim mydataset As New DataSet
        str = "select * from gongcheng_pandian where 盘点编号 = " + Chr(39) + ComboBox1.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)
        DataGrid1.DataSource = mydataset
        TextBox1.Text = mydataset.Tables(0).Rows(0)("盘点编号")

        TextBox2.Text = mydataset.Tables(0).Rows(0)("工程编号")

        TextBox3.Text = mydataset.Tables(0).Rows(0)("工程名称")

        TextBox4.Text = mydataset.Tables(0).Rows(0)("盘点简介")

        TextBox5.Text = mydataset.Tables(0).Rows(0)("盘点金额")

        TextBox6.Text = mydataset.Tables(0).Rows(0)("备注")
        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("盘点日期")
        mydataset.Dispose()
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim str As String
        Dim mydataset As New DataSet
        str = "select * from gongcheng_pandian where 盘点编号 = " + Chr(39) + ComboBox2.Text.Trim + Chr(39)
        mydataset = GetDataFromDB(str)
        DataGrid1.DataSource = mydataset
        TextBox1.Text = mydataset.Tables(0).Rows(0)("盘点编号")

        TextBox2.Text = mydataset.Tables(0).Rows(0)("工程编号")

        TextBox3.Text = mydataset.Tables(0).Rows(0)("工程名称")

        TextBox4.Text = mydataset.Tables(0).Rows(0)("盘点简介")

        TextBox5.Text = mydataset.Tables(0).Rows(0)("盘点金额")

        TextBox6.Text = mydataset.Tables(0).Rows(0)("备注")
        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("盘点日期")
        mydataset.Dispose()
    End Sub
End Class