📄 masters.aspx

📁 聊天聊天聊天聊天聊天聊天
💻 ASPX
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="Hersh" Namespace="Generic_chap7" Assembly="GenEditAdd_Chap7" %>
<%@Page Language="VB"  %>
<html>
<script language="VB" runat="server">
Dim myConnection As OleDbConnection
Dim myCommand    As OleDbDataAdapter
Dim ds           As New DataSet
Dim ConnStr      As String
Dim SQL          As String
Sub Page_Load(Source As Object, E As EventArgs) 
	ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"
	myConnection = New OleDbConnection(ConnStr)      
	if NOT (isPostBack)
		rebind
	end if	
End Sub
Sub ReBind()
	'DataSetCommand
	SQL = "select  m.*, g.code_display as category "
	SQL = SQL + "from masters m,  groups g "
	SQL = SQL + " where m.code_category = g.code_value"
	myCommand = New OleDbDataAdapter(SQL, myConnection)
	'use Fill method of DataSetCommand to populate dataset
	myCommand.Fill(ds, "masters")
	'Binding a Grid	
	Grid1.DataSource=ds.Tables("masters").DefaultView
	Grid1.DataBind()
End Sub
Sub RunSql(sql as string)
	'Catch Control Validator errors 
	if not page.isvalid then
		response.write("Stored Procedure did not execute")
		rebind
		exit sub
	end if
	try
	
	Dim mycommand2 As New OleDbCommand(sql,myConnection)
	myconnection.Open()
	myCommand2.ExecuteNonQuery()
	myconnection.Close()
	'turn off editing
	Grid1.EditItemIndex = -1
	 Catch ex As OleDbException
	             ' SQL error
	             Dim errItem   As OleDbError
	             Dim errString As String
	             For Each errItem In ex.Errors
	                 errString += ex.Message + "<br/>"
	             Next
	             Response.write( "SQL Error.Details follow:<br/><br/>" & errString)
	 catch myException as Exception
	  Response.Write("Exception: " + myException.ToString()) 
	end try
	rebind
End sub    	
 Sub Grid1_delete(sender As Object, e As DataGridCommandEventArgs)
   Dim code_value as string   = Grid1.DataKeys.Item(E.Item.ItemIndex).ToString
   Dim sql as string
   sql = "Delete from masters where code_value = " + cstr(code_value)
   RunSql(sql)
 end sub 
</script>
<head>
  <title>Masters DataGrid 1</title>
</head>
<body>
<br>
<form runat=server>
<b>Chart of Accounts:</b><br>
<table width="95%">
<tr>
<td valign="top">
	<asp:DataGrid id="Grid1" runat="server"
	    AutoGenerateColumns="false"
	    BackColor="White"
	    BorderWidth="1px" BorderStyle="Solid" BorderColor="Tan"
	    CellPadding="2" CellSpacing="0"
	    Font-Name="Verdana" Font-Size="8pt"
	    OnDeleteCommand = "Grid1_delete"
            DataKeyField="code_value"
	    >
<Columns>
	    <asp:HyperLinkColumn Text="Edit" DataNavigateUrlField="code_value"
          DataNavigateUrlFormatString="config_masters.aspx?code_value={0}"/>
           <asp:HyperLinkColumn Text="Add" DataNavigateUrlField="code_value"
          DataNavigateUrlFormatString="config_masters.aspx?code_value=0"/>
          <asp:ButtonColumn Text="Delete" CommandName="Delete" HeaderText="Delete"/>
	    <asp:BoundColumn HeaderText="Account" DataField="code_display">
	      <HeaderStyle Width="150px"/>
		
	    </asp:BoundColumn>
	    <asp:BoundColumn HeaderText="Group" DataField="category">
		  <HeaderStyle Width="150px"/>
		
	    </asp:BoundColumn>
	    <asp:BoundColumn HeaderText="Type" DataField="type">
	      <HeaderStyle Width="150px"/>
		
	    </asp:BoundColumn>
	    <asp:BoundColumn HeaderText="Opening" DataField="opening">
		  <HeaderStyle Width="150px"/>
		  
	    </asp:BoundColumn>
	    <asp:BoundColumn HeaderText="Closing" DataField="closing">
		  <HeaderStyle Width="150px"/>
		 
	    </asp:BoundColumn>
 </Columns>
	  <HeaderStyle BackColor="DarkRed" ForeColor="White" Font-Bold="true"/>
	  
	  <ItemStyle ForeColor="DarkSlateBlue"/>
	  
	  <AlternatingItemStyle BackColor="Beige"/>
	   
	</asp:DataGrid>
</td>
<td valign="top">
</td>
 </tr>
 </table>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -