tuik.aspx
来自「ASP.NET开发实战详解」· ASPX 代码 · 共 289 行
ASPX
289 行
<%@ 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()
ddate.text=year(now) & "-" & month(now) & "-" & day(now)
End If
End Sub
Sub Save_Click(Sender As Object, E As EventArgs)
dim dycode as string
dim DymcStr as string=dymc.text
dim datestr as string=ddate.text
dim tfmoneyStr as string=tfmoney.text
dim tffsstr as string=tffs.text
dim tfrstr as string=tfr.text
dim agentstr as string=agent.text
dim memostr as string=memo.text
dim sql as string
dim datar as sqldatareader
if trim(dymcstr)="" or trim(datestr)="" or tfmoneystr="" then
page.registerstartupscript("",getalertinfo("单元名称、退费日期、退费金额均不可为空！"))
else
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="select code from fc_cell where name='" & dymcstr & "'"
cmd=new sqlcommand(sql,cnn)
datar=cmd.executereader()
if datar.read() then
dycode=datar("code").tostring
datar.close()
sql="insert into cw_tf(cellcode,ddate,tfr,agent,tffs,tfmoney,memo) values('" & dycode & "','" & datestr & "','" & tfrstr & "','" & agentstr & "','" & tffsstr & "'," & tfmoneystr & ",'" & memostr & "')"
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
call cleardata()
page.registerstartupscript("",getalertinfo("数据保存成功！"))
else
page.registerstartupscript("",getalertinfo("该单元名称不存在，数据无法保存！"))
end if
end if
End Sub
sub cleardata()
hzname.text=""
dymc.text=""
tel.text=""
addr.text=""
ddate.text=""
tfr.text=""
agent.text=""
tffs.text=""
tfmoney.text=""
memo.text=""
end sub
Sub Clear_Click(Sender As Object, E As EventArgs)
call cleardata()
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
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
str2="select count(*) as nums from fc_cell,cw_tf where code=cellcode"
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 cw_tf.id,name,ddate,tfr,agent,tffs,tfmoney,cw_tf.memo from fc_cell,cw_tf where code=cellcode order by cw_tf.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()
cnn.close()
End Sub
Sub OnChangedDY(Sender As Object, E As EventArgs)
dim dyname as string=dymc.text
dim datar as sqldatareader
dim sql as string
hzname.text=""
tel.text=""
addr.text=""
if trim(dyname)<>"" then
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
sql="select * from zh_master where cellcode in (select code from fc_cell where name='" & dyname & "')"
cmd=new sqlcommand(sql,cnn)
cnn.open()
datar=cmd.executereader()
if datar.read() then
hzname.text=trim(datar("name"))
tel.text=trim(datar("lxdh"))
addr.text=trim(datar("lxdz"))
end if
datar.close()
cnn.close()
end if
End Sub
Sub Grid1_Mod(Sender as object,E as DataGridCommandEventArgs)
dim codestr as string=E.Item.Cells(0).Text
dim sql as string
if CType(e.CommandSource,LinkButton).CommandName="Delete" then
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="delete from cw_tf 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 tfmoneystr as String=CType(E.Item.Cells(3).Controls(0),TextBox).Text
dim memoStr As string=CType(E.Item.Cells(7).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_tf set tfmoney=" & tfmoneystr & ",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" topmargin="0" background="../images/1.jpg">
<form runat="server">
<table id="search" cellspacing="1" cellpadding="0" width="85%" align="center" border="0">
<tbody>
<tr>
<td height="30" width="34%">
单元名称
<asp:TextBox class="input_text" id="dymc" runat="server" width="140" OnTextChanged="OnChangedDY" AutoPostBack=True></asp:TextBox>
</td>
<td width="33%">
户主姓名
<asp:TextBox class="input_text" id="hzname" enabled="false" runat="server" width="140"></asp:TextBox>
</td>
<td height="30" width="34%">
联系电话
<asp:TextBox class="input_text" id="tel" enabled="false" runat="server" width="140"></asp:TextBox>
</td>
</tr>
<tr>
<td colspan="3" height="30">
联系地址
<asp:TextBox class="input_text" id="addr" enabled="false" runat="server" width="560"></asp:TextBox>
</td>
</tr>
<tr><td colspan="3" height="10"></td></tr>
<tr>
<td height="30" width="34%">
退费日期
<asp:TextBox class="input_text" id="ddate" runat="server" width="140"></asp:TextBox>
</td>
<td width="33%">
退费金额
<asp:TextBox class="input_text" id="tfmoney" runat="server" width="140"></asp:TextBox>
</td>
<td width="34%">
退费方式
<asp:TextBox class="input_text" id="tffs" runat="server" width="140"></asp:TextBox>
</td>
</tr>
<tr>
<td height="30" width="34%">
退 费 人
<asp:TextBox class="input_text" id="tfr" runat="server" width="140"></asp:TextBox>
</td>
<td width="33%">
经 手 人
<asp:TextBox class="input_text" id="agent" runat="server" width="140"></asp:TextBox>
</td>
<td width="34%">
备 注
<asp:TextBox class="input_text" id="memo" runat="server" width="140"></asp:TextBox>
</td>
</tr>
<tr>
<td valign="bottom" align="middle" colspan="3" height="40">
<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>
</td>
</tr>
</tbody>
</table>
<hr>
<table class="" id="search" cellspacing="1" cellpadding="0" width="90%" 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%" OnPageIndexChanged="Grid1_PageIndexChanged" AllowSorting="True" AllowPaging="True" Font-Names="verdana" bordercolor="Black" cellpadding="2" font-name="verdana" font-size="8pt" headerstyle-backcolor="#F8FAFC" OnEditCommand="Grid1_Edit" OnCancelCommand="Grid1_Cancel" OnupdateCommand="Grid1_Update" OnItemCommand="Grid1_Mod" AutoGenerateColumns="False" PageSize="6">
<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" readonly="true" visible="false" HeaderText="序号"></asp:BoundColumn>
<asp:BoundColumn DataField="name" readonly="true" HeaderText="单元名称"></asp:BoundColumn>
<asp:BoundColumn DataField="ddate" readonly="true" HeaderText="退费日期" DataFormatString="{0:yyyy-MM-dd}"></asp:BoundColumn>
<asp:BoundColumn DataField="tfmoney" HeaderText="退费金额"></asp:BoundColumn>
<asp:BoundColumn DataField="tffs" readonly="true" HeaderText="退费方式"></asp:BoundColumn>
<asp:BoundColumn DataField="tfr" readonly="true" HeaderText="退费人"></asp:BoundColumn>
<asp:BoundColumn DataField="agent" readonly="true" 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 + -
显示快捷键?