30图书条码nvarchar50图书作者Int6当前状态表3借阅信息表数据类型intnvarcharnvarcharnvarcharintnvarchar长度备注20ID50图书ID50用户ID10借阅日期4归还日期50是否归还
①DataGrid进行排序、用分页等操作时涉及多次数据绑定,所以直接写成一个专门的数据函数:PrivateSubBindGrid()
()IfNotSession“sqlstr”IsNothingThen(DimsqlstrAsString=CType(Session“sql2)str”,String)
DimobjAsDBController=NewDBController.BindDBGrd(sqlstr,ResultGrid)obj
()Session“sqlstr”=sqlstr
图2系统业务流程图
3.2数据库设计
EndIf
首先创建一个数据库,命名为Library,下表是系统用到的关键数据表:表1读者信息表名称UserIDUsernamePassSexRoleID数据类型intnvarcharnvarcharnvarcharint长度205050104备注用户ID用户名密码性别角色ID
EndSub
②判断当前书的状态:-2表示该书不存在
或不在流通中,-1表示被借,0已经被续借状态,1为可借.
PublicFunctionGetBookState(ByValBookIDAs
String)AsInteger
whereBookState=1andBookID=”+BookID
http://www.cnki.net
1994-2010ChinaA
cademicJournalElectronicPublishingHouse.Allrightsreserved.
Dim
sqlstrAsString=“select3fromBookInfo
第3期
吴曙光刘卫国:基于ASP.NET的图书管理系统设计与实现
obj.ExecNonSql(sqlstr)IfIsUserBooking(UserID,BookID)Then
395
Ifobj.GetRowsNum(sqlstr)=0ThenReturn2EndIf=0andBookID=”+BookIDobj.GetRowsNum(sqlstr)<>0ThenRe2If+nowdate.ToShortDateString+””sqlstr+=’sqlstr=”select3fromBookingInfowher