计算机信息管理专业优秀毕业设计（论文）

1、计算机图书管理系统图书管理系统是典型的信息管理系统(mis),其开发主要包括后台数据库的建立和维护 以及前端应用程序的开发两个方面。经过分析，使用microsoft公司的visual basic6. 0为 开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术, 图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开 发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种 复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统。本案例开发的是“计 算机图书管理系统” 图书馆管理系统是我国大部分院校或其它部门

2、不可缺少的部分，书籍是人类精神食粮,尤其对 一些学校，图书馆来说，非常重要。在软件开发中，以计算机图书为主，称“计算机图书管 理系统”。计算机图书管理系统能够为用户实现借阅图书、管理等，随着科学技术的不断提 高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并 发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对图书资源信息进行管理, 具有着手工管理所无法比拟的优点例如:查阅迅速、安全性高.可靠性高.存储量大、保密 性好、成本低等。计算机图书管理系统能够单一定向计算机图书方面，具有实用，精简功能 等效率，这些优点能够极大地提高图书馆管理的效率，也是企业、学

3、校的科学化、正规化管理, 与世界接轨的重要条件。因此，开发这样一套管理软件是很有必要.关键字(keywords)：信息管理系统(mis)、数据库、visual basic60、面向对象(object)、计算机图书管理系统一、数据库设计（一）数据库概念1（二）计算机图书管理系统数据库 4（三）利川data控件访问数据库4二、计算机图书管理系统数据（一）数据库与vb的连接 .10（二）关闭数据对象和连接对象 10（三）显示数据库的内容 10（四）计算机图卩管理系统数据流程图 10.三、计算机图书管理系统2008（一）开发计算机图书管理系统的目的 12（二）开发图书管理系统的思路 12四、计算机图书

4、管理系统模块设计（一）界面设计规范及流程图 13.（二）系统窗体汇总 .13（三）主页而设计13五、软件测试分析报告（一）软件信息.41（二）常见系统出错问题及解决41.六、结束语42数据库设计(mdb )据的概念办公软件office套件中，最为广大用户熟悉的是word和excel,因为它们功能强大且方便易用，更 因为它们不仅可用于办公，述可用于个人写作和家庭记帐理财等。同为office套件中一部分的access, 虽然有着同样强大的功能，但使丿ij的人却相对少些，不像word和excel那样广泛。事实上，真正用过access 的川户，对t强人功能和灵活应川均称赞令加。access数据库管理系

5、统是microsoft office套件的重 要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。access不仅是一个数据库, 而ii它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体(表单)，查询，报表和应用 程序等。有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图彖、声音等。access -种关系式数据库，关系式数据库由一系列表组成，表乂由一系列行和列组成，每一行是一 个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。图1是一个“产品” 农的例子。“产品”表山10个记录纟

6、i成，一个记录占一行，每一个记录山产rffild、产晶名称、库存量、 订货量、单价和折扣率6个字段组成。“产品id”是字段名，其下面的1, 2等是字段的值。表与表z间 可以建立关系(或称关联，连接)，以便查询相关联的信息。access数据库以文件形式保存，文件的扩展 名是mdb。access数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。1. 表(table)表是数据库的基木对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表川来存贮 数据库的数据，故又称数据表。2. 数据查询(query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若t个表的字段组成新表

7、。3. 数据窗体(form)窗体提供了一种方便的浏览、输入及更改数据的窗口。述对以创建子窗体显示相关联的表的内容。窗 体也称表单。4. 数据报表(report)报表的功能是将数据朋中的数据分类汇总，然后打卬出来，以便分析。5. 数据宏(macro)宏相当于dos中的批处理，用來自动执行一系列操作.access列出了一些常用的操作供用八选择，使 用起来十分方便。6. 数据模块（modu i e）模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块 使用v i sual basic编程（二）计算机管图书管理系统数据库计算机管理系统图书管理系统数据库模式定义了数据

8、库的结构、表、关系、域和业务规则。 数据 库模式是一种设计，数据库和应用正是建立在此基础上的。域是一列可能拥有的值的集合。必须为每一个 表的每一列确定域。除了数据的物理必填字段外，还需要确定是否有些域对表来说是唯一的。计算机管理系统图书管理系统数据库模式的最后一个要素是业务规则，它是对需要反映在数据库和数据库 应用程序中的业务活动的允许空字符串。业务规则是模式的一个重要部分，因为他们指定了无论什么数据 变化到达dbms引擎，允许的数据值必须满足的允许空字符串。不管无效的数据变化请求是来自窗体的用 户、查询/修改请求还是应用程序dbms都应该拒绝。遗憾的是，不同的dbms产品用不同的方法实施业

9、务规则。在某些情况下，dbms产品不具备实施必要业务规则的能力，必须以代码形式把它们编入应用程 序（三）利用data控件访问数据库该软件是利川access数据库，操作方便，简单。在access数据库中不需要创建数据连接，因为它是vb 中默认的数据库形式。这里的数据库采用access,用ado作为连接数据对彖。以归纳为以下儿步：1.建立access数据库启动access,建立一个空的数据库computerbookmanage,如图8所示。图书表:c如：豪一刃mw一 _上哪js1wa第x4:盂益r时n»j理z言绪rabtfaiqij十«|mi氏a*9w99 皿 annual r

10、ers e«¥« 52tw.“ 5« ，出钦 » »8<d«k(rm)q化gmm用户表:trlttn|ml审叶*wk 创jw"lamxr 他斗 tifttw bk*伍znf式m 和砒康tow：m -t?n(«*£«，. ff n ？irr砒s询肪.2. 连接数据在visual basic环境下，选择“工程”一“引用”命令，在随后出现的对话框中选择"microsoft如遇 3£q)|activex data objects 2. 0 library",

11、然后单击"确定”按钮，如图:引用 xei.vbp吋用的引用q）：i vjitiil j«:c f&r 埒visual fjlite ruhu«4 bjeeti tud pr址2<1 < visual suie object! sd pr«wd>ir*s w n【f au# n t i on hieroift dtt< eimiy collationias mtls<r cob1 0 type lmuryias xcius prolm*l 1 0 t»t library aerojet2 0 typt l&#

12、171;w«ryactavt is iis extfion dhactavt 25 iis namhpy rmriitr aettv k typ< ltw tryactive stvip cojiut«>1 librarybvvvkicwo代 activolobjtctr 2 0 liwery定位 cfal»isc«mon 卩】“小*戸'&4*“020 tlbin 标准3.0引用ado连接数据库在程序设计的公共模块中，先定义ado连接对彖。语句如下:public conn as new adodb. connection 标记

13、连接对象然后在子程序中，用如下的语句即可打开数据库:dim conncctionstring as stringconnectionstring 二"provider二micros。ft jet.oledb.4. 0; &_/zdata source二 computerbookmanage mdbconn. open connectionstring4. 0 设置 odbcvb的ado对象是通过odbc来访问数据库，所以还要建立odbc数据引擎接口。打开控制面板屮的“管理工具”-> “数据源”（odbc）,出现如图所示的对话框。图17 odbc对话框单击“添加”按钮，出

14、现“创建新数据源”对话框，如图18所示。5.0创建新数据源”对话框选择microsoft access driver(*. mdb),单击“完成”按钮，出现如图19所示对话框。设置连接数据源在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在odbc对话框中单击“确定”按钮完成odbc设置。(四) mdb数据流程图以及数据表| visual ua3ic1 基本表：书籍book字段类型字段大小必填字段允许空字符串管理人员文本50否是图书编号文木12是否图书名称文本16否是作者文本8否出版社文本20否是库存量数字小数是是入库时间口期/时间口动否无2基本表：用户表user

15、_table字段类型字段大小必填字段允许空字符串登录名文本16否是密码文本16否是身份文本50否是权限数字1否是3基本表：读者表字段类型字段大小必填字段允许空字符串读者姓名文本8是主键读者编号数字50是否性别文本2否是读者类别文本50否是工作单位文本50否是家庭地址文本50否否电话号码文本50自动口动登记日期口期/时间自动自动自动已借书数量数字自动自动自动4.基本表：职工信息worker字段类型字段大小必填字段允许空字符串管理人员文本50否是工号数字50是否姓名文木8否是性别文本2否是电话数字13否是住址5.基本表：借阅信息reader字段类型字段人小必填字段允许空字符用序号自动编号(长整型)

16、主键丄号文本250图书编号文本250借阅时间丨1期/时间长ii期ado屮的数据对象通常保存的是查询结果。record set是ado屮最复朵的对象，有许多属性和方法。record set保存的是一行行的记录，并标有一个当前记录。以下是创建方法：可以直接利川data控件宜接绑定，在data控件的属性屮的recordsource对数据表进行连接。set record set二db. openrecordset (sqtstr)这条语句创建并打开了对象record set,其中db是先前创建的链接对象，sqtstr是一个字串，代表一条 标准的 sql 语句。例如：sqlstr= “select *

17、from tablel n set record set=i)b. openrecordset (sqtstr), 执行后，对象record set中就保存了表tablel中的所有记录。计算机图书管理系统数据（-）数据库与vb的连接当数据设置好后就应用vb当中去，步骤:新建一个模块命名“ database u在database添加代码，数据库与vb的连接代码（由于代码很长见光盘code目录下“ database.txt"）c«n»<m 小 0*8 x”:-f w it 1 (ce *ra xh®岂鮒 x*j hs绍2l筒片型_国电j *i«

18、;w c«&p xatd於“心；包门空 僦crag b £1it jp &i为ocm& cd _i e® sq： f用户«： 丘 ®ar令w处曰a - 4=bi xr*l if 2 tf rymlcm2<rer*lcrer<e2cre2 atiw_3|（-）关闭数据对象和链接对象在使用了 ado对象之后要关闭它，i大1为它使用了-定的服务器资源。通过调用方法close实现关闭, 然后再释放它。record set .closeset record set二nothing/关闭创建的数据对象mcorm. clo

19、sesot mconn二nothing/关闭创建的链接对象（三）显示数据库中的内容利用msflegrtd控件來显示数据库中的内容，可以直接通过data控件來实现操作，也可以利川代码來 完成相关的操作。sql = "select * from book where 图书信息 二'"& textl （0）. text &"if sql <> thenset rs = db. openrecordset (sql)（四）计算机图书管理系统数据流程图-rs« tr «j1i1gi no三.开发图书管理系统2008(-

20、)开发计算机图书管理系统的目的计算机图书馆管理系统是我国人部分院校或其它部门不可缺少的部分，书籍是人类粘神食粮，尤其对 一些学校，图卩馆来说，非常重耍。图书馆管理系统能够为用户实现借阅图卩、期刊、试卷合订本等，随 着科学技术的不断提高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领 域并发挥着越来越重要的作川。作为计算机应川的一部分，使川计算机对图书资源信息进行管理，具有着手 工管理所无法比拟的优点.例如:查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。这些 优点能够极人地提髙图书馆管理的效率，也是企业、学校的科学化、正规化管理，与世界接轨的重要条件，

21、因此，开发这样一套管理软件是很有必要。(-)开发计算机图书管理系统的思路单从这一方面，开发图书管理系统需要从以下儿个构思方面着手。1. 遐想遐想。即大胆地思维想象，在脑海形成一个框架，怎样去开发，如何去开发，开发有什么好处即影 响。开发会遇到什么问题，怎样去解决.2. 绘图即将遐想的，川图象勾画出来，呈现模拟系统的功能.3. 准备材料准备事先制作好材料。如软件屮所需要的图片。代码，软件图标(ico)页面图片(bmpjpg)4. 开发“粮草好了，就动兵马”意思是现实开发系统(如新建窗体，模块等).ui计算机图书管理系统模块设计（-）界面设计规范以及流程图（详细见页面）主界血：菜单栏、工具条、工作

22、区（本系统采用sstab页框）、状态栏等。（-）系统窗体汇总窗体名称窗体类型简要说明frmlogln启动窗体系统登陆formlmdi主窗体系统卞窗体form2模式窗体图书涪息录入form3mdi子窗体职工信息录入form4模式窗体借书管理form5模式窗体还书管理form6模式窗体使川帮助frm_sys_set模式窗体账号管理frmabout模式窗体关于软件frmmsgmdi子窗体友情提示名称类型模块说明database数据类型数据连接xp_canvas窗体窗体移动xpcmdbutton按钮个性按钮xphelp系统系统帮助xptopbuttons系统最大化，最小化，关闭xpcmdbutton

23、1按钮借书xpcmdbutton2按钮还书xpcmdbutton3按钮图书录入xpcmdbutton4按钮职匚录入xpcmdbutton5按钮图书杳询xpcmdbutton6按钮借阅查询（三）主窗体界面设计主界面的设计采川标准无标题主窗口样式，自上而下依次为:菜单栏、工具条、工作区（木系统采丿ij sstab页框）、状态栏等。所有系统用户拥有相似的主界而。主界而包含慕本的或共享的功能，如书目浏览 耳检索，基本统计等。代码见code h录下:main. txt主界面如代码所示：option explicit'定义査询字段的窗体级变量'定义查询的字段窗体变量dim sfield a

24、s string'查询的关键词dim seachtext as string'査询函数定义'、桜书号查询则釆用具体查询办法'2、按书名杳询则采用模糊查询办法function open seach(table name as string, sfield as string, seachtext as string) as integerdim sqlstr as stringdim str as string'建立数据库连接set con = new adodb.connectionsot rst = new adodb. recordsetcon.cu

25、rsorlocation = aduseclientsqlstr = "provider二microsoft. jet. oledb.4. 0; + "data source二"+ app. path +'adataxcomputerbookmanage.mdb" + “；persist security info二false"con. open sqlstr'查询办法选择if optionl.value = true thenstr 二"select * from " & table_name &a

26、mp; " where ” & sfield & "7 " & seachtext & 八"elsestr = "select * from z/ & table_name & " where " & sfielcl & " like ' " & trim(z/ & textl. text & %)& ”' ”end ifif option3.value = true thenstr = &qu

27、ot;select * from " & table_name & " where " & sfield & "二'"& seachtext &"elsestr = "select * from " & tabl ename & " where " & sfi el d & " like ' "& trim(" %” & textl. tex t&

28、 细)& ”' ”end ifrst. open str, con, adopendynamic, adlockoptimisticrst requeryif rst.recordcount > 0 thenopen_seach = 1'返回一个值1,代表有杳询结果el seopen_seach = 0'返回一个值0,代农没有查询结果end ifend functionprivate sub check4 click()'选择查询的字段select case tabstripl.selectedltemcase 图书信息浏览":sfiel

29、d = 出版社end selectend subprivate sub coniniandl_click()if rst. bof = true thenfrmmsg. showfrnafsg. info. visible = truefrnimsg. textl. text ="已经到达第一条记录了!"else rst. movepreviousend ifend subprivate sub command2_click ()'后一记录if rst. eof = true thenfrmmsg. showfrmnisg. info .visible = true

30、frmmsg. textl. text ="已经到达最后一条记录了!"exit subelserst. movenextend ifend subprivate sub datagrid2_click()call cormect_dbopen connection ("book")'连接 book 表table rmme = "book"tf privilege = 1 then'如果只是普通用户，无法查询员t信息frmmsg. showfrmmsg-error. visible = truefrmmsg. textl

31、. text ="对不起，您没有查阅的权限！"exit subend ifopen_connect ion ("worker")'连接 worker 表tablename = “worker"open_connection ("record")'连接 record 表tablename = "record"set datagridl. datasource = rstend subprivate sub commandedick()dim ret as integertf command4

32、. caption 二"杏 询"thencommand4. caption = 确 定elseif optionl. value = false and 0ption2. value = false and 0ption3. value = false and 0ption4. value =false thenfrmmsg showfrmmsgnotice. visible = truefrmmsg. textl. text ="请选择查询项!"exit subend tfif textl. text = "” thenfrmmsg. sho

33、wfrmmsgnotice. visible = truefrmmsg. textl. text ="请输入查询内容!"textl.setfocusexit subend tfseachtext = trim(textl. text)ret 二 open_seach(tablename, sfield, seachtext)if ret = 0 thenfrmmsg showfrmmsg .error .visible = truefrmmsg. textl. text ="对不起,没有你要的记录!"optionl.value = falseoption

34、2. value = falsetextl. text ="”rst.closeset rst = nothingset datagridl. datasource = rstcommandl. enabled = false'上一条，下一条按钮为灰commanc!2 enabled = falsecommand4. caption = 查 询exit subend ifcommandl. enabled 二 truecommand2. enabled = trueset datagridl. datasource = rsttextl. text 二optionl. val

35、ue = false0ption2< value = falsecommand4. caption = 杏 询end tfend subprivate sub datagridl_click()cal 1 connectdbopen cormect ion ("book")'连接 book 表tablename = "book"if privilege = 1 then'如果只是普通用户，无法查询员工信息frmmsg< showfrmmsg. error. visible = truefrnimsg. textl. text

36、="对不起，您没有查阅的权限!"exit subend ifopen_connect ion ("worker")，连接 worker 表tablename = "worker"open connection ("record")' 连接 record 表tablename = "record"set datagridl. datasource = rstend subprivate sub form_load()optionl. caption ="书号0ption2. ca

37、pt ion ="书名"0ption3. caption ="出版社"0ption4. caption ="作者"labe12. caption = frmlogin. textl.texttimerl. interval = 1000tablename = "book"call connect_dbopen_connection ("book")set datagridl. datasource = rsttabstripl.tabs. item(l)= 图书信息浏览tabs tri pl.

38、tabs. ttem(2)= 员工信息浏览tabstripl. tabs. item(3)="图书借阅情况浏览"text 1 .text =""open_connection ("book")set datagridl. datasource = rstfrmlogin. show-end subprivate sub imagel_click()end subprivate sub optionl click()select case tabstripl. selectedltemcase 图书信息浏览：sfield ="

39、图书编码"case 员工信息浏览：sfield = 工号case 图书借阅情况浏览：sfield = 图书编码end selectend subprivate sub option2 cli ck()'选择查询的字段select case tabstripl.selectedltemcase 图书信息浏览：sfield = 图书名称case 员工信息浏览：sfield = 姓名case 图书借阅情况浏览：sfield ="工号"end selectend subprivate sub option3_click()'选择查询的字段select ca

40、se tabstripl.selectedltemcase 图书信息浏览：sfield = 出版社end selectend subprivate sub option4_click()'选择查询的字段select case tabstripl.selectedltemcase 图书信息浏览":sfield ="作者"end selectend subprivate sub text2 change()textl. text = timeprivate sub tabstripl_click()call connect_clbselect case tab

41、stripl.selectedltemcase 图书信息浏览:open_connection ("book")'连接 book 表tablename = "book"optionl.caption 二"书号"0ption2. caption ="书名"set datagridl. datasource = rstcase 员工信息浏览：if privilege = 1 then'如果只是普通用户，无法査询员工信息frmmsg. showfrmmsg.error. visible = truefrmm

42、sg. textl.text ="对不起，您没有査阅的权限! exit subend ifopen connect ion ("worker")' 连接 worker 表optionl. caption ="工号"opt ion2. caption ="姓名"tablename = "worker"set datagridl datasource = rstcase 图书借阅情况浏览：open connection ("record")' 连接 record 表opti

43、onl. caption ="书号"0ption2. caption ="工号"tablename 二"recorctset datagridl. datasource = rstend selectprivate sub timerl timer()label3. caption = nowend subprivate sub xpcmdbuttonl click ()form4. showend subprivate sub xpcmdbuttonl2_click()form6. showend subprivate sub xpcmdbu

44、ttonl3 clickofrmabout. showend subprivate sub xpcmdbutton 14 click ()unload mefrmlogin. showend subprivate sub xpcmdbuttonl5_click() openconnection "reader" tablename = ":reader"set datagrid1. datasource = rstend subprivate sub xpcmdbutton2_click()form5. showend subprivate sub xp

45、cmdbutton3_click()form2. showend subprivate sub xpcmdbutton4_click()form3. showend subprivate sub xpcmdbutton5_click()open_connection ("book") tablename = "record"set datagri d1datasource = rstend subprivate sub xpcmdbutton6_click() open_connection ("record") tablename

46、二 "record"set datagri d1datasource = rstend subprivate sub xpcmdbutton7_click() open_co rm ection ("worker") tablename 二 "worker"set datagri d1datasource = rstend subprivate sub xpcmdbutton8_click()fmi_sys_set. showend subprivate sub xpmin click()me.windowstate = 1end s

47、ubprivate sub xpclose_click()unload mefrmlogin. showend subprivate sub xptopbuttonsl_click()unload meend subprivate sub xptopbuttons2 clickome.windowstate = 11. 用户登陆该窗体主要完成用户管理登陆功能，也是进入系统的一个重要的门槛，该门槛是有权限限制，根据不同的用八帐号，功能也截然不同，这就是本系统的一个关键点。（默然读者帐号；reader密码；008）代 码见code目录下:login, txtprivate sub form_loa

48、d ()'连接用户表call open_connection(z/user_tab 1 e，z)xpcmdbutton 1. caption = 登陆"xpcmdb ut ton2 .caption = 注卡肖end subprivate sub imagel_click()end sub'登录系统'如果文木框为空，则给出提示private sub xpcmdbuttonl_click()dim sql as stringtf trim(textl. text) = ”" thenfrnimsg. showfrmmsgnotice .visible

49、= truefrmmsg. textl. text ="请输入用户登录账号!exit subelsesql = "select * from user_table where 登录名二'"& trim(textl. text) & "，“ '查找用户登录 名rst. close:rst0pen sql, con, adopendynamic, adlockoptimisticif rst.recordcount <= 0 thenfrmmsg.showfrmmsg. error. visible = truefrmm

50、sg. textl. text = 用户名不存在！"exit subif lcase(trim(rst!登录名)=lcase(trim(text 1. text) thenif trim(rst!密码)=trim(text2. text) thenprivilege = rst!权限cal 1 check privage (privilege) '权限分配elsefrmmsg. showfrmmsg. error. visible = truefrmmsg. text 1. text二"密码错误，请重新输入！"exit subend ifend ifend

51、 tfend subprivate sub xpcmdbutton2_click()'退出系统endend subprivate sub xptopbuttonslclick()endend subprivate sub xptopbuttons2_click(index as integer)me.windowstate = 1end sub如果川户名错谋或者密码错谋”友情提示”窗体就会响应，传送信息给川户提示1用户名： (sdsdsd友情提示用户名不存在?提示2系统登陆用户名： adinin友情提示田密码诸误，谙重新输入？2.借书该窗体主要完成读者借阅功能，也是最重要的一项功能，读

52、者借阅图书与职工人员，管理人员才能完 成借阅功能，借阅后系统信息将保存，以便管理员能核对一卞，以免出错，假如你已经超过最人的借阅 量，系统还会口动提醉管理员该读者己经不能继续借|5to该阅子模块简单，计算机图书综合信息以图书 编号归拢在一起，方便借阅。代码见code h录下：borrow, txt窗体代码：option explicitprivate sub conunandl_click()'借出图书dim sql, sqll, sql2 as stringdim num as integersql = "select * from record"sqll = &

53、quot;select * from worker where 工号二？sql2 二"select * from book where 图书编码二？"dim paraml, param2, param3, paramd as adodb.parameterdim cmdl, cmd2, cmd3, cmd4 as adodb. commandset cmdl = new adodb. commandset cmd2 = new adodb. commandset cmd3 = new adodb. commandset cmdd 二 new adodb. commandse

54、t paraml = new adodb. parameterset param2 = new adodb. parameterset param3 = new adodb. parameterset paramd = new adodb> parameter'工号及书号检测'检验工号及书号的合法性wi th paraml.direction = adparamlnput type = adbstr.size = 8.value = textl. textend withcmdl. parameters. append paramlcmdl. commandtext 二

55、sqllcmdl. commandtype = adcmdtextset cmd1.activeconnection = conset rst = cmdl.executefrmmsg. showfrmmsge notice. visible 二 truefrmmsg. textl. text ="没有此工号!"exit subend ifwith param2.di recti on 二 adparamtnput.type = adbstr.size = 8value = text2. textend withcmd2> parameters. append par

56、am2cmd2. commandtext 二 sql2cmd2. conunandtypc = adcmdtextset cmd2. activeconnection = conset rstl = cmd2. executeif :rstl recordcount二 0 thenfrmmsg showfrmmsg.notice .visible = truefrnimsg. textl. text ="没有此图书编号!"exit subend ifsql2 = "select * from record where 图书编码二？"rstl. closewith param3 direction = adparamlnput.type = adbstr.size = 8 value = text2. text