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 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

# Line 30 | Line 30 | unit ibinsertsqleditor;
30   interface
31  
32   uses
33 <  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 <    ibselectsqleditor, IBSQLEditFrame, IBDatabase, IBCustomDataset;
33 >  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34 >  StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBDatabase,
35 >  IBLookupComboEditBox, 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
52 +    procedure Loaded; override;
53 +
54    public
55  
56    end;
# Line 73 | Line 83 | begin
83      end;
84      with IBSQLEditFrame1 do
85      begin
76 –      IncludePrimaryKeys := true;
86        IncludeReadOnlyFields := false;
87        ExecuteOnlyProcs := true;
88 +      ExcludeIdentityColumns := true;
89        SQLText.Lines.Assign(SelectSQL);
90      end;
91      Result := ShowModal = mrOK;
# Line 100 | 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.PrimaryKeySource;
130 +   if IdentityGrid <> nil then
131 +     IdentityGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
132 +    if ReadOnlyGrid <> nil then
133 +      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
134 +  end;
135 + end;
136 +
137  
138   end.
139  

Diff Legend

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