trunk/design/ibdeletesqleditor.pas

unit ibdeletesqleditor;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, IBSystemTables, IBDatabase;

type

  { TIBDeleteSQLEditorForm }

  TIBDeleteSQLEditorForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    PrimaryKeyList: TListBox;
    QuoteFields: TCheckBox;
    SQLText: TMemo;
    TableNamesCombo: TComboBox;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PrimaryKeyListDblClick(Sender: TObject);
    procedure TableNamesComboCloseUp(Sender: TObject);
  private
    { private declarations }
    FIBSystemTables: TIBSystemTables;
  public
    { public declarations }
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
  end; 

var
  IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;

function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;

implementation

function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
begin
  Result := false;
  if assigned(Database) then
  begin
    if not assigned(Transaction) then
    begin
      if not assigned(Database.DefaultTransaction)then
      begin
        ShowMessage('No Default Transaction!');
        Exit
      end;
      Transaction := Database.DefaultTransaction
    end;

    Database.Connected := true;
  end;

  with TIBDeleteSQLEditorForm.Create(Application) do
  try
    SetDatabase(Database,Transaction);
    SQLText.Lines.Assign(SelectSQL);
    Result := ShowModal = mrOK;
    if Result then
     SelectSQL.Assign(SQLText.Lines)
  finally
    Free
  end;
end;

{ TIBDeleteSQLEditorForm }

procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
begin
  TableNamesCombo.Items.Clear;
  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
  if TableNamesCombo.Items.Count > 0 then
  begin
    TableNamesCombo.ItemIndex := 0;
    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
  end;
end;

procedure TIBDeleteSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
begin
  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
  SQLText.SetFocus
end;

procedure TIBDeleteSQLEditorForm.Button3Click(Sender: TObject);
begin
  FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
end;

procedure TIBDeleteSQLEditorForm.Button4Click(Sender: TObject);
begin
  FIBSystemTables.TestSQL(SQLText.Lines.Text)
end;

procedure TIBDeleteSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
begin
  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
end;

constructor TIBDeleteSQLEditorForm.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  FIBSystemTables := TIBSystemTables.Create;
end;

destructor TIBDeleteSQLEditorForm.Destroy;
begin
  if assigned(FIBSystemTables) then FIBSystemTables.Free;
  inherited Destroy;
end;

procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
begin
  FIBSystemTables.SelectDatabase(Database,Transaction)
end;

initialization
  {$I ibdeletesqleditor.lrs}

end.

Revision:	5
Committed:	Fri Feb 18 16:26:16 2011 UTC (13 years, 10 months ago) by tony
Content type:	text/x-pascal
File size:	3411 byte(s)
Log Message:	Committing updates for Release pre-release
#	User	Rev	Content
1	tony	5	unit ibdeletesqleditor;
2
3			{$mode objfpc}{$H+}
4
5			interface
6
7			uses
8			Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
9			StdCtrls, IBSystemTables, IBDatabase;
10
11			type
12
13			{ TIBDeleteSQLEditorForm }
14
15			TIBDeleteSQLEditorForm = class(TForm)
16			Button1: TButton;
17			Button2: TButton;
18			Button3: TButton;
19			Button4: TButton;
20			Label1: TLabel;
21			Label3: TLabel;
22			Label4: TLabel;
23			PrimaryKeyList: TListBox;
24			QuoteFields: TCheckBox;
25			SQLText: TMemo;
26			TableNamesCombo: TComboBox;
27			procedure Button3Click(Sender: TObject);
28			procedure Button4Click(Sender: TObject);
29			procedure FormShow(Sender: TObject);
30			procedure PrimaryKeyListDblClick(Sender: TObject);
31			procedure TableNamesComboCloseUp(Sender: TObject);
32			private
33			{ private declarations }
34			FIBSystemTables: TIBSystemTables;
35			public
36			{ public declarations }
37			constructor Create(TheOwner: TComponent); override;
38			destructor Destroy; override;
39			procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
40			end;
41
42			var
43			IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
44
45			function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
46
47			implementation
48
49			function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
50			begin
51			Result := false;
52			if assigned(Database) then
53			begin
54			if not assigned(Transaction) then
55			begin
56			if not assigned(Database.DefaultTransaction)then
57			begin
58			ShowMessage('No Default Transaction!');
59			Exit
60			end;
61			Transaction := Database.DefaultTransaction
62			end;
63
64			Database.Connected := true;
65			end;
66
67			with TIBDeleteSQLEditorForm.Create(Application) do
68			try
69			SetDatabase(Database,Transaction);
70			SQLText.Lines.Assign(SelectSQL);
71			Result := ShowModal = mrOK;
72			if Result then
73			SelectSQL.Assign(SQLText.Lines)
74			finally
75			Free
76			end;
77			end;
78
79			{ TIBDeleteSQLEditorForm }
80
81			procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
82			begin
83			TableNamesCombo.Items.Clear;
84			FIBSystemTables.GetTableNames(TableNamesCombo.Items);
85			if TableNamesCombo.Items.Count > 0 then
86			begin
87			TableNamesCombo.ItemIndex := 0;
88			FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
89			end;
90			end;
91
92			procedure TIBDeleteSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
93			begin
94			SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
95			SQLText.SetFocus
96			end;
97
98			procedure TIBDeleteSQLEditorForm.Button3Click(Sender: TObject);
99			begin
100			FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
101			end;
102
103			procedure TIBDeleteSQLEditorForm.Button4Click(Sender: TObject);
104			begin
105			FIBSystemTables.TestSQL(SQLText.Lines.Text)
106			end;
107
108			procedure TIBDeleteSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
109			begin
110			FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
111			end;
112
113			constructor TIBDeleteSQLEditorForm.Create(TheOwner: TComponent);
114			begin
115			inherited Create(TheOwner);
116			FIBSystemTables := TIBSystemTables.Create;
117			end;
118
119			destructor TIBDeleteSQLEditorForm.Destroy;
120			begin
121			if assigned(FIBSystemTables) then FIBSystemTables.Free;
122			inherited Destroy;
123			end;
124
125			procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
126			begin
127			FIBSystemTables.SelectDatabase(Database,Transaction)
128			end;
129
130			initialization
131			{$I ibdeletesqleditor.lrs}
132
133			end.
134