📄 gysinfo.aspx
字号:
SaveBtn.Text="修 改"
ClearBtn.Text="取 消"
if trim(replace(e.Item.Cells(11).text," ",""))<>"" then
checkbox1.checked="true"
else
checkbox1.checked="false"
end if
checkbox1.enabled="false"
else
'删除操作
ClearData()
theModiCode=""
SaveBtn.Text="保 存"
ClearBtn.Text="清 空"
CheckBox1.Enabled="True"
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="select * from instoresheet where providercode='" & codestr & "'"
cmd=new sqlcommand(sql,cnn)
datar=cmd.executereader()
if datar.read() then
page.registerstartupscript("",getalertinfo("该供应商存在入库信息，无法删除！"))
else
datar.close()
sql="select * from sendretbooksheet where providercode='" & codestr & "'"
cmd=new sqlcommand(sql,cnn)
datar=cmd.executereader()
if datar.read() then
page.registerstartupscript("",getalertinfo("该供应商存在退书信息，无法删除！"))
else
datar.close()
sql="delete from providerinfosheet where code='" & codestr & "'"
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
end if
end if
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 xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>供应商信息设置</title>
<link href="../Main.css" type="text/css" rel="stylesheet" />
</head>
<body>
<form runat="server">
<b>供应商信息增加</b>
<hr size="1" />
<table class="table_1" id="search" cellspacing="1" cellpadding="0" width="95%" align="center">
<tbody>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" height="25">
单位简称：
<asp:TextBox class="input_text" id="Name" runat="server" width="200"></asp:TextBox>
<asp:RequiredFieldValidator id="Requiredfieldvalidator1" runat="server" ErrorMessage="*" ControlToValidate="Name">此项必填</asp:RequiredFieldValidator>
</td>
<td style="PADDING-LEFT: 5px" width="50%" height="25">
单位全称：
<asp:TextBox class="input_text" id="FullName" runat="server" width="200"></asp:TextBox>
</td>
</tr>
<tr class="tr1">
<td style="PADDING-LEFT: 5px" width="50%" height="25">
单位地址：
<asp:TextBox class="input_text" id="Addr" runat="server" width="200"></asp:TextBox>
</td>
<td style="PADDING-LEFT: 5px" height="25">
邮 编：
<asp:TextBox class="input_text" id="zipcode" runat="server" width="200"></asp:TextBox>
</td>
</tr>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" height="25">
联系电话：
<asp:TextBox class="input_text" id="tel" runat="server" width="200"></asp:TextBox>
</td>
<td style="PADDING-LEFT: 5px" height="25">
联 系 人：
<asp:TextBox class="input_text" id="lxr" runat="server" width="200"></asp:TextBox>
</td>
</tr>
<tr class="tr1">
<td style="PADDING-LEFT: 5px" height="25">
开 户 行：
<asp:TextBox class="input_text" id="bankname" runat="server" width="200"></asp:TextBox>
</td>
<td style="PADDING-LEFT: 5px" height="25">
账 号：
<asp:TextBox class="input_text" id="account" runat="server" width="200"></asp:TextBox>
</td>
</tr>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" height="25">
传 真：
<asp:TextBox class="input_text" id="faxno" runat="server" width="200"></asp:TextBox>
</td>
<td style="PADDING-LEFT: 5px" height="25">
电子信箱：
<asp:TextBox class="input_text" id="Email" runat="server" width="200"></asp:TextBox>
</td>
</tr>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" height="25">
出 版 社：
<asp:CheckBox id="CheckBox1" Runat="Server" Checked="False" Text="是否出版社"></asp:CheckBox>
</td>
<td align="middle" height="25">
<asp:button class="input_button" id="ClearBtn" onclick="Clear_Click" runat="server" text="清 空"></asp:button>
<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 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="fullname" Selected="True">单位全称</asp:ListItem>
<asp:ListItem Value="address">单位地址</asp:ListItem>
<asp:ListItem Value="connector">联系人</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" text="查 询" CausesValidation="False"></asp:button>
<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="7" AutoGenerateColumns="False" OnItemCommand="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" HeaderText="编码">
<HeaderStyle width="40px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="AbbrName" HeaderText="单位简称">
<HeaderStyle width="130px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="FullName" HeaderText="单位全称">
<HeaderStyle width="130px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="address" HeaderText="单位地址">
<HeaderStyle width="150px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="connector" HeaderText="联系人">
<HeaderStyle width="50px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumn DataField="telno" HeaderText="联系电话">
<HeaderStyle width="60px"></HeaderStyle>
</asp:BoundColumn>
<asp:BoundColumn Visible="False" DataField="bankname" HeaderText="开户行"></asp:BoundColumn>
<asp:BoundColumn Visible="False" DataField="account" HeaderText="账号"></asp:BoundColumn>
<asp:BoundColumn Visible="False" DataField="zipcode" HeaderText="邮编"></asp:BoundColumn>
<asp:BoundColumn Visible="False" DataField="faxno" HeaderText="传真"></asp:BoundColumn>
<asp:BoundColumn Visible="False" DataField="EmailBox" HeaderText="电子信箱"></asp:BoundColumn>
<asp:BoundColumn Visible="False" DataField="cbscode" HeaderText="对应出版社"></asp:BoundColumn>
<asp:ButtonColumn Text="编辑" HeaderText="编辑" CommandName="Edit"></asp:ButtonColumn>
<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 + -