浅议图书现场采购查重软件的实现.pdfVIP

2∞7 军第1 期 辽宁师专学报(社会科学版〉 NO.12∞7 〈总49 期) JOURNAL OF UAONlNG TEAC回归COlLEGE (切CIAL SCIENCES EDmON) General No. 49 浅议图书现场采购查重软件的实现 杨春旭l 王振伟2 ( 1 、朝阳广播电视大学，辽宁 朝阳 122仪)() ;2、沈阳师范大学，辽宁 沈阳 11∞34) 偏 要: 本文以现场采购中遇到的实际问题为出发点，利用 VB 编程语宫，编写了图书现场采购查重软件。以lSBN 号为检索 点，可实现现场采购中的图书壶重功能。 关.词: 现场采购s 图书查重;ISBN， VB 编程 中阁分~号:C250.7 文献串串识码 :Å 文擎篇号lα)8-3898(2007)01 4)125-02 囱子通过订单方式采购图书的周期较伏，并且到书率也 询条件，所输入的ISBN 号都是不带有 分痛符的 10 位连 不尽人意，现场采购已经成为许多图书馆采购的重要渠道。 续数字。因此在生成查询条件时必须考虑到数据库中 10 个 在现场采购过程中，最重要一点就是要避免重复购书。而 数字完全相同，而分隔符位于不同位置的情况，即需把数据 今，利用电脑来进行现场采购查重已成为许多图书馆解决重 库中 ISBN 号的10 个组成数字与查询条件的 10 个数字相同 复采购问题的一种最为常用、有效的手段。 的记录全部调出，防止漏检。编写代码如下: 我馆使用的汇文图书馆管理软佯恳然在功能上可以实 Dim One( 1 To 7) 现网上查询馆藏的功能，但由于在采购现场常常会受到网络 For i = 1 To 7 的限制，无法实现馆藏查询。利用软件从馆藏数据中导出每 臼e(i) = Left (Trim(Textl. Text) , 1) _ Mid 种书的详细记录，以其中的 ISBN 号作为查重的主要依辙，编 (Trim(T口， t1. T，创)， 2 ， i) 四 Mid(Trim(Text 1.T刷)， 写软件来解决现杨重复采购的问题成为了一种很好的选择。 2 + i , 8 _ i) _ Right( Trim( Text1. Text) , I ) 我馆采用 VB 编程语言，编写了一个简单、实用，符合本馆实 Next 际的查重软件，较好地解决了现场采购中的查重问题。 一、设计思黯 Dim Two(l To 的 外出采购大多利用笔记本电脏资重，考虑到笔记本的硬 For i = 1 To 6 件条件不适合大规模的查jj:运算，我们选用了较为简单的 Two(i) :: Le且 (Trim(Textl. Texl) , 2) - Mid ACCESS 数据库作为后台数据瘁，设壁的字段也较为简洁，能 (Trim(T，臼t1. T，削) , 3. i) _ Mid{Trim{T，口t1. Tcxt) • 移消晰地反映出馆藏情况即可。我们设置了这样几个字段: 3 + i , 7 - i) - 阳ght(Trim(T，出t1. T