ViewVC Help

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

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

Comparing ibx/trunk/design/ibdeletesqleditor.pas (file contents):
Revision 6 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC

#	Line 1 | Line 1
1	+	(*
2	+	*  IBX For Lazarus (Firebird Express)
3	+	*
4	+	*  The contents of this file are subject to the Initial Developer's
5	+	*  Public License Version 1.0 (the "License"); you may not use this
6	+	*  file except in compliance with the License. You may obtain a copy
7	+	*  of the License here:
8	+	*
9	+	*    http://www.firebirdsql.org/index.php?op=doc&id=idpl
10	+	*
11	+	*  Software distributed under the License is distributed on an "AS
12	+	*  IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13	+	*  implied. See the License for the specific language governing rights
14	+	*  and limitations under the License.
15	+	*
16	+	*  The Initial Developer of the Original Code is Tony Whyman.
17	+	*
18	+	*  The Original Code is (C) 2011 Tony Whyman, MWA Software
19	+	*  (http://www.mwasoftware.co.uk).
20	+	*
21	+	*  All Rights Reserved.
22	+	*
23	+	*  Contributor(s): ______________________________________.
24	+	*
25	+	*)
26	+
27		unit ibdeletesqleditor;
28
29		{$mode objfpc}{$H+}
#	Line 5 | Line 31 | unit ibdeletesqleditor;
31		interface
32
33		uses
34	<	Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
34	>	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
35		StdCtrls, IBSystemTables, IBDatabase;
36
37		type
#	Line 15 | Line 41 | type
41		TIBDeleteSQLEditorForm = class(TForm)
42		Button1: TButton;
43		Button2: TButton;
44	<	Button3: TButton;
45	<	Button4: TButton;
44	>	GenerateBtn: TButton;
45	>	TestBtn: TButton;
46	>	IBTransaction1: TIBTransaction;
47		Label1: TLabel;
48		Label3: TLabel;
49		Label4: TLabel;
#	Line 24 | Line 51 | type
51		QuoteFields: TCheckBox;
52		SQLText: TMemo;
53		TableNamesCombo: TComboBox;
54	<	procedure Button3Click(Sender: TObject);
55	<	procedure Button4Click(Sender: TObject);
54	>	procedure GenerateBtnClick(Sender: TObject);
55	>	procedure TestBtnClick(Sender: TObject);
56		procedure FormShow(Sender: TObject);
57		procedure PrimaryKeyListDblClick(Sender: TObject);
58		procedure TableNamesComboCloseUp(Sender: TObject);
#	Line 36 | Line 63 | type
63		{ public declarations }
64		constructor Create(TheOwner: TComponent); override;
65		destructor Destroy; override;
66	<	procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
66	>	procedure SetDatabase(Database: TIBDatabase);
67		end;
68
69		var
70		IBDeleteSQLEditorForm: TIBDeleteSQLEditorForm;
71
72	<	function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
72	>	function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
73
74		implementation
75
76	<	function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
76	>	{$R *.lfm}
77	>
78	>	function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
79		begin
80		Result := false;
81		if assigned(Database) then
82	<	begin
83	<	if not assigned(Transaction) then
84	<	begin
85	<	if not assigned(Database.DefaultTransaction)then
57	<	begin
58	<	ShowMessage('No Default Transaction!');
59	<	Exit
60	<	end;
61	<	Transaction := Database.DefaultTransaction
82	>	try
83	>	Database.Connected := true;
84	>	except on E: Exception do
85	>	ShowMessage(E.Message)
86		end;
87
64	–	Database.Connected := true;
65	–	end;
66	–
88		with TIBDeleteSQLEditorForm.Create(Application) do
89		try
90	<	SetDatabase(Database,Transaction);
90	>	SetDatabase(Database);
91		SQLText.Lines.Assign(SelectSQL);
92		Result := ShowModal = mrOK;
93		if Result then
#	Line 79 | Line 100 | end;
100		{ TIBDeleteSQLEditorForm }
101
102		procedure TIBDeleteSQLEditorForm.FormShow(Sender: TObject);
103	+	var TableName: string;
104		begin
105	+	GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
106	+	TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
107		TableNamesCombo.Items.Clear;
108	+	try
109		FIBSystemTables.GetTableNames(TableNamesCombo.Items);
110		if TableNamesCombo.Items.Count > 0 then
111		begin
112		TableNamesCombo.ItemIndex := 0;
113	+	if Trim(SQLText.Text) <> '' then
114	+	begin
115	+	FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
116	+	TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
117	+	end;
118		FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
119		end;
120	+	except {ignore} end;
121		end;
122
123		procedure TIBDeleteSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
#	Line 95 | Line 126 | begin
126		SQLText.SetFocus
127		end;
128
129	<	procedure TIBDeleteSQLEditorForm.Button3Click(Sender: TObject);
129	>	procedure TIBDeleteSQLEditorForm.GenerateBtnClick(Sender: TObject);
130		begin
131		FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,SQLText.Lines)
132		end;
133
134	<	procedure TIBDeleteSQLEditorForm.Button4Click(Sender: TObject);
134	>	procedure TIBDeleteSQLEditorForm.TestBtnClick(Sender: TObject);
135		begin
136		FIBSystemTables.TestSQL(SQLText.Lines.Text)
137		end;
#	Line 122 | Line 153 | begin
153		inherited Destroy;
154		end;
155
156	<	procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
156	>	procedure TIBDeleteSQLEditorForm.SetDatabase(Database: TIBDatabase);
157		begin
158	<	FIBSystemTables.SelectDatabase(Database,Transaction)
158	>	IBTransaction1.DefaultDatabase := Database;
159	>	FIBSystemTables.SelectDatabase(Database,IBTransaction1)
160		end;
161
130	–	initialization
131	–	{$I ibdeletesqleditor.lrs}
132	–
162		end.
163

Diff Legend

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