网络数据库设计l论文(本科)

1、 山东xx大学x学院·课程设计课程名称： 网络数据库课程设计 班 级： 指导教师： 学生姓名： 学 号： 时间进度： 2014年6月30日- 2014年7月11日 所属学期：20132014学年第 2学期 第18-19周目录摘 要3第一章 为什么要开发一个图书馆信息管理系统31.1 计算机已经成为我们学习和工作的得力助手：41.2 在学校使用计算机管理图书的意义41.3 图书馆信息管理系统的设计分析4第二章 怎样开发一个图书馆信息管理系统42.1 编程环境的选择42.2 关系型数据库的实现5第三章 Windows环境下的Visual FoxPro简介53.1 Visual Foxpr

2、o简介5第四章 使用Visual FoxPro实现关系型数据库64.1 数据库的概念64.2 新建一个数据库74.3创建数据库7第五章 系统的总体规划95.1 系统功能95.1.1 系统的功能描述95.1.2 图书馆信息管理系统功能的定位95.1.3 图书馆信息管理系统的开发目标95.1.4图书馆信息管理系统的边界定义9第六章 系统的具体实现96.1 系统的开发平台96.2 用户界面的设计10第七章 结束语15参考文献16附:程序清单16     摘要学校图书馆信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两

3、个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库,而对于后者则要求应用程序功能完备,操作简单,使用方便等特点。经过分析,我使用Microsoft公司的Visual Foxpro6.0作为后台数据库，前台采用 Visual Foxpro6.0开发工具,利用其提供的各种面向对象的开发工具,尤其是数据库设计器这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。接下来是关于该系统的整个设计开发过程的介绍。论文首先介绍了为什么要开发学校图书馆信息管理系统，从三个方面阐述了开发本系统的意义。

4、紧接着从编程环境的选择和关系型数据库的实现两个方面入手介绍了怎样开发一个图书馆信息管理系统。论文的第三章对Windows下  Visual Foxpro6.0编程环境进行了较为详细的介绍。Visual Foxpro6.0凭借其事件驱动的应用程序、 简洁的Visual FoxPro语言与函数、 面向对象的编程、 支持跨平台开发以及 与数据库良好的连接性等一系列的优点成为开发本应用系统的首选开发工具。第四章则重点介绍了Visual Foxpro6.0关系数据库的概念，以及数据库的创建与连接过程。接下来的一章里对系统功能与流程图进行了介绍。本系统是针对校园图书馆的日常管理工作而设计的, 能

5、够完成从图书的采购到入库,外借到收回，借书证的办理等功能。其中包括了：逾期滞纳金的收取,丢失图书的处理等等各个方面的工作。系统流程图则详细说明了系统各主要功能的流程情况。论文的第六章分别介绍了用户界面的实现与数据库的实现，包括各级菜单的实现及数据库中每一张表的详细说明。文章的最后是对本次设计的总结以及致谢，同时附上了主要的参考文献及程序清单。 关键字：面向对象、窗口、数据库设计器第一章 为什么要开发一个图书馆信息管理系统  1.1 计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此

6、流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全，等等。1.2 在学校使用计算机管理图书的意义现在我国的很多学校图书馆中图书的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机及应用专业的学生，希望可以在这方面有所贡献。改革的总设计师邓小平同志曾经说过：“科学技术是第一生产力”，图书馆信息管理。 归纳起来好处大约有以下几点：（1） 可以存储所

7、有的图书档案，安全、高效；（2） 只需一到二名图书录入员即可操作系统，节省大量人力；（3） 可以迅速查到所需信息。1.3 图书馆信息管理系统的设计分析根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。  第二章 怎样开发一个图书馆信息管理系统 2.1 编程环境的选择Microsoft公司的Visual Foxpro6.0是Wind

8、ows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Foxpro6.0提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。另外，VF 还具有：用户通过各种动作控制应用程序的流程， 简单的Visual Foxpro语言与丰富而功能强大的内置函数，面向对象的编程，跨平台开发， 与数据库的连接性等一系列的优点，因此，实现本系统，VF是一个相对较好的选择。 2.2 关系型数据库的实现Visual Foxpro6.0本身就是一种关系数据库，它体积虽小但功能强大，支持多

9、种平台，几乎拥有其它大型关系型数据库的所有功能，如触发器、存储过程等。由于Visual Foxpro6.0本身已经是一个完整的数据库系统，所以在项目的开发阶段，单机即可开发大型数据库应用。开发完成后，几乎不用更改，把开发出的应用系统升迁到网络中即可运行在其它数据库上。VF可以通过标准的SQL语句及自身的语言来访问数据库，从而实现数据检索。第三章 Windows环境下的Visual FoxPro简介 3.1 Visual Foxpro简介Microsoft Visual FoxPro 6.0是创建高性能、优秀数据库组件和解决方案的优秀工具。Visual FoxPro 6.0 提供给开发

10、人员必要的工具管理数据-组织信息表格、运行查询、创建关系型数据库管理系统（DBMS)、为终端用户设计数据管理应用程序。 · 创建高性能的可重用组件。Visual FoxPro 6.0 是一种优秀的组件创建工具，创建出的组件可以在客户机/服务器、Internet、intranet环境中使用。这些组件是典型的控制服务器和处理本地异地数据的其他组件的中间级事务， · 方便学习使用。Visual FoxPro 6.0 较从前版本更容易学习和使用，它提供了更多的内置功能和在应用程序中使用的可重用组件，使那些使用Microsoft FoxPro? 2.x的开发人员很容易掌握新版本。 &

11、#183; 更好的开发环境。Visual FoxPro 6.0 有一套更好的开发环境。改进的开发环境和开发工具使开发人员可以更充分地发挥他们的能力去进一步改进环境。 · 企业应用程序开发。Visual FoxPro 6.0 支持Windows DNA 框架，将它作为Visual Studio 的一个成员。使用Visual FoxPro的开发人员可以创建基于组件的应用程序，可以使用Visual Studio 企业版提供的工具创建企业应用程序。 · 创建可以被其他人使用和重用的组件。Windows DNA应用程序是多级的、基于组件的系统，每级都提供一项服务。开发人员可以使用CO

12、M向中间级服务器写数据，中间级服务器链接前台数据与后台数据，并且提供诸如数据检索、数据操作、合法性检测这样的事务服务。因为COM是与语言无关的，开发人员可以使用他们熟悉的语言和工具创建组件。他们可以重用现有代码，实现向上相容，以保护他们的投资。 · 面向对象应用程序框架。面向对象应用程序框架由提供用于任何应用程序核心服务的类组成。因为开发人员不需要在每次创建新应用程序时都重写那些代码，他们可以把精力集中在特定应用程序代码上。开发和维护都更简单了，因为每个使用框架创建的应用程序具有相似的结构和行为。 · 创建基于面向对象框架应用程序的简单方法。面向对象应用程序应该使用一种简单

13、的方法"挂接"诸如表格、报表这样的组件到应用程序，而不要求对面向对象程序设计、应用程序框架内部结构的详细知识。 · 新改进的向导。向导自动完成一般任务和复杂任务，节约了开发人员的时间和精力。向导对生成那些开发人员不熟悉的新东西特别有帮助，比如在Web上公布数据。 · 2000年问题的解决。Visual FoxPro 6.0中的安全卫士帮助开发人员在应用程序中解决了2000年问题。 · 现有应用程序向Web的简单移植。创建Visual FoxPro 表格或完整应用程序，将它们作为活动文档，可以在Microsoft Internet Explore

14、r下看到，这种能力提供了一种简单的移植现有应用程序到Web、在浏览器中实现Visual FoxPro功能的方法。 · 应用程序中更多的控制。使用Visual FoxPro 6.0的开发人员可以为类定义的属性添加合法代码，更多地控制用户行为。 设计时间环境中更多的控制。开发人员不再需要为扩展Project Manager功能，手工存取和修改工程文件。· 支持全程数据存取。Visual FoxPro 6.0 开发人员可以使用ODBC和OLE DB 从企业的多个数据源去查询和操作数据。另外，可以在大量其它工具中使用Visual FoxPro 数据。 · 设计类和组件的更

15、好工具。利用Visual FoxPro中的工具，开发人员可以快速地创建由可重用组件组成的分布式应用程序。当应用程序中的组件数目增加时，复杂度也随之增加。因此创建基于组件的、规模不一的企业和Internet应用程序需要进行建模。 · 可视化数据库工具。客户机/服务器开发中，此开发工具具有查询、设计、改变计划、存储调试的功能。使用Visual FoxPro 的开发人员可以使用可视化数据库工具与SQL Server 、Oracle相联系。    第四章 使用Visual FoxPro实现关系型数据库4.1 数据库的概念 数据库是一种存储数据并对数据进

16、行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 4.2 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1） 标识需要的数据；（2） 收集被标识的字段到表中；（3） 标识主关键字字段；（4） 绘制一个简单的数据图表；（5） 规范数据；（6） 标识指定字段的信息；（7） 创建物理表。4.3创建数据库参

17、照VF自带的数据库，可以很方便地创建了本系统将要使用的本地数据库。表说明如下：Book_recno.dbf      借书登记表Book_table.dbf        图书资料表B_table.dbf           读者类别查询中间表    Group_table.dbf     

18、0; 图书类别查询中间表Pass_word.dbf 管理员ID密码表User_table.dbf        读者资料表 表结构介绍： Book_recno.dbf      借书登记表字段名称字段类型字段说明TSBHC(10)图书编号TXMC(10)条形码SMC(20)书名BHC(10)编号XMC(10)姓名JSBZC(4)借书标志JSSJD(8)借书日期  Book_table.dbf    

19、;    图书资料表字段名称字段类型字段说明TSBHC(10)图书编号TXMC(10)条形码SMC(20)书名ZZC(20)作者CBSC(40)出版社CBSJD(8)出版时间LBC(20)类别XCSLN(3)现存数量TSZSN(3)图书总数RGSJD(8)入馆时间TSJGN(8，2)价格ZCCSN(5)借出次数JSQXN(2)借书时限 B_table.dbf           读者类别查询中间表    字段名称字段类型字段说

20、明CHINA_LBC(10)中间字段LBC(15)中间字段 Group_table.dbf       图书类别查询中间表字段名称字段类型字段说明CHINA_LBC(10)中间字段LBC(15)中间字段 Pass_word.dbf 管理员ID密码表字段名称字段类型字段说明GLY_IDC(10)管理员IDMMC(10)管理员密码GLY_NAMEC(10)管理员姓名   User_table.dbf        读者资

21、料表字段名称字段类型字段说明BHC(10)编号XMC(10)姓名XBC(2)性别DWBMC(20)单位部门ZZC(40)住址YJSSN(4)已借已数BZC(20)备注LBC(10)职业DJRQD(8)登记日期JSRQD(8)借书日期HSRQD(8)还书日期   第五章 系统的总体规划 5.1 系统功能5.1.1 系统的功能描述      图书馆信息管理软件是随着计算机产业的高速发展和计算机在各个领域普及，针对图书馆信息管理的普遍性和特殊性而提出的一套全面的、系统的现代化管理方法。使用户从繁忙、复杂的手工记

22、录工作程序中解脱出来，并可以从多方面掌握图书馆信息管理的详细情况，为用户提供准确的、可靠的数据。     5.1.2 图书馆信息管理系统功能的定位         针对图书馆的日常工作,校园图书馆信息管理系统在完成从图书的采购到入库,外借到收回.其中包括了,逾期滞纳金的收取,丢失图书的处理等等各个方面的工作.能够在校园图书馆信息管理中实现快捷、方便等特点。作为校园管理的一部分。校园图书馆信息管理系统提供了与学校其他管理系统的接口。5.1.3 图书馆信息管理系统的开发目标

23、60;校园图书馆信息管理系统的开发目标：为图书馆管理提供可靠的、先进的、适应性强的应用系统。从多方面为学生以及教职工提供及时、准确的借书服务。校园图书馆信息管理系统应使用统一标准化的数据字典、统一数据标识编码；必须具有：统一的与其它系统和接口，包括：统一的协议栈、统一的数据格式。5.1.4图书馆信息管理系统的边界定义 校园图书馆信息管理系统的边界定义从两个方面来描述：1）系统处理的业务种类；2）系统包括的处理功能。基于此两类划定，可决定校园图书馆信息管理系统与其它业务处理/管理系统的接口。  第六章 系统的具体实现6.1 系统的开发平台   &

24、#160;开发平台：        操作系统： Microsoft Windows XP         开发工具： Microsoft Visual Foxpro 6.0         6.2 用户界面的设计程序菜单功能介绍：借书-根据您提供的图书条形码和图书编号确认图书，再根据读者的编号确认读者后把此书借给这位读者。还书-根据您提供的图书条形码和图书编号确认图书，再根据读

25、者的编号确认读者后把此书归还。图书馆信息管理-对所有图书的资料进行添加，修改和删除等操作。读者管理-对所有读者的资料进行添加，修改和删除等操作。查询-所有图书、不在馆图书，今天借出图书、今日归还图书、今日新进图书和有条件查询。统计-图书基础状况统计排名。管理员-在这里修改管理员的登录密码。系统程序构成：系统构成图表如下图：项目的各部分完成系统的不同任务，但从总体上讲，可分成两个方面分析，一个是数据源，为程序处理提供原始数据；一个是程序模块，是数据处理的方法和平台。把这两者有机的结合起来，就是一个完整的程序应用系统。 程序运行界面见下图： 说明：系统登录界面，只有输入正确的I

26、D和密码才能进行图书馆信息管理系统。 说明：图书馆信息管理系统主界面。 说明：借书子程序操作界面。 说明：还书子程序操作界面。 说明：图书馆信息管理操作界面。提供图书新增、修改、删除等功能。 说明：读者管理操作界面。提供读者新增、修改、删除等功能。说明：打印模块具有打印图书信息的功能说明：管理员密码维护操作界面。第七章 结束语图书馆信息管理系统其功能基本符合用户需求。我认为在这次设计的过程中，通过将所的理论知识与实际情况相结合，独立思考，全面分析，灵活运用所学知识，解决具体问题，将有力地促进理论水平的进一步提高。同时，对心理素质的锻炼和工作作风

27、的培养。但是系统还有许多不尽如人意的地方，比如：联机文档比较少，用户界面不够美观，出错处理机制不够等一些问题，这些都有待进一步的改善。  参考文献：1书名：Visual FoxPro 7.0高级编程 作者：孙立明刘琳等书号：7-302-05540-8 出版社：清华大学出版社 出版日期：2002-6-12书名：Visual FoxPro 6.0程序设计与应用 作者：章立民 书号：7-113-04993-1 出版社：中国铁道出版社出版日期：2003-1-13网站： 网站： 附:程序清单程序功能介绍：*-主控程序: main_tsgl.prgclear all 从内存中释放所有的

28、内存变量和数组以及所有用户自定义菜单栏、菜单和窗口的定义。_screen.visible=.f.主窗口VFP不可见set escape off 禁止运行的程序和命令在按 Esc 键后被中断。set talk off           阻止对话结果传送到 Visual FoxPro 主窗口、系统信息窗口set excl off   （私有数据工作期的默认方式）允许网络上的任何用户共享和修改网络上打开的表set safety off    

29、;     指定在改写已有文件时不显示对话框。set dele on    使用范围子句处理记录（包括在相关表中的记录）的命令忽略标有删除标记的记录set century on  指定在包含 10 个字符（包括日期分隔符）的日期格式中，用四位数字表示年。set date to YMD        决定日期在日期时间表达式中的格式: yy/mm/dd public M_js,M_hs,mypath,tsgl,demo3 

30、60; 定义变量、数组为公共变量 M_js= .T.为变量赋值M_hs= .T.mypath=left(sys(16),rat("",sys(16)把当前路径赋给一个变量set defa to &mypath指定默认的驱动器、目录或文件夹 *-dimension demo3创建一维内存变量数组     store '.F.' to demo1为数组赋值     store '.F.' to demo2   

31、  store '.F.' to demo3*-传递ID、密码变量- sele 1                   激活指定工作区1 ,以下类似 use book_table          打开一个表,以下类似sele 2 use group_tablesele 3

32、 use b_tablesele 4   use user_table do form login_form    运行表单  read events          当发出 READ EVENTS 命令时，Visual FoxPro 启动事件处理 说明：   设置程序运行的环境参数、变量等。  *- 密码验证表单： Login_form.scx  *-

33、控件： command1  *- click事件代码如下： select gly_id,mm,gly_name from pass_word ;where gly_id=allt(thisform.text1.value) and ;mm=allt(thisform.text2.value)  into array demo                    &#

34、160;  if demo1='.F.'   = messagebox('登录ID或密码错误！',0+16+0,'提示')   信息提示窗口  thisform.text1.setfocus     控件text1获得了焦点 * return .T.else     thisform.release从内存中释放表单集或表单 do login_app运行程序endif  代码说明：SQL语句从密码表“

35、Pass_word.dbf中选出gly_id,mm,gly_name三个字段的记录与所输入的数据进行比较，如果相等。则把它们赋值到一个数组中，然后执行下一步程序。否则数组为最初所赋的值“.F.”，程序返回到数据输入状态，直到正确输入或者退出。      *- 控件： command2  *- click事件代码如下： thisform.releaseclear events             发出 CLEAR

36、EVENTS 命令停止事件处理 代码说明：释放当前表单，清除当前事件。*-联接程序: main_tsgl.prg DO FORM tsgl.scx name tsgl &&窗口句柄传递DO Menu_tsgl.mpr WITH tsgl,.t.,.t.     运行菜单 代码说明：运行图书馆信息管理主表单以后，再运行菜单组件。  *-图书馆信息管理主表单：Tsgl.scx    主要属性：     AlwaysOnTop = .F

37、.    其他窗口可以覆盖住表单窗口。     AutoCenter  = .T.指定表单对象第一次显示于 Visual FoxPro 主窗口时，自动居中放置     ShowWindows = 2    作为顶层表单     Caption = 岳阳电信-图书馆信息管理系统  V1.0   表单标题 属性说明：当前表单优先居前，自动居中，为顶层表单，表单标题为“岳阳

38、电信-图书馆信息管理系统  V1.0”。    *- Init 事件代码如下： bo1.listindex=1   表单上的页中的组合框的属性bo1.listindex=1 代码说明：控件“Combol”的数据源是“Group_Table.dbf”,Listindex1，则当前控件“Combol”中所显示的数据为“图书编号”。   *- Resize 事件代码如下：   mandgroup1.width = this.width-5thisform.pageframe1.wi

39、dth = this.width-5thisform.pageframe1.height = this.height-100thisform.pageframe1.page1.grid1.width = thisform.pageframe1.width -22thisform.pageframe1.page1.grid1.height =; thisform.pageframe1.height -82 thisform.pageframe1.page2.grid1.width = ;thisform.pageframe1.width -22thisform.pagefra

40、me1.page2.grid1.height = ;thisform.pageframe1.height -82 thisform.pageframe1.refresh 代码说明：页框“page1”和“page2”、表格控件“grid1”随当前表单大小的变化而变化。    *- QueryUnload 事件代码如下： thisform.release从内存中删除内存变量和数组。clear events  *-借书子程序：Jies.scx    *- 控件： command1  

41、0; *- click事件代码如下：  sele 1if thisform.optiongroup1.option1.value=0  当前单选框的值为0  locate for txm=upper(allt(thisform.text2.value)  从表中查找输入的条形码     if not found()          =messagebox('没有该图书的条形码!',0+64+0,'提示'

42、)      go top   指针定位到表头     else      mand3.enabled=.T.     指定对象可以响应用户引发的事件     endif endif   if thisform.optiongroup1.option1.value=1 当前单选框的值为1  locate for tsb

43、h=upper(allt(thisform.text1.value)   if not found()      =messagebox('没有该图书编号!',0+64+0,'提示')      go top    else     mand3.enabled=.T.   endif  endif    &

44、#160;   thisform.refresh 代码说明：根据图书的条形码或图书编号查询所借书目。只有所借书目存在，才能对读者信息进行操作。   *- 控件： command2    *- click事件代码如下：   thisform.text2.value=' '赋文本框text2的值为空 thisform.text1.value=' ' thisform.text1.setfocus   *- 控件： command3

45、0;   *- click事件代码如下：  sele 4  locate for bh=upper(allt(thisform.text12.value)      if not found()      =messagebox('没有该读者的编号!',0+64+0,'提示')      go top     endifmand5.enabled=.T.t

46、hisform.refresh 代码说明：对借书读者的资料进行确认。   *- 控件： command5    *- click事件代码如下： nAnswer = MESSAGEBOX('确认所借书目的资料无误吗？',4+32+0,'重要提示') DO CASE   CASE nAnswer = 6       sele 1          

47、If xcsl=0       =messagebox('该图书已经没有库存！',0+64+0,'提示')         return .T.     Else          replace xcsl with xcsl-1 ,zccs with zccs+1    现存数量减1，借出数量加1 

48、60;          insert into book_recno (tsbh,txm,sm,bh,xm,jssj,jsbz) ;         values( upper(allt(thisform.text7.value), ;                 upper(allt(thi

49、sform.text4.value), ;                 upper(allt(thisform.text3.value), ;                 upper(allt(thisform.text13.value),;    &

50、#160;            upper(allt(thisform.text14.value),;     datetime(),'借出' )    把当前资料插入到表book_recno中       sele 4     replace yjss with yjss+1   

51、;  读者资料表中的已借书数加1                             Endif                    

52、        CASE nAnswer = 7   ENDCASE 代码说明：在确认所输入的图书和读者资料无误后，程序开始对图书资料表、读者资料表、借书记录表这三个表进行修改和录入。MESSAGEBOX( ) 对应每个按钮的返回值。 返回值  按钮1        确定2        取消3       

53、 放弃4        重试5       忽略6       是7        否*-还书子程序：Jies.scx    *- 控件： command1    *- click事件代码如下： sele 1if thisform.optiongroup1.option1.value=0   

54、60;     locate for txm=upper(allt(thisform.text2.value)      if not found()      =messagebox('没有该图书的条形码!',0+64+0,'提示')      go top     endif endif   if thisform.opt

55、iongroup1.option1.value=1   locate for tsbh=upper(allt(thisform.text1.value)   if not found()      =messagebox('没有该图书编号!',0+64+0,'提示')      go top   endif endif        m

56、and3.enabled=.T. thisform.refresh *- 控件： command3    *- click事件代码如下：   thisform.text13.visible= .T.   显示当前文本框text13sele 4   locate for bh=upper(allt(thisform.text12.value)      if not found()      

57、60; =messagebox('输入的读者编号有错吧？',0+32+0,'提示')        go top        else            thisform.refresh       mand5.enabled=.T.   &

58、#160; endif  *- 控件： command5    *- click事件代码如下：sele 1  replace xcsl with xcsl+1      现存数量加1    insert into book_recno (tsbh,txm,sm,bh,xm,jssj,jsbz) ;         values( upper(allt(thisform.text7.value),

59、;                 upper(allt(thisform.text4.value), ;                 upper(allt(thisform.text3.value), ;        &#

60、160;        upper(allt(thisform.text12.value),;                 upper(allt(thisform.text13.value),;                

61、 datetime(),'还回' )  thisform.refresh                    =messagebox('操作完成，该书已经归档！',0+64+0,'完成')   mand5.enabled=.F.   代码说明：还书程序代码和借书程序代码比较相似，请看借书程序代码说明。 *- 控件： c

62、ommand7    *- click事件代码如下： M_hs= .T.thisform.release  *-图书馆信息管理子程序：Tsgl_tsgl.scx    *- 控件： command1    *- click事件代码如下： sele 1 if thisform.optiongroup1.option1.value=0         locate for txm=upper(allt(thisform.

63、text2.value)      if not found()      =messagebox('没有该图书的条形码!',0+64+0,'提示')      go top     endif endif   if thisform.optiongroup1.option1.value=1   locate for tsbh=upper(allt(thisform.text1.value)   if not found()      =messagebox('没有该图书编号!',0+64+0,'提示')      go top   endif endif        thisform.refresh 代码说明：根据图书的条形码或图书编号查询图书。并且可以