"R. Tulloch" wrote:

> Okay, so it does (extensive??)
> What is this item in the link? A dialog to do what you can do in
> console in seconds??
> >

http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/ibaccess/ibaccess/ibaccess/al

> > tergenerator.pas?rev=1.2&content-type=text/vnd.viewcvs-markup

Robert, the link (after making it into _one_ line) brought me to a page
where the start of the code looks like the following:


{*******************************************************}
{ }
{ IBAccess }
{ Alter generator dialog }
{ }
{ Author: }
{ Toni Martir }
{ http://www.ibaccess.org }
{ e-mail: toni@... }
{ }
{ OpenSource license (MPL) }
{ }
{*******************************************************}

unit altergenerator;

interface

uses Classes, QForms,SysUtils,
QMask, IBDatabase, IBSQL,ibacconst,
Qdialogs, QStdCtrls, QControls;

type
TFAltergenerator = class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
Label1: TLabel;
EGenerator: TEdit;
Label2: TLabel;
EGenValue: TMaskEdit;
IBSQL1: TIBSQL;
Trans: TIBTransaction;
procedure OKBtnClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
doalter:boolean;
procedure getgenvalue;
public
{ Public declarations }
base:TIBDatabase;
docreate:boolean;
procedure Altergen;
end;


...
...


Regards,
Aage J.