建设商务网站过程,北京建筑设计院排名推荐,网站建设价格组成,建设银行的网站为什么登不上摘 要
本文首先阐述了基于.NET Framework平台的图书馆管理信息系统的开发背景以及其实践意义#xff0c;其次说明了图书馆管理信息系统的功能以及相比同类软件的创新之处。然后就图书馆管理系统开发中所使用的一些的技术进行研究探讨。主要针对数据库的设计技术、存储过程…摘 要
本文首先阐述了基于.NET Framework平台的图书馆管理信息系统的开发背景以及其实践意义其次说明了图书馆管理信息系统的功能以及相比同类软件的创新之处。然后就图书馆管理系统开发中所使用的一些的技术进行研究探讨。主要针对数据库的设计技术、存储过程技术、ADO.NET技术以及用SQL Server .NET Framework 数据提供程序访问SQLserver2000数据库技术四个方面进行了研究。最后还附上了图书馆管理信息系统的安装说明、简单使用说明和一些通用性的经典代码。笔者化了大量的时间用于程序设计这也是笔者工作的重点,所开发的软件具有实用价值所编写的代码对.NET程序员也有很好的参考性。在系统的开发过程中笔者深刻体会到了.NET平台的强大性、优越性以及存储过程在提高数据访问性能和增强数据访问安全性上所起到的重要作用。此外,对于关系代数在数据库科学里的应用笔者在编程过程中也做了一定的研究。
关键词: 数据库.NET FrameworkADO.NET存储过程SQL Server .NET Framework 数据提供程序 图书馆管理系统基于Microsoft公司最新的.NET Framework平台构建编码的基本语言是VB.NET。开发过程中统一使用.NET框架的数据类型、方法抛弃了原来vb6的内容。充分体现了.NET的优越性使软件易安装部署、易维护。系统使用ADO.NETSQLserver2000模式,数据层基本都基于存储过程构建使得速度更快、安全性更高。
2.1系统提供的功能 针对图书馆管理员设计的部分 管理部分是一个基于WinForms的windows窗体应用程序主要为图书馆管理人员提供服务。截图如下 管理部分提供以下功能
用户功能。提供登陆验证、用户切换管理员锁定系统等功能。事务处理 图书证挂失管理。可以针对读者情况对图书证进行挂失以防冒借。 借书、还书管理。实现日常图书借阅及归还。
数据管理 图书、读者管理。实现图书、读者的添加删除编辑。
综合查询统计。可以根据不同条件的组合检索图书或读者以及借阅数据对检索出来的数据可提供多种方式的操作导出为Excel格式、pdf格式、或导出为水晶报表以便打印等。系统设定。设置一些图书馆基本规则如读者类别、图书类别、读者借阅最大天数等此外设定数据服务器信息也在这里。帮助功能。提供一个chm帮助文档帮助图书馆工作人员快速适应本系统此外还提供在线问题反馈软件更新提示等功能。 针对读者设计的部分 由于读者的多元性和位置不确定性该部分采取基于B/S的方式实现。代码使用ASP.NET编写利用ASP.NET的优点可以自动适应多种客户浏览器。截图如下 读者只需要有一台联网的计算机和一个常用WEB浏览器。就可以轻松的进行图书查询、更改个人信息、向图书馆反馈信息等。该部分主要提供以下功能
登陆验证。防止读者信息被盗用。图书查询。一个综合的图书查询系统可以方便的使读者查到需要的书籍。读者个人信息查询以及管理。可以适当的更改一些读者个人的资料如email等此外在这里还可以查到读者当前的、所有的借阅记录等。信息服务。定期公布超期的读者列表以及新到的图书等信息。 5.1存储过程
--备份数据的存储过程
--将数据库备份到服务器C:\下,文件名为 当前日期.zjx
ALTER PROCEDURE BACKUPmyData
AS DECLARE path varchar(15) set pathconvert(varchar,getdate(),112) set pathC:\path.zjx BACKUP DATABASE lib2004 TO Disk path WITH FORMAT, NAME Full Backup of lib2004 RETURN
/*检索某图书是哪位读者借去的*/
ALTER PROCEDURE Book1IsBorrowByWho Book_code nvarchar(50)
AS
SELECT Au_id
FROM borrow
WHERE (book_code Book_code) AND (Return_date IS NULL) RETURN
/*检索某图书是否在馆*/
/*检索在馆的图书 只要图书id不在 借阅记录没有归还的记录 里 就表示在馆*/
/*不在馆 则返回0 在馆 返回1 */
ALTER PROCEDURE Book1IsInLib Book_code nvarchar(50)
AS
SELECT COUNT(*) as IsInLib
FROM book
WHERE Book_code Book_code AND Book_code IN (SELECT book_code FROM Book WHERE Book_code NOT IN (SELECT borrow.Book_code FROM borrow WHERE Return_date IS NULL)) RETURN
/* 用于获取一位读者的 当前借阅书数, 总共借阅书数, 可借书数 最大借阅时间 输入参数Au_id */
ALTER PROCEDURE Get1AuInfo Au_id nvarchar(50), /*1*/ BorrowNo int output, BorrowNoCurrent int output, MaxBorrowDays int output, MaxBorrowBooks int output
AS begin transaction SELECT BorrowNoCOUNT(*) FROM borrow WHERE (Au_id Au_id) SELECT BorrowNoCurrentCOUNT(*) FROM borrow WHERE (Au_id Au_id) AND (Return_date IS NULL) SELECT MaxBorrowDaysausort.Au_borrowdays , MaxBorrowBooksausort.Au_borrowbooks FROM ausort INNER JOIN au ON ausort.Au_sort au.Au_sort WHERE (au.Au_id Au_id) commit transaction RETURN
/* 用于获取一位读者所有超期的借书列表 Au_id */
/*author:翟靖轩 */
ALTER PROCEDURE Select1AuMaxDateBookList Au_id nvarchar(50) /*1*/
AS SELECT borrow.book_code AS 图书条码号, book.Book_name AS 图书题名, borrow.Borrow_date AS 借阅日期, borrow.Should_date AS 应还日期 FROM book INNER JOIN borrow ON book.Book_code borrow.book_code WHERE (borrow.Au_id Au_id) AND (borrow.Return_date IS NULL) AND (borrow.Should_date GETDATE()) ORDER BY borrow.Should_date DESC RETURN
/*返回超期的所有读者*/
/*author:翟靖轩 2004-5-10*/
ALTER PROCEDURE SelectMaxDateAuList
AS SELECT borrow.Au_id AS 借书证号, au.Au_name AS 读者姓名, borrow.book_code AS 图书条码号, book.Book_name AS 图书名称, borrow.Borrow_date AS 借书日期, borrow.Should_date AS 应归还日期 FROM borrow INNER JOIN au ON borrow.Au_id au.Au_id INNER JOIN book ON borrow.book_code book.Book_code WHERE (borrow.Return_date IS NULL) AND (GETDATE() borrow.Should_date) ORDER BY borrow.Au_id RETURN
/*查询一个读者的所有借阅记录 包括已经借过的已经归还的书籍 作者:翟靖轩 日期:2004-5-2 */
ALTER PROCEDURE SelectAuAllBorrowList Au_id nvarchar(50)
AS SELECT book.Book_code AS 条码号, book.Book_name AS 图书题名, borrow.Borrow_date AS 借阅日期, borrow.Return_date AS 归还日期, borrow.Should_date AS 应归还日期, book.Book_isbn AS ISBN号, book.Book_pub AS 出版社, book.Book_sort AS 图书分类, book.Book_author AS 图书作者 FROM book LEFT OUTER JOIN borrow ON book.Book_code borrow.book_code WHERE (borrow.Au_id Au_id) ORDER BY borrow.Return_date, borrow.Borrow_date DESC RETURN
/* 综合图书查询 */
-- 查询所有在馆图书
ALTER PROCEDURE searchBookInLib Book_code nvarchar(50), Book_name nvarchar(50), Book_pub nvarchar(50), Book_isbn nvarchar(50), Book_pubdate smalldatetime1900-01-01, Book_author nvarchar(50), Book_sort nvarchar(50)
AS SELECT Book_code AS 条形码, Book_name AS 图书名称, Book_author AS 图书作者, Book_pub AS 出版社, Book_isbn AS ISBN号, Book_pubdate AS 出版日期, Book_page AS 图书页数, Book_price AS 图书价格, Book_adddate AS 入馆日期, Book_place AS 存放位置, Book_sort AS 图书分类 FROM book WHERE (Book_code LIKE % Book_code %) AND (Book_name LIKE % Book_name %) AND (Book_pub LIKE % Book_pub %) AND (Book_isbn LIKE % Book_isbn %) AND (Book_author LIKE % Book_author %) AND (Book_sort LIKE % Book_sort %) AND (Book_pubdate Book_pubdate) and Book_code not IN (SELECT borrow.Book_code FROM borrow WHERE Return_date IS NULL) RETURN
5.2 winForms代码选录
‘一个用于执行存储过程的类
Imports System.Data
Imports System.Data.SqlClient
Public Class CdataService Protected Connection As SqlConnection Private m_DSN As String 构建一个带有参数的sqlcommand Private Overloads Function CreateCommand(ByVal sprocName As String, ByVal parameters() As IDataParameter) As SqlCommand Dim command As SqlCommand New SqlCommand(sprocName, Connection) command.CommandType CommandType.StoredProcedure Dim para As SqlParameter For Each para In parameters command.Parameters.Add(para) Next command.Parameters.Add(New SqlParameter(Return Value, _ SqlDbType.Int, _ 4, _ System.Data.ParameterDirection.ReturnValue, _ False, _ 0, _ 0, _ String.Empty, _ DataRowVersion.Default, _ Nothing)) Return command End Function 构建一个没有参数的sqlcommand Private Overloads Function CreateCommand(ByVal sprocName As String) As SqlCommand Dim command As SqlCommand New SqlCommand(sprocName, Connection) command.CommandType CommandType.StoredProcedure command.Parameters.Add(New SqlParameter(Return Value, _ SqlDbType.Int, _ 4, _ System.Data.ParameterDirection.ReturnValue, _ False, _ 0, _ 0, _ String.Empty, _ DataRowVersion.Default, _ Nothing)) Return command End Function Public ReadOnly Property DSN() As String Get Return m_DSN End Get End Property Public Overloads Function RunSP(ByVal sprocName As String) As Int32 Dim result As Int32 Connection.Open() Dim command As SqlCommand Me.CreateCommand(sprocName) command.ExecuteNonQuery() result CType(command.Parameters(Return Value).Value, Int32) Me.Connection.Close() Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, ByVal parameters() As IDataParameter) As Int32 Dim result As Int32 Connection.Open() Dim command As SqlCommand Me.CreateCommand(sprocName, parameters) command.ExecuteNonQuery() result CType(command.Parameters(Return Value).Value, Int32) Me.Connection.Close() Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByVal parameters() As IDataParameter, ByVal DataSet As DataSet) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter Connection.Open() sqlDA.SelectCommand Me.CreateCommand(sprocName, parameters) sqlDA.Fill(DataSet, SourceTable) result CType(sqlDA.SelectCommand.Parameters(Return Value).Value, Int32) Connection.Close() Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByRef DataSet1 As DataSet) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter Connection.Open() sqlDA.SelectCommand Me.CreateCommand(sprocName) sqlDA.Fill(DataSet1) result CType(sqlDA.SelectCommand.Parameters(Return Value).Value, Int32) Connection.Close() Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByVal parameters() As IDataParameter, ByRef DataSet As DataSet, ByVal TableName As String) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter Connection.Open() sqlDA.SelectCommand Me.CreateCommand(sprocName, parameters) sqlDA.Fill(DataSet, TableName) result CType(sqlDA.SelectCommand.Parameters(Return Value).Value, Int32) Connection.Close() Return result End Function Public Function Construct(ByVal ConstructString As String) m_DSN ConstructString End Function Public Function Activate() Connection New SqlConnection(m_DSN) End Function Public Function Deactivate() Connection Nothing End Function Public Sub New() End Sub Public Sub New(ByVal ConstrucString As String) Construct(ConstrucString) Me.Activate() End Sub Protected Overrides Sub Finalize() MyBase.Finalize() Me.Deactivate() End Sub
End Class
图书查询窗体的全部代码frmBookQuery.vb
Imports System.Data.SqlClient
Imports System.Drawing.Printing
Public Class frmBookQuery Inherits library.frmBase
#Region Windows 窗体设计器生成的代码 ‘此处略去…
#End Region Private Sub frmBookQuery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With Me.dbgBookList .Anchor CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) .BackColor System.Drawing.Color.Snow .BackgroundColor System.Drawing.SystemColors.ActiveCaptionText .CaptionVisible False .HeaderForeColor System.Drawing.SystemColors.ControlText .ReadOnly True End With BindComboBox1() Me.cboBook_sort.Text End Sub Function search() Dim cn As New SqlClient.SqlConnection(cnstr) Dim cmd As New SqlCommand Dim da As SqlDataAdapter Dim ds As New DataSet With cmd If Me.radAllBook.Checked True Then .CommandText searchBook Else .CommandText searchBookInlib End If .CommandType CommandType.StoredProcedure .Connection cn End With Dim mBook_code As New SqlParameter(Book_code, SqlDbType.NVarChar, 50) 1 Dim mBook_name As New SqlParameter(Book_name, SqlDbType.NVarChar, 50) 2 Dim mBook_pub As New SqlParameter(Book_pub, SqlDbType.NVarChar, 50) 3 Dim mBook_isbn As New SqlParameter(Book_isbn, SqlDbType.NVarChar, 50) 4 Dim mBook_pubdate As New SqlParameter(Book_pubdate, SqlDbType.SmallDateTime, 4) Dim mBook_author As New SqlParameter(Book_author, SqlDbType.NVarChar, 50) 6 Dim mBook_sort As New SqlParameter(Book_sort, SqlDbType.NVarChar, 50) 11 With cmd.Parameters .Add(mBook_code) .Add(mBook_name) .Add(mBook_pub) .Add(mBook_isbn) .Add(mBook_pubdate) .Add(mBook_author) .Add(mBook_sort) End With 赋值 mBook_code.Value Me.txtBook_code.Text.Trim 1 mBook_name.Value Me.txtBook_name.Text.Trim 2 mBook_pub.Value Me.txtBook_pub.Text.Trim 3 mBook_isbn.Value Me.txtBook_isbn.Text.Trim 4 mBook_pubdate.Value Me.dtpBook_pubdate.Value 5 mBook_author.Value Me.txtBook_author.Text.Trim 6 mBook_sort.Value Me.cboBook_sort.Text.Trim 11 da New SqlDataAdapter(cmd) Try da.Fill(ds) ds.Tables(0).Columns(0).Caption 图书条码号 Me.dbgBookList.DataSource ds.Tables(0) Me.Label8.Text 共检索到 ds.Tables(0).Rows.Count.ToString 条记录 Catch ex As Exception MessageBox.Show(ex.Message) Finally cn.Close() If Not cn Is Nothing Then cn.Dispose() End If End Try End Function Function BindComboBox1() Dim cnLib2004 As SqlConnection Dim cmdbooksort As SqlCommand Dim drBooksort As SqlDataReader cnLib2004 New SqlConnection(cnstr) cmdbooksort New SqlCommand With cmdbooksort .CommandType CommandType.StoredProcedure .Connection cnLib2004 .CommandText selectBookSort End With Try cnLib2004.Open() drBooksort cmdbooksort.ExecuteReader Dim myarr As New ArrayList While drBooksort.Read myarr.Add(drBooksort.Item(0)) End While Me.cboBook_sort.DataSource myarr Catch ex As Exception MessageBox.Show(ex.Message) Me.Close() Finally cnLib2004.Close() End Try End Function Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick If e.Button Is Me.tbtnQuery Then search() ElseIf e.Button Is Me.tbtnExit Then Me.Close() ElseIf e.Button Is Me.tbtnReset Then frmClear() ElseIf e.Button Is Me.tbtnExcel Then excel() ElseIf e.Button Is Me.tbtnPrint Then print() End If End Sub Private Sub frmClear() Dim p1 As Control Dim u As New Label For Each p1 In Me.Panel2.Controls If Not p1.GetType Is u.GetType Then p1.Text End If Next Me.cboBook_sort.Text Me.radAllBook.Checked True Me.dtpBook_pubdate.Value 1990-1-1 Me.txtBook_code.Focus() Me.dbgBookList.DataSource Nothing End Sub Sub excel() Dim tableAu As DataTable tableAu CType(Me.dbg.DataSource, DataTable) If tableAu Is Nothing Then MessageBox.Show(没有任何记录可以导出!, error, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Exit Sub End If Dim myfrm As New frmShowProgress myfrm.Show(正在建立excel对象...) Try Dim exl As New Microsoft.Office.Interop.Excel.ApplicationClass Dim workbook As Microsoft.Office.Interop.Excel.Workbook Dim sheet As Microsoft.Office.Interop.Excel.Worksheet workbook CType(exl.Workbooks.Add(), Microsoft.Office.Interop.Excel.Workbook) sheet CType(workbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet) Dim mycount, mycolumn As Int16 With tableAu myfrm.setMsg(正在导出数据,请等待......) For mycount 0 To .Rows.Count - 1 For mycolumn 0 To .Columns.Count - 1 With sheet .Cells(mycount 2, mycolumn 1) tableAu.Rows(mycount).Item(mycolumn) End With Next MsgBox(CType(mycount / .Rows.Count * 100, Int16)) myfrm.setProgress(CType(mycount / .Rows.Count * 100, Int16)) Next myfrm.setMsg(正在设定excel表头格式...) For mycolumn 0 To .Columns.Count - 1 exl.Workbooks(1).Worksheets(1).cells(1, mycolumn 1) .Columns(mycolumn).ColumnName exl.Workbooks(1).Worksheets(1).cells(1, mycolumn 1).Font.Bold True Next End With myfrm.setProgress(100) myfrm.Close() workbook.SaveAs(myfile) sheet.Application.Visible True exl.Quit() Catch ex As Exception MessageBox.Show(导出失败!, fail, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) myfrm.Close() End Try End Sub Private Sub print() Dim tableAu As DataTable tableAu CType(Me.dbgBookList.DataSource, DataTable) If tableAu Is Nothing Then MessageBox.Show(没有任何记录可以导出!, error, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Exit Sub End If Dim myfrm2 As New frmStatus myfrm2.Show(正在导出报表...) Dim myfrm As New frmShowReport Dim rtd As New crtBook rtd.SetDataSource(tableAu) myfrm.Text 报表输出窗口... myfrm.rpt.ReportSource rtd myfrm.rpt.DisplayGroupTree False myfrm2.Close() myfrm.ShowDialog() End Sub End Class
登陆窗体代码frmLogin.vb
Public Class frmLogin Inherits System.Windows.Forms.Form Public IsLogSuccess As Boolean
Public strLogUser As String
#Region Windows 窗体设计器生成的代码 此处略…… #End Region Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load IsLogSuccess False End Sub Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click IsLogSuccess validateLogin(Me.txtUser.Text.Trim, Me.txtPwd.Text.Trim) If IsLogSuccess True Then strLogUser Me.txtUser.Text.Trim Me.Close() Else MessageBox.Show(密码错误!, 请重新登陆!, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint Dim grbrush As Drawing2D.LinearGradientBrush grbrush New Drawing2D.LinearGradientBrush(New Point(0, 0), _ New Point(sender.Width, sender.Height), Color.DarkSlateGray, Color.White) sender.CreateGraphics.FillRectangle(grbrush, New Rectangle(0, 0, sender.Width, sender.Height)) End Sub
End Class
将数据服务器信息序列化为xml文件的类
Imports System.Xml.Serialization
Imports System.IO
Imports System.Collections
Public Class CsetCnInfo Structure CnInfo Public server As String Public database As String Public uid As String Public password As String End Structure Private mCC(4) As String Public Function setCnTofile() Dim mcn As CnInfo mcn.server mCC(0) mcn.database mCC(1) mcn.uid mCC(2) mcn.password mCC(3) Dim xmlS As New XmlSerializer(GetType(CnInfo)) Dim txtwt As TextWriter New StreamWriter(cninfo.xml) xmlS.Serialize(txtwt, mCn) txtwt.Close() End Function Public Function GetCnFromfile() As String Dim mcn As CnInfo Dim xmls As New XmlSerializer(GetType(CnInfo)) Dim txtwt As TextReader New StreamReader(cninfo.xml) Try mcn xmls.Deserialize(txtwt) mCC(0) mcn.server mCC(1) mcn.database mCC(2) mcn.uid mCC(3) mcn.password Catch ex As Exception Throw ex Finally txtwt.Close() End Try Return returnCnstr() End Function Public Function returnCnstr() As String Return server mCC(0) ;database _ mCC(1) ;uid mCC(2) ;pwd mCC(3) End Function Public Property cnstr() As String() Get Return mCC End Get Set(ByVal Value As String()) Value.CopyTo(mCC, 0) End Set End Property Public Sub New() End Sub
End Class
验证登陆的函数
Public Function validateLogin(ByVal uid As String, ByVal pwd As String) As Boolean Dim IsCorrect As Boolean False Dim cnmy As New SqlConnection(cnstr) Dim cmd As New SqlCommand With cmd .Connection cnmy .CommandType CommandType.Text .CommandText select count(*) from manager where Man_idMan_id and Man_pwdMan_pwd End With Dim mMan_id As New SqlParameter(Man_id, SqlDbType.NVarChar, 50) Dim mMan_pwd As New SqlParameter(Man_pwd, SqlDbType.NVarChar, 12) With cmd.Parameters .Add(mMan_id) .Add(mMan_pwd) End With mMan_id.Value uid mMan_pwd.Value pwd Try cnmy.Open() If cmd.ExecuteScalar 1 Then IsCorrect True End If Catch ex As Exception MessageBox.Show(登陆验证时数据库发生错误 vbCrLf ex.Message, _ error, MessageBoxButtons.OK, MessageBoxIcon.Stop) Return False Finally cnmy.Close() If Not cnmy Is Nothing Then cnmy.Dispose() End If End Try Return IsCorrect End Function
5.3 ASP.NET WebForms代码选录
显示读者基本信息Userinfo.aspx的页面后置代码(CodeBehind) Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 在此处放置初始化页的用户代码 If Session(UID) Is Nothing Then Page.Response.Redirect(login.aspx) End If If Not IsPostBack Then If Not Session(UID) Is Nothing Then AuTextBind(Session(UID)) setBorrowState(Session(UID)) Else Page.Response.Redirect(login.aspx) End If End If End Sub 显示某读者基本情况 Function AuTextBind(ByVal strAu_id As String) Dim cnlib2004 As SqlConnection Dim cmdAuBorrowList As SqlCommand Dim drAuBorrowList As SqlDataReader cnlib2004 New SqlConnection(ConfigurationSettings.AppSettings(cncstr)) cmdAuBorrowList New SqlCommand With cmdAuBorrowList .CommandType CommandType.StoredProcedure .CommandText Select1Au .Connection cnlib2004 End With Dim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar, 50) 1 cmdAuBorrowList.Parameters.Add(mAu_id) mAu_id.Value strAu_id Try cnlib2004.Open() drAuBorrowList cmdAuBorrowList.ExecuteReader(CommandBehavior.SingleRow) With drAuBorrowList If .Read() Then Me.spAuadddate.InnerHtml CType(.Item(Au_adddate), String) Me.spAuadr.InnerHtml .Item(Au_adr) Me.spAuname.InnerHtml .Item(Au_name) Me.spAusex.InnerHtml .Item(Au_sex) Me.spAusort.InnerHtml .Item(Au_sort) Me.spAuid.InnerHtml strAu_id Me.spAuemail.InnerHtml .Item(Au_email) Me.spAuremarks.InnerHtml .Item(Au_remarks) Else End If End With Catch ex As Exception Response.Write(ex.Message) Finally cnlib2004.Close() End Try End Function 显示读者借书状态 最大借书册书,当前借书册数 等 Function setBorrowState(ByVal strAu_id As String) Dim cnlib2004 As SqlConnection Dim cmd As SqlCommand Dim dr As SqlDataReader Dim CurBorrowNo As Int16 Dim AllborrowNo As Int16 Dim BorrowDays As Int16 Dim BorrowBooks As Int16 cnlib2004 New SqlConnection(ConfigurationSettings.AppSettings(cncstr)) cmd New SqlCommand With cmd .CommandType CommandType.StoredProcedure .CommandText SelectAuCurrentBorrowNo .Connection cnlib2004 End With Dim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar, 50) 1 cmd.Parameters.Add(mAu_id) mAu_id.Value strAu_id Try cnlib2004.Open() CurBorrowNo CType(cmd.ExecuteScalar, Int16) cmd.CommandText SelectAuAllBorrowNo AllborrowNo CType(cmd.ExecuteScalar, Int16) cmd.CommandText SelectAuSortInfo dr cmd.ExecuteReader(CommandBehavior.SingleRow) While dr.Read() BorrowDays dr.Item(Au_borrowdays) BorrowBooks dr.Item(Au_borrowbooks) End While Me.spTotalBorrowNo.InnerHtml 共借书 AllborrowNo.ToString 册 Me.spMaxBorrowDays.InnerHtml BorrowDays.ToString 天 Me.spBorrowQinkuang.InnerHtml [ CurBorrowNo.ToString / Me.spBorrowQinkuang.InnerHtml BorrowBooks.ToString ] Catch ex As Exception Response.Redirect(error.aspx?errmsg ex.Message) Finally cnlib2004.Close() End Try End Function
