bartender标签打印社区

 找回密码
 立即注册

扫一扫,访问微社区

搜索
查看: 2584|回复: 3

BarTender ActiveX 在Delphi和VB下调用数据库的实例(转贴)

[复制链接]

72

主题

73

帖子

261

积分

超级版主

Rank: 8Rank: 8

积分
261
发表于 2017-6-22 11:50:14 | 显示全部楼层 |阅读模式
BarTender ActiveX封装了大量的函数和属性,其中包括对数据库的调用。下面通过在Delphi和VB下的实例给出其调用方法。
  先看Delphi的例子。
  1. 首先打开BarTender生成一个标签,并正确添加数据库,设置其子串共享名为domain1。
  2. 打开Delphi,创建一个工程。
  3. 声明全局变量btapp,btformat,btdb。
  4. 在FormCreate过程中引用BarTender。
  btapp:=createoleobject('Bartender.application.7');
  btapp.visible:=false;
  5.向窗体中加入一个button,设置其Caption值为“打印”,其name为“print”,为其click过程添加代码:
  btformat:=btapp.formats.open('d:\bartender\format1.btw',true, '');
  btdb:=btformat.databases.item(1);
  btformat.printout(0,0);
  btformat.close(1);
  6. 向FormCloseQuery中加入代码:
   try
   btapp.quit(1)
   except
   application.terminate
   end;
  7.保存并运行。
源代码如下:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, OleCtrls, DBOleCtl, BARCODELib_TLB, ComObj,OleCtnrs,
ExtCtrls, ComCtrls, DBCtrls;
type
TForm1 = class(TForm)
print: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure printClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
btapp:variant;
btformat:variant;
btdb:variant;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
btapp:=createoleobject('Bartender.application.7');
btapp.visible:=false;
end;
procedure TForm1.printClick(Sender: TObject);
begin
btformat:=btapp.formats.open('d:\bartender\format1.btw', true, '');
btdb:= btformat.databases.item(1);
btformat.printout(0,0);
btformat.close(1);
end;
procedure TForm1.FormCloseQuery(Sender: Tobject;CanClose: Boolean);
begin
  try
  btapp.quit(1)
  except
  application.terminate
  end;
end;
end.
  下面我们再通过一个简单的例子说明BarTender ActiveX在VB下如何调用数据库,因此在此例中我们直接为format1.btw指定了数据库域,并指定了文件存放的路径。
 1. 首先打开BarTender生成一个标签,并正确添加数据库,设置其子串共享名为domain1。
 2. 在VB中新建一个工程,保存。“工程|引用”中选中BarTender7.0,然后打开代码窗口,选择“通用/声明”,添加下列声明:
 Dim btapp AsBarTender.Application
 Dim btformatAs BarTender.Format
 Dim btdb AsBarTender.Database
       
 3. 在“Form/Load”中加入代码:
  Private SubForm_Load()
  Set btapp =CreateObject("bartender.application")
  btapp.Visible= False
  End Sub
 4. 在对象窗口向Form中放入一个Command按钮,其Caption属性赋为“打印”,name属性为“print”  ,双击为其添加代码:
  Private Subprint_Click()
  Set btformat= btapp.Formats.Open("d:\bartender\format1.btw")
  Set btdb =btformat.Databases(1)
  'Set btdb =btformat.Databases.Item(1)
  'Set btdb =btformat.Databases("domain1")
  btformat.PrintOut
  End Sub
 5. 在“Form/Unload”中添加:
  btapp.Quit
按F5运行,单击打印按钮,通过连接的打印机即可打印所需的标签。

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|bartender标签打印社区 ( 苏ICP备16063857号-3

GMT+8, 2019-9-15 22:09 , Processed in 0.063107 second(s), 6 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 昆山卓豪信息技术有限公司

快速回复 返回顶部 返回列表