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

Diff Legend

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