《BarTender ActiveX 在Delphi和VB下调用数据库的实例》由会员分享，可在线阅读，更多相关《BarTender ActiveX 在Delphi和VB下调用数据库的实例（29页珍藏版）》请在金锄头文库上搜索。
1、BarTender ActiveX 在在 Delphi 和和 VB 下调用数据库的实例下调用数据库的实例(转贴转贴) BarTender ActiveX 封装了大量的函数和属性，其中包括对数据库的调用。下面通过在 Delphi 和 VB 下的实例给出其调用方法。先看 Delphi 的例子。1. 首先打开 BarTender 生成一个标签，并正确添加数据库，设置其子串共享名为 domain1。2. 打开 Delphi，创建一个工程。3. 声明全局变量 btapp，btformat，btdb。4. 在 FormCreate 过程中引用 BarTender。btapp:=createoleobjec
2、t(Bartender.application.7);btapp.visible:=false;向窗体中加入一个 button，设置其 Caption 值为“打印”，其 name 为“print”，为其 click 过程添加代码：btformat:=btapp.formats.open(d:bartenderformat1.btw, true, );btdb:= btformat.databases.item(1);btformat.printout(0,0);btformat.close(1);6. 向 FormCloseQuery 中加入代码：trybtapp.quit(1)excepta
3、pplication.terminateend;保存并运行。源代码如下: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(
4、Sender: TObject); procedure printClick(Sender: TObject); private Private declarations public Public declarations btapp:variant; btformat:variant; btdb:variant; end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.FormCreate(Sender: TObject); begin btapp:=createoleobject(Bartender.application
5、.7); btapp.visible:=false; end;procedure TForm1.printClick(Sender: TObject); begin btformat:=btapp.formats.open(d:bartenderformat1.btw, true, ); btdb:= btformat.databases.item(1); btformat.printout(0,0); btformat.close(1); end;procedure TForm1.FormCloseQuery(Sender: Tobject; CanClose: Boolean); begi
6、ntrybtapp.quit(1)exceptapplication.terminateend; end;end.下面我们再通过一个简单的例子说明 BarTender ActiveX 在 VB 下如何调用数据库， 因此在此例中我们直接为 format1.btw 指定了数据库域，并指定了文件存放的路径。1. 首先打开 BarTender 生成一个标签，并正确添加数据库，设置其子串共享名为 domain1。2. 在 VB 中新建一个工程，保存。“工程|引用”中选中 BarTender7.0，然后打开代码窗口， 选择“通用/声明”，添加下列声明：Dim btapp As BarTender.Appl
7、icationDim btformat As BarTender.FormatDim btdb As BarTender.Database3. 在“Form/Load”中加入代码：Private Sub Form_Load()Set btapp = CreateObject(“bartender.application“)btapp.Visible = FalseEnd Sub4. 在对象窗口向 Form 中放入一个 Command 按钮，其 Caption 属性赋为“打印”，name 属性为“print” ，双击为其添加代码：Private Sub print_Click()Set btfo
8、rmat = btapp.Formats.Open(“d:bartenderformat1.btw“)Set btdb = btformat.Databases(1)Set btdb = btformat.Databases.Item(1)Set btdb = btformat.Databases(“domain1“)btformat.PrintOutEnd Sub5. 在“Form/Unload”中添加：btapp.Quit按 F5 运行，单击打印按钮，通过连接的打印机即可打印所需的标签。VBVB 中的文本框输入完后按中的文本框输入完后按 ENTERENTER 键就触发下一事件那个叫什么过程
9、键就触发下一事件那个叫什么过程? ? Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox “OK!“ End If End SubKeyAsciiKeyAscii 是键盘输入后传递给程序的 ASCII 码，关于 ASCII 码，各种 电脑书籍一般都有附录，网络上搜索也很多。 常规 ASCII 码是 0127，一般可以显示的是 32127 关于 KeyAscii 的使用，主要是拦截判断键盘输入的键值，比如，只允 许输入数字，就可以在文本框的 KeyPress 中输入： If KeyAscii 5
10、7 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 键 vbKeyCa
11、pital 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 PRI
12、NT 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 是一致的 常数 值 描述 vbKeyA 65 A 键 vbKeyB 66 B 键 vbKeyC 67 C 键 vbKeyD 68 D 键 vbKeyE 69 E 键 vbKeyF 70 F 键 vbKeyG 71 G 键 vbKe
13、yH 72 H 键 vbKeyI 73 I 键 vbKeyJ 74 J 键 vbKeyK 75 K 键 vbKeyL 76 L 键 vbKeyM 77 M 键 vbKeyN 78 N 键 vbKeyO 79 O 键 vbKeyP 80 P 键 vbKeyQ 81 Q 键 vbKeyR 82 R 键 vbKeyS 83 S 键 vbKeyT 84 T 键 vbKeyU 85 U 键 vbKeyV 86 V 键 vbKeyW 87 W 键 vbKeyX 88 X 键 vbKeyY 89 Y 键 vbKeyZ 90 Z 键 0 键到 9 键与其 ASCII 码的相应值 0 到 9 是一致的 常数 值
14、 描述 vbKey0 48 0 键 vbKey1 49 1 键 vbKey2 50 2 键 vbKey3 51 3 键 vbKey4 52 4 键 vbKey5 53 5 键 vbKey6 54 6 键 vbKey7 55 7 键 vbKey8 56 8 键 vbKey9 57 9 键 数字小键盘上的键 常数 值 描述 vbKeyNumpad0 96 0 键 vbKeyNumpad1 97 1 键 vbKeyNumpad2 98 2 键 vbKeyNumpad3 99 3 键 vbKeyNumpad4 100 4 键 vbKeyNumpad5 101 5 键 vbKeyNumpad6 102
15、6 键 vbKeyNumpad7 103 7 键 vbKeyNumpad8 104 8 键 vbKeyNumpad9 105 9 键 vbKeyMultiply 106 乘号 (*) 键 vbKeyAdd 107 加号 (+) 键 vbKeySeparator 108 ENTER 键（在数字小键盘上） vbKeySubtract 109 减号 (-) 键 vbKeyDecimal 110 小数点 (.) 键 vbKeyDivide 111 除号 (/) 键 功能键 常数 值 描述 vbKeyF1 112 F1 键 vbKeyF2 113 F2 键 vbKeyF3 114 F3 键 vbKeyF
16、4 115 F4 键 vbKeyF5 116 F5 键 vbKeyF6 117 F6 键 vbKeyF7 118 F7 键 vbKeyF8 119 F8 键 vbKeyF9 120 F9 键 vbKeyF10 121 F10 键 vbKeyF11 122 F11 键 vbKeyF12 123 F12 键 vbKeyF13 124 F13 键 vbKeyF14 125 F14 键 vbKeyF15 126 F15 键 vbKeyF16 127 F16 键 VB 中防止将重复项目添加到列表框控件中中防止将重复项目添加到列表框控件中2000-09-04 谭翁VB 编程乐园isualBasic 的列表框控件中包含项目的列表，本文介绍如何检查列表中项目是否 已 经存在，以及如何将新的项目添加到列表框控件中。 使用 SendMessage 函数搜寻重复的项目在 VisualBasic 中开发应用程序时，可以使用列表框控件来创建
