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 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 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   unit ibinsertsqleditor;
27  
28   {$mode objfpc}{$H+}
# Line 6 | Line 31 | interface
31  
32   uses
33    Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 <  StdCtrls, IBSystemTables, IBDatabase;
34 >  StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35 >  IBDynamicGrid, IBCustomDataSet;
36  
37   type
38  
39    { TIBInsertSQLEditorForm }
40  
41 <  TIBInsertSQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    Button3: TButton;
45 <    Button4: TButton;
46 <    FieldList: TListBox;
47 <    Label1: TLabel;
48 <    Label2: TLabel;
23 <    Label3: TLabel;
24 <    QuoteFields: TCheckBox;
25 <    SQLText: TMemo;
26 <    TableNamesCombo: TComboBox;
27 <    procedure Button3Click(Sender: TObject);
28 <    procedure Button4Click(Sender: TObject);
29 <    procedure FieldListDblClick(Sender: TObject);
30 <    procedure FormShow(Sender: TObject);
31 <    procedure TableNamesComboCloseUp(Sender: TObject);
41 >  TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42 >    IdentityGrid: TIBDynamicGrid;
43 >    Label5: TLabel;
44 >    Label6: TLabel;
45 >    ReadOnlyGrid: TIBDynamicGrid;
46 >    procedure GenerateBtnClick(Sender: TObject);
47 >    procedure IdentityGridDblClick(Sender: TObject);
48 >    procedure ReadOnlyGridDblClick(Sender: TObject);
49    private
50 <    { private declarations }
51 <    FIBSystemTables: TIBSystemTables;
50 >
51 >  protected
52 >    procedure Loaded; override;
53 >
54    public
55 <    { public declarations }
56 <    constructor Create(TheOwner: TComponent); override;
57 <    destructor Destroy; override;
58 <    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
40 <  end;
55 >
56 >  end;
57 >
58 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
59  
60   var
61    IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
62  
45 – function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
46 –
63   implementation
64  
65 < function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
65 > {$R *.lfm}
66 >
67 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
68   begin
69 < Result := false;
70 < if assigned(Database) then
71 <  begin
72 <    if not assigned(Transaction) then
73 <    begin
74 <      if not assigned(Database.DefaultTransaction)then
57 <      begin
58 <        ShowMessage('No Default Transaction!');
59 <        Exit
60 <      end;
61 <      Transaction := Database.DefaultTransaction
69 >  Result := false;
70 >  if assigned(DataSet) and assigned(DataSet.Database) then
71 >    try
72 >      DataSet.Database.Connected := true;
73 >    except on E: Exception do
74 >      ShowMessage(E.Message)
75      end;
76  
64 –    Database.Connected := true;
65 –  end;
66 –
77    with TIBInsertSQLEditorForm.Create(Application) do
78    try
79 <    SetDatabase(Database,Transaction);
80 <    SQLText.Lines.Assign(SelectSQL);
79 >    if assigned(DataSet) then
80 >    begin
81 >        IBSQLEditFrame1.Database := DataSet.Database;
82 >        GenerateParams.Checked := DataSet.GenerateParamNames;
83 >    end;
84 >    with IBSQLEditFrame1 do
85 >    begin
86 >      IncludeReadOnlyFields := false;
87 >      ExecuteOnlyProcs := true;
88 >      ExcludeIdentityColumns := true;
89 >      SQLText.Lines.Assign(SelectSQL);
90 >    end;
91      Result := ShowModal = mrOK;
92      if Result then
93 <     SelectSQL.Assign(SQLText.Lines)
93 >    begin
94 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
95 >     if assigned(DataSet) then
96 >          DataSet.GenerateParamNames := GenerateParams.Checked
97 >    end;
98    finally
99      Free
100    end;
# Line 78 | Line 102 | end;
102  
103   { TIBInsertSQLEditorForm }
104  
105 < procedure TIBInsertSQLEditorForm.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.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
89 <  end;
90 < end;
91 <
92 < procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
93 < begin
94 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
95 <  SQLText.SetFocus
96 < end;
97 <
98 < procedure TIBInsertSQLEditorForm.Button3Click(Sender: TObject);
99 < var FieldNames: TStringList;
100 <    I: integer;
105 > procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
106   begin
107 <  if FieldList.SelCount = 0 then
108 <    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
104 <               FieldList.Items,SQLText.Lines)
107 >  if PageControl.ActivePage = ExecutePage then
108 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
109    else
110 <  begin
107 <    FieldNames := TStringList.Create;
108 <    try
109 <      for I := 0 to FieldList.Items.Count - 1 do
110 <        if FieldList.Selected[I] then
111 <          FieldNames.Add(FieldList.Items[I]);
112 <      FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
113 <               FieldNames,SQLText.Lines)
114 <    finally
115 <      FieldNames.Free
116 <    end;
117 <  end;
110 >    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
111   end;
112  
113 < procedure TIBInsertSQLEditorForm.Button4Click(Sender: TObject);
113 > procedure TIBInsertSQLEditorForm.IdentityGridDblClick(Sender: TObject);
114   begin
115 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
115 >  IBSQLEditFrame1.InsertSelectedIdentityCol;
116   end;
117  
118 < procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
118 > procedure TIBInsertSQLEditorForm.ReadOnlyGridDblClick(Sender: TObject);
119   begin
120 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
120 >  IBSQLEditFrame1.InsertSelectedReadOnlyField;
121   end;
122  
123 < constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
123 > procedure TIBInsertSQLEditorForm.Loaded;
124   begin
125 <  inherited Create(TheOwner);
126 <  FIBSystemTables := TIBSystemTables.Create;
127 < end;
128 <
129 < destructor TIBInsertSQLEditorForm.Destroy;
130 < begin
131 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
132 <  inherited Destroy;
133 < end;
134 <
142 < procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
143 < begin
144 <  FIBSystemTables.SelectDatabase(Database,Transaction)
125 >  inherited Loaded;
126 >  if IBSQLEditFrame1 <> nil then
127 >  begin
128 >   if PrimaryKeysGrid <> nil then
129 >     PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
130 >   if IdentityGrid <> nil then
131 >     IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
132 >    if ReadOnlyGrid <> nil then
133 >      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
134 >  end;
135   end;
136  
147 – initialization
148 –  {$I ibinsertsqleditor.lrs}
137  
138   end.
139  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines