- 1、本文档共29页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
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;
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.保存并运行。
源代码如下:
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DB, OleCtrls, DBOleCtl, BARCODELib_TLB, ComObj,OleCtnrs,ExtCtrls, ComCtrls, DBCtrls;
typeTForm1 = 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;
varForm1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);beginbtapp:=createoleobject('Bartender.application.7');btapp.visible:=false;end;
procedure TForm1.printClick(Sender: TObject);beginbtformat:=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_Lo
您可能关注的文档
- 新形势下德育实效性研究.doc
- 学点儿语音知识(扫盲型).doc
- 学习 MySQL.doc
- 学习_Linux,101_文本流和过滤器.doc
- 学习Vim的一点心得.doc
- 学校内使用.doc
- 循序渐进学Python之循环语句.doc
- 研究生入学考试数据结构考试大纲.doc
- 研究室课题组.doc
- 要每天挑一个!做十分钟!两个星期内就会见效.doc
- GB/T 40096.6-2024就地化继电保护装置技术规范 第6部分:母线保护.pdf
- 《GB/T 40096.6-2024就地化继电保护装置技术规范 第6部分:母线保护》.pdf
- GB/T 43980-2024口译服务 医疗口译要求.pdf
- 中国国家标准 GB/T 43980-2024口译服务 医疗口译要求.pdf
- 《GB/T 43980-2024口译服务 医疗口译要求》.pdf
- GB/T 17215.301-2024电测量设备(交流) 特殊要求 第1部分:多功能电能表.pdf
- 《GB/T 17215.301-2024电测量设备(交流) 特殊要求 第1部分:多功能电能表》.pdf
- 中国国家标准 GB/T 17215.301-2024电测量设备(交流) 特殊要求 第1部分:多功能电能表.pdf
- 中国国家标准 GB/Z 43973-2024非介入式负荷监测(NILM)系统用感知装置.pdf
- GB/Z 43973-2024非介入式负荷监测(NILM)系统用感知装置.pdf
文档评论(0)