outbank.aspx.vb

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

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient

Partial Class Mode3_Default
    Inherits System.Web.UI.Page

    Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")

#Region "变量"

#End Region

#Region "初期化"

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

        If Not IsPostBack Then

            Me.DataGridoutbank.DataSource = tb()
            Me.DataGridoutbank.DataBind()

            Dim adapt1 As New SqlDataAdapter("select * from shop", conn)
            Dim dataset1 As New DataSet
            Dim tb1 As New DataTable
            adapt1.Fill(dataset1)
            tb1 = dataset1.Tables(0)
            Me.DropDownList_shopname.DataSource = tb1
            Me.DropDownList_shopname.DataTextField = "shopname"
            Me.DropDownList_shopname.DataValueField = "shopno"
            Me.DropDownList_shopname.DataBind()

            Dim adapt2 As New SqlDataAdapter("select * from thingclass", conn)
            Dim dataset2 As New DataSet
            Dim tb2 As New DataTable
            adapt2.Fill(dataset2)
            tb2 = dataset2.Tables(0)
            Me.drop_append_class.DataSource = tb2
            Me.drop_append_class.DataTextField = "classname"
            Me.drop_append_class.DataValueField = "classno"
            Me.drop_append_class.DataBind()
            Me.drop_delete_class.DataSource = tb2
            Me.drop_delete_class.DataTextField = "classname"
            Me.drop_delete_class.DataValueField = "classno"
            Me.drop_delete_class.DataBind()
            Me.drop_edit_class.DataSource = tb2
            Me.drop_edit_class.DataTextField = "classname"
            Me.drop_edit_class.DataValueField = "classno"
            Me.drop_edit_class.DataBind()

            Me.Panel1.Visible = True
            Me.Panel2.Visible = False
            Me.Panel3.Visible = False
            Me.Paneledit.Visible = False
            Me.Paneldelete.Visible = False
            Me.Session("str") = "0"

        End If

    End Sub

#End Region

#Region "页面跳转"

    Protected Sub inbank_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles outbank.Click

        Me.Panel1.Visible = True
        Me.Panel2.Visible = False
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False
        Me.Paneldelete.Visible = False

        Me.DataGridoutbank.DataSource = tb()
        Me.DataGridoutbank.DataBind()

    End Sub

    Protected Sub inbanklist_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles outbanklist.Click

        Me.Panel1.Visible = False
        Me.Panel2.Visible = True
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False
        Me.Paneldelete.Visible = False

    End Sub

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

        Me.Panel1.Visible = False
        Me.Panel2.Visible = True
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False
        Me.Paneldelete.Visible = False

        Me.DataGridedit.DataSource = tb
        Me.DataGridedit.DataKeyField = "OutBankNo"
        Me.DataGridedit.DataBind()

    End Sub

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

        Me.Panel1.Visible = True
        Me.Panel2.Visible = False
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False
        Me.Paneldelete.Visible = False

    End Sub

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

        Me.Panel1.Visible = False
        Me.Panel2.Visible = False
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = True
        Me.Label3.Visible = True
        Me.Paneldelete.Visible = False

        Me.DataGridedit.DataSource = tb
        Me.DataGridedit.DataKeyField = "OutBankNo"
        Me.DataGridedit.DataBind()

    End Sub

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

        Me.Panel1.Visible = False
        Me.Panel2.Visible = False
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False
        Me.Paneldelete.Visible = True

        Me.DataGriddelete.DataSource = tb
        Me.DataGriddelete.DataKeyField = "OutBankNo"
        Me.DataGriddelete.DataBind()

    End Sub

#End Region

#Region "OutBank的操作"

#Region "添加与修改"

    Protected Sub save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles save.Click

        If Me.Session("str").ToString = "0" Then

            Dim sqlbuff As New StringBuilder
            sqlbuff.Append("  insert into OutBank")
            sqlbuff.Append("  values (" + Me.txt_outbankno.Text)
            sqlbuff.Append("        ,'" + Me.txt_outbankdate.Text + "'")
            sqlbuff.Append("        ," + Me.DropDownList_shopname.SelectedValue)
            sqlbuff.Append("        ,'" + Me.txt_outpeople.Text + "'")
            sqlbuff.Append("        ,'" + Me.txt_expeople.Text + "'")
            sqlbuff.Append("        ," + Me.txt_money.Text)
            sqlbuff.Append("        ,'" + Me.txt_remark.Text + "')")
            conn.Open()
            Dim comm As New SqlCommand(sqlbuff.ToString, conn)
            comm.ExecuteNonQuery()
            conn.Close()

        End If

        If Me.Session("str").ToString = "1" Then

            Dim sqlbuff As New StringBuilder
            sqlbuff.Append(" update OutBank")
            sqlbuff.Append("   set OutBankno=" + Me.txt_outbankno.Text)
            sqlbuff.Append("    ,OutBankDate='" + Me.txt_outbankdate.Text + "'")
            sqlbuff.Append("    ,shopno=" + Me.DropDownList_shopname.SelectedValue)
            sqlbuff.Append("    ,intopeople='" + Me.txt_outpeople.Text + "'")
            sqlbuff.Append("    ,examinepeople='" + Me.txt_expeople.Text + "'")
            sqlbuff.Append("    ,money=" + Me.txt_money.Text)
            sqlbuff.Append("    ,remark='" + Me.txt_outbankremark.Text + "'")
            sqlbuff.Append("  where OutBankno=" + Me.txt_outbankno.Text)
            conn.Open()
            Dim comm As New SqlCommand(sqlbuff.ToString, conn)
            comm.ExecuteNonQuery()
            conn.Close()

            Me.Session("str") = "0"

        End If

        Me.Panel1.Visible = True
        Me.Panel2.Visible = False
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False
        Me.Paneldelete.Visible = False

        Me.DataGridoutbank.DataSource = tb()
        Me.DataGridoutbank.DataBind()

    End Sub

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

        Me.Panel1.Visible = False
        Me.Panel2.Visible = True
        Me.Panel3.Visible = False
        Me.Paneledit.Visible = False

        Dim key As String = Me.DataGridedit.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 OutBank,shop where OutBank.shopno=shop.shopno and OutBankno=" + key, conn)
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adapt.Fill(dataset)
        tb = dataset.Tables(0)

        Me.txt_outbankno.Text = Me.DataGridedit.DataKeys(e.Item.ItemIndex).ToString
        Me.txt_outbankdate.Text = tb.Rows(0).Item("OutBankdate").ToString
        Me.txt_outpeople.Text = tb.Rows(0).Item("IntoPeople").ToString
        Me.txt_expeople.Text = tb.Rows(0).Item("ExaminePeople").ToString
        Me.txt_money.Text = tb.Rows(0).Item("money").ToString
        Me.txt_outbankremark.Text = tb.Rows(0).Item("Remark").ToString
        Me.DropDownList_shopname.SelectedValue = (tb.Rows(0).Item("shopno")).ToString

        Me.Session("str") = 1

    End Sub

#End Region

#Region "删除"

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

        Dim aa As String = Me.DataGriddelete.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 OutBank where OutBankno=" + aa, conn)
        conn.Open()