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

Comparing ibx/trunk/design/ibdataseteditor.pas (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 31 | Line 31 | unit IBDataSetEditor;
31   interface
32  
33   uses
34 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35 <  ComCtrls, StdCtrls, ExtCtrls, IBSystemTables, IBCustomDataSet, IBDatabase;
34 >  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
35 >  StdCtrls, ExtCtrls, IBSQLEditFrame, IBCustomDataSet,
36 >  IBDatabase, IBLookupComboEditBox, IBDynamicGrid, Types;
37  
38   type
39  
40    { TIBDataSetEditorForm }
41  
42    TIBDataSetEditorForm = class(TForm)
43 +    FieldNamesGrid: TIBDynamicGrid;
44 +    GenerateParams: TCheckBox;
45 +    IBSQLEditFrame1: TIBSQLEditFrame;
46 +    IncludeSysTables: TCheckBox;
47 +    Label5: TLabel;
48 +    Label6: TLabel;
49 +    PrimaryKeysGrid: TIBDynamicGrid;
50 +    IdentityGrid: TIBDynamicGrid;
51 +    ReadOnlyGrid: TIBDynamicGrid;
52 +    SelectSelectAll: TCheckBox;
53 +    SelectTableNames: TIBLookupComboEditBox;
54      TestBtn: TButton;
55      CancelButton: TButton;
56      FieldsPage: TTabSheet;
57      GenerateButton: TButton;
58      GroupBox1: TGroupBox;
47 –    IBTransaction1: TIBTransaction;
59      IncludePrimaryKeys: TCheckBox;
49 –    PrimaryKeyList: TListBox;
60      Label1: TLabel;
61      Label2: TLabel;
62      Label3: TLabel;
# Line 54 | Line 64 | type
64      OkButton: TButton;
65      PageControl: TPageControl;
66      QuoteFields: TCheckBox;
57 –    SQLMemo: TMemo;
67      SQLPage: TTabSheet;
68      StatementType: TRadioGroup;
69 <    FieldList: TListBox;
70 <    TableNamesCombo: TComboBox;
69 >    procedure IncludeSysTablesChange(Sender: TObject);
70 >    procedure SelectSelectAllClick(Sender: TObject);
71      procedure TestBtnClick(Sender: TObject);
72      procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
73      procedure FormShow(Sender: TObject);
# Line 66 | Line 75 | type
75      procedure SQLMemoChange(Sender: TObject);
76      procedure SQLPageShow(Sender: TObject);
77      procedure StatementTypeClick(Sender: TObject);
69 –    procedure TableNamesComboCloseUp(Sender: TObject);
78    private
79      { private declarations }
80      FDataSet: TIBDataSet;
73 –    FIBSystemTables: TIBSystemTables;
81      FDirty: boolean;
82      FCurrentStatement: integer;
83      FSelectSQL: TStringList;
# Line 79 | Line 86 | type
86      FDeleteSQL: TStringList;
87      FRefreshSQL: TStringList;
88      procedure UpdateSQLMemo;
89 +    procedure HandleUserTablesOpened(Sender: TObject);
90 +  protected
91 +    procedure Loaded; override;
92    public
93      { public declarations }
94      constructor Create(TheOwner: TComponent); override;
95      destructor Destroy; override;
86 –    procedure SetDataSet(AObject: TIBDataSet);
96    end;
97  
98   var
# Line 107 | Line 116 | begin
116  
117    with TIBDataSetEditorForm.Create(Application) do
118    try
119 <    SetDataSet(DataSet);
120 <    Result := ShowModal = mrOK
119 >    if assigned(DataSet) then
120 >    begin
121 >      IBSQLEditFrame1.Database := DataSet.Database;
122 >      GenerateParams.Checked := DataSet.GenerateParamNames;
123 >    end;
124 >    FDataSet := DataSet;
125 >    with IBSQLEditFrame1 do
126 >    begin
127 >      IncludeReadOnlyFields := false;
128 >    end;
129 >    Result := ShowModal = mrOK;
130 >    if Result and assigned(DataSet) then
131 >      DataSet.GenerateParamNames := GenerateParams.Checked
132    finally
133      Free
134    end;
# Line 126 | Line 146 | begin
146    FDeleteSQL.Assign(FDataSet.DeleteSQL);
147    FRefreshSQL.Assign(FDataSet.RefreshSQL);
148    FSelectSQL.Assign(FDataSet.SelectSQL);
149 <  GenerateButton.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
150 <  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
149 >  GenerateButton.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
150 >  TestBtn.Enabled := (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected;
151    FCurrentStatement := -1;
152 <  TableNamesCombo.Items.Clear;
133 <  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
134 <  if TableNamesCombo.Items.Count > 0 then
152 >  if (IBSQLEditFrame1.Database <> nil) and IBSQLEditFrame1.Database.Connected then
153    begin
154 <    TableNamesCombo.ItemIndex := 0;
155 <    if FSelectSQL.Text <> '' then
138 <    try
139 <       FIBSystemTables.GetTableAndColumns(FSelectSQL.Text,TableName,nil);
140 <       TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName);
141 <    except end;//ignore
142 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
143 <    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
154 >    IBSQLEditFrame1.UserTables.Active := true;
155 >    IBSQLEditFrame1.SyncQueryBuilder(FSelectSQL);
156    end;
157   end;
158  
# Line 160 | Line 172 | end;
172  
173   procedure TIBDataSetEditorForm.TestBtnClick(Sender: TObject);
174   begin
175 <  if SQLMemo.Lines.Text <> '' then
164 <    FIBSystemTables.TestSQL(SQLMemo.Lines.Text);
175 >  IBSQLEditFrame1.TestSQL(GenerateParams.Checked);
176   end;
177  
178 < procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
168 < var FieldNames: TStringList;
169 <    I: integer;
178 > procedure TIBDataSetEditorForm.IncludeSysTablesChange(Sender: TObject);
179   begin
180 <  FieldNames := TStringList.Create;
181 <  try
173 <    FRefreshSQL.Clear;
174 <    FSelectSQL.Clear;
175 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldNames);
176 <    FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,FSelectSQL);
177 <    FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,FRefreshSQL);
178 <    FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,FDeleteSQL);
179 <    FieldNames.Clear;
180 <    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldNames,true,false);
181 <    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
182 <        FieldNames,FInsertSQL);
183 <    if FieldList.SelCount = 0 then
184 <    begin
185 <      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
186 <        FieldList.Items,FModifySQL);
180 >  IBSQLEditFrame1.IncludeSystemTables := IncludeSysTables.Checked;
181 > end;
182  
183 <    end
184 <    else
185 <    begin
186 <      FieldNames.Clear;
187 <      for I := 0 to FieldList.Items.Count - 1 do
188 <        if FieldList.Selected[I] then
189 <          FieldNames.Add(FieldList.Items[I]);
190 <      FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
191 <        FieldNames,FModifySQL);
192 <    end;
193 <    FDirty := false;
194 <    PageControl.ActivePage := SQLPage;
195 <  finally
196 <    FieldNames.Free
202 <  end;
183 > procedure TIBDataSetEditorForm.SelectSelectAllClick(Sender: TObject);
184 > begin
185 >  IBSQLEditFrame1.SelectAllFields(SelectSelectAll.Checked);
186 > end;
187 >
188 > procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
189 > begin
190 >  IBSQLEditFrame1.GenerateSelectSQL(QuoteFields.Checked,FSelectSQL,true);
191 >  IBSQLEditFrame1.GenerateRefreshSQL(QuoteFields.Checked,FRefreshSQL,true);
192 >  IBSQLEditFrame1.GenerateDeleteSQL(QuoteFields.Checked,FDeleteSQL);
193 >  IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked,FInsertSQL);
194 >  IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,FModifySQL, IncludePrimaryKeys.Checked);
195 >  FDirty := false;
196 >  PageControl.ActivePage := SQLPage;
197   end;
198  
199   procedure TIBDataSetEditorForm.SQLMemoChange(Sender: TObject);
# Line 217 | Line 211 | begin
211    UpdateSQLMemo
212   end;
213  
220 – procedure TIBDataSetEditorForm.TableNamesComboCloseUp(Sender: TObject);
221 – begin
222 –  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,IncludePrimaryKeys.checked,false);
223 –  FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
224 – end;
225 –
214   procedure TIBDataSetEditorForm.UpdateSQLMemo;
215   begin
216    if FDirty then
217      case FCurrentStatement of
218      0: // Select
219 <        FSelectSQL.Assign(SQLMemo.Lines);
219 >        FSelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
220      1: //Modify
221 <        FModifySQL.Assign(SQLMemo.Lines);
221 >        FModifySQL.Assign(IBSQLEditFrame1.SQLText.Lines);
222      2: //Insert
223 <        FInsertSQL.Assign(SQLMemo.Lines);
223 >        FInsertSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
224      3: // Delete
225 <        FDeleteSQL.Assign(SQLMemo.Lines);
225 >        FDeleteSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
226      4: //Refresh
227 <        FRefreshSQL.Assign(SQLMemo.Lines);
227 >        FRefreshSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
228      end;
229    FDirty := false;
230    case StatementType.ItemIndex of
231    0: //Select
232 <     SQLMemo.Lines.Assign(FSelectSQL);
232 >     IBSQLEditFrame1.SQLText.Lines.Assign(FSelectSQL);
233    1: // Modify
234 <    SQLMemo.Lines.Assign(FModifySQL)  ;
234 >    IBSQLEditFrame1.SQLText.Lines.Assign(FModifySQL)  ;
235    2: //Insert
236 <    SQLMemo.Lines.Assign(FInsertSQL)  ;
236 >    IBSQLEditFrame1.SQLText.Lines.Assign(FInsertSQL)  ;
237    3: // Delete
238 <    SQLMemo.Lines.Assign(FDeleteSQL)  ;
238 >    IBSQLEditFrame1.SQLText.Lines.Assign(FDeleteSQL)  ;
239    4: //Refresh
240 <    SQLMemo.Lines.Assign(FRefreshSQL)  ;
240 >    IBSQLEditFrame1.SQLText.Lines.Assign(FRefreshSQL)  ;
241    end;
242    FCurrentStatement := StatementType.ItemIndex;
243   end;
244  
245 + procedure TIBDataSetEditorForm.HandleUserTablesOpened(Sender: TObject);
246 + begin
247 +  SelectSelectAll.Checked := true;
248 + end;
249 +
250 + procedure TIBDataSetEditorForm.Loaded;
251 + begin
252 +  inherited Loaded;
253 +  if IBSQLEditFrame1 <> nil then
254 +  begin
255 +    IBSQLEditFrame1.OnUserTablesOpened := @HandleUserTablesOpened;
256 +    if SelectTableNames <> nil then
257 +      SelectTableNames.ListSource :=  IBSQLEditFrame1.UserTableSource;
258 +    if FieldNamesGrid <> nil then
259 +      FieldNamesGrid.DataSource := IBSQLEditFrame1.FieldsSource;
260 +    if PrimaryKeysGrid <> nil then
261 +      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
262 +    if IdentityGrid <> nil then
263 +      IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
264 +    if ReadOnlyGrid <> nil then
265 +      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
266 +  end;
267 + end;
268 +
269   constructor TIBDataSetEditorForm.Create(TheOwner: TComponent);
270   begin
271    inherited Create(TheOwner);
260 –  FIBSystemTables := TIBSystemTables.Create;
272    FModifySQL := TStringList.Create;
273    FInsertSQL := TStringList.Create;
274    FDeleteSQL := TStringList.Create;
# Line 267 | Line 278 | end;
278  
279   destructor TIBDataSetEditorForm.Destroy;
280   begin
270 –  if assigned(FIBSystemTables) then FIBSystemTables.Free;
281    if assigned(FModifySQL) then FModifySQL.Free;
282    if assigned(FInsertSQL) then FInsertSQL.Free;
283    if assigned(FDeleteSQL) then FDeleteSQL.Free;
284    if assigned(FRefreshSQL) then FRefreshSQL.Free;
285 < if assigned(FSelectSQL) then FSelectSQL.Free;
285 >  if assigned(FSelectSQL) then FSelectSQL.Free;
286    inherited Destroy;
287   end;
288  
279 – procedure TIBDataSetEditorForm.SetDataSet(AObject: TIBDataSet);
280 – begin
281 –  FDataSet := AObject;
282 –  IBTransaction1.DefaultDatabase := FDataSet.Database;
283 –  if assigned(FDataSet) then
284 –    FIBSystemTables.SelectDatabase(FDataSet.Database,IBTransaction1);
285 – end;
286 –
289   end.
288 –

Diff Legend

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