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 105 by tony, Thu Jan 18 14:37:32 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 32 | Line 32 | interface
32   uses
33    Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34    StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35 <  IBLookupComboEditBox, IBDynamicGrid, IBCustomDataset;
35 >  IBDynamicGrid, IBCustomDataSet;
36  
37   type
38  
39    { TIBInsertSQLEditorForm }
40  
41    TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42 +    IdentityGrid: TIBDynamicGrid;
43      Label5: TLabel;
44 +    Label6: TLabel;
45      ReadOnlyGrid: TIBDynamicGrid;
46      procedure GenerateBtnClick(Sender: TObject);
47 +    procedure IdentityGridDblClick(Sender: TObject);
48 +    procedure ReadOnlyGridDblClick(Sender: TObject);
49    private
50  
51    protected
# Line 79 | Line 83 | begin
83      end;
84      with IBSQLEditFrame1 do
85      begin
82 –      IncludePrimaryKeys := true;
86        IncludeReadOnlyFields := false;
87        ExecuteOnlyProcs := true;
88        ExcludeIdentityColumns := true;
# Line 107 | Line 110 | begin
110      IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
111   end;
112  
113 + procedure TIBInsertSQLEditorForm.IdentityGridDblClick(Sender: TObject);
114 + begin
115 +  IBSQLEditFrame1.InsertSelectedIdentityCol;
116 + end;
117 +
118 + procedure TIBInsertSQLEditorForm.ReadOnlyGridDblClick(Sender: TObject);
119 + begin
120 +  IBSQLEditFrame1.InsertSelectedReadOnlyField;
121 + end;
122 +
123   procedure TIBInsertSQLEditorForm.Loaded;
124   begin
125    inherited Loaded;
126    if IBSQLEditFrame1 <> nil then
127    begin
128 <    if PrimaryKeysGrid <> nil then
129 <      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
128 >   if PrimaryKeysGrid <> nil then
129 >     PrimaryKeysGrid.DataSource := IBSQLEditFrame1.PrimaryKeySource;
130 >   if IdentityGrid <> nil then
131 >     IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
132      if ReadOnlyGrid <> nil then
133        ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
134    end;

Diff Legend

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