trunk/design/ibinsertsqleditor.pas

unit ibinsertsqleditor;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, IBSystemTables, IBDatabase;

type

  { TIBInsertSQLEditorForm }

  TIBInsertSQLEditorForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    FieldList: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    QuoteFields: TCheckBox;
    SQLText: TMemo;
    TableNamesCombo: TComboBox;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FieldListDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TableNamesComboCloseUp(Sender: TObject);
  private
    { private declarations }
    FIBSystemTables: TIBSystemTables;
  public
    { public declarations }
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
  end; 

var
  IBInsertSQLEditorForm: TIBInsertSQLEditorForm;

function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;

implementation

function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
begin
 Result := false;
 if assigned(Database) then
  begin
    if not assigned(Transaction) then
    begin
      if not assigned(Database.DefaultTransaction)then
      begin
        ShowMessage('No Default Transaction!');
        Exit
      end;
      Transaction := Database.DefaultTransaction
    end;

    Database.Connected := true;
  end;

  with TIBInsertSQLEditorForm.Create(Application) do
  try
    SetDatabase(Database,Transaction);
    SQLText.Lines.Assign(SelectSQL);
    Result := ShowModal = mrOK;
    if Result then
     SelectSQL.Assign(SQLText.Lines)
  finally
    Free
  end;
end;

{ TIBInsertSQLEditorForm }

procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
begin
  TableNamesCombo.Items.Clear;
  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
  if TableNamesCombo.Items.Count > 0 then
  begin
    TableNamesCombo.ItemIndex := 0;
    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
  end;
end;

procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
begin
  SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
  SQLText.SetFocus
end;

procedure TIBInsertSQLEditorForm.Button3Click(Sender: TObject);
var FieldNames: TStringList;
    I: integer;
begin
  if FieldList.SelCount = 0 then
    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
               FieldList.Items,SQLText.Lines)
  else
  begin
    FieldNames := TStringList.Create;
    try
      for I := 0 to FieldList.Items.Count - 1 do
        if FieldList.Selected[I] then
          FieldNames.Add(FieldList.Items[I]);
      FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
               FieldNames,SQLText.Lines)
    finally
      FieldNames.Free
    end;
  end;
end;

procedure TIBInsertSQLEditorForm.Button4Click(Sender: TObject);
begin
  FIBSystemTables.TestSQL(SQLText.Lines.Text)
end;

procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
begin
  FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
end;

constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  FIBSystemTables := TIBSystemTables.Create;
end;

destructor TIBInsertSQLEditorForm.Destroy;
begin
  if assigned(FIBSystemTables) then FIBSystemTables.Free;
  inherited Destroy;
end;

procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
begin
  FIBSystemTables.SelectDatabase(Database,Transaction)
end;

initialization
  {$I ibinsertsqleditor.lrs}

end.

Revision:	5
Committed:	Fri Feb 18 16:26:16 2011 UTC (13 years, 9 months ago) by tony
Content type:	text/x-pascal
File size:	3851 byte(s)
Log Message:	Committing updates for Release pre-release
#	Content
1	unit ibinsertsqleditor;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
9	StdCtrls, IBSystemTables, IBDatabase;
10
11	type
12
13	{ TIBInsertSQLEditorForm }
14
15	TIBInsertSQLEditorForm = class(TForm)
16	Button1: TButton;
17	Button2: TButton;
18	Button3: TButton;
19	Button4: TButton;
20	FieldList: TListBox;
21	Label1: TLabel;
22	Label2: TLabel;
23	Label3: TLabel;
24	QuoteFields: TCheckBox;
25	SQLText: TMemo;
26	TableNamesCombo: TComboBox;
27	procedure Button3Click(Sender: TObject);
28	procedure Button4Click(Sender: TObject);
29	procedure FieldListDblClick(Sender: TObject);
30	procedure FormShow(Sender: TObject);
31	procedure TableNamesComboCloseUp(Sender: TObject);
32	private
33	{ private declarations }
34	FIBSystemTables: TIBSystemTables;
35	public
36	{ public declarations }
37	constructor Create(TheOwner: TComponent); override;
38	destructor Destroy; override;
39	procedure SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
40	end;
41
42	var
43	IBInsertSQLEditorForm: TIBInsertSQLEditorForm;
44
45	function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
46
47	implementation
48
49	function EditSQL(Database: TIBDatabase; Transaction: TIBTransaction; SelectSQL: TStrings): boolean;
50	begin
51	Result := false;
52	if assigned(Database) then
53	begin
54	if not assigned(Transaction) then
55	begin
56	if not assigned(Database.DefaultTransaction)then
57	begin
58	ShowMessage('No Default Transaction!');
59	Exit
60	end;
61	Transaction := Database.DefaultTransaction
62	end;
63
64	Database.Connected := true;
65	end;
66
67	with TIBInsertSQLEditorForm.Create(Application) do
68	try
69	SetDatabase(Database,Transaction);
70	SQLText.Lines.Assign(SelectSQL);
71	Result := ShowModal = mrOK;
72	if Result then
73	SelectSQL.Assign(SQLText.Lines)
74	finally
75	Free
76	end;
77	end;
78
79	{ TIBInsertSQLEditorForm }
80
81	procedure TIBInsertSQLEditorForm.FormShow(Sender: TObject);
82	begin
83	TableNamesCombo.Items.Clear;
84	FIBSystemTables.GetTableNames(TableNamesCombo.Items);
85	if TableNamesCombo.Items.Count > 0 then
86	begin
87	TableNamesCombo.ItemIndex := 0;
88	FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
89	end;
90	end;
91
92	procedure TIBInsertSQLEditorForm.FieldListDblClick(Sender: TObject);
93	begin
94	SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
95	SQLText.SetFocus
96	end;
97
98	procedure TIBInsertSQLEditorForm.Button3Click(Sender: TObject);
99	var FieldNames: TStringList;
100	I: integer;
101	begin
102	if FieldList.SelCount = 0 then
103	FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
104	FieldList.Items,SQLText.Lines)
105	else
106	begin
107	FieldNames := TStringList.Create;
108	try
109	for I := 0 to FieldList.Items.Count - 1 do
110	if FieldList.Selected[I] then
111	FieldNames.Add(FieldList.Items[I]);
112	FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
113	FieldNames,SQLText.Lines)
114	finally
115	FieldNames.Free
116	end;
117	end;
118	end;
119
120	procedure TIBInsertSQLEditorForm.Button4Click(Sender: TObject);
121	begin
122	FIBSystemTables.TestSQL(SQLText.Lines.Text)
123	end;
124
125	procedure TIBInsertSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
126	begin
127	FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
128	end;
129
130	constructor TIBInsertSQLEditorForm.Create(TheOwner: TComponent);
131	begin
132	inherited Create(TheOwner);
133	FIBSystemTables := TIBSystemTables.Create;
134	end;
135
136	destructor TIBInsertSQLEditorForm.Destroy;
137	begin
138	if assigned(FIBSystemTables) then FIBSystemTables.Free;
139	inherited Destroy;
140	end;
141
142	procedure TIBInsertSQLEditorForm.SetDatabase(Database: TIBDatabase; Transaction: TIBTransaction);
143	begin
144	FIBSystemTables.SelectDatabase(Database,Transaction)
145	end;
146
147	initialization
148	{$I ibinsertsqleditor.lrs}
149
150	end.
151