explain.aspx.vb

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

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient

Partial Class Explain
    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

            Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
            Dim adapt As New SqlDataAdapter("select * from inbank,provider where inbank.providerno=provider.providerno", conn)
            Dim dataset As New DataSet
            Dim tb As DataTable
            adapt.Fill(dataset)
            tb = dataset.Tables(0)
            Me.DataGridinbank.DataSource = tb
            Me.DataGridinbank.DataKeyField = "InBankNo"
            Me.DataGridinbank.DataBind()
            Me.DataGrid1.DataSource = tb
            Me.DataGrid1.DataBind()
            Me.DataGrid2.DataSource = tb
            Me.DataGrid2.DataKeyField = "inbankno"
            Me.DataGrid2.DataBind()

        End If
       
    End Sub

    Protected Sub DataGridinbank_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGridinbank.DeleteCommand

        Me.Label1.Text = "delete"

    End Sub

    Protected Sub DataGridinbank_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGridinbank.ItemCommand

        Me.Label1.Text = CStr(e.Item.ItemIndex)
        Dim key As String = Me.DataGridinbank.DataKeys(e.Item.ItemIndex).ToString

        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim adapt As New SqlDataAdapter("select * from inbank where inbankno=" + key, conn)
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adapt.Fill(dataset)
        tb = dataset.Tables(0)

        Me.Label2.Text = tb.Rows(0).Item(1).ToString


    End Sub

#Region "删除"

    Protected Sub DataGrid2_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.DeleteCommand

        Me.Label1.Text = e.Item.ItemIndex.ToString
        Me.Label2.Text = Me.DataGrid2.DataKeys(e.Item.ItemIndex).ToString
        Dim aa As String = Me.DataGrid2.DataKeys(e.Item.ItemIndex).ToString
        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim comm As New SqlCommand("delete from inbank where inbankno=" + aa, conn)
        conn.Open()
        comm.ExecuteNonQuery()
        conn.Close()

        datagrid()

    End Sub

    Protected Sub datagrid()

        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim adap As New SqlDataAdapter("select * from inbank", conn)
        conn.Open()
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adap.Fill(dataset, "inbank")
        tb = dataset.Tables("inbank")
        Me.DataGrid2.DataSource = tb
        Me.DataGrid2.DataBind()

    End Sub

#End Region

    Protected Sub adap(ByVal str As String)

        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim adapt As New SqlDataAdapter(str, conn)
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adapt.Fill(dataset)
        tb = dataset.Tables(0)

    End Sub

    Protected Sub conn(ByVal str As String)

        Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")
        Dim comm As New SqlCommand(str, conn)
        conn.Open()
        comm.ExecuteNonQuery()
        conn.Close()

    End Sub

End Class