33 |
|
interface |
34 |
|
|
35 |
|
uses |
36 |
< |
{Windows,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
37 |
< |
StdCtrls, IBDataBase, IB, ExtCtrls, IBXConst, LResources; |
36 |
> |
{Windows,} SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
37 |
> |
StdCtrls, IBDataBase, IB, ExtCtrls, LResources; |
38 |
|
|
39 |
|
type |
40 |
|
|
42 |
|
|
43 |
|
TIBTransactionEditForm = class(TForm) |
44 |
|
GroupBox1: TGroupBox; |
45 |
– |
HelpBtn: TButton; |
45 |
|
Cancelbtn: TButton; |
46 |
|
OKBtn: TButton; |
47 |
|
rbOtherButton: TRadioButton; |
80 |
|
|
81 |
|
implementation |
82 |
|
|
83 |
+ |
uses FBMessages; |
84 |
+ |
|
85 |
|
{$R *.lfm} |
86 |
|
|
87 |
|
function EditIBtransaction(ATransaction: TIBtransaction): Boolean; |
227 |
|
end; |
228 |
|
|
229 |
|
|
230 |
< |
end. |
230 |
> |
end. |