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 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC

# Line 23 | Line 23
23   *  Contributor(s): ______________________________________.
24   *
25   *)
26 –
26   unit ibinsertsqleditor;
27  
28   {$mode objfpc}{$H+}
# Line 31 | Line 30 | unit ibinsertsqleditor;
30   interface
31  
32   uses
33 <  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
34 <  StdCtrls, IBSystemTables, IBDatabase;
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(TForm)
42 <    Button1: TButton;
43 <    Button2: TButton;
44 <    GenerateBtn: TButton;
45 <    TestBtn: TButton;
46 <    FieldList: TListBox;
47 <    IBTransaction1: TIBTransaction;
48 <    Label1: TLabel;
49 <    Label2: TLabel;
50 <    Label3: TLabel;
51 <    QuoteFields: TCheckBox;
52 <    SQLText: TMemo;
53 <    TableNamesCombo: TComboBox;
41 >  TIBInsertSQLEditorForm = class(TIBSelectSQLEditorForm)
42 >    Label5: TLabel;
43 >    ReadOnlyGrid: TIBDynamicGrid;
44      procedure GenerateBtnClick(Sender: TObject);
55 –    procedure TestBtnClick(Sender: TObject);
56 –    procedure FieldListDblClick(Sender: TObject);
57 –    procedure FormShow(Sender: TObject);
58 –    procedure TableNamesComboCloseUp(Sender: TObject);
45    private
46 <    { private declarations }
47 <    FIBSystemTables: TIBSystemTables;
46 >
47 >  protected
48 >    procedure Loaded; override;
49 >
50    public
51 <    { public declarations }
52 <    constructor Create(TheOwner: TComponent); override;
53 <    destructor Destroy; override;
54 <    procedure SetDatabase(Database: TIBDatabase);
67 <  end;
51 >
52 >  end;
53 >
54 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
55  
56   var
57    IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
58  
72 – function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
73 –
59   implementation
60  
61   {$R *.lfm}
62  
63 < function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
63 > function EditSQL(DataSet: TIBCustomDataSet; SelectSQL: TStrings): boolean;
64   begin
65 < Result := false;
66 <
82 < if assigned(Database) then
65 >  Result := false;
66 >  if assigned(DataSet) and assigned(DataSet.Database) then
67      try
68 <      Database.Connected := true;
68 >      DataSet.Database.Connected := true;
69      except on E: Exception do
70        ShowMessage(E.Message)
71      end;
72  
73    with TIBInsertSQLEditorForm.Create(Application) do
74    try
75 <    SetDatabase(Database);
76 <    SQLText.Lines.Assign(SelectSQL);
75 >    if assigned(DataSet) then
76 >    begin
77 >        IBSQLEditFrame1.Database := DataSet.Database;
78 >        GenerateParams.Checked := DataSet.GenerateParamNames;
79 >    end;
80 >    with IBSQLEditFrame1 do
81 >    begin
82 >      IncludePrimaryKeys := true;
83 >      IncludeReadOnlyFields := false;
84 >      ExecuteOnlyProcs := true;
85 >      ExcludeIdentityColumns := true;
86 >      SQLText.Lines.Assign(SelectSQL);
87 >    end;
88      Result := ShowModal = mrOK;
89      if Result then
90 <     SelectSQL.Assign(SQLText.Lines)
90 >    begin
91 >     SelectSQL.Assign(IBSQLEditFrame1.SQLText.Lines);
92 >     if assigned(DataSet) then
93 >          DataSet.GenerateParamNames := GenerateParams.Checked
94 >    end;
95    finally
96      Free
97    end;
# Line 100 | Line 99 | end;
99  
100   { TIBInsertSQLEditorForm }
101  
103 – procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
104 – var TableName: string;
105 – begin
106 –  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
107 –  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
108 –  TableNamesCombo.Items.Clear;
109 –  try
110 –  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
111 –  if TableNamesCombo.Items.Count > 0 then
112 –  begin
113 –    TableNamesCombo.ItemIndex := 0;
114 –    if Trim(SQLText.Text) <> '' then
115 –    begin
116 –      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
117 –      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
118 –    end;
119 –    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
120 –  end;
121 –  except {ignore}
122 –  end;
123 – end;
124 –
125 – procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
126 – begin
127 –  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
128 –  SQLText.SetFocus
129 – end;
130 –
102   procedure TIBInsertSQLEditorForm.GenerateBtnClick(Sender: TObject);
132 – var FieldNames: TStrings;
133 – begin
134 –  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
135 –  try
136 –    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
137 –               FieldNames,SQLText.Lines)
138 –  finally
139 –    FieldNames.Free
140 –  end;
141 – end;
142 –
143 – procedure TIBInsertSQLEditorForm.TestBtnClick(Sender: TObject);
103   begin
104 <  FIBSystemTables.TestSQL(SQLText.Lines.Text)
104 >  if PageControl.ActivePage = ExecutePage then
105 >    IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
106 >  else
107 >    IBSQLEditFrame1.GenerateInsertSQL(QuoteFields.Checked);
108   end;
109  
110 < procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
110 > procedure TIBInsertSQLEditorForm.Loaded;
111   begin
112 <  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,true,false);
113 < end;
114 <
115 < constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
116 < begin
117 <  inherited Create(TheOwner);
118 <  FIBSystemTables := TIBSystemTables.Create;
119 < end;
158 <
159 < destructor TIBInsertSQLEditorForm.Destroy;
160 < begin
161 <  if assigned(FIBSystemTables) then FIBSystemTables.Free;
162 <  inherited Destroy;
112 >  inherited Loaded;
113 >  if IBSQLEditFrame1 <> nil then
114 >  begin
115 >    if PrimaryKeysGrid <> nil then
116 >      PrimaryKeysGrid.DataSource := IBSQLEditFrame1.IdentityColsSource;
117 >    if ReadOnlyGrid <> nil then
118 >      ReadOnlyGrid.DataSource := IBSQLEditFrame1.ReadOnlyFieldsSource;
119 >  end;
120   end;
121  
165 – procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase);
166 – begin
167 –  IBTransaction1.DefaultDatabase := Database;
168 –  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
169 – end;
122  
123   end.
124  

Diff Legend

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