?? masters3.aspx
字號(hào):
<%@Page Language="VB" Inherits="BaseClass" Src="masters3.vb" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="Hersh" TagName="nav" Src="nav.ascx" %>
<html>
<script language="VB" runat="server">
Sub Grid1_Update(sender As Object, e As DataGridCommandEventArgs)
dim sql as string
Dim code_display As String
Dim code_category As String
Dim type As String
Dim opening As String
Dim closing As String
Dim myTextBox As TextBox
'This is the key value :
'Retrieved from the DataKey, since it's a read only field
Dim code_value as string = Grid1.DataKeys.Item(E.Item.ItemIndex).ToString
myTextBox = E.Item.FindControl("edit_name")
code_display = mytextbox.text
myTextBox = E.Item.FindControl("edit_group")
code_category = mytextbox.text
myTextBox = E.Item.FindControl("edit_type")
type = mytextbox.text
myTextBox = E.Item.FindControl("edit_opening")
opening = mytextbox.text
myTextBox = E.Item.FindControl("edit_closing")
closing = mytextbox.text
'Now execute stored procedure
sql = "Execute p_masters " + code_value + ", '" + code_display + " ',"
sql = sql + code_category + ", '" + type +"' ," + opening + "," + closing
RunSql(sql)
End Sub
Sub add_click(Source As Object, E As EventArgs)
Dim sql As string
If acode_display.text = "" or acode_category.SelectedItem.Text = "" then
response.write("Incomplete information")
exit sub
end if
SQL = "Execute p_masters @code_value=NULL,"
SQL = SQL + " @code_display = '" + acode_display.text + "' , @group_name = '"
SQL = SQL + acode_category.SelectedItem.Text + "' , @type = NULL ,"
SQL = SQL + " @opening =" + aopening.text + ", @closing = 0"
RunSql(sql)
'reset values
acode_display.text = ""
aopening.text = ""
hidePanel()
End Sub
Sub add_show(Source As Object, E As EventArgs)
AddPanel.visible = true
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>
<style>
a { color:black;
text-decoration:none;}
a:hover { color:red;
text-decoration:underline;}
</style>
</head>
<body style="font: 10pt verdana; background-color:ivory">
<form runat="server">
<asp:ValidationSummary runat=server
headertext="There were errors on the page:" />
<!---- Navigation Start-------------->
<Hersh:nav id="menu" runat = server
vGridlines = Both
vBorderColor = "Black"
vCellPadding = 7 />
<!---- Navigation Ends-------------->
<h3><font face="Verdana">Chart of Accounts </font></h3>
<asp:Label id="Message" runat="server"/>
<asp:Button id="Addshow" text="Add Account" onclick="add_show" runat="server" />
<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"
OnEditCommand="Grid1_Edit"
OnCancelCommand="Grid1_Cancel"
OnUpdateCommand="Grid1_Update"
OnDeleteCommand = "Grid1_delete"
DataKeyField="code_value">
<Columns>
<asp:EditCommandColumn
EditText="Edit"
CancelText="Cancel"
UpdateText="OK"
ItemStyle-Wrap="false"
HeaderText="Edit"
HeaderStyle-Wrap="false"/>
<asp:ButtonColumn Text="Delete" CommandName="Delete" HeaderText="Delete"/>
<asp:BoundColumn HeaderText="Account #" ReadOnly="true" DataField="code_value"/>
<asp:TemplateColumn HeaderText="Name" >
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("code_display") %>' runat="server"/>
</ItemTemplate>
<EditItemTemplate>
<asp:RequiredFieldValidator runat=server
controltovalidate=edit_Name
errormessage="Name is required.">*
</asp:RequiredFieldValidator>
<asp:TextBox id="edit_name" Text='<%# Container.DataItem("code_display") %>'
runat="server"/>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Group" >
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("category") %>' runat="server" />
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="edit_group" BorderStyle="None" Readonly="True" Text='<%# Container.DataItem("code_category") %>'
runat="server"/>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Type" >
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("type") %>' runat="server"/>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="edit_type" BorderStyle="None" Readonly="True" Text='<%# Container.DataItem("type") %>'
runat="server"/>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Opening" >
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("opening") %>' runat="server"/>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="edit_opening" Text='<%# Container.DataItem("opening") %>'
runat="server"/>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Closing" >
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("closing") %>' runat="server"/>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="edit_closing" BorderStyle="None" Readonly="True" Text='<%# Container.DataItem("closing") %>'
runat="server"/>
</EditItemTemplate>
</asp:TemplateColumn>
</Columns>
<HeaderStyle BackColor="DarkRed" ForeColor="White" Font-Bold="true">
</HeaderStyle>
<ItemStyle ForeColor="DarkSlateBlue">
</ItemStyle>
<AlternatingItemStyle BackColor="Beige">
</AlternatingItemStyle>
</asp:DataGrid>
</td>
<td valign="top">
<!---- insert row logic-------------->
<asp:Panel id="AddPanel" runat="server" Visible="false">
<table style="font: 8pt verdana">
<tr>
<td colspan="2" bgcolor="#aaaadd" style="font:10pt verdana">Add a New Account:</td>
</tr>
<tr>
<td nowrap>Name: </td>
<td><asp:TextBox id="acode_display" runat="server" /></td>
<td> <asp:RequiredFieldValidator runat=server
controltovalidate=acode_display
errormessage="Name is required.">*
</asp:RequiredFieldValidator></td>
</tr>
<tr>
<td nowrap>Group: </td>
<td><asp:DropDownList DataTextField = "code_display"
DataValueField = "code_value" id="acode_category" runat="server" /></td>
</tr>
<tr>
<td nowrap>Opening Value: </td>
<td><asp:TextBox id="aopening" value = "0" runat="server" /></td>
</tr>
</td>
<td style="padding-top:15">
<asp:Button id="SubmitDetailsBtn" text="Submit" onclick="add_Click" runat="server" />
</td>
</tr>
</tr>
</table>
</asp:Panel>
<!-------------Insert Logic ends -------->
</td>
</table>
</form>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -