ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/ibmodifysqleditor.pas

Comparing ibx/trunk/design/ibmodifysqleditor.pas (file contents):
Revision 105 by tony, Thu Jan 18 14:37:32 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 32 | Line 32 | interface
32
33		uses
34		Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
35	<	StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame, IBLookupComboEditBox,
35	>	StdCtrls, ComCtrls, ibselectsqleditor, IBSQLEditFrame,
36		IBDynamicGrid, IBDatabase, IBCustomDataset;
37
38		type
#	Line 44 | Line 44 | type
44		Label5: TLabel;
45		ReadOnlyGrid: TIBDynamicGrid;
46		procedure GenerateBtnClick(Sender: TObject);
47	–	procedure IncludePrimaryKeysChange(Sender: TObject);
47		private
48
49		protected
#	Line 82 | Line 81 | begin
81		end;
82		with IBSQLEditFrame1 do
83		begin
85	–	IncludePrimaryKeys := false;
84		IncludeReadOnlyFields := false;
85		ExecuteOnlyProcs := true;
86		SQLText.Lines.Assign(SelectSQL);
#	Line 102 | Line 100 | end;
100
101		{ TIBModifySQLEditorForm }
102
105	–	procedure TIBModifySQLEditorForm.IncludePrimaryKeysChange(Sender: TObject);
106	–	begin
107	–	IBSQLEditFrame1.IncludePrimaryKeys := IncludePrimaryKeys.Checked;
108	–	end;
109	–
103		procedure TIBModifySQLEditorForm.Loaded;
104		begin
105		inherited Loaded;
#	Line 122 | Line 115 | begin
115		if PageControl.ActivePage = ExecutePage then
116		IBSQLEditFrame1.GenerateExecuteSQL(QuoteFields.Checked)
117		else
118	<	IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,not IncludePrimaryKeys.Checked);
118	>	IBSQLEditFrame1.GenerateModifySQL(QuoteFields.Checked,IncludePrimaryKeys.Checked);
119		end;
120
121

Diff Legend

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