VB条形码编程实例
VB条形码编程
用VB设计条形码轻印刷系统条形码技术简介条形码作为一种识别输入技术，由于其显而易见的快速、准确、低廉等优点，被广泛应用于商品流通、图书馆管理等众多的自动化管理系统中。
条形码是利用条（着色部份）、空（非着色部份）及其宽、窄的交替变换来表达信息。
每一种编码，都制定有字符与条空、宽窄表达的对应关系，只要遵循这一标准打印出来的条、空交替排列的“图形符号”，这一“图形符号”中就包含了字符信息；当识读器划过这一“图形符号”时，这一条、空交替排列的信息通过光线反射，在识读器内，这种光信号被转换成数字信号，再经过相应的解码软件，就能将“图形符号”还原成字符信息。
三九码是一种应用比较普遍的条形码，它长度可变、可校验，容纳的字符多达43个（包括数字0~9、字母A~Z及其它七个特殊字符）。
由于在表示每一字符时，使用9个元素，其中3个宽元素、6个窄元素，故名39码，这3个宽元素中必须有两个是条（有四个特殊用途的字符除外）。
如字母“J”的编码规则为：“NNNNWWWNN”，其中N表示窄元素，W表示宽元素，奇数位为条元素，偶数位为空元素，宽窄元素的宽度尺寸比为2~3，且在同一个条码中必须是固定的。
在打印制作条形码时，条是需要打印（着色）的，而空元素内不必打印的，不过要将其宽度计算在内。
对于某一要打印的字符串，按其先后顺序打印，串前串后各加一个“*”符号做为起始符与终止符，相邻的字符间在打印时由“位空”分隔，“位空”类似空元素，即不着色部分，其宽度应小于1.35mm，为编程方便，通常取为一个窄元素的宽度。
条形码的制作有制版印刷、轻印刷两种方式，轻印刷是指使用普通打印机，在计算机控制下制作条形码。
这种制作方法灵活，成本较低，即适宜于同一号码的单条制作，也可用于同一号码的大量制作，这一特点是制版印刷无可替代的。
使用计算机软件打印条形码，其原理是将条形码作为图形来看待，用编程语言中的绘图语句-画矩形框，在相应的坐标上画出各种宽度不同的条元素，这样即可实现条形码的计算机软件打印。
vb教程编程实例详解
vb教程编程实例详解VB教程编程实例详解VB（Visual Basic）是一种面向对象的编程语言，它可以用于开发Windows应用程序。
在这里，我们将详细解释一些VB 编程实例，以帮助初学者更好地理解和掌握这门语言。
编程实例1：计算器首先，让我们创建一个计算器的VB程序。
我们将使用VB的窗体和按钮来实现这个功能。
首先，我们需要在窗体上添加一些按钮，如"1"、"2"、"+"、"="等。
然后，我们需要用一个文本框来显示计算结果。
在窗体上双击"+"按钮并添加以下代码：```Private Sub ButtonPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPlus.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = Integer.Parse(TextBoxNum1.Text)num2 = Integer.Parse(TextBoxNum2.Text)result = num1 + num2TextBoxResult.Text = result.ToString()End Sub```在这个代码中，我们首先定义了三个变量：num1、num2和result，用于存储计算结果。
然后，我们使用Integer.Parse方法将文本框中输入的文本转换为整数类型，并将其赋值给num1和num2。
接下来，我们将num1和num2相加，将结果赋值给result，并使用result.ToString()方法将结果转换为字符串类型并显示在结果文本框中。
编程实例2：学生成绩管理系统接下来，让我们创建一个学生成绩管理系统的VB程序。
vb6,编辑模板写打印程序打印的条码边长
竭诚为您提供优质文档/双击可除vb6,编辑模板写打印程序打印的条码边长篇一：Vb打印条码极简单的方法Vb打印条码极简单的方法公司接到一个医院病案的软件升级改造任务，在客户的程序中增加打印条码功能，因为客户的程序是Vb开发的，因为客户提出需要自行调整打印参数等，一开始就调用word 来打印，文字等信息都能够正常打印出，打印参数也能够调整，打印效果很好，但是打印的条码不能识别；于是寻求万能的internet，搜索后发现网上的许多资料都是于code39为例，要不就是复杂，使用code39的条码原理，使用画图控件画图来实现；要不就是看不懂，不能实现；要不就是很简单，也下载了相关的代码，也有在word中调用barcode控件，但是我一直到没有找到可行或者说看明白的（代码都是没有注释的），也下载多个代码，但是使用barcode在word打印的都没有成功，最后在绿竹小龙的博客中找到可行的方法，并且是说的很明白的（有些细节不详，需要认真思考后才明白！），也是使用mocrosoft的barcode 控件，打印form，在这总结了我的经验，给大家参考，避免大家走弯路，在这里特别感谢绿竹小龙，也感谢各位的无私奉献，大家如果不明白可以33333804@联系。
1、注册mocrosoft的barcode控件，网上可以找到并下载；2、使用新form来显示打印的内容，调整form的大小与打印纸的大小一样3、添加picture控件，为什么要使用picture控件，是在打印后发现，没有picture控件打印的效果很差，字体看不清；在picture控件上添加barcode的控件，在picture控件上添加barcode的控件，style属性控制条形码的类形，当值为6时为code39码（仅包含最简单的数值和字符，零售流通领域常用），当值为7时为code128码（字符比较齐全，目前比较通用），结合客户的要求，编程中使用code128码4、添加其他的需要打印的控件，设置好字体等，5、激活from时将需要打印的内容赋值给对应控件，6、等待1秒后（因为picture控件的关系，赋值后马上打印经常会出现空白内容）7、打印form8、关闭form具体的代码见下：使用条码机打印，条码纸规格是6cm*6cm打印的内容有住院号、住院号+住院次数的条码、姓名、性别、出院日期、入院日期、出院科室所以form的内容是：picture控件、text控件、label 控件的背景色设为与条码纸一样的颜色（白色），条码是用barcode控件，其他使用text控件。
2120条码编辑程序
2120条码编辑程序条码编辑程序是一种用于生成、编辑和管理条码的软件程序。
它可以帮助用户创建各种类型的条码，如一维码（如Code 39、Code 128、EAN-13等）和二维码（如QR码）等。
以下是一个简单的伪代码示例，展示了一个基本的条码编辑程序：```pythonclass BarcodeEditor:def __init__(self):self.barcode_data = ""def create_barcode(self, barcode_type, data):# 生成指定类型的条码if barcode_type == "code39":self.barcode_data = generate_code39(data)elif barcode_type == "code128":self.barcode_data = generate_code128(data)elif barcode_type == "ean13":self.barcode_data = generate_ean13(data)elif barcode_type == "qr":self.barcode_data = generate_qr(data)def edit_barcode(self, data):# 编辑已有的条码self.barcode_data = datadef save_barcode(self, file_name):# 将条码保存到文件save_to_file(self.barcode_data, file_name)def print_barcode(self):# 打印条码print(self.barcode_data)```上述伪代码只是一个简单示例，实际的条码编辑程序可能还包括其他功能，如图形界面、条码扫描、批量生成等。
通过程序利用BART ENDER控件实现条码标签打印
通过程序利用BART ENDER控件实现条码标签打印
郑磊
【期刊名称】《条码与信息系统》
【年(卷),期】2011(000)005
【摘要】BarTender条码打印软件是目前功能最强大、最便捷的标签设计打印软件，85％的条码机用户均使用BarTender软件来编辑设计条码标签。
BarTender 同时支持激光及热转印打印机的Windows标签设计打印软件，支持包括简体中文在内的20多种语言，
【总页数】1页(P35-35)
【作者】郑磊
【作者单位】中国物品编码中心云南分中心
【正文语种】中文
【中图分类】TP391.44
【相关文献】
1.Delphi中网格控件通用打印程序的设计与实现 [J], 曹龙;杜亚军;沈杰峰
2.在VB中利用控件实现条形码批量打印 [J], 姜良华
3.利用MSFlexGrid控件编制通用报表打印程序 [J], 刘少华
4.如何利用BARTENDER控件通过程序实现条码标签的灵活打印 [J], 晏国勋
5.利用Microsoft Communication控件实现应用程序间通讯的方法 [J], 唐培丽;张勇;解飞
因版权原因，仅展示原文概要，查看原文内容请购买。
VB使用ZPL指令控制zebra打印机案例
VB使用ZPL指令控制zebra打印机案例Dim i As Integer, j As Integer, nCount As Integer, col_count As Long Dim zpl_head(12) As String, zpl_foot As String Dim cell_width_ini As Integer, cell_height_ini(3) As IntegerDim tmp_MAC() As String, tmp_SN() As String Dim zpl_text_MAC() As String, zpl_text_SN() As StringDim zpl_barcode_MAC() As String, zpl_barcode_SN() As StringDim cbuf As String * 21000'**************************'设置打印开始信息'**************************zpl_head(0) = "^XA" '起始符zpl_head(1) = "^LH0,0" '参考点zpl_head(2) = "^FO540,60^GB0,1850,7^FS" '竖线zpl_head(3) = "^FO1025,60^GB0,1850,7^FS" '竖线zpl_head(4) = "^FO10,242^GB1100,0,7^FS" '横线zpl_head(5) = "^FO10,422^GB1100,0,7^FS" '横线zpl_head(6) = "^FO10,602^GB1100,0,7^FS" '横线zpl_head(7) = "^FO10,782^GB1100,0,7^FS" '横线zpl_head(8) = "^FO10,962^GB1100,0,7^FS" '横线zpl_head(9) = "^FO10,1152^GB1100,0,7^FS" '横线zpl_head(10) = "^FO10,1332^GB1100,0,7^FS" '横线zpl_head(11) = "^FO10,1512^GB1100,0,7^FS" '横线zpl_head(12) = "^FO10,1692^GB1100,0,7^FS" '横线'*******************************' 计算列循环次数,各数组下标'*******************************col_count = (Grid1.Rows - 1) / 10 + CInt(CBool((Grid1.Rows - 1) Mod 10)) * (-1)ReDim tmp_MAC(Grid1.Rows - 1)ReDim tmp_SN(Grid1.Rows - 1)ReDim zpl_text_MAC(Grid1.Rows - 1)ReDim zpl_text_SN(Grid1.Rows - 1)ReDim zpl_barcode_MAC(Grid1.Rows - 1)ReDim zpl_barcode_SN(Grid1.Rows - 1)'*******************************'设置标签体'*******************************'单元初始X坐标cell_width_ini = 97For i = 1 To col_count'单元初始Y坐标cell_height_ini(0) = 88cell_height_ini(1) = 116cell_height_ini(2) = 147cell_height_ini(3) = 180For j = 1 To 10'第一单元:MAC文字nCount = GETFONTHEX("MAC:" & Grid1.TextMatrix((i - 1) * 10 + j, 0), "verdana", "MAC" & CStr((i - 1) * 10 + j), 0, 32, 16, 0, 0, cbuf) tmp_MAC((i - 1) * 10 + j) = Mid(cbuf, 1, nCount)zpl_text_MAC((i - 1) * 10 + j) = "^FO" & CStr(cell_width_ini) & "," & CStr(cell_height_ini(0)) & "^XG" & "MAC" & CStr((i - 1) * 10 + j) & ",1,1^FS"'第二单元:MAC条码zpl_barcode_MAC((i - 1) * 10 + j) = "^FO" & CStr(cell_width_ini) & "," & CStr(cell_height_ini(1)) & "^BCN,33,N,N^FD" & Grid1.TextMatrix((i - 1) * 10 + j, 0) & "^BY1.87,5.369^FS"'第三单元:SN文字nCount = GETFONTHEX("S/N:" & Grid1.TextMatrix((i - 1) * 10 + j, 1), "verdana", "SN" & CStr((i - 1) * 10 + j), 0, 32, 16, 0, 0, cbuf) tmp_SN((i - 1) * 10 + j) = Mid(cbuf, 1, nCount)zpl_text_SN((i - 1) * 10 + j) = "^FO" & CStr(cell_width_ini) & "," & CStr(cell_height_ini(2)) & "^XG" & "SN" & CStr((i - 1) * 10 + j) &",1,1^FS"'第四单元:SN条码zpl_barcode_SN((i - 1) * 10 + j) = "^FO" & CStr(cell_width_ini) & "," & CStr(cell_height_ini(3)) & "^BCN,33,N,N^FD" & Grid1.TextMatrix((i - 1) * 10 + j, 1) & "^BY1.87,5.369^FS"If (i - 1) * 10 + j = Grid1.Rows - 1 ThenExit ForEnd Ifcell_height_ini(0) = cell_height_ini(0) + 180cell_height_ini(1) = cell_height_ini(1) + 180cell_height_ini(2) = cell_height_ini(2) + 180cell_height_ini(3) = cell_height_ini(3) + 180Next jcell_width_ini = cell_width_ini + 500Next i'*******************************'设置标签结束信息'*******************************zpl_foot = "^XZ"'*******************************'输出信息'*******************************Dim str1 As String, str2 As String, str3 As String, str4 As String str1 = ""str2 = ""str3 = ""str4 = ""For i = 0 To 12str1 = str1 & zpl_head(i) & Chr(13) NextFor i = 0 To Grid1.Rows - 1str2 = str2 & tmp_MAC(i) & Chr(13)str3 = str3 & tmp_SN(i) & Chr(13) NextFor i = 0 To Grid1.Rows - 1str4 = str4 & zpl_text_MAC(i) & Chr(13)str4 = str4 & zpl_barcode_MAC(i) & Chr(13)str4 = str4 & zpl_text_SN(i) & Chr(13)str4 = str4 & zpl_barcode_SN(i) & Chr(13) Next。
条形码 第2章 Visual Basic绘图基础
其中“颜色值”的取值范围是0~15，共可表示16种颜色。
2.3 Visual Basic颜色
四、VB中的颜色常数
文字常数 vbBlack &H0 值 黑色 颜色
vbRed
vbGreen vbYellow
&HFF
&HFF00 &HFFFF
红色
绿色 黄色
vbBlue
vbMagenta vbCyan vbWhite
2.3 Visual Basic颜色
一、调色板
在设置窗体的背景色BackColor时，单击右侧的颜色值，从该
图中可以选择系统颜色 。
2.3 Visual Basic颜色
二、RGB颜色
RGB颜色是Red（红）、Green（绿）和Blue（蓝）英文的缩
写，RGB函数通过三原色的值设置一种混合颜色。RGB函数的 使用格式如下： RGB(红色值,绿色值,蓝色值) 红色、绿色和蓝色三种颜色值均为0~255之间的整数，0表示某
Scalewidth：设置对象宽度。
Scaleheight：设置对象高度。
2.2 Visual Basic图形控件
二、Shape控件
（1）BackStyle、BorderColor、BorderStyle、BorderWidth、 FillStyle、Index和Visible属性同直线控件对象。 （2）BackColor属性。用于返回或设置对象的背景颜色。如果 BackStyle 属性的设置值为 0（透明），则忽略 BackColor 属性。 （3）Shape属性。用于返回或设置一个值，该值指示一个 Shape 控件的外观。 （4）位置和大小属性。Left、Top属性用于设置shape控件的左 上角坐标位置，Width和Height属性用于设置Shape控件的宽度 和高度。 例：已知在EAN-13商品条码中，每一个条码字符均由7个模块 组成，用直线控件表示一个字符的模块组成。
VB做的条形码
For i = 0 To Val(Times) - 1
BarCode1.Value = BarCode + i
DoEvents
Picture1.Refresh
GetObjImage1 BarCode1, Conel, Picture1
.Width = BarCode1.Width
.Height = BarCode1.Height
.ShowData = BarCode1.ShowData
Me.Hide
End With
With frmMain
sData = "" '清空
End If
End Select
End Sub
Private Sub cmdEnd_Click()
MSComm1.PortOpen = False '关闭端口
.AddItem "Code-39"
.AddItem "Code-128"
.AddItem "U.S. Postnet"
End
End Sub
二、条形码的生成
看完以上关于条码读取的代码是否觉得很容易呢？对，在VB上编程本来就不难。以下关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。想起我书架上的一本书中的一篇用Turbo C编写条形码打印程序文章，长篇大论，那时不知看了n天，打了n小时字结果也不尽人意，现在真是幸福多了:)。废话说完，得回归正题。且看条形码生成的代码及有关说明。
With cbo
C# 、VB 在Word中添加条码、二维码
C#/ 在Word中添加条码、二维码本文介绍如何通过C# 和代码实现在Word文档中添加条码和二维码。
代码中将分为在Word正文段落中、页眉页脚中等情况来添加。
使用工具：Free Spire.Office for .NET （免费版）工具简介：这是Spire所有.NET平台下免费产品的集合包，包含Spire.Barcode.dll、Spire.DataExport.dll、Spire.Pdf.dll、Spire.Doc.dll、Spire.DocViewer.Forms.dll 、Spire.PdfViewer.Forms.dll 、Spire.Presentation.dll 、Spire.XLS.dll等dll可用于操作Word/PDF/Excel/PPT等文件。
本文添加条码、二维码需要在VS程序中添加引用Spire.Doc.dll和Spire.Barcode.dll这两个dll 文件。
dll添加引用效果：注意：1. 需要下载安装到本地指定路径，dll文件可在安装路径下的Bin文件夹下获取。
2. 生成的条码、二维码会有水印字样的文字，可通过此方法去除。
代码示例1. 添加条码到WordC#using Spire.Doc;using Spire.Barcode;using System.Drawing;using System.IO;using Spire.Doc.Documents;namespace AddBarcode{class Program{static void Main(string[] args){//调用方法 ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号");//创建Document对象，加载Word文档Document doc = new Document();doc.LoadFromFile("test.docx");//获取第2节Section section = doc.Sections[1];//使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建条码并保存为图片BarcodeSettings settings = new BarcodeSettings();settings.Type = BarCodeType.Code128;settings.Data = "123456789";settings.Data2D = "123456789";settings.ShowText = false;settings.BarHeight = 4;settings.X = 0.3f;settings.HasBorder = true;settings.BorderWidth = 0.5f;settings.BorderColor = Color.AliceBlue;settings.BackColor = Color.Wheat;BarCodeGenerator barCodeGenerator = new BarCodeGenerator(settings);Image Image = barCodeGenerator.GenerateImage();//Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的Barcode图片，可执行此步骤代码//添加条码到正文段落Paragraph paragraph = section.AddParagraph();paragraph.Text = "收货码：";paragraph.AppendPicture(Image);paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;//添加条码图片到Word页脚HeaderFooter footer = section.HeadersFooters.Footer;Paragraph footerpara = footer.AddParagraph();footerpara.Text = "扫码识真伪：";footerpara.AppendPicture(Image);footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left;//保存文档doc.SaveToFile("BarCodeToWord.docx", FileFormat.Docx2013);System.Diagnostics.Process.Start("BarCodeToWord.docx");}}}条码添加效果：Imports Spire.DocImports Spire.BarcodeImports System.DrawingImports System.IOImports Spire.Doc.DocumentsNamespace AddBarcodeClass ProgramPrivate Shared Sub Main(args As String())'调用方法ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号")'创建Document对象，加载Word文档Dim doc As New Document()doc.LoadFromFile("test.docx")'获取第2节Dim section As Section = doc.Sections(1)'使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建条码并保存为图片Dim settings As New BarcodeSettings()settings.Type = BarCodeType.Code128settings.Data = "123456789"settings.Data2D = "123456789"settings.ShowText = Falsesettings.BarHeight = 4settings.X = 0.3Fsettings.HasBorder = Truesettings.BorderWidth = 0.5Fsettings.BorderColor = Color.AliceBluesettings.BackColor = Color.WheatDim barCodeGenerator As New BarCodeGenerator(settings)Dim Image As Image = barCodeGenerator.GenerateImage()'Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的Barcode图片，可执行此步骤代码'添加条码到正文段落Dim paragraph As Paragraph = section.AddParagraph()paragraph.Text = "收货码："paragraph.AppendPicture(Image)paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right'添加条码图片到Word页脚Dim footer As HeaderFooter = section.HeadersFooters.FooterDim footerpara As Paragraph = footer.AddParagraph()footerpara.Text = "扫码识真伪："footerpara.AppendPicture(Image)footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left'保存文档doc.SaveToFile("BarCodeToWord.docx", FileFormat.Docx2013)System.Diagnostics.Process.Start("BarCodeToWord.docx")End SubEnd ClassEnd Namespace2. 添加二维码到WordC#using Spire.Doc;using Spire.Barcode;using System.Drawing;using System.IO;using Spire.Doc.Documents;using System;namespace AddQRCode{class Program{static void Main(string[] args){//调用方法 ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号");//创建Document对象，加载Word文档Document doc = new Document();doc.LoadFromFile("test.docx");//获取第2节Section section = doc.Sections[1];//使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建二维码并保存为图片BarcodeSettings settings = new BarcodeSettings();settings.Type = BarCodeType.QRCode;settings.ImageWidth = 50;settings.ImageHeight = 50;settings.Data = "123456";settings.Data2D = "123456";settings.X =0.7f;settings.LeftMargin = 1;settings.ShowTextOnBottom = true;settings.QRCodeECL = QRCodeECL.Q;settings.QRCodeDataMode = QRCodeDataMode.Numeric;BarCodeGenerator generator = new BarCodeGenerator(settings);Image image = generator.GenerateImage();//image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的二维码图片，可执行此步骤代码//添加二维码到正文段落Paragraph paragraph = section.AddParagraph();paragraph.AppendPicture(image);paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;//添加二维码图片到Word页眉HeaderFooter header = section.HeadersFooters.Header;//HeaderFooter footer = section.HeadersFooters.Footer;//获取页脚Paragraph headerpara = header.AddParagraph();headerpara.AppendPicture(image);headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center;//保存文档doc.SaveToFile("QRCodeToHeader.docx", FileFormat.Docx2013);System.Diagnostics.Process.Start("QRCodeToHeader.docx");}}}二维码添加效果:Imports Spire.DocImports Spire.BarcodeImports System.DrawingImports System.IOImports Spire.Doc.DocumentsNamespace AddQRCodeClass ProgramPrivate Shared Sub Main(args As String())'调用方法ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号")'创建Document对象，加载Word文档Dim doc As New Document()doc.LoadFromFile("test.docx")'获取第2节Dim section As Section = doc.Sections(1)'使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建二维码并保存为图片Dim settings As New BarcodeSettings()settings.Type = BarCodeType.QRCodesettings.ImageWidth = 50settings.ImageHeight = 50settings.Data = "123456"settings.Data2D = "123456"settings.X = 0.7Fsettings.LeftMargin = 1settings.ShowTextOnBottom = Truesettings.QRCodeECL = QRCodeECL.Qsettings.QRCodeDataMode = QRCodeDataMode.NumericDim generator As New BarCodeGenerator(settings)Dim image As Image = generator.GenerateImage()'image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的二维码图片，可执行此步骤代码'添加二维码到正文段落Dim paragraph As Paragraph = section.AddParagraph()paragraph.AppendPicture(image)paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right'添加二维码图片到Word页眉Dim header As HeaderFooter = section.HeadersFooters.Header'HeaderFooter footer = section.HeadersFooters.Footer;//获取页脚Dim headerpara As Paragraph = header.AddParagraph()headerpara.AppendPicture(image)headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center'保存文档doc.SaveToFile("QRCodeToHeader.docx", FileFormat.Docx2013)System.Diagnostics.Process.Start("QRCodeToHeader.docx")End SubEnd ClassEnd Namespace。
vb encode编码
vb encode编码在VB（Visual Basic）中，可以使用不同的编码方式对字符串进行编码和解码操作。
下面是几种常见的编码方式及其在VB中的示例代码：1.UTF-8 编码：Dim str As String = "要编码的字符串"Dim utf8Bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(str) Dim encodedStr As String = System.Text.Encoding.UTF8.GetString(utf8Bytes)2.UTF-16 编码：Dim str As String = "要编码的字符串"Dim utf16Bytes As Byte() = System.Text.Encoding.Unicode.GetBytes(str)Dim encodedStr As String = System.Text.Encoding.Unicode.GetString(utf16Bytes)3.ASCII 编码：Dim str As String = "要编码的字符串"Dim asciiBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(str) Dim encodedStr As String = System.Text.Encoding.ASCII.GetString(asciiBytes)4.Base64 编码：Dim str As String = "要编码的字符串"Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(str)Dim base64Str As String = Convert.ToBase64String(bytes)Dim decodedStr As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(base64St r))以上示例代码演示了如何使用不同的编码方式对字符串进行编码和解码操作。
PDF417二维条码的编码技术及其在VisualBasic下的实现
收稿日期:2004205213作者简介:孙静(19812),女,江苏南京人,硕士研究生,主要从事系统控制理论及其工程的研究.文章编号:16732064X(2005)0120077204PDF 417二维条码的编码技术及其在Visual Basic 下的实现Coding technology of PDF 417two 2dimensional bar code and its implementation in Visual Basic孙静,陈伟(西安科技大学电气与控制工程学院,陕西西安710054)摘要:应用Visual Basic 对PDF417条码进行了编码.针对编码模块的不同算法,提出了关于编码溢出、汉字编码等问题的讨论及解决方法.从而实现了PDF417编码程序在信息录入中的应用,并取得了良好的效果.关键词:二维条码;PDF417条码;编码算法;Visual Basic 中图分类号:TP391.44 文献标识码:A 条码技术在现今生活中随处可见.特别是具有高信息容量、强纠错能力、编码范围广和不依赖后台数据库等优点的二维条码,已成为现代条码应用的新兴技术.应用最广泛的是美国Symbol 公司发明的PDF417二维条码,已被使用在国防、公共安全、交通运输、物流、医疗保健、工业自动化、商业、金融、海关及政府管理等领域,并取得了巨大的社会效益和经济效益.在美国,军人证、军人医疗证、居民身份证、驾驶证等均采用PDF417条码技术[1];香港特区护照也采用了二维条码PDF417技术[2].可见研究PDF417条码技术,并将其推广在我国国民生产生活当中是极具价值的.1 PDF 417二维条码简介PDF417二维条码(图1)是一种便携式数据文件,无需建立后台数据库,可以直接阅读条码得到相应的信息.每个PDF417二维条码符号字符由4个条和4个空构成,每个条或空包含1~6个模块,总模块数是17,故又称为417条码[3](图2).图1 P DF 417条码图2 符号字符2 PDF 417条码的编码算法417条码的编码算法可分为数据码字编码、错误纠正码字编码和条码矩阵生成三大模块.2.1 数据码字的编码算法PDF417条码有文本压缩模式(TC)、字节压缩2005年1月第20卷第1期西安石油大学学报(自然科学版)Journal of Xi c an Shiyou University(Natural Science Edition)Jan.2005Vol.20No.1模式(BC)和数字压缩模式(NC)三种数据压缩模式,通过模式锁定或模式转移(图3)可对多种模式进行编码.图3 模式锁定与转移T C 模式包含4个子模式:大写字母型子模式、小写字母型子模式、混合型子模式和标点型子模式.子模式之间通过锁定或转移进行彼此之间的切换.NC 模式是将数据由基10压缩至基900.将数字序列每44位分为一组,再在每组数字序列前加前导位/10,作基10到基900的转换,1个码字可以表示3个数字位.BC 模式是压缩按字节总数对信息进行基底转换实现的.待压缩字节总数如果是6的倍数,使用924锁定模式,每6个字节从基256转换到基900,压缩成5个码字.如果不是6的倍数,使用901锁定模式,前面每6个字节按924锁定模式压缩,剩余字节分别对应1个码字.若从T C 模式到BC 模式则执行913暂时性模式转移,该字节的码字直接表示.2.2 错误纠正码字的编码算法给定417条码的错误纠正等级s,则对应的错误纠正码字个数k =2s +1.(1)依据Reed 2Solomon 错误控制码算法计算错误纠正码字.设符号数据多项式d (x )=d n-1x n-1+d n-2x n-2+,+d 1x +d 0,(2)式中,d i 是数据码字.再设纠正码字多项式g (x)=(x -3)(x -32),(x -3k) =x k+g k-1xk -1+,+g 1x +g 0.(3)式中,k 是在选定的错误纠正等级下错误纠正码字c i (i =0,1,,,k-1)的个数.最后计算错误纠正码字c i .c i 为d (x)乘以x k ,再除以g (x )后得到的余式中各系数的补数.2.3 条码矩阵的生成PDF417条码包括起始符、左行指示符号字符、数据区、右行指示符号字符和终止符.其中数据区又包含数据码字和错误纠正码字.之后调用/符号字符-码字集0,将码字矩阵转换为条码矩阵.图4为417条码的编码流程图.图4 417条码的编码流程图2.4 PDF417条码的译码算法对于实用PDF417二维条码系统来说,不仅需要编码部分,还应包含译码部分.理论上,译码是编码的逆过程,有了译码程序不仅可以识读条码,还可以检测编码的正确性.通过专门的条码扫描器,将417条码图像转换为计算机可处理的数据信息;再对这些数据信息按Reed 2Solomon 错误控制码算法进行纠错译码;然后通过识读模式锁定或模式转移码字,对纠错后的数据进行相应的译码;最后实现全部数据的还原,译码结束[4,5].3 PDF 417编码算法在Visual Basic下的实现3.1 数据码字的编码实现在Visual Basic [6]下为便于数据处理,可将待处理字符串定义为一维数组,且将该数组和中间变量数组的数据类型全部定义为变体型(Variant).3.1.1 T C 模式的编码实现 T C 模式的编码关键是空格字符<SP>既属于大写字母型子模式,又属于小写字母型和混合型子模式.读取字符时,如遇到空格应判断当前的子模式.约定:读取空格时,如果空格字符是字符串的首字符,直接归属于大写字母型.如果不是字符串的首字符,且前一字符不是标点型,则将空格归属同前一)78)西安石油大学学报(自然科学版)字符相同的子模;若前一字符是标点型,判断后一字符是否为标点型.若是,空格归属为大写字母型;若不是,空格归属于同后一字符相同的子模式.同理,可循环判断连续若干个空格归属的子模式.3.1.2NC模式的编码实现NC模式用VB实现,应将相关变量定义为双精度型(Double).数字序列要先分组,依次将每个分组赋给中间数组,并判断分组中数字序列的个数p,之后加前导位/10.将中间数组中各元素依次乘以10p-q(其中q=0,1,,, p),再求和即得基10的数.做基900转换时,用sum对900取模得到码字d1.由sum=(sum-d1)/900得到新的sum,再次对900取模得d2;依次可求出其余码字.然而,VB数据类型中,双精度型的数据占8个内存字节,提供15~16位有效数字.但当数为44位(不含前导位)时,在对900取模时将会发生溢出,系统无法计算.因此,采用倒求来计算数据码字.由于3个数字位可用1个码字表示,可先求数据码字的个数N,再从第一个数据码字d N求起,至最后一个码字d1.代码段为:Dim sum As Double,s1(20)As Integer.sum为数字序列的和;s1为辅助数组,存放sum求模后的值.sum=0For i=1To Lensum=sum+Val(ch(i-1))*(10^(Len-i)).求10为基底的和Next iFor i=Len\3To0Step-1.对sum求900的模s1(i)=Int(sum/(900^i))Mod900sum=sum-s1(i)*(900^i)Next iIf Len Mod3=0Then.排列数据码字For i=0To Len\3-1d(N+i)=s1(Len\3-1-i)Next iElseFor i=0To Len\3d(N+i)=s1(Len\3-i)Next iEnd IfN=N+1+Len\3.记录当前数据码字的长度3.1.3BC模式的编码实现BC模式编码也是做基底转换.先判断数据流的个数是否为6的整数倍后,再做基底转换.对900取模时,应按NC模式一样处理溢出问题.值得注意的是,417条码有一项强大的功能就是可以对汉字进行编码.一个汉字由两个字节构成,每个汉字对应着的ASCÒ值是216位.然而,计算机所表示的整数范围是-215~215,汉字的最高位/10,将显示为负号.例如/我0显示的是/-125900.编码时还应判断数据流是否含有汉字.每判断出一个汉字字符,将其ASCÒ码值换算为十六进制数,并使整个字符串后移一位.当前位存放汉字的高位字节,下一位存放汉字的低位字节,避免负号.3.2错误纠正码字的编码实现417条码是面向用户的条码,可以根据需要选择错误纠正等级s,进而得到相应的错误纠正码字c i.错误纠正码字依式(2)和式(3)求出.在VB下程序不能直接识读含未知数x的方程,需间接求出c i.若s=0时,设两个二维数组A,B,每个数组的第一维存放x的幂指数,第二维存放x的系数. g(x)是k个多项式的乘积(k=2s+1=2).先取出g(x)的前两个因式求乘积g1(x)=(x-3)(x-32)=x#x-3#x-32#x+3#32(4)=x2-12x+27令A(0,0)=1,A(0,1)=0,A(1,0)=1,A(1,1) =-3;B(0,0)=1,B(1,0)=0,B(1,0)=1,B(1,1) =-3^2=-9.求乘积实际上是将x的幂指数相加、系数相乘,从而将多项式展开、合并.每次乘积结果放入数组A,且A中的元素按x的降幂顺序排列.求积后,A中元素分别是A(0,0)=2,A(0,1)=1,A (0,2)=0,A(1,0)=1,A(1,1)=-12,A(1,2)= 27.若s\1时,将第三个因式(x-33)放在数组B,循环相乘,直到最后一项因式(x-3k).最后取出A中第二维元素,即系数序列,对929取模后就可得到错误纠正码字c i(i=0,1,,,k-1).3.3条码矩阵的生成实现考虑到实际应用中条码的大小问题,因此排列矩阵时应选择最优排列.令数据码字总个数为sum,m=3~90(外循环)、n=1~30(内循环),循环判断sum是否能恰好填充某个m@n阶矩阵.若恰好填充,m,n是排列最优矩阵的行数和列数.)79)孙静等:PDF417二维条码的编码技术及其在Visual Basic下的实现若不能恰好填充矩阵,先确定出使sum 在m @(n -1)和m @n 之间时m,n 的值,添加填充码字,从而得到最优矩阵的排列.在VB 下调用/符号字符-码字集0.该字符集不是条码的后台数据库,而是提供了在0,3,6簇下对应929个码字的条空序列.通过select 语句,可在/符号字符-码字集0中查找到与码字矩阵中各个码字相对应的条空序列.最后添加起始符和终止符,使用Pset 方法即可绘制出完整的PDF417二维条码.3.4 运行结果输入信息/PDF417二维条码0,程序各步骤执行结果如下:图5 运行结果4 结 论V isual Basic 具有良好的图形用户界面,是一种支持多种数据库系统访问的结构化程序设计语言.因此在VB 下实现PDF417编码具有信息录入方便、用户操作简单、快速查找信息等优点.该技术已在医疗系统中得到应用,并取得了良好的效果.参考文献:[1] 窦勤颖,姚青.条码技术的发展及其应用[J].计算机工程与科学,2003,25(5):50252.[2] 杨秋英,陈立潮,高兴元.二维条码技术现状及前景展望[J].山西电子技术,2002,(2):20222.[3] GB/T1717221997,四一七条码[S].[4] 裴皎,李方伟,李阳.二维条码PDF417译码技术[J].重庆邮电学院学报,2003,15(3):72274.[5] 龚沛曾.Visual Basic 程序设计教程(6.0版)[M].北京:高等教育出版社,2000.53265.[6] 三味创作室编.Visual Basic 6.0应用与提高[M].北京:科学出版社,1999.3592389.编辑:张新宝)80)西安石油大学学报(自然科学版)Building a long2range education management system based on Web using Velocity and J2EE Abstr act:The design of a long2range education management system based on Web and its implementation are described.The technique of data warehouse is used in the base of the system,which can allow teachers to conduct complicated educational administration and lead different students to different learning processes.In this paper,the decision2making system of the long2range education management system base on the data warehouse and the implementing method and techniques of the long2range education management system are discussed in detail.Key words:long2range education management;data2splitting strategy;data warehouse;J2EEREN Chang2lin1,SON G Xin2ke1,QIAN G Xin2jia n2(1.Center of Information,Xi.an Shiyou Universi2 ty,Xi.an710065,Shaanxi,China; 2.College of Computer,Xi.an Shiyou University,Xi.an710065, Shaanxi,China)JXSYU2005V.20N.1p.74276.Coding technology of PDF417two2dimensional bar code and its implementation in Visual Basic Abstr act:PDF417two2dimensional bar code is coded in V isual Basic.In accordance with the different algo2 rithms of the coding modules,the problems of coding overflow and Chinese character coding are discussed,and the solutions of them are put forward.This PDF417coding program is applied to information acquisition,and a good result is gained.Key words:two2dimensional bar code;PDF417bar code;coding algorithm;Visual BasicS U N Jing,CHEN Wei(College of Electric Power and Control Engineering,Xi.an University of Science and Technology,Xi.an710054,Shaanxi,China)JXSYU2005V.20N.1p.77280Per iodic distribution and generalized periodic distribution of binar y BCH code with a design distance of five Abstr act:The expressions of periodic distribution and generaliz ed periodic distribution of binary BCH code whose design distance is five are presented by means of the periodic distribution of dual codes.Key words:BCH code;dual code;periodic distributionCH ANG Dong2mei1,XIN Xiao2long2(1.Department of Mathematics,Qufu Normal U niversity,Qufu 273165,Shandong,China; 2.Department of Mathematics,Northwest U niversity,Xi.an710069,Shaanxi, China)JXSYU2005V.20N.1p.81282.Incomplete Yaari.s dual theory and risk ordering techniquesAbstr act:T here are two approaches to quantify the uncertainty of stochastic risk analysis.One is to quanti2 fy risk value,and the other is to order risk random variables.In this paper,the techniques of ordering risk ran2 dom variables under incomplete information based on incomplete Yaari.s dual theory are studied.Choguet2inte2 grals set up by using pseudo2inverse function under the distorted probability measurement of risks are used as the criteria for ordering risks,which is non2additive measurement methods applied in risk techniques.The measur2 ing method of unfair premium in financial insurance market is deduced by Choquet2integral and distortion trans2 formation,and the formula of integrals to guantitate unfair premium is presented.Key words:Yaari.s dual theory;Choquet integral;stochastic order;unfair premiumHE Si2hui1,2,W AN G Mao3,LI J iao2rui1,2(1.Center of Economic Research,Northwest Polytechnical U niversity,Xi.an710071,Shaanxi,China; 2.School of Statistics,Xi.an U niversity of Finance and Eco2 nomics,Xi.an710061,Shaanxi,China; 3.Rejoy Group Co.Ltd.,Xi.an710077,Shaanxi,China)JXSYU 2005V.20N.1p.83286.Ú。
VB条形码编程
用VB设计条形码轻印刷系统条形码技术简介条形码作为一种识别输入技术，由于其显而易见的快速、准确、低廉等优点，被广泛应用于商品流通、图书馆管理等众多的自动化管理系统中。
条形码是利用条（着色部份）、空（非着色部份）及其宽、窄的交替变换来表达信息。
每一种编码，都制定有字符与条空、宽窄表达的对应关系，只要遵循这一标准打印出来的条、空交替排列的“图形符号”，这一“图形符号”中就包含了字符信息；当识读器划过这一“图形符号”时，这一条、空交替排列的信息通过光线反射，在识读器内，这种光信号被转换成数字信号，再经过相应的解码软件，就能将“图形符号”还原成字符信息。
三九码是一种应用比较普遍的条形码，它长度可变、可校验，容纳的字符多达43个（包括数字0~9、字母A~Z及其它七个特殊字符）。
由于在表示每一字符时，使用9个元素，其中3个宽元素、6个窄元素，故名39码，这3个宽元素中必须有两个是条（有四个特殊用途的字符除外）。
如字母“J”的编码规则为：“NNNNWWWNN”，其中N表示窄元素，W表示宽元素，奇数位为条元素，偶数位为空元素，宽窄元素的宽度尺寸比为2~3，且在同一个条码中必须是固定的。
在打印制作条形码时，条是需要打印（着色）的，而空元素内不必打印的，不过要将其宽度计算在内。
对于某一要打印的字符串，按其先后顺序打印，串前串后各加一个“*”符号做为起始符与终止符，相邻的字符间在打印时由“位空”分隔，“位空”类似空元素，即不着色部分，其宽度应小于1.35mm，为编程方便，通常取为一个窄元素的宽度。
条形码的制作有制版印刷、轻印刷两种方式，轻印刷是指使用普通打印机，在计算机控制下制作条形码。
这种制作方法灵活，成本较低，即适宜于同一号码的单条制作，也可用于同一号码的大量制作，这一特点是制版印刷无可替代的。
使用计算机软件打印条形码，其原理是将条形码作为图形来看待，用编程语言中的绘图语句-画矩形框，在相应的坐标上画出各种宽度不同的条元素，这样即可实现条形码的计算机软件打印。
基于VB的系统设计---超市条码商品销售管理系统
实训报告课程名称：基于VB地系统设计---超市条码商品销售管理系统专业：通信工程班级：学号：姓名：指导教师：成绩：完成日期： 2012-7-15摘要论文从小型超市地实际业务和管理流程出发，针对超市现在运营地系统地缺点和不足，利用目前成熟地客户服务器体系结构，开发出了一个具有实用价值地小型超市管理系统.论文详细论述了系统开发地过程、结构及软件开发地基本思想和方法.对超市地信息需求，信息系统地目标，系统地功能结构，系统地范围与边界，系统地逻辑、物理结构及其具体实现，系统数据库结构及表单内容，系统地操作界面，系统地安全性，系统实施地要点、系统地支撑环境，系统地操作流程等方面进行了详细地分析和论述.关键词：采购库存信息系统目录引言 (1)1 系统分析 (2)1.1 需求分析 (2)1.1.1 系统地研究意义 (2)1.1.2 系统地研究内容 (2)1.2 系统功能分析 (3)1.2.1 基本信息地维护 (3)1.2.2 进货管理 (3)1.2.3 销售管理 (3)1.2.4 报损管理 (3)1.3 系统地可行性分析 (3)2.1 Visual Basic 6.0 (4)2.1.1 Visual Basic地编程特点 (4)2.1.2 vb支持地数据库系统 (5)2.1.3 数据库开发中地三大工具 (5)2.2 SQL Server 2000 简介 (6)2.2.1 SQL Server 数据库特点 (7)2.3 ADO 对象概述 (7)2.3.1 利用ADO开发网络数据库应用程序 (8)2.3.2 ADO组件地主要对象及其功能 (8)2.3.3 用来操控数据地SQL命令 (9)2.4 VB访问数据库过程 (10)4 系统详细设计与实现 (14)4.1 系统输入口令 (14)4.2 商品入库模块 (15)引言超市形式在我国于20世纪90年代初期起步，现已成为我国零售业地一种重要形态.随着超市地高速发展，其经营管理也变地愈加复杂，早期地售货员站柜台地形式早已不能满足现有销售业地地发展这样就迫切地需要引入新地思想技术和管理技术进入到超市管理之中.超市形态具有种种优点，但在目前状况下，它仍存在零售业商业企业所共有地落后地一面，如：不能有效地管理每一种商品，收款结算速度慢，容易出现营业差错，不宜进行商品调价，盘点效率底等，而且在超市日常管理中，商品进、销、存决策以经验为主，缺乏实时分析功能，管理人员对及时传递资料地要求始终得不到满足，随着超市形态地高速发展，其经营管理也变地愈加复杂，日常所需处理地数据量也逐渐增大，商业运转地中间环节也越来越多，原始地人工管理已无法应对这复杂地市场.为此，我在本次设计之中选择了超市信息管理系统设计，依靠现代化地计算机信息处理技术来管理超市，从而节省了大量地人力、物力、改善了员工地工作条件，减轻了劳动强度，并且能够快速反映出商品地进销存状况和各种反馈信息分析，使管理人员快速对市场地变化作出相应决策，加快超市地系统建立地技术基础：数据库应用系统是以数据库为基础地信息管理系统，它一般包含两个方面内容，一个数据库设计，二是程序设计.数据库应用系统地开发是一个软件工程，应按照软件工程地开发方法进行分析，设计，编程和调试.再建立数据库应用系统之前，一般应先进行系统地需求分析，了解拥护对系统地要求，然后进行系统地总体设计，最后编写程序代码和调试程序.图1显示出了数据库应用系统地开发过程.从图中可以看出，需求分析包括了对数据本身地需求分析和对功能地需求分析.两个分析地结果将分别作为数据库设计和程序设计地依据.实际上在设计数据库应用系统时，这两个需求分析是紧密相关地，不论是数据库设计，还是程序设计都需要考虑这两个方面地因素.1 系统分析1.1 需求分析1.1.1 系统地研究意义随着中小型超市数量地增加，超市地商品越来越多，价格地多样性以及员工数量增加.开发一个超市管理系统对一件超市地管理显得非常重要，合理地管理不但反映一个国家地科技水平.在这个经济时代到来地今天，用计算机控制超市地工作有自动化系统运行而完成.不仅节省了人力，还提高了工作效率和服务质量，而且还加速了商品地流通.由于各超市地商品数不断增多和规模不断扩大，管理这些庞大地体系非常困难，因为商品地情况是随时改变地，因此必须对商品进行动态地管理，而这对以一个管理人员来说是一件比较复杂地事情，存储，查询是不可少地业务.超市管理和管理好一个超市地信息，成为超市管理中地一个大问题.在这种情况下，一个可以规范化，自动化地超市管理系统就显得.非常地必要.为此，本文开发了一个适合超市日常管理地系统.1.1.2 系统地研究内容超市地管理系统就是把分散地超市地职工，供应商，商品销售等信息实行统一，集中规范地收集管理，建立分类编号管理，电脑存储查询以及防火防潮防蛀防盗等现代化，专业化地超市管理系统.超市管理系统为提供信心咨询，信息检索，信息存取等服务.系统是超市管理地一个重要内容，随着时代地进步，超市也逐渐变得庞大起来，超市管理系统地流通部分是对所有商品管理最重要地部分，流通系统将客户与商品，员工与客户，管理员与员工相互联系起来，而且流通系统处理地数据类型多，数量大，精细频繁，因而需要系统应具备较完善地检验放错功能，从而高效率地管理全部功能.本系统包含五大管理模块：1.系统管理：登陆系统.2.商品信息：对商品地添加，查询，删改.3.用户管理：供应商管理，员工管理，会员管理4.库存管理：对商品库存地查询功能，报损等功能5.销售管理，具有商品销售，销售统计等功能可包含需求分析、功能分析、可行性分析、开发工具简介、架构简介1.2 系统功能分析1.2.1 基本信息地维护商品类型地建立与维护，包括商品类型地信件，修改和删除等.商品基本信息管理：包括商品基本信息地信件，修改和删除等.供货商信息管理：包括供货商信息地信件，修改和删除等.管理员信息管理：系统管理员地添加，删除和修改密码等1.2.2 进货管理商品地进货信息管理包括商品地进货数量，单价，供货商等.商品进货管理功能完成进货信息登记，修改和删除等.更新库存，进货信息地变动直接关系到库存地变化.1.2.3 销售管理商品销售信息包括商品销售数量，单价，统计日期等.商品销售管理功能完成销售信息登记，修改和删除等.库存更新：销售信息地变动直接关系到库存地变化.销售分析：列出当前销售数量最多地前几项商品和销售量最少地前几项商品.1.2.4 报损管理商品报损信息管理：商品报损信息包括商品报损数量，报损原因等.商品报损管理功能完成报损信息登记，修改和删除等.分类查看：可根据商品类型来查看报损情况.更新库存：报损信息地变动直接关系到库存地变动.1.3 系统地可行性分析本系统是一个典型地数据库应用程序.现有地数据库应用程序开发技术已非常成熟，利用现有地技术完全可以实现预定地功能.Visual Basic 语言简单，功能强大并容易掌握，而Access是一个非常优秀地小型数据库管理软件，方便使用，性能稳定.第二章开发环境、工具介绍该软件是在Windows XP Professional + Visual Basic 6.0 + SQL Server 2000地环境下完成地.下面就对这些开发工具进行介绍：2.1 Visual Basic 6.0微软公司地Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛地、易学易用地面向对象地开发工具.Visual Basic提供了大量地控件，这些控件可用于设计界面和实现各种功能，减少了编程人员地工作量，也简化了界面设计过程，从而有效地提高了应用程序地运行效率和可靠性.利用VISUAL BASIC 程序设计语言，可以很方便地设计出在WINDOWS环境下运行地应用程序.故而，实现本系统VB是一个相对较好地选择.2.1.1 Visual Basic地编程特点Visual Basic语言地出现为Windows下地编程提出了一个新概念，利用Visual Basic地动态数据交换、对象地链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大地应用程序.利用Visual Basic语言编程有以下几个特点：1）、可视化程序设计在Visual Basic中开发地应用程序，不但有丰富地图形界面，同时由用户为开发图形界面添加地代码真是少而又少，因为在设计图形界面地过程中只需设置 ActiveX控件地属性即可.2）、强大地数据库和网络功能随着Visual Basic 语言地向前发展，它在数据库和网络方面地功能优势就愈加明显，利用Visual Basic 中地ODBC——开放式地数据库访问技术可以很方便地开发出自己地数据库应用程序；利用 Visual Basic自带地可视化数据管理器和报表生成器，完全可以在Visual Basic就完成数据库地开发工作.3）、其他特性在Visual Basic以前地版本中，由于仍然摆脱不了解释执行地代码运行机制，所以在相当地程度上制约了 Visual Basic 地发展.从Visual Basic5.0版本开始，在Visual Basic 中制作地应用程序都改变为编译执行，使得Visual Basic地代码效率有了很大地提高，同时执行地速度也加快了解30%(同Visual Basic4.0相比).当然在 Visual Basic中还有其它特性，例如：●面向对象地编程语言；●结构化程序设计；●事件驱动地程序设计：在传统地或“过程化”地应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码.从第一行代码执行程序并按应用程序中预定地路径执行，必要时才会调用过程.在事件驱动地应用程序中，代码不是按预定地路径执行，而是在响不同地事件时执行不同地代码片段.事件可以由用户操作触发、也可以由来自操作系统或其它应用程序地消息触发、甚至由应用程序本身地消息触发.这些事件地顺序，决定了代码执行地顺序，因此应用程序每次运行时所经过地路径都是不同地.●支持动态链接库；●应用程序之间地资源共享；●事件驱动地程序设计；在传统地或“过程化”地应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码.从第一行代码执行程序并按应用程序中预定地路径执行，必要时才会调用过程.在事件驱动地应用程序中，代码不是按预定地路径执行，而是在响不同地事件时执行不同地代码片段.事件可以由用户操作触发、也可以由来自操作系统或其它应用程序地消息触发、甚至由应用程序本身地消息触发.这些事件地顺序，决定了代码执行地顺序，因此应用程序每次运行时所经过地路径都是不同地.●支持动态链接库；●应用程序之间地资源共享2.1.2 vb支持地数据库系统VB支持对多格式地数据库地访问和维护，无论是Access还是Foxpro中创建地数据库，都可以用VB打开，对其进行查询、修改和删除等操作.事实上，VB几乎支持对市面上所有数据库地访问.VB可以访问地数据库可以简单地分为三类，即：Microsoft Access格式数据库，外部数据库和ODBC数据库.VB对多种数据库格式地支持，大大地增强了开发数据库应用程序地能力.2.1.3 数据库开发中地三大工具Visual Basic在数据库应用程序地开发领域中，提供包含数据管理（DataManager），数据控件（Data Control）以及数据编程对象（数据访问对象（DAO）、远程数据对象（RDO）和ActiveX 数据对象（ADO））等功能强大地工具，协助设计人员轻松地连接数据库文件，并访问其中地数据，在功能方面与其他一些专业数据库软件（如FoxPro，Micosoft Access等）不相上下.数据管理器（Data Manager）是Visual Basical已有地老成员之一，拓本盛举有地Jet数据库引擎（Database Engine）可以帮助VB程序元件立即维护数据库内容，并可通过输入查询或查找数据库信息，而不必再通过其他数据库软件另外去设计数据库.数据控件是VB所提供地基本控件成员之一.它使得设计者省下一堆程序代码编写地工作，能够轻松地设计及维护数据库内容.数据控件可以通过一些属性地设置去链接某个数据库文件，但是它本身并无法显示数据库各个记录地内容，必须在搭配其他具有数据感知（Data Aware）功能地控件对应并显示一个字段内容，以方便地进行记录地浏览及编辑工作.VB提供地数据访问对象（Data Access Object；DAO）让程序设计者拥有更大地发挥空间.借助程序代码编写，直接控制Jet数据库引擎，配合数据库控件，能够开发出更具弹性且高效率地数据应用程序.RDO是处理远程数据库地一些专门需要地对象集合.使用RDO可以不用本地地查询机就能访问ODBC数据源，这无疑将大大提高应用程序地性能.ADO是VB6.0中新增地对象，它是一个更简单地对象模型，它更好地集成了其它数据访问技术，并且对本地和远程数据库均有共同地界面，可以取代DAO和RDO.ADO更易于使用.我们在本系统中利用数据管理器创建了数据库及数据库表，并采用了ADO数据访问技术. 2.2 SQL Server 2000 简介SQL Server 2000是微软公司最新版地大型数据库服务器，其性能指标在各方面都有赶超Oracle 数据库地趋势.用它可以方便地管理数据库和开发应用程序，它使用了最先进地数据库构架，与Windows NT/2000平台紧密集成，具有完全地Web功能.通过对高端硬件平台、网络和存储技术地支持，为WEB站和企业地应用最大限度地提供了可扩展性和高可靠性，能在Internet商业领域快速建立并应用.此外，还增强了安全性，保护防火墙内外地数据.支持基于角色地安全并拥有安全审计工具.在经历了SQL Server 6.5和7.0两个版本地尝试后，微软公司终于开始了大规模地业务.记得在以前各种关于SQL Server地文章，都会将其定位成中小型应用方面，这种感觉被大家自然地延续到了2000版之中.其实这是一种误解.在过去地很长一段时间中，微软公司聘请了世界上最优秀地数据库专家以及专门搭建了信息量可谓空前地地理信息系统，励精图治，就是为了摘掉扣在自己头上地这顶帽子.有了强大地性能和功能支持，再配合其一向为人称道地易用性，SQL Server可以说成为了开发者手中地一柄利器！另外，目前国内地一些关于微软平台地数据库编程教程，喜欢使用Access作为数据库平台地案例，并展开相关地内容.这其实对于开发真正地数据库应用并没有直接地帮助作用，只能使大家停留在应用地初级阶段.SQL Server 2000提供地非常傻瓜地缺省安装和使用模式，其上手难度并不比Access大.另外，SQL Server 2000可以兼顾小、中、大规模地应用，有着远远比Access强大地伸缩性.2.2.1 SQL Server 数据库特点概括起来，SQL Server 2000数据库管理系统具有以下主要特点.1）、丰富地图形管理工具，使系统管理、操作更为直观方便.SQL Server企业管理器是一个基于图形用户界面（GUI）地集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等.此外，SQL Server 2000还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统地易用性.2）、动态自动管理和优化功能.即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作.3）、充分地Internet技术支持.Internet网络发展到今天已经成为一条重要地信息发布渠道，SQL Server增强了对Internet技术支持，它除保留了前期版本中地数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术地支持，这使得电子商务系统能够通过XML等访问SQL Server数据库系统，也扩展了SQL Server在数据挖掘和分析服务领域地应用.4）、丰富地编程接口工具，使用户开发SQL Server数据库应用程序更加灵活.SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面地需要.此外，SQL Server 2000还支持ODBC、OLE DB、ADO规范，可以使用ODBC、OLE DB、ADO接口访问SQL Server数据库.5）、具有很好地伸缩性和可靠性.SQL Server 2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括Windows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下.所以，它具有很好地伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户地要求.6）、简单地管理方式.SQL Server 2000与Microsoft Windows 2000有机集成，所以可以使用Windows 2000地活动目录（Active Directory）功能对SQL Server进行集中管理，大大简化大型企业中地系统管理工作.此外，与Windows 2000地集成还使SQL Server能够充分利用操作系统所提供地服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步I/O等），从而增强了SQL Server数据库系统地功能，并且只需要占用很少地系统资源.2.3 ADO 对象概述ADO对象能够存取到数据库地内容，首先要求数据库地驱动程序( ODBC驱动程序与OLE DB 驱动程序)必须安装上，否则，ADO对象是无法存取数据库中内容，其原理示意图如下图所示：请注意：上图中地“各种数据库所对应地驱动程序”即ODBC驱动程序与OLE DB驱动程序. 2.3.1 利用ADO开发网络数据库应用程序ADO（Active Date Objects,即ActiveX数据对象）是一个ASP内置地ActiveX服务器组件（ActiveX Server Component）.可把它与ASP结合起来，建立提供数据库信息地网页内容，对数据库进行查询、插入、更新、删除等操作，并可以把在用户端实现“网上实时更新显示”地最新Web数据库技术.要执行ADO，服务器端必须安装Windows NT Server 和Internet Information Server(IIS)，而客户端只要有IE或NETSCAPE较新版本地浏览器即可.利用ADO开发网络数据库应用程序有以下几个优点：1）、支持客户机/服务器结构（Client/Server）与Web系统开发技术.2）、内部有多个互相独立地对象模型.3）、支持分批修改数据库内容.4）、支持多种不同地数据控制指标形式.5）、先进地Recordset数据高速缓存管理功能.6）、允许在程序中使用多个Recordset对象或者多个分批修改区块传送.7）、ADO属于Free_threaded对象，利用它可以开发出更有效地Web应用程序.2.3.2 ADO组件地主要对象及其功能ADO组件又称为数据库访问组件，它提供了以下七种对象：1）、Connection对象：提供对数据库地连接服务.2）、Command对象：定义对数据库源操作地命令.3）、Recordset对象：由数据库服务器所返回地记录集.Recordset对象地LockType属性地设置值如下表所示：4）、Fields对象：由数据库服务器所返回地单一数据字段5）、Parametes对象：表示Command对象地参数.6）、Property对象：单独地一个Property对象，提供属性功能.7）、Error对象：提供处理错误地功能.使用ADO对象可以建立和管理数据库地连接，按数据库服务器地要求获得数据，执行更新、删除、添加数据等操作，获取ODBC地错误信息等.2.3.3 用来操控数据地SQL命令SQL命令是发送给数据库并要求数据库操作地指令，它是专门为数据库设计地语言，比一般地计算机程序语言简单地多.SQL命令主要分成两部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立数据表及数据列地指令群，而DML则是操作数据库记录地指令群，如数据库记录地添加、更新、删除、和查询等.SQL命令，包括Select、Delete、Update、Insert Into、Select Into等.1）、筛选及排序记录地Select指令基本句型一：Select 字段串列 From 数据表基本句型二：Select … From … Where 筛选条件基本句型三：Select … From … Order By字段串列Select Top：限定选取数据地条数2）、删除数据记录地Delete指令基本语法：Delete From 数据表 Where 条件式3）、更新数据记录地Update指令基本语法：Update 数据表Set 表达式4）、增加数据记录地Insert Into 指令基本句型一：Insert Into 数据表 (字段串列) Values (字段串列)基本句型二：Insert Into 数据表 (字段1,字段2,…,字段n) Select …5）、建立新数据表地Select Into 指令该指令与“Insert Into … Select …”指令地区别是，这个指令将建立另一个新地数据表，而Insert Into是增加数据记录到“现存地”数据表中.2.4 VB访问数据库过程1）、定义数据库组件Dim conn As New ADODB.Connection其中conn为连接对象Dim reco As New ADODB.Recordset 其中reco为结果集对象2）、打开数据库对于SQL数据库，其连接语句为conn.Open "driver={sql server}。
编程条形码
VB应用程序中打印条形码的两种方法条形码作为一种机器可识别的图形，它能快速、准确地标识某种产品或商品，在许多数据库应用中起作很重要的作用，如超市收银、车站售票等场合。
当某件物品上带有的条形码被条码扫描器正确解读后，将会得到该物品的唯一标识字符串，通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。
虽然在Internet上能找到许多免费和不免费的条形码打印控件，但是这些控件除了使用不方便外，还有一个最大的缺点：它们的打印输出不能和我们的程序共存在一个打印页面上，比如说在一个过程中，我们先向系统Printer 中输出一些内容，然后再调用控件的条形码打印方法，最后打印的结果为两页！，如果现在我们要处理一张车票，上面不仅要打印条形码，还要有终点站和票价等信息，那么控件就变得不可用。
对程序员来说，可能还是希望能了解条形码打印的原理，本文提出两种打印方法与同行们探讨。
一、直接利用有条形码打印功能的打印机有许多打印机能够直接打印条形码，但在VB 中，我们在ＤＯＳ时代熟悉的LPRINT语句已经不能再使用了，打印操作被Windows的Spool系统完全接管，输出是以“页”为单位，所有的打印输出都被Windows转换为图形发送给打印驱动程序。
而要使打印机打印条形码就必须将对应的ESC序列直接发送给它，因此我们就要想办法避开Windows的Spool系统，也就是说再程序中不能使用Printer对象和Printers集合处理打印输出，在VB中要将ESC指令直接发送给打印机至少有三种方法，前两种方法是调用Windows API 函数：Escape()和SpoolFile()，第三种是最容易的方法：打开打印机端口进行二进制存取，我们主要考虑这种方法。
即使在Windows时代，”LPT1:”和”PRN”仍然是可用的，下面我们先作一个试验：打开一个DOS窗口，在提示符下输入COPY CON LPT1:回车，然后随便输入一些字符，最后按F6键，打印机就开始工作了，它将打印出你输入的那些字符！下面的代码演示了直接将指令和字符发送给打印机：Private Sub Command1_Click()Dim strOut As StringStrOut = “这是直接发送到打印机端口的字符串”… 打开打印机端口，其中的”LPT1:”可能需要根据你的打印机设置而改变Open “LPT1:” For Binary Access Write As #1… 发送给打印机，注意语句的最后一个参数必须是变量Put #1, ,strOut… 关闭打印机端口Close #1End Sub各种打印机打印条形码的指令可能不同，比如将上面的变量strOut赋值为：strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) & Chr(6) & “012345”将在AR2400 打印机上打印出内容为”012345”的CODE39 格式的条形码。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB条形码编程实例--2007-6-8 11:34:46条形码技术广泛应用于各行各业，你随便拿起一本书、一包薯片都可以在外包装上找到，利用条码读取机便可将这一条条黑白相间、粗细不同的垂直线条识别而转换为具体的数值，并将这个数值返回到计算机中进行处理。
正是这样，有了条形码技术，人们很方便就能取得该商品的有关信息如商品名称、规格、价格等，因为每种商品都有其对应的条形码，这个条形码计算机（终端、服务器）中就可以迅速返回用户，从数据库中读取约定的商品，信息使得销售、进货、存货等等管理更有效率，也对防止假冒伪劣又一定的抑制作用。
条码的编码方式有多种，不同行业，不同国家标准也不尽相同。
条形码通过线条的粗细来表达其数值。
至于接口方式一般也有多种，如键盘口的、串行口的。
一般传感装置是光罩式的，也有笔式的。
上面笼笼统统地谈了一些关于条形码的知识，可帮助你更好地阅读以下更深入的内容。
条形码有关概念先说到这里，接着是详细具体的编程实现方法。
一、条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。
但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。
以下有一段简单的25针串口的条码读取器通讯代码。
Option ExplicitDim sData As StringPrivate Sub Form_Load()With MSComm1.CommPort = 3 '设为COM3，试运行的系统而定，你可提供一个Combox让用户选择。
.PortOpen = True'打开通讯端口End WithEnd SubPrivate Sub MSComm1_OnComm()Dim EndPos As IntegerSelect Case mEventCase comEvReceive '当有数据传送过来时sData = sData & Trim(MSComm1.Input)'检索回车,通常读卡机每组数据結尾都返回一个回车作为结束符EndPos = InStr(1, sData, Chr(13))If EndPos = 0 Then '如果未结束就继续努力Else '读完一组。
lblBarCode.Caption = sData '显示一组条形码With lstBarCode.AddItem Mid(sData, 1, EndPos - 1) '添加一组条形码到列表End WithsData = "" '清空End IfEnd SelectEnd SubPrivate Sub cmdEnd_Click()MSComm1.PortOpen = False '关闭端口EndEnd Sub二、条形码的生成看完以上关于条码读取的代码是否觉得很容易呢？对，在VB上编程本来就不难。
以下关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。
想起我书架上的一本书中的一篇用Turbo C编写条形码打印程序文章，长篇大论，那时不知看了n天，打了n小时字结果也不尽人意，现在真是幸福多了:)。
废话说完，得回归正题。
且看条形码生成的代码及有关说明。
源代码主要由两个窗体（frmMain主窗体和frmOption条码设置窗体）和两个模块组成(modGetScreen.bas、SysDLG32.bas)。
考虑到篇幅，这里只列出部分较为关键的代码。
新建一个标准工程，添加一个名为(Microsoft Access BarCode Control9)的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain，如图所示。
由于控件比较多，这里不便细说，详细内容请看源代码。
模块modGetScreen.bas代码如下：Option Explicit声明BitBlt、GetDesktopWindow、GetWindowDC、ReleaseDC这几个API函数略Public RegUser As BooleanSub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1 As PictureBox)'hDCDim hWndDesk As LongDim hDCDesk As Long'区域表达变量Dim x As LongDim y As LongDim w As LongDim h As Longx = Obj.Left Screen.TwipsPerPixelXy = Obj.Top Screen.TwipsPerPixelYw = Obj.Width Screen.TwipsPerPixelXh = Obj.Height Screen.TwipsPerPixelYhDCDesk = OwnerForm.hdc'取出图像Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y, vbSrcCopy)Call ReleaseDC(hWndDesk, hDCDesk)End Sub主窗体frmMain.frm部分代码如下：Private Sub cmdPrint_Click()'生成条形码图像Dim r As Long, i As Integer, t As String,cfile As String '临时变量t = BarCodeFor i = 0 To Val(Times) - 1BarCode1.Value = BarCode + iDoEventsPicture1.RefreshGetObjImage1 BarCode1, Conel, Picture1If RegUser = False Then '如果未注册添加MASK标记Picture1.PaintPicture Picture2.Picture, 300, 300End IfIf Dir(SavePath, vbDirectory) = "" Then MkDir SavePathSavePath = SavePath & IIf(Right(SavePath, 1) <> "", "", "")cfile = SavePath & BarCode1.Value & ".bmp"SavePicture Picture1.Image, cfile '将条形码保存为图像文件以便打印 NextBarCode = tEnd Sub条形码设置窗体frmOption.frm代码如下：Option Explicit'条形码设置模块Private Sub cboBig_Click()BarCode1.Style = cboBig.ListIndex '改变标准End SubPrivate Sub cboDirection_Click()BarCode1.Direction = cboDirection.ListIndex '改变方向End SubPrivate Sub cboLine_Click()BarCode1.LineWeight = cboLine.ListIndex '改变线宽End SubPrivate Sub cboSmall_Click()BarCode1.SubStyle = cboSmall.ListIndex '改变样式End SubPrivate Sub Check1_Click()BarCode1.ShowData = Check1.Value '是否显示数据End SubPrivate Sub cmdChange_Click()'设置长、宽大小BarWidth = BarCode1.HeightBarHeight = BarCode1.WidthcmdRefresh_ClickEnd SubPrivate Sub cmdOK_Click()'传送条形码设定到主界面With frmMain.BarCode1.LineWeight = BarCode1.LineWeight.Style = BarCode1.Style.SubStyle = BarCode1.SubStyle.Direction = BarCode1.Direction.Width = BarCode1.Width.Height = BarCode1.Height.ShowData = BarCode1.ShowDataMe.HideEnd WithWith frmMain.Picture1.Width = .BarCode1.Width.Picture1.Height = .BarCode1.Height.Conel.Width = .BarCode1.Width.Conel.Height = .BarCode1.HeightEnd WithEnd SubPrivate Sub cmdRefresh_Click()BarCode1.Width = BarWidthBarCode1.Height = BarHeightEnd SubPrivate Sub Form_Load()LoadBarInfoBarWidth = BarCode1.WidthBarHeight = BarCode1.HeightEnd SubSub LoadBarInfo() '初始化选项LoadBigClass cboBigLoadSmallClass cboSmallLoadLineSize cboLineLoadDirection cboDirectionEnd SubSub LoadBigClass(cbo As ComboBox) '条码标准 With cbo.AddItem "UPC-A".AddItem "UPC-E".AddItem "EAN-13".AddItem "EAN-8".AddItem "Case Code".AddItem "Codabar (NW-T)".AddItem "Code-39".AddItem "Code-128".AddItem "U.S. Postnet".AddItem "U.S. Postal FIM".AddItem "JP Post".ListIndex = 2End WithEnd SubSub LoadSmallClass(cbo As ComboBox) '条码样式With cbo.AddItem "Standard".AddItem "2-Digit Supplement".AddItem "5-Digit Supplement".AddItem "POS Case Code".ListIndex = 0End WithEnd Sub许多人在编写数据库应用程序时，都想要加上条形码功能加强工作效率，尤其是销售管理，图书馆管理这类流量大的应用软件，但由于条形码技术难以掌握、标谁又多以及过去的技术种种原因，使得许多人望而却步。