复件 baoa_lf.aspx
来自「ASP.NET开发实战详解」· ASPX 代码 · 共 268 行
ASPX
268 行
<%@ Page Language="VB" Debug="true" %>
<%@ Register TagPrefix="iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls" %>
<%@ 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 request.cookies("curruser").value="" then
response.redirect ("../index.aspx")
end if
BindGrid()
End If
End Sub
Sub Save_Click(Sender As Object, E As EventArgs)
dim stimeStr as string=stime.text
dim etimeStr as string=etime.text
dim lfrStr as string=lfr.text
dim zjstr as string=zj.text
dim lfraddrstr as string=lfraddr.text
dim reasonstr as string=reason.text
dim bfrstr as string=bfr.text
dim bfraddrstr as string=bfraddr.text
dim zbrstr as string=zbr.text
dim memostr as string=memo.text
dim sql as string
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="insert into ba_visit(stime,etime,lfr,zj,lfraddr,reason,bfr,bfraddr,zbr,memo) values('" & stimestr & "','" & etimestr & "','" & lfrstr & "','" & zjstr & "','" & lfraddrstr & "','" & reasonstr & "','" & bfrstr & "','" & bfraddrstr & "','" & zbrstr & "','" & memostr & "')"
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
call cleardata()
page.registerstartupscript("",getalertinfo("数据保存成功！"))
End Sub
Sub Clear_Click(Sender As Object, E As EventArgs)
call cleardata()
End Sub
sub cleardata()
stime.text=""
etime.text=""
lfr.text=""
zj.text=""
lfraddr.text=""
reason.text=""
bfr.text=""
bfraddr.text=""
zbr.text=""
memo.text=""
end sub
Sub BindGrid()
dim dataR as sqldatareader
dim dtcmd as sqldataadapter
dim dt as new datatable
dim MaxPage as integer '计算最大页数
dim str2 as string
dim Str1 as string
dim i as integer
dim sumrecord as integer
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
str2="select count(*) as nums from ba_visit"
cmd=new sqlcommand(str2,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 * from ba_visit order by id desc"
dtcmd=new sqldataadapter(str1,cnn)
dtcmd.fill(dt)
if (dt.defaultview.count mod datagrid1.pagesize)>0 then
maxpage=dt.defaultview.count \datagrid1.pagesize+1
else
maxpage=dt.defaultview.count \datagrid1.pagesize
end if
do while datagrid1.currentpageindex>0
if maxpage<datagrid1.currentpageindex+1 then
datagrid1.currentpageindex=datagrid1.currentpageindex-1
else
exit do
end if
loop
datagrid1.datasource=dt
datagrid1.databind()
sumrecord=datagrid1.Items.count
for i=0 to sumrecord-1
dim LinkButton=Datagrid1.Items(i).Cells(10).Controls(0)
LinkButton.Attributes.Add("onclick","javascript:openwin('baoa_lf_mod.aspx?id=" & Datagrid1.Items(i).Cells(0).text & "')")
next
cnn.close()
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 ba_visit where id=" & codestr
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
end if
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" />
<script language="javascript">
function openwin(src)
{
var vDialog=null;
vDialog=showModalDialog(src,window,"status:no;resizable:off;dialogHeight:500px;dialogWidth:750px;unadorne:yes;help:no");
location.reload();
}
</script>
</head>
<body leftmargin="0" topmargin="0" background="../images/1.jpg">
<form runat="server">
<iewc:TabStrip id="TabStrip1" style="FONT-WEIGHT: bold; FONT-SIZE: x-small" runat="server" TabDefaultStyle="width:90;border:solid 0px black;background:#dddddd;padding-left:0px;padding-right:0px;padding-top:5px;padding-bottom:5px" TabHoverStyle="color:red" TabSelectedStyle="border:solid 1px black;border-right:none;background:white;padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px" TargetID="MultiPage1" SepDefaultStyle="border-right:solid 1px #000000;">
<iewc:Tab Text="来访信息查询"></iewc:Tab>
<iewc:TabSeparator></iewc:TabSeparator>
<iewc:Tab Text="来访信息增加"></iewc:Tab>
</iewc:TabStrip>
<iewc:MultiPage id="MultiPage1" style="BORDER-RIGHT: #000000; PADDING-RIGHT: 5px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; BORDER-LEFT: medium none; PADDING-TOP: 5px; BORDER-BOTTOM: #000000 1px solid" BorderStyle="None" runat="server" BorderWidth="0px" Height="450px" Width="800px">
<iewc:PageView>
<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 class="tr1">
<td style="PADDING-LEFT: 5px" height="25">
<asp:DataGrid id="DataGrid1" runat="server" width="100%" OnPageIndexChanged="Grid1_PageIndexChanged" AllowSorting="True" AllowPaging="True" Font-Names="verdana" bordercolor="Black" cellpadding="2" font-name="verdana" font-size="8pt" headerstyle-backcolor="#F8FAFC" OnItemCommand="Grid1_Mod" AutoGenerateColumns="False" PageSize="10">
<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 DataField="id" visible="false" HeaderText="序号"></asp:BoundColumn>
<asp:BoundColumn DataField="lfr" HeaderText="来访人"></asp:BoundColumn>
<asp:BoundColumn DataField="stime" HeaderText="来访时间"></asp:BoundColumn>
<asp:BoundColumn DataField="etime" HeaderText="离开时间"></asp:BoundColumn>
<asp:BoundColumn DataField="zj" HeaderText="身份证号"></asp:BoundColumn>
<asp:BoundColumn DataField="bfr" HeaderText="被访人"></asp:BoundColumn>
<asp:BoundColumn DataField="bfraddr" HeaderText="所住单元"></asp:BoundColumn>
<asp:BoundColumn DataField="reason" HeaderText="来访事由"></asp:BoundColumn>
<asp:BoundColumn DataField="zbr" HeaderText="值班人"></asp:BoundColumn>
<asp:BoundColumn DataField="memo" HeaderText="备注"></asp:BoundColumn>
<asp:ButtonColumn Text="修改" HeaderText="修改" CommandName="modiinfo"></asp:ButtonColumn>
<asp:ButtonColumn Text="删除" HeaderText="删除" CommandName="Delete"></asp:ButtonColumn>
</Columns>
</asp:DataGrid>
</td>
</tr>
</tbody>
</table>
</iewc:PageView>
<iewc:PageView>
<br />
<table id="search" cellspacing="1" cellpadding="0" width="80%" align="center" border="0">
<tbody>
<tr class="tr4">
<td height="40">
来 访 人
<asp:TextBox class="input_text" id="lfr" runat="server" width="140"></asp:TextBox>
</td>
<td>
来访时间
<asp:TextBox class="input_text" id="stime" runat="server" width="140"></asp:TextBox>
</td>
<td>
离开时间
<asp:TextBox class="input_text" id="etime" runat="server" width="140"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td width="34%" height="40">
身份证号
<asp:TextBox class="input_text" id="zj" runat="server" width="140"></asp:TextBox>
</td>
<td colspan=2>
来访人地址
<asp:TextBox class="input_text" id="lfraddr" runat="server" width="320"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td colspan=3 height="10"><br></td>
</tr>
<tr class="tr4">
<td height="40">
被 访 人
<asp:TextBox class="input_text" id="bfr" runat="server" width="140"></asp:TextBox>
</td>
<td>
所属单元
<asp:TextBox class="input_text" id="bfraddr" runat="server" width="140"></asp:TextBox>
</td>
<td>
值 班 人
<asp:TextBox class="input_text" id="zbr" runat="server" width="140"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td colspan="3" height="40">
来访事由
<asp:TextBox class="input_text" id="reason" runat="server" width="560"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td colspan="3" height="40">
备 注
<asp:TextBox class="input_text" id="memo" runat="server" width="560"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td valign="bottom" align="middle" colspan="3" height="130">
<asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="保 存"></asp:button>
<asp:button class="input_button" id="ClearBtn" onclick="Clear_Click" runat="server" text="清 空"></asp:button>
<br />
<br />
<asp:RequiredFieldValidator id="Requiredfieldvalidator1" runat="server" ErrorMessage="*" ControlToValidate="stime">来访时间不可为空</asp:RequiredFieldValidator><br />
<asp:RequiredFieldValidator id="Requiredfieldvalidator2" runat="server" ErrorMessage="*" ControlToValidate="lfr">来访人不可为空</asp:RequiredFieldValidator><br>
<asp:RequiredFieldValidator id="Requiredfieldvalidator3" runat="server" ErrorMessage="*" ControlToValidate="bfr">被访人不可为空</asp:RequiredFieldValidator>
</td>
</tr>
</tbody>
</table>
</iewc:PageView>
</iewc:MultiPage>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?