ubiao.aspx
来自「ASP.NET开发实战详解」· ASPX 代码 · 共 163 行
ASPX
163 行
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.sqlclient" %>
<script runat="server">
dim Cnn as sqlconnection
dim cmd as sqlcommand
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
If Session("curruser") = "" Then
Response.Redirect("../index.aspx")
End If
BindGrid()
End If
End Sub
Sub BindGrid()
dim dataR as sqldatareader
dim dtcmd as sqldataadapter
dim dt as new datatable
dim str2 as string
dim Str1 as string
dim dystr as string=dy.text
dim i as integer
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
str1="select count(*) as nums from cw_biao_user a where cellcode in (select code from fc_cell where name='" & trim(dystr) & "')"
cmd=new sqlcommand(str1,cnn)
cnn.open()
datar=cmd.executereader()
if datar.read() then
if datar("nums").tostring()="0" then
msg.text=""
else
msg.text="合计：记录数 " & datar("nums").tostring()
end if
end if
datar.close()
str1="select a.id,code,type,lc,price,initnum,place,a.memo from cw_biao_user a,cw_biao_info b where a.biaocode=b.id and cellcode in (select code from fc_cell where name='" & trim(dystr) & "') order by type,code"
dtcmd=new sqldataadapter(str1,cnn)
dtcmd.fill(dt)
datagrid1.datasource=dt
datagrid1.databind()
cnn.close()
End Sub
Sub Sure_Click(Sender As Object, E As EventArgs)
bindgrid()
end sub
Sub Grid1_Mod(Sender as object,E as DataGridCommandEventArgs)
dim codestr as string=E.Item.Cells(0).Text
dim sql as string
dim url as string
if CType(e.CommandSource,LinkButton).CommandName="Delete" then
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="delete from cw_biao_user where id=" & codestr
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
end if
End Sub
Sub Grid1_Update(Sender as object,E as DataGridCommandEventArgs)
dim InitNumStr as String=CType(E.Item.Cells(4).Controls(0),TextBox).Text
dim PlaceStr As string=CType(E.Item.Cells(5).Controls(0),TextBox).Text
dim MemoStr As string=CType(E.Item.Cells(6).Controls(0),TextBox).Text
dim CodeStr as String=E.Item.Cells(0).Text
dim sql as string
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="update cw_biao_user set initnum=" & initnumstr & ",place='" & placestr & "',memo='" & memostr & "' where id=" & codestr
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
DataGrid1.EditItemIndex=-1
BindGrid()
End Sub
Sub Grid1_Cancel(Sender as object,E as DataGridCommandEventArgs)
datagrid1.EditItemIndex=-1
BindGrid()
End Sub
Sub Grid1_Edit(Sender as object,E as DataGridCommandEventArgs)
DataGrid1.EditItemIndex=E.Item.ItemIndex
BindGrid()
End Sub
Sub Grid1_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
datagrid1.CurrentPageIndex = e.NewPageIndex
BindGrid()
End Sub
Function GetAlertInfo(byval str1 as string) as String
dim Str2 as String
str2="<script language='javascript'>alert('" & str1 & "')<"
str2+="/"
str2+="script>"
return trim(str2)
End Function
</script>
<html>
<head>
<title>用户表</title>
<link href="../Main.css" type="text/css" rel="stylesheet" />
</head>
<body leftmargin="0" background="../images/1.jpg" topmargin="0">
<form runat="server">
<br />
<table id="search" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
<tbody>
<tr class="tr4">
<td width="34%" height="30">
单元名称
<asp:TextBox class="input_text" id="dy" runat="server" width="130"></asp:TextBox>
</td>
<td>
<asp:button class="input_button" id="SureBtn" onclick="Sure_Click" runat="server" text="确 定"></asp:button>
</td>
</tr>
<tr class="tr4">
<td colspan="2">
<hr />
</td>
</tr>
</tbody>
</table>
<table class="" id="search" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
<tbody>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" height="25">
<asp:Label id="Msg" runat="server" forecolor="red"></asp:Label></td>
</tr>
<tr>
<td style="PADDING-LEFT: 5px" height="25">
<asp:DataGrid id="DataGrid1" runat="server" width="100%" AutoGenerateColumns="False" OnEditCommand="Grid1_Edit" OnCancelCommand="Grid1_Cancel" OnupdateCommand="Grid1_Update" OnItemCommand="Grid1_Mod" headerstyle-backcolor="#F8FAFC" font-size="8pt" font-name="verdana" cellpadding="2" bordercolor="Black" Font-Names="verdana" AllowPaging="True" AllowSorting="True" OnPageIndexChanged="Grid1_PageIndexChanged">
<HeaderStyle font-bold="True" horizontalalign="Center" verticalalign="Middle" backcolor="#F8FAFC"></HeaderStyle>
<PagerStyle nextpagetext="下一页" font-names="宋体" font-bold="True" prevpagetext="上一页" horizontalalign="Right" forecolor="Blue" mode="NumericPages"></PagerStyle>
<EditItemStyle backcolor="#E9F0F8"></EditItemStyle>
<Columns>
<asp:BoundColumn Visible="False" readonly=true DataField="id" HeaderText="序号"></asp:BoundColumn>
<asp:BoundColumn DataField="code" readonly=true HeaderText="表编号"></asp:BoundColumn>
<asp:BoundColumn DataField="type" readonly=true HeaderText="类型"></asp:BoundColumn>
<asp:BoundColumn DataField="lc" readonly=true HeaderText="量程"></asp:BoundColumn>
<asp:BoundColumn DataField="initnum" HeaderText="底数"></asp:BoundColumn>
<asp:BoundColumn DataField="place" HeaderText="安装地点"></asp:BoundColumn>
<asp:BoundColumn DataField="memo" HeaderText="备注"></asp:BoundColumn>
<asp:EditCommandColumn ButtonType="LinkButton" UpdateText="更新" HeaderText="编辑" CancelText="取消" EditText="编辑"></asp:EditCommandColumn>
<asp:ButtonColumn Text="删除" HeaderText="删除" CommandName="Delete"></asp:ButtonColumn>
</Columns>
</asp:DataGrid>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?