📄 paycash.aspx
字号:
'删除操作
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="delete from paycashsheet where code='" & trim(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 ModMoney As String=CType(E.Item.Cells(3).Controls(0),TextBox).Text
dim CashMode as string=CType(E.Item.Cells(4).Controls(0),textBox).Text
dim Fphstr 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 theDiscount as single
dim sql as string
if Isnumeric(modmoney) then
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="update paycashsheet set paymoney=" & csng(modmoney) & ",paymode='" & trim(cashmode) & "',fph='" & trim(fphstr) & "',memo='" & trim(memostr) & "' where code='" & codestr & "'"
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
end if
DataGrid1.EditItemIndex=-1
BindGrid()
Requiredfieldvalidator1.Enabled=True
Requiredfieldvalidator2.Enabled=True
End Sub
Sub Grid1_Cancel(Sender as object,E as DataGridCommandEventArgs)
Requiredfieldvalidator1.Enabled=True
Requiredfieldvalidator2.Enabled=True
datagrid1.EditItemIndex=-1
BindGrid()
End Sub
Sub Grid1_Edit(Sender as object,E as DataGridCommandEventArgs)
Requiredfieldvalidator1.Enabled=False
Requiredfieldvalidator2.Enabled=False
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>
<form runat="server">
<b>付款信息增加</b>
<hr size="1" />
<table class="table1" id="table1" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
<tbody>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" colspan="3" height="25">
请选择付款单位：
<asp:DropDownList class="input_text" id="SelProvider" runat="server" width="200"></asp:DropDownList>
<asp:button class="input_button" id="JSBtn" onclick="JS_Click" runat="server" CausesValidation="false" text="计算款项"></asp:button>
</td>
</tr>
<tr class="tr1">
<td style="PADDING-LEFT: 5px" colspan="3" height="25">
<b>款项信息：<asp:Label id="Label1" runat="server" forecolor="Blue"></asp:Label></b></td>
</tr>
</tbody>
</table>
<table class="table_1" id="table2" cellspacing="1" cellpadding="0" width="95%" align="center">
<tbody>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" width="30%" height="25">
付款时间：
<asp:TextBox class="input_text" id="DDate" runat="server" width="100"></asp:TextBox>
<asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ErrorMessage="必 填" ControlToValidate="DDate"></asp:RequiredFieldValidator>
</td>
<td style="PADDING-LEFT: 5px" width="30%" height="25">
付款金额：
<asp:TextBox class="input_text" id="TxtCash" runat="server" width="100"></asp:TextBox>
<asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server" ErrorMessage="*" ControlToValidate="TxtCash">必填</asp:RequiredFieldValidator>
</td>
<td style="PADDING-LEFT: 5px" width="40%" height="25">
付款方式：
<asp:DropDownList class="input_text" id="SelCashMode" runat="server" width="100">
<asp:ListItem Value="现金" Selected="True">现金</asp:ListItem>
<asp:ListItem Value="汇款">汇款</asp:ListItem>
<asp:ListItem Value="支票">支票</asp:ListItem>
<asp:ListItem Value="转账">转账</asp:ListItem>
<asp:ListItem Value="电汇">电汇</asp:ListItem>
<asp:ListItem Value="托收">托收</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr class="tr1">
<td style="PADDING-LEFT: 5px" height="25">
发 票 号：
<asp:TextBox class="input_text" id="TxtFph" runat="server" width="100"></asp:TextBox>
</td>
<td style="PADDING-LEFT: 5px" colspan="2" height="25">
备 注：
<asp:TextBox class="input_text" id="TxtMemo" runat="server" width="337"></asp:TextBox>
<input class="input_button" id="clear" type="reset" value="清 空" runat="server" />
<asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="保 存"></asp:button>
</td>
</tr>
</tbody>
</table>
<br />
<b>付款信息查询</b>
<hr size="1" />
<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:DropDownList class="input_text" id="query_tj" runat="server" width="97">
<asp:ListItem Value="a.code" Selected="True">付款单编码</asp:ListItem>
<asp:ListItem Value="b.abbrname">供应商</asp:ListItem>
<asp:ListItem Value="fph">发票号</asp:ListItem>
</asp:DropDownList>
检索内容：
<asp:TextBox class="input_text" id="query_content" runat="server" width="120"></asp:TextBox>
<asp:button class="input_button" id="QueryBtn" onclick="Query_Click" runat="server" CausesValidation="False" text="查 询"></asp:button>
<br />
<b><asp:Label id="Msg" runat="server" forecolor="red"></asp:Label></b></td>
</tr>
<tr>
<td style="PADDING-LEFT: 5px" height="25">
<asp:DataGrid id="DataGrid1" runat="server" width="100%" PageSize="12" AutoGenerateColumns="False" OnItemCommand="Grid1_Del" OnupdateCommand="Grid1_Update" OnCancelCommand="Grid1_Cancel" OnEditCommand="Grid1_Edit" 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>
<Columns>
<asp:BoundColumn DataField="Code" ReadOnly="True" HeaderText="付款单编码"></asp:BoundColumn>
<asp:BoundColumn DataField="ddate" ReadOnly="True" HeaderText="付款日期" DataFormatString="{0:d}"></asp:BoundColumn>
<asp:BoundColumn DataField="providername" ReadOnly="True" HeaderText="供应商"></asp:BoundColumn>
<asp:BoundColumn DataField="paymoney" HeaderText="付款金额"></asp:BoundColumn>
<asp:BoundColumn DataField="paymode" HeaderText="付款方式"></asp:BoundColumn>
<asp:BoundColumn DataField="fph" 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -