Class TForm1 (unit rowlock1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);

MemoDialog1.

procedure FormCreate(Sender: TObject);

clears and adds SQL statement

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Database1 : TDatabase;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


Edit1 : TEdit;


Memo1 : TMemo;


QueryEdit : TQuery;


QueryLock : TQuery;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);

MemoDialog1.memo.assign( queryLock.sql ) ; memoDialog1.execute;


procedure FormCreate(Sender: TObject);

clears and adds SQL statement


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Database1 : TDatabase;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


Edit1 : TEdit;


Memo1 : TMemo;


QueryEdit : TQuery;


QueryLock : TQuery;