class.aspx.vb

来自「c++builder开发的一个仓库信息管理系统」· VB 代码 · 共 183 行

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient

Partial Class Mode1leibie
    Inherits System.Web.UI.Page

#Region "变量"

    Dim conn As New SqlConnection("Data Source=.;Initial Catalog=WMS;User ID=sa;pwd=074345")

#End Region

#Region "初期化"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

            Dim conn As New SqlConnection("Data Source=.;Initial Catalog=WMS;Persist Security Info=True;User ID=sa;pwd=074345")
            conn.Open()
            Dim adap As New SqlDataAdapter("select * from thingclass", conn)
            Dim dataset As New DataSet
            adap.Fill(dataset, "thingclass")
            Dim table As New DataTable
            table = dataset.Tables("thingclass")
            Me.DataGridfile.DataSource = table
            Me.DataGridfile.DataBind()
            Me.Panelappend.Visible = False
            Me.Paneldelete.Visible = False
            Me.Paneledit.Visible = False
            Me.Panelseek.Visible = False

        End If

    End Sub

#End Region

#Region "添加"

    Protected Sub append_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles append.Click

        Me.Panelappend.Visible = True
        Me.Panelfile.Visible = False
        Me.Paneldelete.Visible = False
        Me.Paneledit.Visible = False
        Me.Panelseek.Visible = False

    End Sub

    Protected Sub append2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles append2.Click

        Dim classno As Integer = CInt(Me.Textappendno.Text)
        Dim classname As String = Me.Textappendname.Text
        conn.Open()
        Dim str As String = "Insert Into thingclass Values(" + classno.ToString + ",'" + classname + "')"
        Dim comm As New SqlCommand(str, conn)
        comm.ExecuteNonQuery()
        conn.Close()
        Me.Response.Redirect("~/Mode1_Class.aspx")

    End Sub

#End Region

#Region "修改"

    Protected Sub edit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit.Click

        Me.Panelappend.Visible = False
        Me.Panelfile.Visible = False
        Me.Paneldelete.Visible = False
        Me.Paneledit.Visible = True
        Me.Panelseek.Visible = False

    End Sub

    Protected Sub edit2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit2.Click

        Dim classno As Integer = CInt(Me.Texteditno.Text)
        Dim classname As String = Me.Texteditname.Text
        conn.Open()
        Dim comm As New SqlCommand("select classno from thingclass where classno='" + classno.ToString + "'", conn)
        Dim reader As SqlDataReader
        reader = comm.ExecuteReader
        If reader.Read Then

            Dim conn1 As New SqlConnection("Data Source=.;Initial Catalog=WMS;Persist Security Info=True;User ID=sa;pwd=074345")
            conn1.Open()
            Dim sqlbuff As New StringBuilder
            sqlbuff.Append(" update thingclass ")
            sqlbuff.Append(" set classno=" + classno.ToString)
            sqlbuff.Append("    ,classname='" + classname + "'")
            sqlbuff.Append(" where classno=" + classno.ToString)
            Dim comm1 As New SqlCommand(sqlbuff.ToString, conn1)
            comm1.ExecuteNonQuery()
            conn1.Close()
            Me.Labeledit.Text = "修改成功"
        Else
            Me.Labeledit.Text = "没有您要修改的货品类别。"
        End If

    End Sub

#End Region

#Region "删除"

    Protected Sub delete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles delete.Click

        Me.Panelappend.Visible = False
        Me.Panelfile.Visible = False
        Me.Paneldelete.Visible = True
        Me.Paneledit.Visible = False
        Me.Panelseek.Visible = False

    End Sub

    Protected Sub delete2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles delete2.Click

        Dim conn As New SqlConnection("Data Source=.;Initial Catalog=WMS;User ID=sa;pwd=074345")
        conn.Open()
        Dim comm As New SqlCommand("select classname from thingclass where classname='" + Me.Text_delete.Text + "'", conn)
        Dim reader As SqlDataReader
        reader = comm.ExecuteReader
        If reader.Read Then
            Dim conn1 As New SqlConnection("Data Source=.;Initial Catalog=WMS;User ID=sa;pwd=074345")
            conn1.Open()
            Try
                Dim comm1 As New SqlCommand("delete from thingclass where classname='" + Me.Text_delete.Text + "'", conn1)
                comm1.ExecuteNonQuery()
                Me.Labeldelete.Text = "删除成功。"
            Catch ex As Exception
                Me.Labeldelete.Text = "对不起,执行错误。"
            End Try
            conn1.Close()
        Else
            Me.Labeldelete.Text = "对不起,没有您要删除的货品类别。"
        End If

        conn.Close()

    End Sub

#End Region

#Region "查找"

    Protected Sub seek_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles seek.Click

        Me.Panelappend.Visible = False
        Me.Panelfile.Visible = False
        Me.Paneldelete.Visible = False
        Me.Paneledit.Visible = False
        Me.Panelseek.Visible = True

    End Sub

    Protected Sub seek2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles seek2.Click

        conn.Open()
        Dim adap As New SqlDataAdapter("select * from thingclass where classname='" + Me.TextBoxseek.Text + "'", conn)
        Dim data As New DataSet
        adap.Fill(data)
        Dim tb As New DataTable
        tb = data.Tables(0)
        If tb.Rows.Count <> 0 Then
            Me.DataGridseek.DataSource = tb
            Me.DataGridseek.DataBind()
            Me.Labelseek.Text = "这是您要查找的货品类别。"
        Else
            Me.Labelseek.Text = "没有您要查找的货品类别。"
        End If

    End Sub

#End Region

End Class