store.aspx.vb

c++builder开发的一个仓库信息管理系统

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient

Partial Class Mode4_store
    Inherits System.Web.UI.Page

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

        If Not IsPostBack Then

            Me.Panel3.Visible = False
            Me.TextBox1.Enabled = False
            Me.TextBox2.Enabled = False
            Me.TextBox3.Enabled = False
            Me.TextBox4.Enabled = False
            Me.TextBox1.Text = String.Empty
            Me.TextBox2.Text = String.Empty
            Me.TextBox3.Text = String.Empty
            Me.TextBox4.Text = String.Empty
            Me.cancel.Enabled = False
            Me.find.Enabled = False

            Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
            Dim adap As New SqlDataAdapter("select * from thing,thingclass where thing.classno=thingclass.classno", conn)
            Dim dataset As New DataSet
            Dim tb As New DataTable
            adap.Fill(dataset)
            tb = dataset.Tables(0)
            Me.DataGrid1.DataSource = tb
            Me.DataGrid1.DataBind()

        End If

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.cancel.Enabled = True
        Me.find.Enabled = True
        Me.Button1.Enabled = False
        Me.Button2.Enabled = True
        Me.Check_class.Enabled = False
        Me.Check_name.Enabled = False
        Me.Check_no.Enabled = False
        Me.Check_number.Enabled = False

        Me.Panel3.Visible = True

        If Me.Check_no.Checked = True Then

            Me.TextBox1.Enabled = True

        End If

        If Me.Check_name.Checked = True Then

            Me.TextBox2.Enabled = True

        End If

        If Me.Check_number.Checked = True Then

            Me.TextBox3.Enabled = True

        End If

        If Me.Check_class.Checked = True Then

            Me.TextBox4.Enabled = True

        End If

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.cancel.Enabled = False
        Me.find.Enabled = False

        Me.Check_class.Enabled = True
        Me.Check_name.Enabled = True
        Me.Check_no.Enabled = True
        Me.Check_number.Enabled = True

        Me.Button1.Enabled = True
        Me.Panel3.Visible = False
        Me.Check_class.Checked = False
        Me.Check_name.Checked = False
        Me.Check_no.Checked = False
        Me.Check_number.Checked = False
        Me.TextBox1.Enabled = False
        Me.TextBox2.Enabled = False
        Me.TextBox3.Enabled = False
        Me.TextBox4.Enabled = False
        Me.TextBox1.Text = String.Empty
        Me.TextBox2.Text = String.Empty
        Me.TextBox3.Text = String.Empty
        Me.TextBox4.Text = String.Empty

    End Sub

    Protected Sub count_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles find.Click

        Dim sqlbuff As New StringBuilder

        sqlbuff.Append("select * from thing,thingclass")
        sqlbuff.Append(" where thing.classno=thingclass.classno")

        If Me.Check_no.Checked = True Then

            sqlbuff.Append(" and thingno=" + Me.TextBox1.Text)

        End If

        If Me.Check_name.Checked = True Then

            sqlbuff.Append(" and thingname='" + Me.TextBox2.Text + "'")

        End If

        If Me.Check_number.Checked = True Then

            sqlbuff.Append(" and StockNumber=" + Me.TextBox3.Text)

        End If

        If Me.Check_class.Checked = True Then

            sqlbuff.Append(" and classname='" + Me.TextBox4.Text + "'")

        End If
        'Me.Label1.Text = sqlbuff.ToString

        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim adap As New SqlDataAdapter(sqlbuff.ToString, conn)
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adap.Fill(dataset)
        tb = dataset.Tables(0)
        Me.DataGrid1.DataSource = tb
        Me.DataGrid1.DataBind()

    End Sub

    Protected Sub cancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cancel.Click

        Me.Panel3.Visible = False
        Me.TextBox1.Enabled = False
        Me.TextBox2.Enabled = False
        Me.TextBox3.Enabled = False
        Me.TextBox4.Enabled = False
        Me.TextBox1.Text = String.Empty
        Me.TextBox2.Text = String.Empty
        Me.TextBox3.Text = String.Empty
        Me.TextBox4.Text = String.Empty
        Me.Check_class.Checked = False
        Me.Check_name.Checked = False
        Me.Check_no.Checked = False
        Me.Check_number.Checked = False
        Me.cancel.Enabled = False
        Me.find.Enabled = False
        Me.Button1.Enabled = True
        Me.Button2.Enabled = False
        Me.Check_class.Enabled = True
        Me.Check_name.Enabled = True
        Me.Check_no.Enabled = True
        Me.Check_number.Enabled = True

        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim adap As New SqlDataAdapter("select * from thing,thingclass where thing.classno=thingclass.classno", conn)
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adap.Fill(dataset)
        tb = dataset.Tables(0)
        Me.DataGrid1.DataSource = tb
        Me.DataGrid1.DataBind()


    End Sub

End Class