outbank.aspx.vb

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

        comm.ExecuteNonQuery()
        Dim comm1 As New SqlCommand("delete from OutBanklist where OutBankno=" + aa, conn)
        comm1.ExecuteNonQuery()
        conn.Close()

        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.DataBind()

    End Sub

#End Region

#End Region

#Region "对datagrid的操作"

    Protected Function tb() As DataTable

        Dim adapt As New SqlDataAdapter("select * from OutBank,shop where OutBank.shopno=shop.shopno", conn)
        Dim dataset As New DataSet
        adapt.Fill(dataset)
        Dim table As New DataTable
        table = dataset.Tables(0)
        Return table

    End Function

    Protected Function listtb() As DataTable

        Dim adapt As New SqlDataAdapter("select * from OutBanklist,thing,thingclass where OutBanklist.thingno=thing.thingno and thing.classno=thingclass.classno and OutBankno=" + txt_outbankno.Text, conn)
        Dim dataset As New DataSet
        Dim tb As DataTable
        adapt.Fill(dataset)
        tb = dataset.Tables(0)
        Me.DataGridoutbanklist.DataSource = tb
        Me.DataGridoutbanklist.DataBind()
        Return tb

    End Function

#End Region

#Region "OutBanklist的操作"

#Region "添加"

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles append1.Click

        Me.Panel1.Visible = False
        Me.Panel2.Visible = False
        Me.Panel3.Visible = True
        Me.Panel31.Visible = True
        Me.Panel32.Visible = False
        Me.Panel33.Visible = False

        Me.DataGridoutbanklist.DataSource = listtb()
        Me.DataGridoutbanklist.DataBind()

        Me.Label1.Text = Me.txt_outbankno.Text
        Me.Label2.Text = Me.DropDownList_shopname.SelectedItem.Text

    End Sub

    Protected Sub DropDownList_class_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drop_append_class.TextChanged

        Dim adapt2 As New SqlDataAdapter("select * from thing where classno=" + Me.drop_append_class.SelectedValue, conn)
        Dim dataset2 As New DataSet
        Dim tb2 As New DataTable
        adapt2.Fill(dataset2)
        tb2 = dataset2.Tables(0)
        Me.drop_append_thingname.DataSource = tb2
        Me.drop_append_thingname.DataTextField = "thingname"
        Me.drop_append_thingname.DataValueField = "thingno"
        Me.drop_append_thingname.DataBind()

    End Sub

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

        Dim sqlbuff As New StringBuilder
        sqlbuff.Append("  insert into OutBanklist")
        sqlbuff.Append("  values (" + Me.txt_outbankno.Text)
        sqlbuff.Append("        ," + Me.drop_append_thingname.SelectedValue.ToString)
        sqlbuff.Append("        ," + Me.txt_outbanknumber.Text)
        sqlbuff.Append("        ," + Me.txt_minmoney.Text)
        sqlbuff.Append("        ,'" + Me.txt_remark.Text + "')")
        conn.Open()
        Dim comm As New SqlCommand(sqlbuff.ToString, conn)
        comm.ExecuteNonQuery()
        conn.Close()

        Me.DataGridoutbanklist.DataSource = listtb()
        Me.DataGridoutbanklist.DataBind()

    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles appendcancel.Click

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

    End Sub

#End Region

#Region "修改"

    Protected Sub edit1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit1.Click

        Me.Panel1.Visible = False
        Me.Panel2.Visible = False
        Me.Panel3.Visible = True
        Me.Panel31.Visible = False
        Me.Panel32.Visible = True
        Me.Panel33.Visible = False

        Me.DataGridoutbanklist.DataSource = listtb()
        Me.DataGridoutbanklist.DataBind()

        Me.Label1.Text = Me.txt_outbankno.Text
        Me.Label2.Text = Me.DropDownList_shopname.SelectedItem.Text

    End Sub

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

        Dim sqlbuff As New StringBuilder
        sqlbuff.Append("  update OutBanklist")
        sqlbuff.Append("  set OutBankno=" + Me.txt_outbankno.Text)
        sqlbuff.Append("     ,thingno=" + Me.drop_edit_thingname.SelectedValue)
        sqlbuff.Append("     ,OutBanknumber=" + Me.txt_outbanknumber1.Text)
        sqlbuff.Append("     ,minmoney=" + Me.txt_minmoney1.Text)
        sqlbuff.Append("     ,remark='" + Me.txt_remark1.Text + "'")
        sqlbuff.Append("  where OutBankno=" + Me.txt_outbankno.Text)
        sqlbuff.Append("    and thingno=" + Me.drop_edit_thingname.SelectedValue)
        conn.Open()
        Dim comm As New SqlCommand(sqlbuff.ToString, conn)
        comm.ExecuteNonQuery()
        conn.Close()

        Me.DataGridoutbanklist.DataSource = listtb()
        Me.DataGridoutbanklist.DataBind()

    End Sub

    Protected Sub drop_edit_class_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drop_edit_class.TextChanged

        Dim adapt2 As New SqlDataAdapter("select * from thing where classno=" + Me.drop_edit_class.SelectedValue, conn)
        Dim dataset2 As New DataSet
        Dim tb2 As New DataTable
        adapt2.Fill(dataset2)
        tb2 = dataset2.Tables(0)
        Me.drop_edit_thingname.DataSource = tb2
        Me.drop_edit_thingname.DataTextField = "thingname"
        Me.drop_edit_thingname.DataValueField = "thingno"
        Me.drop_edit_thingname.DataBind()

    End Sub

    Protected Sub editcancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles editcancel.Click

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

    End Sub

#End Region

#Region "删除"

    Protected Sub delete1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles delete1.Click

        Me.Panel1.Visible = False
        Me.Panel2.Visible = False
        Me.Panel3.Visible = True
        Me.Panel31.Visible = False
        Me.Panel32.Visible = False
        Me.Panel33.Visible = True

        Me.DataGridoutbanklist.DataSource = listtb()
        Me.DataGridoutbanklist.DataBind()
        Me.Label1.Text = Me.txt_outbankno.Text
        Me.Label2.Text = Me.DropDownList_shopname.SelectedItem.Text

    End Sub

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

        Dim sqlbuff As New StringBuilder
        sqlbuff.Append("  delete from OutBanklist")
        sqlbuff.Append("   where thingno=" + Me.drop_delete_thingname.SelectedValue)

        conn.Open()
        Dim comm As New SqlCommand(sqlbuff.ToString, conn)
        comm.ExecuteNonQuery()
        conn.Close()

        Me.DataGridoutbanklist.DataSource = listtb()
        Me.DataGridoutbanklist.DataBind()
    End Sub

    Protected Sub drop_delete_class_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drop_delete_class.TextChanged

        Dim adapt2 As New SqlDataAdapter("select * from thing where classno=" + Me.drop_delete_class.SelectedValue, conn) '
        Dim dataset2 As New DataSet
        Dim tb2 As New DataTable
        adapt2.Fill(dataset2)
        tb2 = dataset2.Tables(0)
        Me.drop_delete_thingname.DataSource = tb2
        Me.drop_delete_thingname.DataTextField = "thingname"
        Me.drop_delete_thingname.DataValueField = "thingno"
        Me.drop_delete_thingname.DataBind()

    End Sub

    Protected Sub cancel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles deletecancel.Click

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

    End Sub

#End Region

#End Region

End Class