ASP.NET图书馆管理信息系统

摘　　要

本文首先阐述了基于.NET Framework平台的图书馆管理信息系统的开发背景以及其实践意义，其次说明了图书馆管理信息系统的功能以及相比同类软件的创新之处。然后就图书馆管理系统开发中所使用的一些的技术进行研究探讨。主要针对数据库的设计技术、存储过程技术、ADO.NET技术以及用SQL Server .NET Framework 数据提供程序访问SQLserver2000数据库技术四个方面进行了研究。最后还附上了图书馆管理信息系统的安装说明、简单使用说明和一些通用性的经典代码。笔者化了大量的时间用于程序设计，这也是笔者工作的重点,所开发的软件具有实用价值，所编写的代码对.NET程序员也有很好的参考性。在系统的开发过程中，笔者深刻体会到了.NET平台的强大性、优越性以及存储过程在提高数据访问性能和增强数据访问安全性上所起到的重要作用。此外,对于关系代数在数据库科学里的应用，笔者在编程过程中也做了一定的研究。

关键词: 数据库；.NET Framework；ADO.NET；存储过程；SQL Server .NET Framework 数据提供程序

图书馆管理系统基于Microsoft公司最新的.NET Framework平台构建，编码的基本语言是VB.NET。开发过程中统一使用.NET框架的数据类型、方法，抛弃了原来vb6的内容。充分体现了.NET的优越性，使软件易安装部署、易维护。系统使用ADO.NET+SQLserver2000模式,数据层基本都基于存储过程构建，使得速度更快、安全性更高。

2.1系统提供的功能：

针对图书馆管理员设计的部分：

管理部分是一个基于WinForms的windows窗体应用程序，主要为图书馆管理人员提供服务。截图如下：

管理部分提供以下功能：

用户功能。（提供登陆验证、用户切换，管理员锁定系统等功能。）
事务处理

图书证挂失管理。（可以针对读者情况对图书证进行挂失，以防冒借。）

借书、还书管理。（实现日常图书借阅及归还。）

数据管理

图书、读者管理。（实现图书、读者的添加，删除，编辑。）

综合查询统计。（可以根据不同条件的组合检索图书或读者以及借阅数据，对检索出来的数据可提供多种方式的操作：导出为Excel格式、pdf格式、或导出为水晶报表以便打印等。）
系统设定。（设置一些图书馆基本规则，如读者类别、图书类别、读者借阅最大天数等，此外设定数据服务器信息也在这里。）
帮助功能。（提供一个chm帮助文档，帮助图书馆工作人员快速适应本系统，此外还提供在线问题反馈，软件更新提示等功能。）

针对读者设计的部分：

由于读者的多元性和位置不确定性，该部分采取基于B/S的方式实现。代码使用ASP.NET编写，利用ASP.NET的优点，可以自动适应多种客户浏览器。截图如下：

读者只需要有一台联网的计算机和一个常用WEB浏览器。就可以轻松的进行图书查询、更改个人信息、向图书馆反馈信息等。该部分主要提供以下功能：

登陆验证。（防止读者信息被盗用。）
图书查询。（一个综合的图书查询系统，可以方便的使读者查到需要的书籍。）
读者个人信息查询以及管理。（可以适当的更改一些读者个人的资料，如email等，此外在这里还可以查到读者当前的、所有的借阅记录等。）
信息服务。（定期公布超期的读者列表，以及新到的图书等信息。）

5.1存储过程

--备份数据的存储过程

--将数据库备份到服务器C:\下,文件名为当前日期+.zjx

ALTER PROCEDURE BACKUPmyData

DECLARE @path varchar(15)

set @path=convert(varchar,getdate(),112)

set @path='C:\'+@path+'.zjx'

BACKUP DATABASE lib2004

TO Disk = @path

WITH FORMAT,

NAME = 'Full Backup of lib2004'

RETURN

/*检索某图书是哪位读者借去的*/

ALTER PROCEDURE Book1IsBorrowByWho

@Book_code nvarchar(50)

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)

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

begin transaction

SELECT @BorrowNo=COUNT(*)

FROM borrow

WHERE (Au_id = @Au_id)

SELECT @BorrowNoCurrent=COUNT(*)

FROM borrow

WHERE (Au_id = @Au_id) AND (Return_date IS NULL)

SELECT @MaxBorrowDays=ausort.Au_borrowdays ,

@MaxBorrowBooks=ausort.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*/

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

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)

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 smalldatetime='1900-01-01',

@Book_author nvarchar(50)='',

@Book_sort nvarchar(50)=''

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)

command.Parameters.Add(New SqlParameter("Return Value", _

SqlDbType.Int, _

4, _

System.Data.ParameterDirection.ReturnValue, _

False, _

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, _

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

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

'MsgBox(CType(mycount / .Rows.Count * 100, Int16))

myfrm.setProgress(CType(mycount / .Rows.Count * 100, Int16))

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

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_id=@Man_id and Man_pwd=@Man_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 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