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

Comparing ibx/trunk/design/ibmodifysqleditor.pas (file contents):
Revision 5 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 ibmodifysqleditor;
28  
29   {$mode objfpc}{$H+}
# Line 5 | Line 31 | unit ibmodifysqleditor;
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    TIBModifySQLEditorForm = class(TForm)
42      Button1: TButton;
43      Button2: TButton;
44 <    Button3: TButton;
45 <    Button4: TButton;
44 >    GenerateBtn: TButton;
45 >    TestBtn: TButton;
46 >    IBTransaction1: TIBTransaction;
47 >    IncludePrimaryKeys: TCheckBox;
48      FieldList: TListBox;
49      Label1: TLabel;
50      Label2: TLabel;
# Line 26 | Line 54 | type
54      QuoteFields: TCheckBox;
55      SQLText: TMemo;
56      TableNamesCombo: TComboBox;
57 <    procedure Button3Click(Sender: TObject);
58 <    procedure Button4Click(Sender: TObject);
57 >    procedure GenerateBtnClick(Sender: TObject);
58 >    procedure TestBtnClick(Sender: TObject);
59      procedure FieldListDblClick(Sender: TObject);
60      procedure FormShow(Sender: TObject);
61      procedure PrimaryKeyListDblClick(Sender: TObject);
# Line 39 | Line 67 | type
67      { public declarations }
68      constructor Create(TheOwner: TComponent); override;
69      destructor Destroy; override;
70 <    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
70 >    procedure SetDatabase(Database: TIBDatabase);
71    end;
72  
73   var
74    IBModifySQLEditorForm: TIBModifySQLEditorForm;
75  
76 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
76 > function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
77  
78   implementation
79  
80 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
80 > {$R *.lfm}
81 >
82 > function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
83   begin
84    Result := false;
85    if assigned(Database) then
86 <  begin
87 <    if not assigned(Transaction) then
88 <    begin
89 <      if not assigned(Database.DefaultTransaction)then
60 <      begin
61 <        ShowMessage('No Default Transaction!');
62 <        Exit
63 <      end;
64 <      Transaction := Database.DefaultTransaction
86 >    try
87 >      Database.Connected := true;
88 >    except on E: Exception do
89 >      ShowMessage(E.Message)
90      end;
91  
67    Database.Connected := true;
68  end;
69
92    with TIBModifySQLEditorForm.Create(Application) do
93    try
94 <    SetDatabase(Database,Transaction);
94 >    SetDatabase(Database);
95      SQLText.Lines.Assign(SelectSQL);
96      Result := ShowModal = mrOK;
97      if Result then
# Line 82 | Line 104 | end;
104   { TIBModifySQLEditorForm }
105  
106   procedure TIBModifySQLEditorForm.FormShow(Sender: TObject);
107 + var TableName: string;
108   begin
109 +  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
110 +  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
111    TableNamesCombo.Items.Clear;
112 +  try
113    FIBSystemTables.GetTableNames(TableNamesCombo.Items);
114    if TableNamesCombo.Items.Count > 0 then
115    begin
116      TableNamesCombo.ItemIndex := 0;
117 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,false);
117 >    if Trim(SQLText.Text) <> '' then
118 >    begin
119 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
120 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
121 >    end;
122 >    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
123      FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
124    end;
125 +  except {ignore}  end;
126   end;
127  
128   procedure TIBModifySQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
# Line 105 | Line 137 | begin
137    SQLText.SetFocus
138   end;
139  
140 < procedure TIBModifySQLEditorForm.Button3Click(Sender: TObject);
141 < var FieldNames: TStringList;
110 <    I: integer;
140 > procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
141 > var FieldNames: TStrings;
142   begin
143 <  if FieldList.SelCount = 0 then
143 >  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
144 >  try
145      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
146 <               FieldList.Items,SQLText.Lines)
147 <  else
148 <  begin
117 <    FieldNames := TStringList.Create;
118 <    try
119 <      for I := 0 to FieldList.Items.Count - 1 do
120 <        if FieldList.Selected[I] then
121 <          FieldNames.Add(FieldList.Items[I]);
122 <      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
123 <               FieldNames,SQLText.Lines)
124 <    finally
125 <      FieldNames.Free
126 <    end;
146 >             FieldNames,SQLText.Lines)
147 >  finally
148 >    FieldNames.Free
149    end;
150   end;
151  
152 < procedure TIBModifySQLEditorForm.Button4Click(Sender: TObject);
152 > procedure TIBModifySQLEditorForm.TestBtnClick(Sender: TObject);
153   begin
154    FIBSystemTables.TestSQL(SQLText.Lines.Text)
155   end;
156  
157   procedure TIBModifySQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
158   begin
159 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,false);
159 >  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
160    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
161   end;
162  
# Line 150 | Line 172 | begin
172    inherited Destroy;
173   end;
174  
175 < procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
175 > procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
176   begin
177 <  FIBSystemTables.SelectDatabase(Database,Transaction)
177 >  IBTransaction1.DefaultDatabase := Database;
178 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
179   end;
180  
158 initialization
159  {$I ibmodifysqleditor.lrs}
160
181   end.
182  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines