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 79 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 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 >    ibselectsqleditor, IBSQLEditFrame, IBDatabase, IBCustomDataset;
35  
36   type
37  
38    { TIBInsertSQLEditorForm }
39  
40 <  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);
40 >  TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
41      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);
42    private
43 <    { private declarations }
75 <    FIBSystemTables: TIBSystemTables;
43 >
44    public
77    { public declarations }
78    constructor Create(TheOwner: TComponent); override;
79    destructor Destroy; override;
80    procedure SetDatabase(Database: TIBDatabase);
81  end;
45  
46 < var
84 <  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
46 >  end;
47  
48   function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
49  
50 < implementation
50 > var
51 >  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
52  
53 < uses IBSQL;
53 > implementation
54  
55   {$R *.lfm}
56  
57 < function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
57 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
58   begin
59 < Result := false;
60 <
98 < if assigned(DataSet) and assigned(DataSet.Database) then
59 >  Result := false;
60 >  if assigned(DataSet) and assigned(DataSet.Database) then
61      try
62        DataSet.Database.Connected := true;
63      except on E: Exception do
# Line 106 | Line 68 | begin
68    try
69      if assigned(DataSet) then
70      begin
71 <      SetDatabase(DataSet.Database);
72 <      GenerateParams.Checked := DataSet.GenerateParamNames;
71 >        IBSQLEditFrame1.Database := DataSet.Database;
72 >        GenerateParams.Checked := DataSet.GenerateParamNames;
73 >    end;
74 >    with IBSQLEditFrame1 do
75 >    begin
76 >      IncludePrimaryKeys := true;
77 >      IncludeReadOnlyFields := false;
78 >      ExecuteOnlyProcs := true;
79 >      SQLText.Lines.Assign(SelectSQL);
80      end;
112    SQLText.Lines.Assign(SelectSQL);
81      Result := ShowModal = mrOK;
82      if Result then
83      begin
84 <     SelectSQL.Assign(SQLText.Lines);
84 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
85       if assigned(DataSet) then
86            DataSet.GenerateParamNames := GenerateParams.Checked
87      end;
# Line 124 | Line 92 | end;
92  
93   { TIBInsertSQLEditorForm }
94  
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
95   procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
154 var FieldNames: TStrings;
96   begin
97 < if PageControl.ActivePage = ExecutePage then
98 <   FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,true,
99 <         ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
100 < 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;
97 >  if PageControl.ActivePage = ExecutePage then
98 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
99 >  else
100 >    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
101   end;
102  
171 procedure TIBInsertSQLEditorForm.ExecutePageShow(Sender: TObject);
172 var ProcName: string;
173    IsProcedureName: boolean;
174 begin
175  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,false);
176  if ProcedureNames.Items.Count > 0 then
177  begin
178    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
179    begin
180      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
181      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
182    end
183    else
184      ProcedureNames.ItemIndex := 0;
185  end;
186  ProcedureNamesCloseUp(nil);
187 end;
188
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;
103  
104   end.
105 +

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines