BarTenderActiveX在Delphi和VB下调用数据库的实例

BarTender Activ eX 在Delphi 和VB 下调用数据库的实例(转贴) 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; ５．向窗体中加入一个 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; ７．保存并运行。 源代码如下: 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 下如何调用数据库，因此在此例中我们...