灯笼厂家
免费服务热线

Free service

hotline

010-00000000
灯笼厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

利用条形码管理校藏图书

发布时间:2020-02-11 04:56:04 阅读: 来源:灯笼厂家

导读:本文主要介绍利用Excel的BarCode 控件制作图书馆藏条形码,并用条形码来管理校藏图书。

实例描述:老张是图书馆的管理员。最近,学校购进了一批新书进行馆藏,为了老师、学生借阅和归还时能够方便快捷地查找,他想给每册图书贴上一个条形码,通过扫描枪将条形码扫到电脑后,能够精准的查找到这册书的有关信息。那么,如何才能实现上述要求呢?

一、准备工作表

首先,要将有关新书的信息,如条形码编号、书名、定价、出版单位、馆藏位置、借出情况等录入到一个Excel名称为“目录”的工作表中,并为每条记录预留插入条形码的位置。在这里笔者设置每条记录的行高为55,条形码那列的列宽为35(图1)。

二、条形码的插入与设置

插入条形码

在Excel中制作条形码可以用字体和控件的方法,本例主要在Excel 2003中用Excel内置的“Microsoft BarCode 控件 14.0”控件来制作条形码。

首先,选择“视图→工具栏→控件工具箱”菜单(或是用鼠标在菜单栏上右击,在弹出的快捷菜单中选择“控件工具箱”),在弹出的“控件工具栏”中单击“其他控件”,然后在列表中选择“Microsoft BarCode 控件 14.0”。这时鼠标指针变成细十字形,在工作表中拖动鼠标绘制一个条形码控件并调整其位置和大小(图2)。

设置条形码

新生成的条形码它有一个本身默认的数字,我们还需要让它链接到相应的单元格,使单元格中的值变为相应条形码的数学。首先,我们需要先选择条形码的样式,这个操作可以在“Microsoft BarCode 控件 14.0 属性”对话框中来修改属性。右击条形码,在弹出的快捷菜单中选择“Microsoft BarCode 控件 14.0 对象→属性”,弹出“Microsoft BarCode 控件 14.0 属性”对话框,可以根据需要修改其属性,例如样式、是否需要进行有效性验证、条形码的方向等。在这里笔者根据学校扫描枪的支持格式选择了样式7,即Code-128。

接下来,我们需要将该条形码控件与某个单元格形成链接,在这个单元格中改变条形码数字后可以生成相应的条形码。右击条形码,在弹出的快捷菜单中选择“属性”。在弹出的“属性”对话框中,在LinkedCell属性右侧输入单元格地址,如在此处输入:B2,回车后可以看到其Value属性变成了B2单元格中的数值。当然,你可以在“属性”窗口修改全部控件属性,比如控件的样式属性就是Style属性,你可以在这里输入所需要的样式值。

完成属性设置后关闭该对话框。单击“控件工具箱”中的“退出设计模式”按钮。这一步很重要,否则当单元格中的条形码数字改变后,条形码无法自动更新。这时,“控件工具箱”中的“退出设计模式”按钮变成了“设计模式”按钮,条形码控件也变成不可选择的状态,如果要修改条形码控件属性,可以再次单击“控件工具箱”中的“设计模式”按钮。

小提示:如果你先将条形码链接到单元格,再更改条形码的样式,那么所链接的单元的值将变为空。如果出现当单元格中条形码数字改变后,条形码控件变成空白,可能是单元格中的条形码数字不正确所致,例如,当使用默认的EAN-13条码时,如果其中包含字母或长度不为13位时,条形码控件就会变成空白。

打印条形码

打印条形码会出现不能自动刷新的问题,即当更改单元格中的条形码数字后,条形码会进行相应更改,但打印预览还是上一次的条形码。这个问题可能是该控件的一个Bug,遇到这种情况我们可以选择“文件→打印预览”,这时看到的就是更新后的条形码。

批量加入条形码

通过上面的操作你可能认为,那么多条记录如果一个一个的添加条形码将是多么费事、费时的工作呀。那有没有什么好的方法一次性的自动添加条形码呀?当然有,这时我们可以利用VBA代码来进行批量添加。首先,我们选择“工具→宏→Visual Basic 编辑器”菜单,这时就会弹出VBA编辑器窗口。在这个窗口的左边双击VBA工程管理器中的“Sheet1(目录)”,在右侧就会出现代码编辑区,在里面输入图中代码,将光标放在代码中,点击VBA编辑器窗口中的“运行”按钮,这时在当前工作表中就会添加好相应的条形码。那么,这时候你就可以打印出条形码并粘贴在图书上了(图3)。

三、查询窗体的制作

添加空白工作表

为图书目录插入条形码后,我们就开始制作显示图书相关信息的窗体了。首先,我们新建一张空白工作表,双击工作表标签,取名为“图书信息”,选择“工具→选项”菜单,在弹出的“选项”设置窗口中选择“视图”标签,在它上面将“网格线”的勾选去掉。这时,整个工作表一片空白。

添加窗体控件

首先,我们在这个工作表中选择“工具→宏→Visual Basic 编辑器”菜单,进入VBA编辑器窗口。在VBA编辑器中选择“插入→用户窗体”菜单,我们调整所插入窗体的大小,在窗体属性窗口中我们可以设置窗体的标题、背景颜色、特效样式等等,在本例中笔者将窗体的标题(Caption)属性和特效样式(SpecialEffect)属性进行了设置。如果你的窗口中没有属性窗口,你可以选择“视图→属性窗口”菜单来调出它。然后,我们选择“视图→工具箱”菜单,在弹出的“工具箱”工具栏中我们分别选择标签、文字框和命令按钮,在窗体中画出相应的控件,并分别点击这些控件,在属性窗口设置它们的属性,如字体(Font)、文字前景颜色(ForeColor)等。我们把除了条形码文本框以外的其它4个文本框的Enabled和Locked分别设置为False和True(图4)。

为窗体控件添加VBA代码

这个过程主要是给窗体上的控件编写VBA代码事件。利用VBA代码对条形码文本框进行判断,当通过扫描枪或是手工录入的方式改变条形码文本框的值时,VBA代码就会再工作表中查找与条形码文本框相对应的单元格,找到后把图书的有关信息反馈到其它的文本框中。还利用VBA代码向单元格中添加借书情况,如果“外借”就在“目录”工作表相应的“借出情况”单元格中标注去向,如果“归还”就在相应的“借出情况”单元格清空。

首先,我们在窗体上双击条形码文本框,在右侧的VBA编辑区,我们选择这个控件的AfterUpdate事件,并尝试着输入图中代码。在两个按钮控件上分别双击,在它们的Click事件中输入图中代码(图5)。

在这段代码的最前面定义了两个变量hang、lie用来表示所查找到的单元格所在行和列。条形码文本框的AfterUpdate事件表示文本框中的值改变后发生什么。Trim函数是去除空格。.Text属性表示文本框中的文本。Sheets("目录").Range("B:B").Find表示在名字是“目录”工作表的B列进行查找。.Row表示当前单元格的所在行,.Column表示当前单元格的所在列。而利用Cells(行,列)可以精确定位单元格。InputBox是用来提示用户输入信息的函数。

显示窗体

接下来的操作是怎样设置当打开工作簿时,即刻显示窗体。在VBA编辑器的左边双击工程管理器中的ThisWorkbook,在右侧就会出现代码编辑区,在里面输入图中代码。同时,为了防止用户误将窗体关闭,在“图书信息”工作表中我们还可以选择“视图→工具栏→窗体”菜单,在工作表中添加一个按钮,并设置它指定相应的宏。最后,在确保“图书信息”工作表为当前工作表的前提下,保存整个Excel文件(图6)。

四、实现查询

当你打开这个Excel文件时,呈现在你面前的是刚才你设计好的窗体。当你在条形码文本框中录入或是用扫描枪扫入我们所粘贴在图书上的条形码号时,窗体就会呈现出有关该图书的相关信息(图7)。如果录入的条形码不存在,则提示给你相应的信息。

顶栏小文字:

如果你觉得用VBA创建条形码控件太难,可选择“工具→宏→录制新宏”录制一个制作条形码的过程代码,把代码修改一下就可以。

注册公司流程

工作签证申请

深圳注册公司章程

相关阅读