ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.pas
(Generate patch)
# 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+}
30 <
31 < interface
32 <
33 < uses
34 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, IBSystemTables, IBDatabase;
36 <
37 < type
38 <
39 <  { TIBModifySQLEditorForm }
40 <
41 <  TIBModifySQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    GenerateBtn: TButton;
45 <    TestBtn: TButton;
46 <    IBTransaction1: TIBTransaction;
47 <    IncludePrimaryKeys: TCheckBox;
48 <    FieldList: TListBox;
49 <    Label1: TLabel;
50 <    Label2: TLabel;
51 <    Label3: TLabel;
52 <    Label4: TLabel;
53 <    PrimaryKeyList: TListBox;
54 <    QuoteFields: TCheckBox;
55 <    SQLText: TMemo;
56 <    TableNamesCombo: TComboBox;
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);
62 <    procedure TableNamesComboCloseUp(Sender: TObject);
63 <  private
64 <    { private declarations }
65 <    FIBSystemTables: TIBSystemTables;
66 <  public
67 <    { public declarations }
68 <    constructor Create(TheOwner: TComponent); override;
69 <    destructor Destroy; override;
70 <    procedure SetDatabase(Database: TIBDatabase);
71 <  end;
72 <
73 < var
74 <  IBModifySQLEditorForm: TIBModifySQLEditorForm;
75 <
76 < function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
77 <
78 < implementation
79 <
80 < {$R *.lfm}
81 <
82 < function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
83 < begin
84 <  Result := false;
85 <  if assigned(Database) then
86 <    try
87 <      Database.Connected := true;
88 <    except on E: Exception do
89 <      ShowMessage(E.Message)
90 <    end;
91 <
92 <  with TIBModifySQLEditorForm.Create(Application) do
93 <  try
94 <    SetDatabase(Database);
95 <    SQLText.Lines.Assign(SelectSQL);
96 <    Result := ShowModal = mrOK;
97 <    if Result then
98 <     SelectSQL.Assign(SQLText.Lines)
99 <  finally
100 <    Free
101 <  end;
102 < end;
103 <
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 <    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);
129 < begin
130 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
131 <  SQLText.SetFocus
132 < end;
133 <
134 < procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
135 < begin
136 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
137 <  SQLText.SetFocus
138 < end;
139 <
140 < procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
141 < var FieldNames: TStrings;
142 < begin
143 <  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
144 <  try
145 <    FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
146 <             FieldNames,SQLText.Lines)
147 <  finally
148 <    FieldNames.Free
149 <  end;
150 < end;
151 <
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,IncludePrimaryKeys.checked,false);
160 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
161 < end;
162 <
163 < constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
164 < begin
165 <  inherited Create(TheOwner);
166 <  FIBSystemTables := TIBSystemTables.Create;
167 < end;
168 <
169 < destructor TIBModifySQLEditorForm.Destroy;
170 < begin
171 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
172 <  inherited Destroy;
173 < end;
174 <
175 < procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
176 < begin
177 <  IBTransaction1.DefaultDatabase := Database;
178 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
179 < end;
180 <
181 < end.
182 <
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+}
30 >
31 > interface
32 >
33 > uses
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 >  StdCtrls, IBSystemTables, IBDatabase;
36 >
37 > type
38 >
39 >  { TIBModifySQLEditorForm }
40 >
41 >  TIBModifySQLEditorForm = class(TForm)
42 >    Button1: TButton;
43 >    Button2: TButton;
44 >    GenerateBtn: TButton;
45 >    TestBtn: TButton;
46 >    IBTransaction1: TIBTransaction;
47 >    IncludePrimaryKeys: TCheckBox;
48 >    FieldList: TListBox;
49 >    Label1: TLabel;
50 >    Label2: TLabel;
51 >    Label3: TLabel;
52 >    Label4: TLabel;
53 >    PrimaryKeyList: TListBox;
54 >    QuoteFields: TCheckBox;
55 >    SQLText: TMemo;
56 >    TableNamesCombo: TComboBox;
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);
62 >    procedure TableNamesComboCloseUp(Sender: TObject);
63 >  private
64 >    { private declarations }
65 >    FIBSystemTables: TIBSystemTables;
66 >  public
67 >    { public declarations }
68 >    constructor Create(TheOwner: TComponent); override;
69 >    destructor Destroy; override;
70 >    procedure SetDatabase(Database: TIBDatabase);
71 >  end;
72 >
73 > var
74 >  IBModifySQLEditorForm: TIBModifySQLEditorForm;
75 >
76 > function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
77 >
78 > implementation
79 >
80 > {$R *.lfm}
81 >
82 > function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
83 > begin
84 >  Result := false;
85 >  if assigned(Database) then
86 >    try
87 >      Database.Connected := true;
88 >    except on E: Exception do
89 >      ShowMessage(E.Message)
90 >    end;
91 >
92 >  with TIBModifySQLEditorForm.Create(Application) do
93 >  try
94 >    SetDatabase(Database);
95 >    SQLText.Lines.Assign(SelectSQL);
96 >    Result := ShowModal = mrOK;
97 >    if Result then
98 >     SelectSQL.Assign(SQLText.Lines)
99 >  finally
100 >    Free
101 >  end;
102 > end;
103 >
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 >    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);
129 > begin
130 >  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
131 >  SQLText.SetFocus
132 > end;
133 >
134 > procedure TIBModifySQLEditorForm.FieldListDblClick(Sender: TObject);
135 > begin
136 >  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
137 >  SQLText.SetFocus
138 > end;
139 >
140 > procedure TIBModifySQLEditorForm.GenerateBtnClick(Sender: TObject);
141 > var FieldNames: TStrings;
142 > begin
143 >  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
144 >  try
145 >    FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
146 >             FieldNames,SQLText.Lines)
147 >  finally
148 >    FieldNames.Free
149 >  end;
150 > end;
151 >
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,IncludePrimaryKeys.checked,false);
160 >  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
161 > end;
162 >
163 > constructor TIBModifySQLEditorForm.Create(TheOwner: TComponent);
164 > begin
165 >  inherited Create(TheOwner);
166 >  FIBSystemTables := TIBSystemTables.Create;
167 > end;
168 >
169 > destructor TIBModifySQLEditorForm.Destroy;
170 > begin
171 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
172 >  inherited Destroy;
173 > end;
174 >
175 > procedure TIBModifySQLEditorForm.SetDatabase(Database: TIBDatabase);
176 > begin
177 >  IBTransaction1.DefaultDatabase := Database;
178 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
179 > end;
180 >
181 > end.
182 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines