资源描述：
《【精品】图书借阅管理系统.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、图书借阅管理系统创建数据库和数据表1)创建BookManage数据库。USEmasterGOCREATEDATABASEBookE4anageONPRIMARY(NAME=BookM,FILENAME=1d:MicrosoftSQLServerMSSQLDat^'BookD*tu・mdf1zSIZE=10MB,MAXSIZE=200,FILEGROWTH=2)LOGON(NAME=BookLog,FILENAME=1d:MicrosoftSQLServerMSSQLDataBookLog.ldf1,SIZE=1I4B,MAXSIZE=20,FILEGROWTH=1)GO2)在
2、BookManage数据库中，创建图书信息表Bookinfo和图书分类表BookType□CREATETABLEBookinfo(BookNovarchar(20)PrimaryKey,BookNamevarchar(50)NOTNULL,Authorvarchar{20)NOTNULL,Publishervarchar(30)NOTNULL,PricerealNOTNULL,TypelDintNOTNULL,CoverPhotoimage,Memovarchar(255))CREATETABLEBookType(TypelDintPRIMARYKEYIDENTITY,TypeMameva
3、rchar(20)MOTNULL,UIDintNOTNULL)3)在BookManage数据库中，创建借阅证件信息表Cardinfo和借阅证件类型表CardType,CREATETABLECardlnfo(CardNovarchar(16)PrimaryKey,Readervarchar(20)NOTNULL,Workplacevarchar(50),IDCardvarchar(18)NOTNULL,CTypelDvarchar(10)NOTNULL,CreateDatedatetimeNOTNULL,CardstatetinyintNOTNULL)CREATETABLECardType(
4、CTypelDvarchar(10)PRIMARYKEY,TypeNamevarchar(20)NOTNULL,MaxCountsmallintNOTNULL,MaxDayssmallintNOTNULL,RenewDayssmallintNOTNULL)4)在BookManage数据库中，创建用广信息表Passwdlnfo,并在表屮插入一条记录,用户名为“admin",密码为“1234”，用户类型为1,即超级用户。CREATETABLEPasswdlnfo(UserNamevarchar(20)PrimaryKey,Passwdvarchar(50),UserTypetinyintNOT
5、NULLDEFAULT(2))INSERTINTOPasswdlnfoValues(^dmin1,11234fz1)5)在BookManage数据库中，创建书籍借阅信息衣Borrowinfo。CREATETABLEBorrowinfo(CardNovarchar(16)NOTNULL,BookNovarchar(20)PrimaryKey,BorrowDatedatetimeNOTNULL,RenewDatedatetime,ReturnDatedatetimeNOTNULL,FinerealDEFAULT(0)zBorrowstinyintNOTNULL)1.创建工程模块1)数据库连接和
6、操作模块•定义数据库连接字符串、连接对彖、记录集对彖等PublicConstDBNAMEAsString=nBookManagen'数据库PublicConstCONSTRAsString=nProvider=SQLOLEDB・1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=BookManageHPrivateIsConnectAsBoolean，标记数据瘁绘否连接PrivatecnnAsADODB.Connection，数据库的连接对象PrivatersAsADODB.Recordset八记录集对象，定
7、义连接数据弃了过程，如果连接标记为宾，表明数据库己连接，则直接返冋PublicSubDBConnecIfIsConnect=TrueThenExitSubEndIfSetcnn=NewADODB.Connection，关键字New用于创建新对象ermenn.Connectionstring=CONSTR'设匚置连接字符串的Connectionstring属性cnn.Open，打开到数据库的连接Ifcnn.State<>a
