trunk/design/ibrefreshsqleditor.pas

unit ibrefreshsqleditor;

{$mode objfpc}{$H+}

interface

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

type

  { TIBRefreshSQLEditorForm }

  TIBRefreshSQLEditorForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GenerateBtn: TButton;
    TestBtn: TButton;
    FieldList: TListBox;
    IBTransaction1: TIBTransaction;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    PrimaryKeyList: TListBox;
    QuoteFields: TCheckBox;
    SQLText: TMemo;
    TableNamesCombo: TComboBox;
    procedure GenerateBtnClick(Sender: TObject);
    procedure TestBtnClick(Sender: TObject);
    procedure FieldListDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PrimaryKeyListDblClick(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);
  end; 

var
  IBRefreshSQLEditorForm: TIBRefreshSQLEditorForm;

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

implementation

{$R *.lfm}

function EditSQL(Database: TIBDatabase;  SelectSQL: TStrings): boolean;
begin
  Result := false;
  if assigned(Database) then
    try
      Database.Connected := true;
    except on E: Exception do
      ShowMessage(E.Message)
    end;

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

{ TIBRefreshSQLEditorForm }

procedure TIBRefreshSQLEditorForm.FormShow(Sender: TObject);
var TableName: string;
begin
  GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
  TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
  TableNamesCombo.Items.Clear;
  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
  if TableNamesCombo.Items.Count > 0 then
  begin
    TableNamesCombo.ItemIndex := 0;
    if Trim(SQLText.Text) <> '' then
    begin
      FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
      TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
    end;
    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
  end;
end;

procedure TIBRefreshSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
begin
  SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
  SQLText.SetFocus
end;

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

procedure TIBRefreshSQLEditorForm.GenerateBtnClick(Sender: TObject);
var FieldNames: TStrings;
begin
  FieldNames :=  FIBSystemTables.GetFieldNames(FieldList);
  try
    FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,SQLText.Lines)
  finally
    FieldNames.Free
  end;
end;

procedure TIBRefreshSQLEditorForm.TestBtnClick(Sender: TObject);
begin
  FIBSystemTables.TestSQL(SQLText.Lines.Text)
end;

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

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

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

procedure TIBRefreshSQLEditorForm.SetDatabase(Database: TIBDatabase);
begin
  IBTransaction1.DefaultDatabase := Database;
  FIBSystemTables.SelectDatabase(Database,IBTransaction1)
end;

end.

Revision:	17
Committed:	Sat Dec 28 19:22:24 2013 UTC (10 years, 10 months ago) by tony
Content type:	text/x-pascal
File size:	4316 byte(s)
Log Message:	Committing updates for Release R1-0-5
#	Content
1	unit ibrefreshsqleditor;
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	{ TIBRefreshSQLEditorForm }
14
15	TIBRefreshSQLEditorForm = class(TForm)
16	Button1: TButton;
17	Button2: TButton;
18	GenerateBtn: TButton;
19	TestBtn: TButton;
20	FieldList: TListBox;
21	IBTransaction1: TIBTransaction;
22	Label1: TLabel;
23	Label2: TLabel;
24	Label3: TLabel;
25	Label4: TLabel;
26	PrimaryKeyList: TListBox;
27	QuoteFields: TCheckBox;
28	SQLText: TMemo;
29	TableNamesCombo: TComboBox;
30	procedure GenerateBtnClick(Sender: TObject);
31	procedure TestBtnClick(Sender: TObject);
32	procedure FieldListDblClick(Sender: TObject);
33	procedure FormShow(Sender: TObject);
34	procedure PrimaryKeyListDblClick(Sender: TObject);
35	procedure TableNamesComboCloseUp(Sender: TObject);
36	private
37	{ private declarations }
38	FIBSystemTables: TIBSystemTables;
39	public
40	{ public declarations }
41	constructor Create(TheOwner: TComponent); override;
42	destructor Destroy; override;
43	procedure SetDatabase(Database: TIBDatabase);
44	end;
45
46	var
47	IBRefreshSQLEditorForm: TIBRefreshSQLEditorForm;
48
49	function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
50
51	implementation
52
53	{$R *.lfm}
54
55	function EditSQL(Database: TIBDatabase; SelectSQL: TStrings): boolean;
56	begin
57	Result := false;
58	if assigned(Database) then
59	try
60	Database.Connected := true;
61	except on E: Exception do
62	ShowMessage(E.Message)
63	end;
64
65	with TIBRefreshSQLEditorForm.Create(Application) do
66	try
67	SetDatabase(Database);
68	SQLText.Lines.Assign(SelectSQL);
69	Result := ShowModal = mrOK;
70	if Result then
71	SelectSQL.Assign(SQLText.Lines)
72	finally
73	Free
74	end;
75	end;
76
77	{ TIBRefreshSQLEditorForm }
78
79	procedure TIBRefreshSQLEditorForm.FormShow(Sender: TObject);
80	var TableName: string;
81	begin
82	GenerateBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
83	TestBtn.Enabled := (IBTransaction1.DefaultDatabase <> nil) and IBTransaction1.DefaultDatabase.Connected;
84	TableNamesCombo.Items.Clear;
85	FIBSystemTables.GetTableNames(TableNamesCombo.Items);
86	if TableNamesCombo.Items.Count > 0 then
87	begin
88	TableNamesCombo.ItemIndex := 0;
89	if Trim(SQLText.Text) <> '' then
90	begin
91	FIBSystemTables.GetTableAndColumns(SQLText.Text,TableName,nil);
92	TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName)
93	end;
94	FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
95	FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
96	end;
97	end;
98
99	procedure TIBRefreshSQLEditorForm.PrimaryKeyListDblClick(Sender: TObject);
100	begin
101	SQLText.SelText := PrimaryKeyList.Items[PrimaryKeyList.ItemIndex];
102	SQLText.SetFocus
103	end;
104
105	procedure TIBRefreshSQLEditorForm.FieldListDblClick(Sender: TObject);
106	begin
107	SQLText.SelText := FieldList.Items[FieldList.ItemIndex];
108	SQLText.SetFocus
109	end;
110
111	procedure TIBRefreshSQLEditorForm.GenerateBtnClick(Sender: TObject);
112	var FieldNames: TStrings;
113	begin
114	FieldNames := FIBSystemTables.GetFieldNames(FieldList);
115	try
116	FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FieldNames,SQLText.Lines)
117	finally
118	FieldNames.Free
119	end;
120	end;
121
122	procedure TIBRefreshSQLEditorForm.TestBtnClick(Sender: TObject);
123	begin
124	FIBSystemTables.TestSQL(SQLText.Lines.Text)
125	end;
126
127	procedure TIBRefreshSQLEditorForm.TableNamesComboCloseUp(Sender: TObject);
128	begin
129	FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items);
130	FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
131	end;
132
133	constructor TIBRefreshSQLEditorForm.Create(TheOwner: TComponent);
134	begin
135	inherited Create(TheOwner);
136	FIBSystemTables := TIBSystemTables.Create;
137	end;
138
139	destructor TIBRefreshSQLEditorForm.Destroy;
140	begin
141	if assigned(FIBSystemTables) then FIBSystemTables.Free;
142	inherited Destroy;
143	end;
144
145	procedure TIBRefreshSQLEditorForm.SetDatabase(Database: TIBDatabase);
146	begin
147	IBTransaction1.DefaultDatabase := Database;
148	FIBSystemTables.SelectDatabase(Database,IBTransaction1)
149	end;
150
151	end.
152