段名数据类型说明读者姓名文本字段大小10读者编号文本主键,字段大小4年龄数字无家庭住址文本字段大小10 3.2功能模块的实现按结构化的程序设计思想,在完成了系统分析、系统设计后,就可以进行系统实现阶段了,系统实现是每指把系统的物理模型转换成实际运行系统的全过程。在打开数据表之前应该先打开数据库,系统中创建了一个模块,该模块的作用是连接数据库以及数据库中数据的提取,因为系统需要频繁的使用数据库中的数据,建立模块可以使程序简单化,模块的代码如下:AsADODB.Connection定义连接以及取记录的对象PublicrstAsADODB.ToDB()oToMy_Debug设定错误机制,=NewADODB.设定访问数据库的参数,对象SQL-server,数据库booksys.ConnectionString="provider=sqloledb;uid=sa;pwd=;server=.".ConnectionTimeout=5.CursorLocation=adUseClient.Open.DefaultDatabase="booksys"ToDB=TrueExitFunctionMy_Debug:当出错时,取消连接数据库Setcon=ToDB=FalseEndFunctionPublicFunctionQueryData(ByValstrSqlAsString)ToDB=TrueThen当连接到数据库后才能取得记录Setrst=NewADODB.RecordsetWithrst定义取记录的参数.Source=strSql..CursorLocation=adUseClient.CursorType=adOpenDynamic.LockType=adLockOptimistic.OpenEndWithQueryData=TrueEndIfExitFunctionMy_Debug:
全文预览
