37 |
|
StdCtrls, IBDataBase, IB, ExtCtrls, IBXConst, LResources; |
38 |
|
|
39 |
|
type |
40 |
+ |
|
41 |
+ |
{ TIBTransactionEditForm } |
42 |
+ |
|
43 |
|
TIBTransactionEditForm = class(TForm) |
44 |
|
GroupBox1: TGroupBox; |
45 |
|
HelpBtn: TButton; |
46 |
|
Cancelbtn: TButton; |
47 |
|
OKBtn: TButton; |
48 |
+ |
rbOtherButton: TRadioButton; |
49 |
|
rbSnapShot: TRadioButton; |
50 |
|
rbReadCommitted: TRadioButton; |
51 |
|
rbReadOnlyTableStability: TRadioButton; |
151 |
|
else if Value = [read, consistency] then |
152 |
|
rbReadOnlyTableStability.Checked := True |
153 |
|
else if Value = [write, consistency] then |
154 |
< |
rbReadWriteTableStability.Checked := True; |
154 |
> |
rbReadWriteTableStability.Checked := True |
155 |
> |
else |
156 |
> |
rbOtherButton.Checked := true |
157 |
|
end; |
158 |
|
|
159 |
|
procedure TIBTransactionEditForm.ClearParamSelection; |
226 |
|
end; |
227 |
|
|
228 |
|
|
229 |
< |
end. |
229 |
> |
end. |