masters3.vb

聊天 聊天 聊天 聊天 聊天 聊天

Option Strict Off
Imports System
Imports System.Collections
Imports System.Text
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI
Imports System.Web.UI.WebControls


Public Class BaseClass

Inherits System.Web.UI.Page
protected Grid1 as DataGrid
Protected Message as label
Protected acode_category as dropdownlist
Protected AddPanel as Panel
Dim ConnStr      As String
Dim SQL          As String
Sub Page_Load(Source As Object, E As EventArgs) 
	ConnStr = "Provider=SQLOLEDB; Data Source=(local); "
   	ConnStr = ConnStr+" Initial Catalog=ASPNET;User ID=sa;"   
	if NOT (isPostBack)
	rebind
	end if
End Sub
Sub ReBind()
	Dim t As New NameSpaceHersh.SQLService
	Dim ds as DataSet
	' Bind Grid
	SQL = "select  m.*, g.code_display as category "
	SQL = SQL + "from masters m,  groups g "
	SQL = SQL + " where m.code_category = g.code_value"
	ds = t.Populate(ConnStr, SQL)
	Grid1.DataSource=ds.Tables("vTable").DefaultView
	Grid1.DataBind()
	'populate drop down list
	SQL = "Select * from groups order by code_display"
	ds = t.Populate(ConnStr, SQL)
	acode_category.DataSource=ds.Tables("vTable").DefaultView
	acode_category.DataBind()
	hidePanel()
End Sub
Sub Grid1_Edit(Sender As Object, E As DataGridCommandEventArgs)
	Grid1.EditItemIndex = E.Item.ItemIndex
	ReBind()
End Sub
Sub Grid1_Cancel(Sender As Object, E As DataGridCommandEventArgs)
	Grid1.EditItemIndex = -1
	ReBind()
End Sub
sub hidePanel()
	if AddPanel.visible = true then
	   AddPanel.visible = false
	end if
end sub
Sub RunSql(vSQL as string)
		
	Dim t As New NameSpaceHersh.SQLService
	Dim s as string
	s = t.RunSQL(ConnStr,vSQL)
	Grid1.EditItemIndex = -1
        Rebind
        if s <> "Success" then
		Message.Text = s
		Message.Style("color") = "red"
        End if
End sub
End Class