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 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC

# Line 23 | Line 23
23   *  Contributor(s): ______________________________________.
24   *
25   *)
26 –
26   unit ibinsertsqleditor;
27  
28   {$mode objfpc}{$H+}
# Line 31 | Line 30 | unit ibinsertsqleditor;
30   interface
31  
32   uses
33 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
34 <  StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet, IB;
33 >  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 >  StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35 >  IBLookupComboEditBox, IBDynamicGrid, IBCustomDataset;
36  
37   type
38  
39    { TIBInsertSQLEditorForm }
40  
41 <  TIBInsertSQLEditorForm = class(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    ExecuteOnlyIndicator: TLabel;
45 <    FieldList: TListBox;
46 <    GenerateBtn: TButton;
47 <    GenerateParams: TCheckBox;
48 <    Label1: TLabel;
49 <    Label16: TLabel;
50 <    Label17: TLabel;
51 <    Label18: TLabel;
52 <    Label2: TLabel;
53 <    PageControl: TPageControl;
54 <    ProcedureNames: TComboBox;
55 <    ProcInputList: TListBox;
56 <    ProcOutputList: TListBox;
57 <    TableNamesCombo: TComboBox;
58 <    InsertPage: TTabSheet;
59 <    ExecutePage: TTabSheet;
60 <    TestBtn: TButton;
61 <    IBTransaction1: TIBTransaction;
62 <    Label3: TLabel;
63 <    QuoteFields: TCheckBox;
64 <    SQLText: TMemo;
65 <    procedure ExecutePageShow(Sender: TObject);
41 >  TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42 >    Label5: TLabel;
43 >    ReadOnlyGrid: TIBDynamicGrid;
44      procedure GenerateBtnClick(Sender: TObject);
67 –    procedure InsertPageShow(Sender: TObject);
68 –    procedure ProcedureNamesCloseUp(Sender: TObject);
69 –    procedure TestBtnClick(Sender: TObject);
70 –    procedure FieldListDblClick(Sender: TObject);
71 –    procedure FormShow(Sender: TObject);
72 –    procedure TableNamesComboCloseUp(Sender: TObject);
45    private
46 <    { private declarations }
47 <    FIBSystemTables: TIBSystemTables;
46 >
47 >  protected
48 >    procedure Loaded; override;
49 >
50    public
77 –    { public declarations }
78 –    constructor Create(TheOwner: TComponent); override;
79 –    destructor Destroy; override;
80 –    procedure SetDatabase(Database: TIBDatabase);
81 –  end;
51  
52 < var
84 <  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
52 >  end;
53  
54   function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
55  
56 < implementation
56 > var
57 >  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
58  
59 < uses IBSQL;
59 > implementation
60  
61   {$R *.lfm}
62  
63 < function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
63 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
64   begin
65 < Result := false;
66 <
98 < if assigned(DataSet) and assigned(DataSet.Database) then
65 >  Result := false;
66 >  if assigned(DataSet) and assigned(DataSet.Database) then
67      try
68        DataSet.Database.Connected := true;
69      except on E: Exception do
# Line 106 | Line 74 | begin
74    try
75      if assigned(DataSet) then
76      begin
77 <      SetDatabase(DataSet.Database);
78 <      GenerateParams.Checked := DataSet.GenerateParamNames;
77 >        IBSQLEditFrame1.Database := DataSet.Database;
78 >        GenerateParams.Checked := DataSet.GenerateParamNames;
79 >    end;
80 >    with IBSQLEditFrame1 do
81 >    begin
82 >      IncludePrimaryKeys := true;
83 >      IncludeReadOnlyFields := false;
84 >      ExecuteOnlyProcs := true;
85 >      ExcludeIdentityColumns := true;
86 >      SQLText.Lines.Assign(SelectSQL);
87      end;
112 –    SQLText.Lines.Assign(SelectSQL);
88      Result := ShowModal = mrOK;
89      if Result then
90      begin
91 <     SelectSQL.Assign(SQLText.Lines);
91 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
92       if assigned(DataSet) then
93            DataSet.GenerateParamNames := GenerateParams.Checked
94      end;
# Line 124 | Line 99 | end;
99  
100   { TIBInsertSQLEditorForm }
101  
127 – procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
128 – var IsProcedureName: boolean;
129 –    SQLType: TIBSQLStatementTypes;
130 – begin
131 –  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
132 –  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
133 – if Trim(SQLText.Text) <> '' then
134 – begin
135 –   try
136 –     SQLType := FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
137 –   except  end;
138 –   if SQLType = SQLExecProcedure then
139 –     PageControl.ActivePage := ExecutePage
140 –   else
141 –     PageControl.ActivePage := InsertPage;
142 – end
143 – else
144 –   PageControl.ActivePage := InsertPage;
145 – end;
146 –
147 – procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
148 – begin
149 –  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
150 –  SQLText.SetFocus
151 – end;
152 –
102   procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
154 – var FieldNames: TStrings;
103   begin
104 < if PageControl.ActivePage = ExecutePage then
105 <   FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
106 <         ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
107 < else
160 < begin
161 <  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
162 <  try
163 <    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
164 <               FieldNames,SQLText.Lines)
165 <  finally
166 <    FieldNames.Free
167 <  end;
168 < end;
104 >  if PageControl.ActivePage = ExecutePage then
105 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
106 >  else
107 >    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
108   end;
109  
110 < procedure TIBInsertSQLEditorForm.ExecutePageShow(Sender: TObject);
172 < var ProcName: string;
173 <    IsProcedureName: boolean;
110 > procedure TIBInsertSQLEditorForm.Loaded;
111   begin
112 <  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
113 <  if ProcedureNames.Items.Count > 0 then
112 >  inherited Loaded;
113 >  if IBSQLEditFrame1 <> nil then
114    begin
115 <    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
116 <    begin
117 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
118 <      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
182 <    end
183 <    else
184 <      ProcedureNames.ItemIndex := 0;
115 >    if PrimaryKeysGrid <> nil then
116 >      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
117 >    if ReadOnlyGrid <> nil then
118 >      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
119    end;
186 –  ProcedureNamesCloseUp(nil);
120   end;
121  
189 – procedure TIBInsertSQLEditorForm.InsertPageShow(Sender: TObject);
190 – var TableName: string;
191 – begin
192 –  TableNamesCombo.Items.Clear;
193 –  try
194 –  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
195 –  if TableNamesCombo.Items.Count > 0 then
196 –  begin
197 –    TableNamesCombo.ItemIndex := 0;
198 –    if Trim(SQLText.Text) <> '' then
199 –    begin
200 –      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
201 –      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
202 –    end;
203 –    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
204 –  end;
205 –  except {ignore}
206 –  end;
207 – end;
208 –
209 – procedure TIBInsertSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
210 – var ExecuteOnly: boolean;
211 – begin
212 –  FIBSystemTables.GetProcParams(ProcedureNames.Text,ExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
213 –  ExecuteOnlyIndicator.Visible := ExecuteOnly;
214 – end;
215 –
216 – procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
217 – begin
218 –  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
219 – end;
220 –
221 – procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
222 – begin
223 –  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
224 – end;
225 –
226 – constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
227 – begin
228 –  inherited Create(TheOwner);
229 –  FIBSystemTables := TIBSystemTables.Create;
230 – end;
231 –
232 – destructor TIBInsertSQLEditorForm.Destroy;
233 – begin
234 –  if assigned(FIBSystemTables) then FIBSystemTables.Free;
235 –  inherited Destroy;
236 – end;
237 –
238 – procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
239 – begin
240 –  IBTransaction1.DefaultDatabase := Database;
241 –  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
242 – end;
122  
123   end.
124 +

Diff Legend

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