ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibdeletesqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibdeletesqleditor.pas (file contents):
Revision 6 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC

# Line 1 | Line 1
1 + (*
2 + *  IBX For Lazarus (Firebird Express)
3 + *
4 + *  The contents of this file are subject to the Initial Developer's
5 + *  Public License Version 1.0 (the "License"); you may not use this
6 + *  file except in compliance with the License. You may obtain a copy
7 + *  of the License here:
8 + *
9 + *    http://www.firebirdsql.org/index.php?op=doc&id=idpl
10 + *
11 + *  Software distributed under the License is distributed on an "AS
12 + *  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13 + *  implied. See the License for the specific language governing rights
14 + *  and limitations under the License.
15 + *
16 + *  The Initial Developer of the Original Code is Tony Whyman.
17 + *
18 + *  The Original Code is (C) 2011 Tony Whyman, MWA Software
19 + *  (http://www.mwasoftware.co.uk).
20 + *
21 + *  All Rights Reserved.
22 + *
23 + *  Contributor(s): ______________________________________.
24 + *
25 + *)
26 +
27   unit ibdeletesqleditor;
28  
29   {$mode objfpc}{$H+}
# Line 5 | Line 31 | unit ibdeletesqleditor;
31   interface
32  
33   uses
34 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35    StdCtrls, IBSystemTables, IBDatabase;
36  
37   type
# Line 15 | Line 41 | type
41    TIBDeleteSQLEditorForm = class(TForm)
42      Button1: TButton;
43      Button2: TButton;
44 <    Button3: TButton;
45 <    Button4: TButton;
44 >    GenerateBtn: TButton;
45 >    TestBtn: TButton;
46 >    IBTransaction1: TIBTransaction;
47      Label1: TLabel;
48      Label3: TLabel;
49      Label4: TLabel;
# Line 24 | Line 51 | type
51      QuoteFields: TCheckBox;
52      SQLText: TMemo;
53      TableNamesCombo: TComboBox;
54 <    procedure Button3Click(Sender: TObject);
55 <    procedure Button4Click(Sender: TObject);
54 >    procedure GenerateBtnClick(Sender: TObject);
55 >    procedure TestBtnClick(Sender: TObject);
56      procedure FormShow(Sender: TObject);
57      procedure PrimaryKeyListDblClick(Sender: TObject);
58      procedure TableNamesComboCloseUp(Sender: TObject);
# Line 36 | Line 63 | type
63      { public declarations }
64      constructor Create(TheOwner: TComponent); override;
65      destructor Destroy; override;
66 <    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
66 >    procedure SetDatabase(Database: TIBDatabase);
67    end;
68  
69   var
70    IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
71  
72 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
72 > function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
73  
74   implementation
75  
76 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
76 > {$R *.lfm}
77 >
78 > function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
79   begin
80    Result := false;
81    if assigned(Database) then
82 <  begin
83 <    if not assigned(Transaction) then
84 <    begin
85 <      if not assigned(Database.DefaultTransaction)then
57 <      begin
58 <        ShowMessage('No Default Transaction!');
59 <        Exit
60 <      end;
61 <      Transaction := Database.DefaultTransaction
82 >    try
83 >      Database.Connected := true;
84 >    except on E: Exception do
85 >      ShowMessage(E.Message)
86      end;
87  
64    Database.Connected := true;
65  end;
66
88    with TIBDeleteSQLEditorForm.Create(Application) do
89    try
90 <    SetDatabase(Database,Transaction);
90 >    SetDatabase(Database);
91      SQLText.Lines.Assign(SelectSQL);
92      Result := ShowModal = mrOK;
93      if Result then
# Line 79 | Line 100 | end;
100   { TIBDeleteSQLEditorForm }
101  
102   procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
103 + var TableName: string;
104   begin
105 +  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
106 +  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
107    TableNamesCombo.Items.Clear;
108 +  try
109    FIBSystemTables.GetTableNames(TableNamesCombo.Items);
110    if TableNamesCombo.Items.Count > 0 then
111    begin
112      TableNamesCombo.ItemIndex := 0;
113 +    if Trim(SQLText.Text) <> '' then
114 +    begin
115 +      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
116 +      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
117 +    end;
118      FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
119    end;
120 +  except {ignore} end;
121   end;
122  
123   procedure TIBDeleteSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
# Line 95 | Line 126 | begin
126    SQLText.SetFocus
127   end;
128  
129 < procedure TIBDeleteSQLEditorForm.Button3Click(Sender: TObject);
129 > procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
130   begin
131    FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
132   end;
133  
134 < procedure TIBDeleteSQLEditorForm.Button4Click(Sender: TObject);
134 > procedure TIBDeleteSQLEditorForm.TestBtnClick(Sender: TObject);
135   begin
136    FIBSystemTables.TestSQL(SQLText.Lines.Text)
137   end;
# Line 122 | Line 153 | begin
153    inherited Destroy;
154   end;
155  
156 < procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
156 > procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase);
157   begin
158 <  FIBSystemTables.SelectDatabase(Database,Transaction)
158 >  IBTransaction1.DefaultDatabase := Database;
159 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
160   end;
161  
130 initialization
131  {$I ibdeletesqleditor.lrs}
132
162   end.
163  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines