2009 年 8月 29 日随笔档案 - 追梦人RUBY

2009年8月29日

摘要：以下是来自Borland公司的完整例子。请注意其中两条判断语句，这说明有时候仅仅凭getprinters并不能保证信息的正确，还需要WIN.INI的帮助。uses printers;{$IFNDEF WIN32}const MAX_PATH = 144;{ENDIF}procedure TForm1.Button1Click(Sender : TObject);var pDevice : pCha... 阅读全文

posted @ 2009-08-29 21:39 追梦人RUBY 阅读(890) 评论(0) 推荐(0) 编辑

Delphi获取默认打印机名称及端口

摘要：在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口，而POS机却又需要并口，所以目前需要用PCI转接卡，这个就导致不同门店使用的端口就有可能不同，这就给我们程序中弹出钱箱的指令带来一定的难度。所以就通过获取Window自带的默认，得出打印机信息。在Windows文件下有个win.ini，里面自带默认打印机的信息。通过调用API函数Getprofilestring这个函数获取打印机信息... 阅读全文

posted @ 2009-08-29 21:33 追梦人RUBY 阅读(692) 评论(0) 推荐(0) 编辑

delphi 打印小票

摘要： procedure TForm1.Button1Click(Sender: TObject);var F:TextFile;beginAssignfile(f,'LPT1');rewrite(f);Write(f,chr(27)+'@'); //Chr(27)+'@' 即ESC @ 指令 WRITELN(F,'TEST1 FIRST LINE'); WRITELN(F,chr(12)); // m... 阅读全文

posted @ 2009-08-29 21:08 追梦人RUBY 阅读(620) 评论(0) 推荐(0) 编辑

TQuery组件的Open方法与ExecSQL的区别

摘要：应用程序运行过程中，通过程序调用TQuery组件的Open方法或ExecSQL方法可以执行其SQL属性中的程序。Open方法和ExecSQL方法是不一样的。 Open方法只能用来执行SQL语言的查询语句（Select命令），并返回一个查询结果集。ExecSQL方法用来执行其他常用的SQL语句（如Insert、Update、Delete等命令），不返回结果集。程序设计时如果无法确定TQuery组件中... 阅读全文

posted @ 2009-08-29 20:09 追梦人RUBY 阅读(342) 评论(0) 推荐(0) 编辑

Delphi三层数据库开发应用

摘要：服务器端程序实际上是个COM 工程，它本身连接数据源，再通过接口与客户端联系，这个COM 工程必须注册在服务器上。首先建立一个空白的工程。 file -> New -> Other -> Multitier -> Remote Data Module(远程数据模块) 对话框： Coclass Name : COM程序的名称，前台依据这个名字查找COM程序（P... 阅读全文

posted @ 2009-08-29 18:56 追梦人RUBY 阅读(498) 评论(0) 推荐(0) 编辑