stockmasters.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 AddPanel as Panel
Public SortField As String

Sub Page_Load(Source As Object, E As EventArgs) 
	If NOT (isPostBack)
	If SortField = "" Then
	 SortField = "code_display"
	End If
	rebind
	end if
End Sub
Sub ReBind()
	Dim ConnStr      As String
	Dim SQL          As String
	ConnStr = "Provider=SQLOLEDB; Data Source=(local); "
   	ConnStr = ConnStr+" Initial Catalog=ASPNET;User ID=sa;"
	Dim t As New NameSpaceHersh.SQLService
	Dim ds as DataSet
	' Bind Grid
	SQL = "Select * from stock_master"
	ds = t.Populate(ConnStr, SQL)
	Dim dv2 as DataView 
	dv2 = ds.Tables("vTable").DefaultView
	dv2.Sort = SortField 
	Grid1.DataSource= dv2
	Grid1.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 ConnStr      As String
	Dim SQL          As String
	ConnStr = "Provider=SQLOLEDB; Data Source=(local); "
   	ConnStr = ConnStr+" Initial Catalog=ASPNET;User ID=sa;"
	Dim t As New NameSpaceHersh.SQLService
	Dim s as string
	s = t.RunSQL(ConnStr,vSQL)
	Grid1.EditItemIndex = -1
	if s <> "Success" then
	   Message.Text = s
	   Message.Style("color") = "red"
	End if
	response.write (vsql)
	Rebind
End sub
End Class