journaling/design/ibdataseteditor.pas

unit IBDataSetEditor;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, IBSystemTables, IBCustomDataSet;

type

  { TIBDataSetEditorForm }

  TIBDataSetEditorForm = class(TForm)
    Button1: TButton;
    CancelButton: TButton;
    FieldsPage: TTabSheet;
    GenerateButton: TButton;
    GroupBox1: TGroupBox;
    PrimaryKeyList: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    OkButton: TButton;
    PageControl: TPageControl;
    QuoteFields: TCheckBox;
    SQLMemo: TMemo;
    SQLPage: TTabSheet;
    StatementType: TRadioGroup;
    FieldList: TListBox;
    TableNamesCombo: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure GenerateButtonClick(Sender: TObject);
    procedure SQLMemoChange(Sender: TObject);
    procedure SQLPageShow(Sender: TObject);
    procedure StatementTypeClick(Sender: TObject);
    procedure TableNamesComboCloseUp(Sender: TObject);
  private
    { private declarations }
    FDataSet: TIBDataSet;
    FIBSystemTables: TIBSystemTables;
    FDirty: boolean;
    FCurrentStatement: integer;
    FSelectSQL: TStringList;
    FModifySQL: TStringList;
    FInsertSQL: TStringList;
    FDeleteSQL: TStringList;
    FRefreshSQL: TStringList;
    procedure UpdateSQLMemo;
  public
    { public declarations }
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure SetDataSet(AObject: TIBDataSet);
  end;

var
  IBDataSetEditorForm: TIBDataSetEditorForm;

function EditIBDataSet(DataSet: TIBDataSet): boolean;

implementation

function EditIBDataSet(DataSet: TIBDataSet): boolean;
begin
  Result := false;
  if assigned(DataSet) and assigned(DataSet.Database) then
  begin
    if not assigned(DataSet.Transaction) then
    begin
      ShowMessage('No Default Transaction!');
      Exit
    end;

    DataSet.Database.Connected := true;
  end;

  with TIBDataSetEditorForm.Create(Application) do
  try
    SetDataSet(DataSet);
    Result := ShowModal = mrOK
  finally
    Free
  end;

end;

{ TIBDataSetEditorForm }

procedure TIBDataSetEditorForm.FormShow(Sender: TObject);
var TableName: string;
begin
  PageControl.ActivePage := FieldsPage;
  FModifySQL.Assign(FDataSet.ModifySQL);
  FInsertSQL.Assign(FDataSet.InsertSQL);
  FDeleteSQL.Assign(FDataSet.DeleteSQL);
  FRefreshSQL.Assign(FDataSet.RefreshSQL);
  FSelectSQL.Assign(FDataSet.SelectSQL);
  FCurrentStatement := -1;
  TableNamesCombo.Items.Clear;
  FIBSystemTables.GetTableNames(TableNamesCombo.Items);
  if TableNamesCombo.Items.Count > 0 then
  begin
    TableNamesCombo.ItemIndex := 0;
    if FSelectSQL.Text <> '' then
    try
       FIBSystemTables.GetTableAndColumns(FSelectSQL.Text,TableName,nil);
       TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName);
    except end;//ignore
    FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,false);
    FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
  end;
end;

procedure TIBDataSetEditorForm.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  if ModalResult = mrOK then
  begin
    UpdateSQLMemo;
    FDataSet.ModifySQL.Assign(FModifySQL);
    FDataSet.InsertSQL.Assign(FInsertSQL);
    FDataSet.DeleteSQL.Assign(FDeleteSQL);
    FDataSet.RefreshSQL.Assign(FRefreshSQL);
    FDataSet.SelectSQL.Assign(FSelectSQL);
  end;
end;

procedure TIBDataSetEditorForm.Button1Click(Sender: TObject);
begin
  if SQLMemo.Lines.Text <> '' then
    FIBSystemTables.TestSQL(SQLMemo.Lines.Text);
end;

procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
var FieldNames: TStringList;
    I: integer;
begin
  FDataSet.RefreshSQL.Clear;
  FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FSelectSQL);
  FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FRefreshSQL);
  FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,FDeleteSQL);
  if FieldList.SelCount = 0 then
  begin
    FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
      FieldList.Items,FModifySQL);
    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
      FieldList.Items,FInsertSQL);

  end
  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.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
        FieldNames,FModifySQL);
    FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
      FieldNames,FInsertSQL);
    finally
      FieldNames.Free
    end;
  end;
  FDirty := false;
  PageControl.ActivePage := SQLPage;
end;

procedure TIBDataSetEditorForm.SQLMemoChange(Sender: TObject);
begin
  FDirty := true
end;

procedure TIBDataSetEditorForm.SQLPageShow(Sender: TObject);
begin
  UpdateSQLMemo
end;

procedure TIBDataSetEditorForm.StatementTypeClick(Sender: TObject);
begin
  UpdateSQLMemo
end;

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

procedure TIBDataSetEditorForm.UpdateSQLMemo;
begin
  if FDirty then
    case FCurrentStatement of
    0: // Select
        FSelectSQL.Assign(SQLMemo.Lines);
    1: //Modify
        FModifySQL.Assign(SQLMemo.Lines);
    2: //Insert
        FInsertSQL.Assign(SQLMemo.Lines);
    3: // Delete
        FDeleteSQL.Assign(SQLMemo.Lines);
    4: //Refresh
        FRefreshSQL.Assign(SQLMemo.Lines);
    end;
  FDirty := false;
  case StatementType.ItemIndex of
  0: //Select
     SQLMemo.Lines.Assign(FSelectSQL);
  1: // Modify
    SQLMemo.Lines.Assign(FModifySQL)  ;
  2: //Insert
    SQLMemo.Lines.Assign(FInsertSQL)  ;
  3: // Delete
    SQLMemo.Lines.Assign(FDeleteSQL)  ;
  4: //Refresh
    SQLMemo.Lines.Assign(FRefreshSQL)  ;
  end;
  FCurrentStatement := StatementType.ItemIndex;
end;

constructor TIBDataSetEditorForm.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  FIBSystemTables := TIBSystemTables.Create;
  FModifySQL := TStringList.Create;
  FInsertSQL := TStringList.Create;
  FDeleteSQL := TStringList.Create;
  FRefreshSQL := TStringList.Create;
  FSelectSQL := TStringList.Create;
end;

destructor TIBDataSetEditorForm.Destroy;
begin
  if assigned(FIBSystemTables) then FIBSystemTables.Free;
  if assigned(FModifySQL) then FModifySQL.Free;
  if assigned(FInsertSQL) then FInsertSQL.Free;
  if assigned(FDeleteSQL) then FDeleteSQL.Free;
  if assigned(FRefreshSQL) then FRefreshSQL.Free;
 if assigned(FSelectSQL) then FSelectSQL.Free;
  inherited Destroy;
end;

procedure TIBDataSetEditorForm.SetDataSet(AObject: TIBDataSet);
begin
  FDataSet := AObject;
  if assigned(FDataSet) then
    FIBSystemTables.SelectDatabase(FDataSet.Database,FDataSet.Transaction);
end;


initialization
  {$I ibdataseteditor.lrs}

end.

Revision:	5
Committed:	Fri Feb 18 16:26:16 2011 UTC (13 years, 10 months ago) by tony
Content type:	text/x-pascal
Original Path:	*ibx/trunk/design/ibdataseteditor.pas*
File size:	7219 byte(s)
Log Message:	Committing updates for Release pre-release
#	Content
1	unit IBDataSetEditor;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
9	ComCtrls, StdCtrls, ExtCtrls, IBSystemTables, IBCustomDataSet;
10
11	type
12
13	{ TIBDataSetEditorForm }
14
15	TIBDataSetEditorForm = class(TForm)
16	Button1: TButton;
17	CancelButton: TButton;
18	FieldsPage: TTabSheet;
19	GenerateButton: TButton;
20	GroupBox1: TGroupBox;
21	PrimaryKeyList: TListBox;
22	Label1: TLabel;
23	Label2: TLabel;
24	Label3: TLabel;
25	Label4: TLabel;
26	OkButton: TButton;
27	PageControl: TPageControl;
28	QuoteFields: TCheckBox;
29	SQLMemo: TMemo;
30	SQLPage: TTabSheet;
31	StatementType: TRadioGroup;
32	FieldList: TListBox;
33	TableNamesCombo: TComboBox;
34	procedure Button1Click(Sender: TObject);
35	procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
36	procedure FormShow(Sender: TObject);
37	procedure GenerateButtonClick(Sender: TObject);
38	procedure SQLMemoChange(Sender: TObject);
39	procedure SQLPageShow(Sender: TObject);
40	procedure StatementTypeClick(Sender: TObject);
41	procedure TableNamesComboCloseUp(Sender: TObject);
42	private
43	{ private declarations }
44	FDataSet: TIBDataSet;
45	FIBSystemTables: TIBSystemTables;
46	FDirty: boolean;
47	FCurrentStatement: integer;
48	FSelectSQL: TStringList;
49	FModifySQL: TStringList;
50	FInsertSQL: TStringList;
51	FDeleteSQL: TStringList;
52	FRefreshSQL: TStringList;
53	procedure UpdateSQLMemo;
54	public
55	{ public declarations }
56	constructor Create(TheOwner: TComponent); override;
57	destructor Destroy; override;
58	procedure SetDataSet(AObject: TIBDataSet);
59	end;
60
61	var
62	IBDataSetEditorForm: TIBDataSetEditorForm;
63
64	function EditIBDataSet(DataSet: TIBDataSet): boolean;
65
66	implementation
67
68	function EditIBDataSet(DataSet: TIBDataSet): boolean;
69	begin
70	Result := false;
71	if assigned(DataSet) and assigned(DataSet.Database) then
72	begin
73	if not assigned(DataSet.Transaction) then
74	begin
75	ShowMessage('No Default Transaction!');
76	Exit
77	end;
78
79	DataSet.Database.Connected := true;
80	end;
81
82	with TIBDataSetEditorForm.Create(Application) do
83	try
84	SetDataSet(DataSet);
85	Result := ShowModal = mrOK
86	finally
87	Free
88	end;
89
90	end;
91
92	{ TIBDataSetEditorForm }
93
94	procedure TIBDataSetEditorForm.FormShow(Sender: TObject);
95	var TableName: string;
96	begin
97	PageControl.ActivePage := FieldsPage;
98	FModifySQL.Assign(FDataSet.ModifySQL);
99	FInsertSQL.Assign(FDataSet.InsertSQL);
100	FDeleteSQL.Assign(FDataSet.DeleteSQL);
101	FRefreshSQL.Assign(FDataSet.RefreshSQL);
102	FSelectSQL.Assign(FDataSet.SelectSQL);
103	FCurrentStatement := -1;
104	TableNamesCombo.Items.Clear;
105	FIBSystemTables.GetTableNames(TableNamesCombo.Items);
106	if TableNamesCombo.Items.Count > 0 then
107	begin
108	TableNamesCombo.ItemIndex := 0;
109	if FSelectSQL.Text <> '' then
110	try
111	FIBSystemTables.GetTableAndColumns(FSelectSQL.Text,TableName,nil);
112	TableNamesCombo.ItemIndex := TableNamesCombo.Items.IndexOf(TableName);
113	except end;//ignore
114	FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,false);
115	FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
116	end;
117	end;
118
119	procedure TIBDataSetEditorForm.FormClose(Sender: TObject;
120	var CloseAction: TCloseAction);
121	begin
122	if ModalResult = mrOK then
123	begin
124	UpdateSQLMemo;
125	FDataSet.ModifySQL.Assign(FModifySQL);
126	FDataSet.InsertSQL.Assign(FInsertSQL);
127	FDataSet.DeleteSQL.Assign(FDeleteSQL);
128	FDataSet.RefreshSQL.Assign(FRefreshSQL);
129	FDataSet.SelectSQL.Assign(FSelectSQL);
130	end;
131	end;
132
133	procedure TIBDataSetEditorForm.Button1Click(Sender: TObject);
134	begin
135	if SQLMemo.Lines.Text <> '' then
136	FIBSystemTables.TestSQL(SQLMemo.Lines.Text);
137	end;
138
139	procedure TIBDataSetEditorForm.GenerateButtonClick(Sender: TObject);
140	var FieldNames: TStringList;
141	I: integer;
142	begin
143	FDataSet.RefreshSQL.Clear;
144	FIBSystemTables.GenerateSelectSQL(TableNamesCombo.Text,QuoteFields.Checked,FSelectSQL);
145	FIBSystemTables.GenerateRefreshSQL(TableNamesCombo.Text,QuoteFields.Checked,FRefreshSQL);
146	FIBSystemTables.GenerateDeleteSQL(TableNamesCombo.Text,QuoteFields.Checked,FDeleteSQL);
147	if FieldList.SelCount = 0 then
148	begin
149	FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
150	FieldList.Items,FModifySQL);
151	FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
152	FieldList.Items,FInsertSQL);
153
154	end
155	else
156	begin
157	FieldNames := TStringList.Create;
158	try
159	for I := 0 to FieldList.Items.Count - 1 do
160	if FieldList.Selected[I] then
161	FieldNames.Add(FieldList.Items[I]);
162	FIBSystemTables.GenerateModifySQL(TableNamesCombo.Text,QuoteFields.Checked,
163	FieldNames,FModifySQL);
164	FIBSystemTables.GenerateInsertSQL(TableNamesCombo.Text,QuoteFields.Checked,
165	FieldNames,FInsertSQL);
166	finally
167	FieldNames.Free
168	end;
169	end;
170	FDirty := false;
171	PageControl.ActivePage := SQLPage;
172	end;
173
174	procedure TIBDataSetEditorForm.SQLMemoChange(Sender: TObject);
175	begin
176	FDirty := true
177	end;
178
179	procedure TIBDataSetEditorForm.SQLPageShow(Sender: TObject);
180	begin
181	UpdateSQLMemo
182	end;
183
184	procedure TIBDataSetEditorForm.StatementTypeClick(Sender: TObject);
185	begin
186	UpdateSQLMemo
187	end;
188
189	procedure TIBDataSetEditorForm.TableNamesComboCloseUp(Sender: TObject);
190	begin
191	FIBSystemTables.GetFieldNames(TableNamesCombo.Text,FieldList.Items,false);
192	FIBSystemTables.GetPrimaryKeys(TableNamesCombo.Text,PrimaryKeyList.Items);
193	end;
194
195	procedure TIBDataSetEditorForm.UpdateSQLMemo;
196	begin
197	if FDirty then
198	case FCurrentStatement of
199	0: // Select
200	FSelectSQL.Assign(SQLMemo.Lines);
201	1: //Modify
202	FModifySQL.Assign(SQLMemo.Lines);
203	2: //Insert
204	FInsertSQL.Assign(SQLMemo.Lines);
205	3: // Delete
206	FDeleteSQL.Assign(SQLMemo.Lines);
207	4: //Refresh
208	FRefreshSQL.Assign(SQLMemo.Lines);
209	end;
210	FDirty := false;
211	case StatementType.ItemIndex of
212	0: //Select
213	SQLMemo.Lines.Assign(FSelectSQL);
214	1: // Modify
215	SQLMemo.Lines.Assign(FModifySQL) ;
216	2: //Insert
217	SQLMemo.Lines.Assign(FInsertSQL) ;
218	3: // Delete
219	SQLMemo.Lines.Assign(FDeleteSQL) ;
220	4: //Refresh
221	SQLMemo.Lines.Assign(FRefreshSQL) ;
222	end;
223	FCurrentStatement := StatementType.ItemIndex;
224	end;
225
226	constructor TIBDataSetEditorForm.Create(TheOwner: TComponent);
227	begin
228	inherited Create(TheOwner);
229	FIBSystemTables := TIBSystemTables.Create;
230	FModifySQL := TStringList.Create;
231	FInsertSQL := TStringList.Create;
232	FDeleteSQL := TStringList.Create;
233	FRefreshSQL := TStringList.Create;
234	FSelectSQL := TStringList.Create;
235	end;
236
237	destructor TIBDataSetEditorForm.Destroy;
238	begin
239	if assigned(FIBSystemTables) then FIBSystemTables.Free;
240	if assigned(FModifySQL) then FModifySQL.Free;
241	if assigned(FInsertSQL) then FInsertSQL.Free;
242	if assigned(FDeleteSQL) then FDeleteSQL.Free;
243	if assigned(FRefreshSQL) then FRefreshSQL.Free;
244	if assigned(FSelectSQL) then FSelectSQL.Free;
245	inherited Destroy;
246	end;
247
248	procedure TIBDataSetEditorForm.SetDataSet(AObject: TIBDataSet);
249	begin
250	FDataSet := AObject;
251	if assigned(FDataSet) then
252	FIBSystemTables.SelectDatabase(FDataSet.Database,FDataSet.Transaction);
253	end;
254
255
256	initialization
257	{$I ibdataseteditor.lrs}
258
259	end.
260