用PLSQL自动生成数据库表的Delphi对象
DECLARE
TYPE TY_QUECUR IS REF CURSOR;
CUR_COLUMNS TY_QUECUR;
SQLCMD VARCHAR(500);
TABNAME VARCHAR(20);
COLNAME VARCHAR(50);
COLTYPE VARCHAR(20);
COLCOMMENT VARCHAR2(50);
COLLENGTH INTEGER;
COLPRECISION INTEGER;
I INTEGER;
COLLIST VARCHAR(1000);
VCOLLIST VARCHAR(1000);
DelphiDS VARCHAR2(20);
BEGIN
TABNAME:= 'DIC_USER';
DelphiDS:= '__DS';
I:= 0;
COLLIST:= '';
VCOLLIST:= '';
SQLCMD:= 'SELECT A.COLUMN_NAME, A.DATA_TYPE,B.COMMENTS,A.DATA_LENGTH,A.DATA_PRECISION '
||'from USER_TAB_COLUMNS A LEFT JOIN USER_COL_COMMENTS B '
||'ON A.COLUMN_NAME=B.COLUMN_NAME AND A.TABLE_NAME=B.TABLE_NAME WHERE A.TABLE_NAME= '''|| TABNAME || '''';
DBMS_OUTPUT.PUT_LINE('//==============================================================');
DBMS_OUTPUT.PUT_LINE('//生成Delphi对象');
DBMS_OUTPUT.PUT_LINE('//==============================================================');
DBMS_OUTPUT.PUT_LINE('unit u'|| INITCAP(TABNAME)||';');
DBMS_OUTPUT.PUT_LINE('interface');
DBMS_OUTPUT.PUT_LINE('uses Windows, Messages, SysUtils, Variants, Classes, DB, DBClient;');
DBMS_OUTPUT.PUT_LINE('Type');
Dbms_Output.PUT_LINE(' TEditMode=(emAppend, emEdit, emDelete);');
DBMS_OUTPUT.PUT_LINE(' T'||TABNAME||'= Class');
DBMS_OUTPUT.PUT_LINE('private');
DBMS_OUTPUT.PUT_LINE(' fCdsDatas: TClientDataSet;');
OPEN CUR_COLUMNS FOR SQLCMD;
FETCH CUR_COLUMNS INTO COLNAME, COLTYPE, COLCOMMENT, COLLENGTH, COLPRECISION;
WHILE CUR_COLUMNS%FOUND LOOP
IF I = 0 THEN
COLLIST:= COLNAME;
ELSE
COLLIST:= COLLIST || ', '|| COLNAME;
相关文档：
命令模式可以很轻松的实现撤销（Undo）功能。
1. 命令的接受者
unit uReceiveObject;
interface
type
TLight = class(TObject)
public
procedure Open;
procedure Off;
end;
implementation
{ TLight }
procedure TLight.Off;
begin
Writeln('Light is off.');
......
构建 Windows SOAP 服务器应用程序
首先在 Windows 上构建服务器，然后在 Linux 上构建客户机。（如果需要，可以使用其它方法 — 或者将它们全部构建在 Windows 或 Linux 上。）对于 Windows SOAP 服务器，启动 Delphi 7 Enterprise，执行 File -> New -> Other，转至对象资源库（Object Repository）的 ......
在Delphi中使用RAS实现对系统拨号的控制
在企业应用中有时候希望能在程序中实现对拨号网络的控制，以实现自动拨号、自动断开网络。在尝试了多种方式之后，认为RAS是一种比较稳定的方式。在google了网上一些资料后，现整理如下：
一、首先需要有个针对RAS的头文件定义，Ras.pas代码如下
{* Cop ......
一、引子：
现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。
为了更好地管理资源，Delphi中提供了一种.RES类� ......
