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

Comparing ibx/trunk/design/ibselectsqleditor.pas (file contents):
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 31 | Line 31 | unit ibselectsqleditor;
31   interface
32  
33   uses
34 <  Classes, SysUtils, FileUtil,  Forms, Controls, Graphics, Dialogs,
35 <  StdCtrls, ComCtrls, IBSystemTables, IBDatabase, IBCustomDataSet;
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
35 >  ComCtrls, db, IBSQLEditFrame, IBDatabase, IBCustomDataSet,
36 >  IBLookupComboEditBox, IBDynamicGrid, IB;
37  
38   type
39  
# Line 41 | Line 42 | type
42    TIBSelectSQLEditorForm = class(TForm)
43      Button1: TButton;
44      Button2: TButton;
45 +    PackageNames: TIBLookupComboEditBox;
46 +    InputProcGrid: TIBDynamicGrid;
47 +    PackageNameLabel: TLabel;
48 +    OutputProcGrid: TIBDynamicGrid;
49 +    IncludeSysTables: TCheckBox;
50      GenerateBtn: TButton;
51      GenerateParams: TCheckBox;
52 <    SelectProcedure: TLabel;
52 >    FieldNamesGrid: TIBDynamicGrid;
53 >    PrimaryKeysGrid: TIBDynamicGrid;
54 >    IBSQLEditFrame1: TIBSQLEditFrame;
55 >    ProcedureNames: TIBLookupComboEditBox;
56 >    SelectSelectAll: TCheckBox;
57 >    SelectTableNames: TIBLookupComboEditBox;
58      TestBtn: TButton;
48 –    FieldList: TListBox;
49 –    IBTransaction1: TIBTransaction;
59      Label1: TLabel;
60      Label16: TLabel;
61      Label17: TLabel;
# Line 55 | Line 64 | type
64      Label3: TLabel;
65      Label4: TLabel;
66      PageControl: TPageControl;
58 –    PrimaryKeyList: TListBox;
59 –    ProcedureNames: TComboBox;
60 –    ProcInputList: TListBox;
61 –    ProcOutputList: TListBox;
67      QuoteFields: TCheckBox;
63 –    SQLText: TMemo;
64 –    TableNamesCombo: TComboBox;
68      SelectPage: TTabSheet;
69      ExecutePage: TTabSheet;
70 +    procedure FieldNamesGridDblClick(Sender: TObject);
71      procedure GenerateBtnClick(Sender: TObject);
72 +    procedure IncludeSysTablesChange(Sender: TObject);
73 +    procedure InputProcGridDblClick(Sender: TObject);
74 +    procedure OutputProcGridDblClick(Sender: TObject);
75 +    procedure PackageNamesDblClick(Sender: TObject);
76 +    procedure PrimaryKeysGridDblClick(Sender: TObject);
77 +    procedure ProcedureNamesDblClick(Sender: TObject);
78 +    procedure SelectSelectAllChange(Sender: TObject);
79 +    procedure SelectTableNamesDblClick(Sender: TObject);
80      procedure TestBtnClick(Sender: TObject);
81      procedure ExecutePageShow(Sender: TObject);
82      procedure FieldListDblClick(Sender: TObject);
83      procedure FormShow(Sender: TObject);
84      procedure PrimaryKeyListDblClick(Sender: TObject);
73 –    procedure ProcedureNamesCloseUp(Sender: TObject);
85      procedure SelectPageShow(Sender: TObject);
75 –    procedure TableNamesComboCloseUp(Sender: TObject);
86    private
87      { private declarations }
88 <    FIBSystemTables: TIBSystemTables;
89 <    FExecuteOnly: boolean;
88 >    procedure HandleUserTablesOpened(Sender: TObject);
89 >  protected
90 >    procedure Loaded; override;
91 >    procedure SetSQLStatementType(aType: TIBSQLStatementTypes); virtual;
92    public
93      { public declarations }
94 <    constructor Create(TheOwner: TComponent); override;
83 <    destructor Destroy; override;
84 <    procedure SetDatabase(Database: TIBDatabase);
85 <  end;
94 >  end;
95  
96  
97   function EditSQL(DataSet: TIBCustomDataSet;  SelectSQL: TStrings): boolean;
98  
99   implementation
100  
92 – uses IBSQL;
93 –
101   {$R *.lfm}
102  
103   function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
# Line 107 | Line 114 | begin
114    try
115      if assigned(DataSet) then
116      begin
117 <        SetDatabase(DataSet.Database);
118 <        GenerateParams.Checked := DataSet.GenerateParamNames;
117 >      IBSQLEditFrame1.Database := DataSet.Database;
118 >      GenerateParams.Checked := DataSet.GenerateParamNames;
119      end;
120 <    SQLText.Lines.Assign(SelectSQL);
120 >    IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
121 >    IBSQLEditFrame1.SelectProcs := true;
122      Result := ShowModal = mrOK;
123      if Result then
124      begin
125 <     SelectSQL.Assign(SQLText.Lines);
125 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
126       if assigned(DataSet) then
127            DataSet.GenerateParamNames := GenerateParams.Checked
128      end;
# Line 126 | Line 134 | end;
134   { TIBSelectSQLEditorForm }
135  
136   procedure TIBSelectSQLEditorForm.FormShow(Sender: TObject);
129 – var IsProcedureName: boolean;
137   begin
138 <  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
139 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
140 <  if Trim(SQLText.Text) <> '' then
138 >  GenerateBtn.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
139 >  TestBtn.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
140 >  PageControl.ActivePage := SelectPage;
141 >  if Trim(IBSQLEditFrame1.SQLText.Text) <> '' then
142    begin
143      try
144 <      FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName);
144 >      SetSQLStatementType(IBSQLEditFrame1.SyncQueryBuilder);
145      except  end;
146 <    if IsProcedureName then
139 <      PageControl.ActivePage := ExecutePage
140 <    else
141 <      PageControl.ActivePage := SelectPage;
142 <  end
143 <  else
144 <    PageControl.ActivePage := SelectPage;
146 >  end;
147   end;
148  
149   procedure TIBSelectSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
150   begin
151 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
150 <  SQLText.SetFocus
151 < end;
152 <
153 < procedure TIBSelectSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
154 < begin
155 <  FIBSystemTables.GetProcParams(ProcedureNames.Text,FExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
156 <  SelectProcedure.Visible := not FExecuteOnly
151 >  IBSQLEditFrame1.InsertSelectedPrimaryKey;
152   end;
153  
154   procedure TIBSelectSQLEditorForm.SelectPageShow(Sender: TObject);
160 – var TableName: string;
155   begin
156 <  TableNamesCombo.Items.Clear;
157 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
164 <  if TableNamesCombo.Items.Count > 0 then
165 <  begin
166 <    TableNamesCombo.ItemIndex := 0;
167 <    if Trim(SQLText.Text) <> '' then
168 <    begin
169 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
170 <      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
171 <    end;
172 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
173 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
174 <  end;
156 >  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
157 >    IBSQLEditFrame1.UserTables.Active := true;
158   end;
159  
160   procedure TIBSelectSQLEditorForm.FieldListDblClick(Sender: TObject);
161   begin
162 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
180 <  SQLText.SetFocus
162 >  IBSQLEditFrame1.InsertSelectedFieldName;
163   end;
164  
165   procedure TIBSelectSQLEditorForm.GenerateBtnClick(Sender: TObject);
184 – var FieldNames: TStrings;
166   begin
167    if PageControl.ActivePage = ExecutePage then
168 <    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,FExecuteOnly,
188 <          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
168 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
169    else
170 <  begin
191 <    FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
192 <    try
193 <      FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,SQLText.Lines)
194 <    finally
195 <      FieldNames.Free
196 <    end;
197 <  end;
170 >    IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked);
171   end;
172  
173 < procedure TIBSelectSQLEditorForm.TestBtnClick(Sender: TObject);
173 > procedure TIBSelectSQLEditorForm.FieldNamesGridDblClick(Sender: TObject);
174   begin
175 <  FIBSystemTables.TestSQL(SQLText.Lines.Text,GenerateParams.Checked)
175 >  IBSQLEditFrame1.InsertSelectedFieldName;
176   end;
177  
178 < procedure TIBSelectSQLEditorForm.ExecutePageShow(Sender: TObject);
206 < var ProcName: string;
207 <    IsProcedureName: boolean;
178 > procedure TIBSelectSQLEditorForm.IncludeSysTablesChange(Sender: TObject);
179   begin
180 <  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,true);
181 <  if ProcedureNames.Items.Count > 0 then
182 <  begin
183 <    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
184 <    begin
185 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
186 <      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
187 <    end
188 <    else
189 <      ProcedureNames.ItemIndex := 0;
190 <  end;
191 <  FIBSystemTables.GetProcParams(ProcedureNames.Text,FExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
192 <  SelectProcedure.Visible := not FExecuteOnly
180 >  IBSQLEditFrame1.IncludeSystemTables := IncludeSysTables.Checked;
181 > end;
182 >
183 > procedure TIBSelectSQLEditorForm.InputProcGridDblClick(Sender: TObject);
184 > begin
185 >  IBSQLEditFrame1.InsertSelectedInputParam;
186 > end;
187 >
188 > procedure TIBSelectSQLEditorForm.OutputProcGridDblClick(Sender: TObject);
189 > begin
190 >  IBSQLEditFrame1.InsertSelectedOutputParam;
191 > end;
192 >
193 > procedure TIBSelectSQLEditorForm.PackageNamesDblClick(Sender: TObject);
194 > begin
195 >  IBSQLEditFrame1.InsertPackageName;
196 > end;
197 >
198 > procedure TIBSelectSQLEditorForm.PrimaryKeysGridDblClick(Sender: TObject);
199 > begin
200 >  IBSQLEditFrame1.InsertSelectedPrimaryKey;
201   end;
202  
203 < procedure TIBSelectSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
203 > procedure TIBSelectSQLEditorForm.ProcedureNamesDblClick(Sender: TObject);
204   begin
205 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
227 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
205 >    IBSQLEditFrame1.InsertProcName;
206   end;
207  
208 < constructor TIBSelectSQLEditorForm.Create(TheOwner: TComponent);
208 > procedure TIBSelectSQLEditorForm.SelectSelectAllChange(Sender: TObject);
209   begin
210 <  inherited Create(TheOwner);
233 <  FIBSystemTables := TIBSystemTables.Create;
210 >  IBSQLEditFrame1.SelectAllFields(SelectSelectAll.Checked);
211   end;
212  
213 < destructor TIBSelectSQLEditorForm.Destroy;
213 > procedure TIBSelectSQLEditorForm.SelectTableNamesDblClick(Sender: TObject);
214   begin
215 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
239 <  inherited Destroy;
215 >  IBSQLEditFrame1.InsertTableName;
216   end;
217  
218 < procedure TIBSelectSQLEditorForm.SetDatabase(Database: TIBDatabase);
218 > procedure TIBSelectSQLEditorForm.TestBtnClick(Sender: TObject);
219   begin
220 <  IBTransaction1.DefaultDatabase := Database;
221 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
220 >  IBSQLEditFrame1.TestSQL(GenerateParams.Checked)
221 > end;
222 >
223 > procedure TIBSelectSQLEditorForm.ExecutePageShow(Sender: TObject);
224 > begin
225 >  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
226 >    IBSQLEditFrame1.OpenUserProcedures;
227 > end;
228 >
229 > procedure TIBSelectSQLEditorForm.HandleUserTablesOpened(Sender: TObject);
230 > begin
231 >  SelectSelectAll.Checked := true;
232 > end;
233 >
234 > procedure TIBSelectSQLEditorForm.Loaded;
235 > begin
236 >  inherited Loaded;
237 >  if IBSQLEditFrame1 <> nil then
238 >  begin
239 >    if PageControl <> nil then
240 >      PageControl.ActivePage := SelectPage;
241 >    IBSQLEditFrame1.OnUserTablesOpened := @HandleUserTablesOpened;
242 >    if SelectTableNames <> nil then
243 >      SelectTableNames.ListSource :=  IBSQLEditFrame1.UserTableSource;
244 >    if FieldNamesGrid <> nil then
245 >      FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
246 >    if PrimaryKeysGrid <> nil then
247 >      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
248 >    if PackageNames <> nil then
249 >      PackageNames.ListSource := IBSQLEditFrame1.PackageNameSource;
250 >    if ProcedureNames <> nil then
251 >      ProcedureNames.ListSource := IBSQLEditFrame1.UserProcSource;
252 >    if InputProcGrid <> nil then
253 >      InputProcGrid.DataSource := IBSQLEditFrame1.ProcInputSource;
254 >    if OutputProcGrid <> nil then
255 >      OutputProcGrid.DataSource := IBSQLEditFrame1.ProcOutputSource;
256 >  end;
257 > end;
258 >
259 > procedure TIBSelectSQLEditorForm.SetSQLStatementType(aType: TIBSQLStatementTypes
260 >  );
261 > begin
262 >  case aType of
263 >  SQLExecProcedure:
264 >    PageControl.ActivePage := ExecutePage;
265 >  else
266 >    PageControl.ActivePage := SelectPage;
267 >  end;
268   end;
269  
270   end.

Diff Legend

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