📄 fqueryreader.aspx
字号:
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="fQueryReader.aspx.vb" Inherits="图书管理信息系统.fQueryReader"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>fQueryReader</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<script language="vb" runat="server">
Sub btnSearch_Click(sender as Object,e as EventArgs)
if txtKey.text.trim.equals("")=false then
Select Case ddlType.selectedvalue.trim
Case "个人信息"
lbltype.text="读者个人详细信息"
dapersoninfo.selectcommand.parameters("@id").value=txtkey.text.trim
dspersoninfo.clear()
dapersoninfo.fill(dspersoninfo)
If DsPersonInfo.Tables(0).Rows.Count<=0 Then
txtReadID.Text="不存在这样的借书证号"
txtReadName.Text=""
txtSex.Text=""
txtDeptName.Text=""
txtReadTypeID.Text=""
txtBorrowNumber.Text=""
txtborrowdays.Text=""
Else
txtReadID.Text=DataBinder.Eval(DsPersonInfo, "Tables[Read].DefaultView.[0].cReadID")
txtreadname.Text=DataBinder.Eval(DsPersonInfo,"Tables[Read].DefaultView.[0].cReadName")
txtsex.Text=DataBinder.Eval(DsPersonInfo,"Tables[Read].DefaultView.[0].Sex")
txtdeptname.Text=DataBinder.Eval(DsPersonInfo,"Tables[Read].DefaultView.[0].cDepartmentName")
txtreadtypeid.Text=DataBinder.Eval(DsPersonInfo,"Tables[Read].DefaultView.[0].cReadTypeName")
txtborrownumber.Text=DataBinder.Eval(DsPersonInfo,"Tables[Read].DefaultView.[0].siBorrowNumber")
txtborrowdays.Text=DataBinder.Eval(DsPersonInfo,"Tables[Read].DefaultView.[0].siBorrowDays")
End If
tablepersoninfo.visible=true
DGBorrow.visible=false
Case "借书情况"
lbltype.text="读者借阅情况"
daborrow.selectcommand.parameters("@id").value=txtKey.text.trim
daborrow.fill(dsborrow)
DGBorrow.DataSource=DataBinder.Eval(DsBorrow, "Tables[Borrow].DefaultView")
DGBorrow.databind()
tablepersoninfo.visible=false
DGBorrow.visible=true
Case "历史借书情况"
lbltype.text="读者历史借阅情况"
dahistoryborrow.selectcommand.parameters("@id").value=txtKey.text.trim
dahistoryborrow.fill(dshistoryborrow)
DGBorrow.DataSource=DataBinder.Eval(DsHistoryBorrow, "Tables[Borrow].DefaultView")
DGBorrow.databind()
tablepersoninfo.visible=false
DGBorrow.visible=true
Case "超期图书警告情况"
lbltype.text="超期图书警告情况"
dadefer.selectcommand.parameters("@id").value=txtKey.text.trim
dadefer.fill(dsdefer)
DGBorrow.DataSource=DataBinder.Eval(DsDefer, "Tables[Borrow].DefaultView")
DGBorrow.databind()
tablepersoninfo.visible=false
DGBorrow.visible=true
Case Else
End Select
end if
End Sub
</script>
</HEAD>
<body background="image\back.gif" onload="Page_load" MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:image id="Image1" style="Z-INDEX: 101; LEFT: 144px; POSITION: absolute; TOP: 8px" runat="server"
Width="208px" Height="48px" ImageUrl="image\logo.gif"></asp:image><asp:hyperlink id="HyperLink2" style="Z-INDEX: 111; LEFT: 16px; POSITION: absolute; TOP: 120px"
runat="server" Font-Bold="True" Font-Names="隶书" Font-Size="Medium" NavigateUrl="fQueryBook.aspx">图书信息查询</asp:hyperlink><asp:label id="lblType" style="Z-INDEX: 106; LEFT: 144px; POSITION: absolute; TOP: 184px" runat="server"
Width="648px" Font-Bold="True" Font-Names="宋体"></asp:label><asp:table id="tablePersonInfo" style="Z-INDEX: 105; LEFT: 144px; POSITION: absolute; TOP: 208px"
runat="server" Width="656px" Height="298px" BackColor="#E0E0E0" BorderStyle="Double" BorderColor="#FFC080">
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label1" Font-Names="宋体" Font-Bold="True">读者编号：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%" HorizontalAlign="Left">
<asp:TextBox runat="server" ID="txtReadID"></asp:TextBox>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label2" Font-Names="宋体" Font-Bold="True">姓名：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%" HorizontalAlign="Left">
<asp:TextBox runat="server" ID="txtReadName">
</asp:TextBox>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label3" Font-Names="宋体" Font-Bold="True">性别：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%">
<asp:TextBox runat="server" ID="txtSex">
</asp:TextBox>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label4" Font-Names="宋体" Font-Bold="True">系名：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%">
<asp:TextBox runat="server" ID="txtDeptName">
</asp:TextBox>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label5" Font-Names="宋体" Font-Bold="True">读者类别：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%">
<asp:TextBox runat="server" ID="txtReadTypeID">
</asp:TextBox>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label6" Font-Names="宋体" Font-Bold="True">最大借阅数：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%">
<asp:TextBox runat="server" ID="txtBorrowNumber">
</asp:TextBox>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="40%" HorizontalAlign="Right">
<asp:Label runat="server" Width="232px" ID="Label7" Font-Names="宋体" Font-Bold="True">最长借阅期限：</asp:Label>
</asp:TableCell>
<asp:TableCell Width="60%">
<asp:TextBox runat="server" ID="txtBorrowDays">
</asp:TextBox>
</asp:TableCell>
</asp:TableRow>
</asp:table><asp:table id="Table1" style="Z-INDEX: 104; LEFT: 144px; POSITION: absolute; TOP: 80px" runat="server"
Width="656px" Height="64px" BackColor="#E0E0E0" BorderStyle="Double" BorderColor="#FFC080" HorizontalAlign="Left">
<asp:TableRow Width="100%" ForeColor="Olive" Font-Size="Medium" Font-Names="隶书" Font-Bold="True">
<asp:TableCell Text="检索类别"></asp:TableCell>
<asp:TableCell Text="检索项"></asp:TableCell>
<asp:TableCell Text="检索词"></asp:TableCell>
<asp:TableCell Text="&nbsp;"></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell>
<asp:DropDownList runat="server" Width="128px" ID="ddlType">
<asp:ListItem Value="个人信息">个人信息</asp:ListItem>
<asp:ListItem Value="借书情况">借书情况</asp:ListItem>
<asp:ListItem Value="历史借书情况">历史借书情况</asp:ListItem>
<asp:ListItem Value="超期图书警告情况">超期图书警告情况</asp:ListItem>
</asp:DropDownList>
</asp:TableCell>
<asp:TableCell>
<asp:DropDownList runat="server" Width="128px" ID="ddlID">
<asp:ListItem Value="借书证号">借书证号</asp:ListItem>
</asp:DropDownList>
</asp:TableCell>
<asp:TableCell>
<asp:TextBox runat="server" ID="txtKey"></asp:TextBox>
</asp:TableCell>
<asp:TableCell>
<asp:Button runat="server" ForeColor="Olive" ID="btnSearch" Height="24px" Font-Size="Medium"
Font-Names="隶书" Font-Bold="True" Text="检 索" OnClick="btnSearch_Click"></asp:Button>
</asp:TableCell>
</asp:TableRow>
</asp:table><asp:image id="Image2" style="Z-INDEX: 102; LEFT: 360px; POSITION: absolute; TOP: 8px" runat="server"
Width="440px" ImageUrl="image\school.jpg"></asp:image>
<HR style="Z-INDEX: 103; LEFT: 8px; POSITION: absolute; TOP: 72px" width="100%" SIZE="1">
<asp:datagrid id="DGBorrow" style="Z-INDEX: 107; LEFT: 144px; POSITION: absolute; TOP: 208px"
runat="server" Width="656px" Height="300px" BackColor="#E0E0E0" BorderStyle="Double" BorderColor="#FFC080"
BorderWidth="4px">
<AlternatingItemStyle BackColor="#CCCC99"></AlternatingItemStyle>
<ItemStyle BackColor="#FFCC99"></ItemStyle>
<HeaderStyle Font-Size="Medium" Font-Names="隶书" Font-Bold="True" HorizontalAlign="Left" ForeColor="#333333"
VerticalAlign="Middle" BackColor="#CCCCCC"></HeaderStyle>
<PagerStyle Visible="False"></PagerStyle>
</asp:datagrid><asp:hyperlink id="HyperLink1" style="Z-INDEX: 110; LEFT: 48px; POSITION: absolute; TOP: 88px"
runat="server" Font-Bold="True" Font-Names="隶书" Font-Size="Medium" NavigateUrl="fMain.aspx">首页</asp:hyperlink></form>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -