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 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 141 by tony, Thu Jan 25 14:18:12 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;
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 <    SelectProcedure: TLabel;
51 >    GenerateParams: TCheckBox;
52 >    FieldNamesGrid: TIBDynamicGrid;
53 >    PrimaryKeysGrid: TIBDynamicGrid;
54 >    IBSQLEditFrame1: TIBSQLEditFrame;
55 >    ProcedureNames: TIBLookupComboEditBox;
56 >    SelectSelectAll: TCheckBox;
57 >    SelectTableNames: TIBLookupComboEditBox;
58      TestBtn: TButton;
47 –    FieldList: TListBox;
48 –    IBTransaction1: TIBTransaction;
59      Label1: TLabel;
60      Label16: TLabel;
61      Label17: TLabel;
# Line 54 | Line 64 | type
64      Label3: TLabel;
65      Label4: TLabel;
66      PageControl: TPageControl;
57 –    PrimaryKeyList: TListBox;
58 –    ProcedureNames: TComboBox;
59 –    ProcInputList: TListBox;
60 –    ProcOutputList: TListBox;
67      QuoteFields: TCheckBox;
62 –    SQLText: TMemo;
63 –    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);
72 –    procedure ProcedureNamesCloseUp(Sender: TObject);
85      procedure SelectPageShow(Sender: TObject);
74 –    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;
82 <    destructor Destroy; override;
83 <    procedure SetDatabase(Database: TIBDatabase);
84 <  end;
94 >  end;
95  
86 – var
87 –  IBSelectSQLEditorForm: TIBSelectSQLEditorForm;
96  
97 < function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
97 > function EditSQL(DataSet: TIBCustomDataSet;  SelectSQL: TStrings): boolean;
98  
99   implementation
100  
93 – uses IBSQL;
94 –
101   {$R *.lfm}
102  
103 < function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
103 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
104   begin
105    Result := false;
106 <  if assigned(Database) then
106 >  if assigned(DataSet) and assigned(DataSet.Database) then
107      try
108 <      Database.Connected := true;
108 >      DataSet.Database.Connected := true;
109      except on E: Exception do
110        ShowMessage(E.Message)
111      end;
112  
113    with TIBSelectSQLEditorForm.Create(Application) do
114    try
115 <    SetDatabase(Database);
116 <    SQLText.Lines.Assign(SelectSQL);
115 >    if assigned(DataSet) then
116 >    begin
117 >      IBSQLEditFrame1.Database := DataSet.Database;
118 >      GenerateParams.Checked := DataSet.GenerateParamNames;
119 >    end;
120 >    IBSQLEditFrame1.SQLText.Lines.Assign(SelectSQL);
121 >    IBSQLEditFrame1.SelectProcs := true;
122      Result := ShowModal = mrOK;
123      if Result then
124 <     SelectSQL.Assign(SQLText.Lines)
124 >    begin
125 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
126 >     if assigned(DataSet) then
127 >          DataSet.GenerateParamNames := GenerateParams.Checked
128 >    end;
129    finally
130      Free
131    end;
# Line 119 | Line 134 | end;
134   { TIBSelectSQLEditorForm }
135  
136   procedure TIBSelectSQLEditorForm.FormShow(Sender: TObject);
122 – 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 >      IncludeSysTables.Checked := IBSQLEditFrame1.IncludeSystemTables;
146      except  end;
147 <    if IsProcedureName then
132 <      PageControl.ActivePage := ExecutePage
133 <    else
134 <      PageControl.ActivePage := SelectPage;
135 <  end
136 <  else
137 <    PageControl.ActivePage := SelectPage;
147 >  end;
148   end;
149  
150   procedure TIBSelectSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
151   begin
152 <  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
143 <  SQLText.SetFocus
144 < end;
145 <
146 < procedure TIBSelectSQLEditorForm.ProcedureNamesCloseUp(Sender: TObject);
147 < begin
148 <  FIBSystemTables.GetProcParams(ProcedureNames.Text,FExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
149 <  SelectProcedure.Visible := not FExecuteOnly
152 >  IBSQLEditFrame1.InsertSelectedPrimaryKey;
153   end;
154  
155   procedure TIBSelectSQLEditorForm.SelectPageShow(Sender: TObject);
153 – var TableName: string;
156   begin
157 <  TableNamesCombo.Items.Clear;
158 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
157 <  if TableNamesCombo.Items.Count > 0 then
158 <  begin
159 <    TableNamesCombo.ItemIndex := 0;
160 <    if Trim(SQLText.Text) <> '' then
161 <    begin
162 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
163 <      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
164 <    end;
165 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
166 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
167 <  end;
157 >  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
158 >    IBSQLEditFrame1.UserTables.Active := true;
159   end;
160  
161   procedure TIBSelectSQLEditorForm.FieldListDblClick(Sender: TObject);
162   begin
163 <  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
173 <  SQLText.SetFocus
163 >  IBSQLEditFrame1.InsertSelectedFieldName;
164   end;
165  
166   procedure TIBSelectSQLEditorForm.GenerateBtnClick(Sender: TObject);
177 – var FieldNames: TStrings;
167   begin
168    if PageControl.ActivePage = ExecutePage then
169 <    FIBSystemTables.GenerateExecuteSQL(ProcedureNames.Text,QuoteFields.Checked,FExecuteOnly,
181 <          ProcInputList.Items,ProcOutputList.Items,SQLText.Lines)
169 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
170    else
171 <  begin
184 <    FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
185 <    try
186 <      FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,SQLText.Lines)
187 <    finally
188 <      FieldNames.Free
189 <    end;
190 <  end;
171 >    IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked);
172   end;
173  
174 < procedure TIBSelectSQLEditorForm.TestBtnClick(Sender: TObject);
174 > procedure TIBSelectSQLEditorForm.FieldNamesGridDblClick(Sender: TObject);
175   begin
176 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
176 >  IBSQLEditFrame1.InsertSelectedFieldName;
177   end;
178  
179 < procedure TIBSelectSQLEditorForm.ExecutePageShow(Sender: TObject);
199 < var ProcName: string;
200 <    IsProcedureName: boolean;
179 > procedure TIBSelectSQLEditorForm.IncludeSysTablesChange(Sender: TObject);
180   begin
181 <  FIBSystemTables.GetProcedureNames(ProcedureNames.Items,true);
203 <  if ProcedureNames.Items.Count > 0 then
204 <  begin
205 <    if (FIBSystemTables.GetStatementType(SQLText.Text,IsProcedureName) = SQLExecProcedure) or IsProcedureName then
206 <    begin
207 <      FIBSystemTables.GetTableAndColumns(SQLText.Text,ProcName,nil);
208 <      ProcedureNames.ItemIndex := ProcedureNames.Items.IndexOf(ProcName)
209 <    end
210 <    else
211 <      ProcedureNames.ItemIndex := 0;
212 <  end;
213 <  FIBSystemTables.GetProcParams(ProcedureNames.Text,FExecuteOnly,ProcInputList.Items,ProcOutputList.Items);
214 <  SelectProcedure.Visible := not FExecuteOnly
181 >  IBSQLEditFrame1.IncludeSystemTables := IncludeSysTables.Checked;
182   end;
183  
184 < procedure TIBSelectSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
184 > procedure TIBSelectSQLEditorForm.InputProcGridDblClick(Sender: TObject);
185   begin
186 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
220 <  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
186 >  IBSQLEditFrame1.InsertSelectedInputParam;
187   end;
188  
189 < constructor TIBSelectSQLEditorForm.Create(TheOwner: TComponent);
189 > procedure TIBSelectSQLEditorForm.OutputProcGridDblClick(Sender: TObject);
190   begin
191 <  inherited Create(TheOwner);
226 <  FIBSystemTables := TIBSystemTables.Create;
191 >  IBSQLEditFrame1.InsertSelectedOutputParam;
192   end;
193  
194 < destructor TIBSelectSQLEditorForm.Destroy;
194 > procedure TIBSelectSQLEditorForm.PackageNamesDblClick(Sender: TObject);
195   begin
196 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
232 <  inherited Destroy;
196 >  IBSQLEditFrame1.InsertPackageName;
197   end;
198  
199 < procedure TIBSelectSQLEditorForm.SetDatabase(Database: TIBDatabase);
199 > procedure TIBSelectSQLEditorForm.PrimaryKeysGridDblClick(Sender: TObject);
200   begin
201 <  IBTransaction1.DefaultDatabase := Database;
238 <  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
201 >  IBSQLEditFrame1.InsertSelectedPrimaryKey;
202   end;
203  
204 < end.
204 > procedure TIBSelectSQLEditorForm.ProcedureNamesDblClick(Sender: TObject);
205 > begin
206 >    IBSQLEditFrame1.InsertProcName;
207 > end;
208  
209 + procedure TIBSelectSQLEditorForm.SelectSelectAllChange(Sender: TObject);
210 + begin
211 +  IBSQLEditFrame1.SelectAllFields(SelectSelectAll.Checked);
212 + end;
213 +
214 + procedure TIBSelectSQLEditorForm.SelectTableNamesDblClick(Sender: TObject);
215 + begin
216 +  IBSQLEditFrame1.InsertTableName;
217 + end;
218 +
219 + procedure TIBSelectSQLEditorForm.TestBtnClick(Sender: TObject);
220 + begin
221 +  IBSQLEditFrame1.TestSQL(GenerateParams.Checked)
222 + end;
223 +
224 + procedure TIBSelectSQLEditorForm.ExecutePageShow(Sender: TObject);
225 + begin
226 +  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
227 +    IBSQLEditFrame1.OpenUserProcedures;
228 + end;
229 +
230 + procedure TIBSelectSQLEditorForm.HandleUserTablesOpened(Sender: TObject);
231 + begin
232 +  SelectSelectAll.Checked := true;
233 + end;
234 +
235 + procedure TIBSelectSQLEditorForm.Loaded;
236 + begin
237 +  inherited Loaded;
238 +  if IBSQLEditFrame1 <> nil then
239 +  begin
240 +    if PageControl <> nil then
241 +      PageControl.ActivePage := SelectPage;
242 +    IBSQLEditFrame1.OnUserTablesOpened := @HandleUserTablesOpened;
243 +    if SelectTableNames <> nil then
244 +      SelectTableNames.ListSource :=  IBSQLEditFrame1.UserTableSource;
245 +    if FieldNamesGrid <> nil then
246 +      FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
247 +    if PrimaryKeysGrid <> nil then
248 +      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
249 +    if PackageNames <> nil then
250 +      PackageNames.ListSource := IBSQLEditFrame1.PackageNameSource;
251 +    if ProcedureNames <> nil then
252 +      ProcedureNames.ListSource := IBSQLEditFrame1.UserProcSource;
253 +    if InputProcGrid <> nil then
254 +      InputProcGrid.DataSource := IBSQLEditFrame1.ProcInputSource;
255 +    if OutputProcGrid <> nil then
256 +      OutputProcGrid.DataSource := IBSQLEditFrame1.ProcOutputSource;
257 +  end;
258 + end;
259 +
260 + procedure TIBSelectSQLEditorForm.SetSQLStatementType(aType: TIBSQLStatementTypes
261 +  );
262 + begin
263 +  case aType of
264 +  SQLExecProcedure:
265 +    PageControl.ActivePage := ExecutePage;
266 +  else
267 +    PageControl.ActivePage := SelectPage;
268 +  end;
269 + end;
270 +
271 + end.

Diff Legend

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