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

Comparing ibx/trunk/design/ibinsertsqleditor.pas (file contents):
Revision 16 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 17 by tony, Sat Dec 28 19:22:24 2013 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 ibinsertsqleditor;
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 <  { TIBInsertSQLEditorForm }
40 <
41 <  TIBInsertSQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    GenerateBtn: TButton;
45 <    TestBtn: TButton;
46 <    FieldList: TListBox;
47 <    IBTransaction1: TIBTransaction;
48 <    Label1: TLabel;
49 <    Label2: TLabel;
50 <    Label3: TLabel;
51 <    QuoteFields: TCheckBox;
52 <    SQLText: TMemo;
53 <    TableNamesCombo: TComboBox;
54 <    procedure GenerateBtnClick(Sender: TObject);
55 <    procedure TestBtnClick(Sender: TObject);
56 <    procedure FieldListDblClick(Sender: TObject);
57 <    procedure FormShow(Sender: TObject);
58 <    procedure TableNamesComboCloseUp(Sender: TObject);
59 <  private
60 <    { private declarations }
61 <    FIBSystemTables: TIBSystemTables;
62 <  public
63 <    { public declarations }
64 <    constructor Create(TheOwner: TComponent); override;
65 <    destructor Destroy; override;
66 <    procedure SetDatabase(Database: TIBDatabase);
67 <  end;
68 <
69 < var
70 <  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
71 <
72 < function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
73 <
74 < implementation
75 <
76 < {$R *.lfm}
77 <
78 < function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
79 < begin
80 < Result := false;
81 <
82 < if assigned(Database) then
83 <    try
84 <      Database.Connected := true;
85 <    except on E: Exception do
86 <      ShowMessage(E.Message)
87 <    end;
88 <
89 <  with TIBInsertSQLEditorForm.Create(Application) do
90 <  try
91 <    SetDatabase(Database);
92 <    SQLText.Lines.Assign(SelectSQL);
93 <    Result := ShowModal = mrOK;
94 <    if Result then
95 <     SelectSQL.Assign(SQLText.Lines)
96 <  finally
97 <    Free
98 <  end;
99 < end;
100 <
101 < { TIBInsertSQLEditorForm }
102 <
103 < procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
104 < var TableName: string;
105 < begin
106 <  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
107 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
108 <  TableNamesCombo.Items.Clear;
109 <  try
110 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
111 <  if TableNamesCombo.Items.Count > 0 then
112 <  begin
113 <    TableNamesCombo.ItemIndex := 0;
114 <    if Trim(SQLText.Text) <> '' then
115 <    begin
116 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
117 <      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
118 <    end;
119 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
120 <  end;
121 <  except {ignore}
122 <  end;
123 < end;
124 <
125 < procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
126 < begin
127 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
128 <  SQLText.SetFocus
129 < end;
130 <
131 < procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
132 < var FieldNames: TStrings;
133 < begin
134 <  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
135 <  try
136 <    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
137 <               FieldNames,SQLText.Lines)
138 <  finally
139 <    FieldNames.Free
140 <  end;
141 < end;
142 <
143 < procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
144 < begin
145 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
146 < end;
147 <
148 < procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
149 < begin
150 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
151 < end;
152 <
153 < constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
154 < begin
155 <  inherited Create(TheOwner);
156 <  FIBSystemTables := TIBSystemTables.Create;
157 < end;
158 <
159 < destructor TIBInsertSQLEditorForm.Destroy;
160 < begin
161 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
162 <  inherited Destroy;
163 < end;
164 <
165 < procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
166 < begin
167 <  IBTransaction1.DefaultDatabase := Database;
168 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
169 < end;
170 <
171 < end.
172 <
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 ibinsertsqleditor;
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 >  { TIBInsertSQLEditorForm }
40 >
41 >  TIBInsertSQLEditorForm = class(TForm)
42 >    Button1: TButton;
43 >    Button2: TButton;
44 >    GenerateBtn: TButton;
45 >    TestBtn: TButton;
46 >    FieldList: TListBox;
47 >    IBTransaction1: TIBTransaction;
48 >    Label1: TLabel;
49 >    Label2: TLabel;
50 >    Label3: TLabel;
51 >    QuoteFields: TCheckBox;
52 >    SQLText: TMemo;
53 >    TableNamesCombo: TComboBox;
54 >    procedure GenerateBtnClick(Sender: TObject);
55 >    procedure TestBtnClick(Sender: TObject);
56 >    procedure FieldListDblClick(Sender: TObject);
57 >    procedure FormShow(Sender: TObject);
58 >    procedure TableNamesComboCloseUp(Sender: TObject);
59 >  private
60 >    { private declarations }
61 >    FIBSystemTables: TIBSystemTables;
62 >  public
63 >    { public declarations }
64 >    constructor Create(TheOwner: TComponent); override;
65 >    destructor Destroy; override;
66 >    procedure SetDatabase(Database: TIBDatabase);
67 >  end;
68 >
69 > var
70 >  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
71 >
72 > function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
73 >
74 > implementation
75 >
76 > {$R *.lfm}
77 >
78 > function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
79 > begin
80 > Result := false;
81 >
82 > if assigned(Database) then
83 >    try
84 >      Database.Connected := true;
85 >    except on E: Exception do
86 >      ShowMessage(E.Message)
87 >    end;
88 >
89 >  with TIBInsertSQLEditorForm.Create(Application) do
90 >  try
91 >    SetDatabase(Database);
92 >    SQLText.Lines.Assign(SelectSQL);
93 >    Result := ShowModal = mrOK;
94 >    if Result then
95 >     SelectSQL.Assign(SQLText.Lines)
96 >  finally
97 >    Free
98 >  end;
99 > end;
100 >
101 > { TIBInsertSQLEditorForm }
102 >
103 > procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
104 > var TableName: string;
105 > begin
106 >  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
107 >  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
108 >  TableNamesCombo.Items.Clear;
109 >  try
110 >  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
111 >  if TableNamesCombo.Items.Count > 0 then
112 >  begin
113 >    TableNamesCombo.ItemIndex := 0;
114 >    if Trim(SQLText.Text) <> '' then
115 >    begin
116 >      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
117 >      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
118 >    end;
119 >    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
120 >  end;
121 >  except {ignore}
122 >  end;
123 > end;
124 >
125 > procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
126 > begin
127 >  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
128 >  SQLText.SetFocus
129 > end;
130 >
131 > procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
132 > var FieldNames: TStrings;
133 > begin
134 >  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
135 >  try
136 >    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
137 >               FieldNames,SQLText.Lines)
138 >  finally
139 >    FieldNames.Free
140 >  end;
141 > end;
142 >
143 > procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
144 > begin
145 >  FIBSystemTables.TestSQL(SQLText.Lines.Text)
146 > end;
147 >
148 > procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
149 > begin
150 >  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
151 > end;
152 >
153 > constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
154 > begin
155 >  inherited Create(TheOwner);
156 >  FIBSystemTables := TIBSystemTables.Create;
157 > end;
158 >
159 > destructor TIBInsertSQLEditorForm.Destroy;
160 > begin
161 >  if assigned(FIBSystemTables) then FIBSystemTables.Free;
162 >  inherited Destroy;
163 > end;
164 >
165 > procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
166 > begin
167 >  IBTransaction1.DefaultDatabase := Database;
168 >  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
169 > end;
170 >
171 > end.
172 >

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines