trunk/design/ibgeneratoreditor.pas

unit IBGeneratorEditor;

{$mode objfpc}{$H+}

interface

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

type

  { TGeneratorEditor }

  TGeneratorEditor = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    GeneratorNames: TComboBox;
    FieldNames: TComboBox;
    IncrementBy: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    OnNewRecord: TRadioButton;
    OnPost: TRadioButton;
    UpDown1: TUpDown;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    FGenerator: TIBGenerator;
    FTableName: string;
    FIBSystemTables: TIBSystemTables;
    { private declarations }
    procedure LoadGenerators;
    procedure LoadFieldNames;
    function GetPrimaryKey: string;
    procedure SetGenerator(const AValue: TIBGenerator);
    procedure SetDatabase(ADatabase: TIBDatabase; ATransaction: TIBTransaction);
  public
    { public declarations }
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    property Generator: TIBGenerator read FGenerator write SetGenerator;
  end; 

function EditGenerator(AGenerator: TIBGenerator): boolean;

implementation

function EditGenerator(AGenerator: TIBGenerator): boolean;
var Database: TIBDatabase;
begin
  Result := false;
  if AGenerator.SelectSQL = '' then
  begin
    ShowMessage('No Select SQL Found!');
    Exit
  end;
  if assigned(Database) then
  begin
    Database := AGenerator.Owner.Database;
    if not assigned(AGenerator.Owner.Transaction)then
    begin
      ShowMessage('No Transaction assigned to DataSet!');
      Exit
    end;
    Database.Connected := true;

    with TGeneratorEditor.Create(Application) do
    try
      Generator := AGenerator;
      Result := ShowModal = mrOK
    finally
      Free
    end;
  end;
end;

{ TGeneratorEditor }

procedure TGeneratorEditor.FormShow(Sender: TObject);
begin
  LoadGenerators;
  LoadFieldNames;
  if Generator.GeneratorName <> '' then
    GeneratorNames.ItemIndex := GeneratorNames.Items.IndexOf(Generator.GeneratorName);
  if Generator.FieldName <> '' then
    FieldNames.ItemIndex := FieldNames.Items.IndexOf(Generator.FieldName)
  else
    FieldNames.ItemIndex := FieldNames.Items.IndexOf(GetPrimaryKey);

  if Generator.ApplyOnEvent = gaeOnNewRecord then
    OnNewRecord.Checked := true
  else
    OnPost.Checked := true;
  IncrementBy.Text := IntToStr(Generator.Increment);
end;

procedure TGeneratorEditor.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  if ModalResult = mrOK then
  begin
    Generator.GeneratorName := GeneratorNames.Text;
    Generator.FieldName := FieldNames.Text;
    if OnNewRecord.Checked then
      Generator.ApplyOnEvent := gaeOnNewRecord
    else
      Generator.ApplyOnEvent := gaeOnPostRecord;
    Generator.Increment := StrToInt(IncrementBy.Text)

  end;
end;

procedure TGeneratorEditor.LoadGenerators;
begin
  FIBSystemTables.GetGenerators(GeneratorNames.Items);
  if GeneratorNames.Items.Count > 0 then
    GeneratorNames.ItemIndex := 0
end;

procedure TGeneratorEditor.LoadFieldNames;
begin
  FIBSystemTables.GetTableAndColumns(FGenerator.SelectSQL,FTableName,FieldNames.Items)
end;

function TGeneratorEditor.GetPrimaryKey: string;
var Keys: TStringList;
begin
  Result := '';
  Keys := TStringList.Create;
  try
    FIBSystemTables.GetPrimaryKeys(FTableName,Keys);
    if Keys.Count > 0 then
      Result := Keys[0];
  finally
    Keys.Free
  end;
end;

procedure TGeneratorEditor.SetGenerator(const AValue: TIBGenerator);
begin
  FGenerator := AValue;
  SetDatabase(Generator.Owner.Database,Generator.Owner.Transaction);
end;

procedure TGeneratorEditor.SetDatabase(ADatabase: TIBDatabase; ATransaction: TIBTransaction);
begin
  if not assigned(ADatabase) then
    raise Exception.Create('A Database must be assigned');
  if not assigned(ATransaction) then
    raise Exception.Create('A Transaction must be assigned');
  FIBSystemTables.SelectDatabase( ADatabase,ATransaction)
end;

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

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

initialization
  {$I ibgeneratoreditor.lrs}

end.

Revision:	5
Committed:	Fri Feb 18 16:26:16 2011 UTC (13 years, 8 months ago) by tony
Content type:	text/x-pascal
File size:	4457 byte(s)
Log Message:	Committing updates for Release pre-release
#	User	Rev	Content
1	tony	5	unit IBGeneratorEditor;
2
3			{$mode objfpc}{$H+}
4
5			interface
6
7			uses
8			Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
9			ExtCtrls, StdCtrls, ComCtrls, IBDatabase, IBCustomDataSet, IBSystemTables;
10
11			type
12
13			{ TGeneratorEditor }
14
15			TGeneratorEditor = class(TForm)
16			Bevel1: TBevel;
17			Button1: TButton;
18			Button2: TButton;
19			GeneratorNames: TComboBox;
20			FieldNames: TComboBox;
21			IncrementBy: TEdit;
22			Label1: TLabel;
23			Label2: TLabel;
24			Label3: TLabel;
25			OnNewRecord: TRadioButton;
26			OnPost: TRadioButton;
27			UpDown1: TUpDown;
28			procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
29			procedure FormShow(Sender: TObject);
30			private
31			FGenerator: TIBGenerator;
32			FTableName: string;
33			FIBSystemTables: TIBSystemTables;
34			{ private declarations }
35			procedure LoadGenerators;
36			procedure LoadFieldNames;
37			function GetPrimaryKey: string;
38			procedure SetGenerator(const AValue: TIBGenerator);
39			procedure SetDatabase(ADatabase: TIBDatabase; ATransaction: TIBTransaction);
40			public
41			{ public declarations }
42			constructor Create(TheOwner: TComponent); override;
43			destructor Destroy; override;
44			property Generator: TIBGenerator read FGenerator write SetGenerator;
45			end;
46
47			function EditGenerator(AGenerator: TIBGenerator): boolean;
48
49			implementation
50
51			function EditGenerator(AGenerator: TIBGenerator): boolean;
52			var Database: TIBDatabase;
53			begin
54			Result := false;
55			if AGenerator.SelectSQL = '' then
56			begin
57			ShowMessage('No Select SQL Found!');
58			Exit
59			end;
60			if assigned(Database) then
61			begin
62			Database := AGenerator.Owner.Database;
63			if not assigned(AGenerator.Owner.Transaction)then
64			begin
65			ShowMessage('No Transaction assigned to DataSet!');
66			Exit
67			end;
68			Database.Connected := true;
69
70			with TGeneratorEditor.Create(Application) do
71			try
72			Generator := AGenerator;
73			Result := ShowModal = mrOK
74			finally
75			Free
76			end;
77			end;
78			end;
79
80			{ TGeneratorEditor }
81
82			procedure TGeneratorEditor.FormShow(Sender: TObject);
83			begin
84			LoadGenerators;
85			LoadFieldNames;
86			if Generator.GeneratorName <> '' then
87			GeneratorNames.ItemIndex := GeneratorNames.Items.IndexOf(Generator.GeneratorName);
88			if Generator.FieldName <> '' then
89			FieldNames.ItemIndex := FieldNames.Items.IndexOf(Generator.FieldName)
90			else
91			FieldNames.ItemIndex := FieldNames.Items.IndexOf(GetPrimaryKey);
92
93			if Generator.ApplyOnEvent = gaeOnNewRecord then
94			OnNewRecord.Checked := true
95			else
96			OnPost.Checked := true;
97			IncrementBy.Text := IntToStr(Generator.Increment);
98			end;
99
100			procedure TGeneratorEditor.FormClose(Sender: TObject;
101			var CloseAction: TCloseAction);
102			begin
103			if ModalResult = mrOK then
104			begin
105			Generator.GeneratorName := GeneratorNames.Text;
106			Generator.FieldName := FieldNames.Text;
107			if OnNewRecord.Checked then
108			Generator.ApplyOnEvent := gaeOnNewRecord
109			else
110			Generator.ApplyOnEvent := gaeOnPostRecord;
111			Generator.Increment := StrToInt(IncrementBy.Text)
112
113			end;
114			end;
115
116			procedure TGeneratorEditor.LoadGenerators;
117			begin
118			FIBSystemTables.GetGenerators(GeneratorNames.Items);
119			if GeneratorNames.Items.Count > 0 then
120			GeneratorNames.ItemIndex := 0
121			end;
122
123			procedure TGeneratorEditor.LoadFieldNames;
124			begin
125			FIBSystemTables.GetTableAndColumns(FGenerator.SelectSQL,FTableName,FieldNames.Items)
126			end;
127
128			function TGeneratorEditor.GetPrimaryKey: string;
129			var Keys: TStringList;
130			begin
131			Result := '';
132			Keys := TStringList.Create;
133			try
134			FIBSystemTables.GetPrimaryKeys(FTableName,Keys);
135			if Keys.Count > 0 then
136			Result := Keys[0];
137			finally
138			Keys.Free
139			end;
140			end;
141
142			procedure TGeneratorEditor.SetGenerator(const AValue: TIBGenerator);
143			begin
144			FGenerator := AValue;
145			SetDatabase(Generator.Owner.Database,Generator.Owner.Transaction);
146			end;
147
148			procedure TGeneratorEditor.SetDatabase(ADatabase: TIBDatabase; ATransaction: TIBTransaction);
149			begin
150			if not assigned(ADatabase) then
151			raise Exception.Create('A Database must be assigned');
152			if not assigned(ATransaction) then
153			raise Exception.Create('A Transaction must be assigned');
154			FIBSystemTables.SelectDatabase( ADatabase,ATransaction)
155			end;
156
157			constructor TGeneratorEditor.Create(TheOwner: TComponent);
158			begin
159			inherited Create(TheOwner);
160			FIBSystemTables := TIBSystemTables.Create
161			end;
162
163			destructor TGeneratorEditor.Destroy;
164			begin
165			if assigned(FIBSystemTables) then FIBSystemTables.Free;
166			inherited Destroy;
167			end;
168
169			initialization
170			{$I ibgeneratoreditor.lrs}
171
172			end.
173