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

BarTender ActiveX 在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下如何调用数据库，因此在此例中我们直接为format1.btw指定了数据库域，并指定了文件存放的路径。 1. 首先打开BarTender生成一个标签，并正确添加数据库，设置其子串共享名为domain1。

2. 在VB中新建一个工程，保存。“工程|引用”中选中BarTender7.0，然后打开代码窗口，选择“通用/声明”，添加下列声明：

Dim btapp As BarTender.Application Dim btformat As BarTender.Format Dim btdb As BarTender.Database

3. 在“Form/Load”中加入代码： Private Sub Form_Load()

Set btapp = CreateObject(\ btapp.Visible = False End Sub

4. 在对象窗口向Form中放入一个Command按钮，其Caption属性赋为“打印”，name属性为“print” ，双击为其添加代码： Private Sub print_Click()

Set btformat = btapp.Formats.Open(\ Set btdb = btformat.Databases(1)

'Set btdb = btformat.Databases.Item(1) 'Set btdb = btformat.Databases(\ btformat.PrintOut End Sub

5. 在“Form/Unload”中添加： btapp.Quit

按F5运行，单击打印按钮，通过连接的打印机即可打印所需的标签。

VB 中的文本框输入完后按ENTER键就触发下一事件那个叫什么过程?

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox \ End If End Sub

KeyAscii

KeyAscii是键盘输入后传递给程序的ASCII码，关于ASCII码，各种电脑书籍一般都有附录，网络上搜索也很多。

常规ASCII码是0～127，一般可以显示的是32～127

关于KeyAscii的使用，主要是拦截判断键盘输入的键值，比如，只允许输入数字，就可以在文本框的KeyPress中输入：

If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 KeyAscii键码 常数 值 描述

vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL 键 vbKeyMButton 4 鼠标中键 vbKeyBack 8 BACKSPACE 键 vbKeyTab 9 TAB 键

vbKeyClear 12 CLEAR 键 vbKeyReturn 13 ENTER 键 vbKeyShift 16 SHIFT 键 vbKeyControl 17 CTRL 键 vbKeyMenu 18 菜单键 vbKeyPause 19 PAUSE 键

vbKeyCapital 20 CAPS LOCK 键 vbKeyEscape 27 ESC 键

vbKeySpace 32 SPACEBAR 键 vbKeyPageUp 33 PAGEUP 键

vbKeyPageDown 34 PAGEDOWN 键 vbKeyEnd 35 END 键 vbKeyHome 36 HOME 键

vbKeyLeft 37 LEFT ARROW 键 vbKeyUp 38 UP ARROW 键

vbKeyRight 39 RIGHT ARROW 键 vbKeyDown 40 DOWN ARROW 键 vbKeySelect 41 SELECT 键

vbKeyPrint 42 PRINT SCREEN 键

vbKeyExecute 43 EXECUTE 键 vbKeySnapshot 44 SNAP SHOT 键 vbKeyInser 45 INS 键 vbKeyDelete 46 DEL 键 vbKeyHelp 47 HELP 键

vbKeyNumlock 144 NUM LOCK 键

A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的 常数 值 描述