| 92 |
|
TPB.Add(isc_tpb_lock_read).AsString := 'EMPLOYEE'; |
| 93 |
|
TPB.Add(isc_tpb_protected); |
| 94 |
|
Transaction := Attachment.StartTransaction(TPB,taRollback); |
| 95 |
+ |
writeln(OutFile,'Transaction ID = ',Transaction.GetTransactionID); |
| 96 |
+ |
if Transaction.GetIsReadOnly then |
| 97 |
+ |
writeln(OutFile,'Transaction is Read Only') |
| 98 |
+ |
else |
| 99 |
+ |
writeln(OutFile,'Transaction is Read/Write'); |
| 100 |
+ |
writeTRInfo(Transaction.GetTrInformation([isc_info_tra_id, |
| 101 |
+ |
isc_info_tra_oldest_interesting, |
| 102 |
+ |
isc_info_tra_oldest_active, |
| 103 |
+ |
isc_info_tra_oldest_snapshot, |
| 104 |
+ |
fb_info_tra_snapshot_number, |
| 105 |
+ |
isc_info_tra_lock_timeout, |
| 106 |
+ |
isc_info_tra_access, |
| 107 |
+ |
isc_info_tra_isolation, |
| 108 |
+ |
fb_info_tra_dbpath])); |
| 109 |
|
Attachment.ExecuteSQL(Transaction, 'Execute Procedure DELETE_EMPLOYEE ?', [8]); |
| 110 |
|
|
| 111 |
|
ResultSet := Attachment.OpenCursorAtStart( |
| 169 |
|
DPB.Add(isc_dpb_user_name).AsString := Owner.GetUserName; |
| 170 |
|
DPB.Add(isc_dpb_password).AsString := Owner.GetPassword; |
| 171 |
|
DPB.Add(isc_dpb_lc_ctype).AsString := CharSet; |
| 158 |
– |
DPB.Add(isc_dpb_set_db_SQL_dialect).AsByte := SQLDialect; |
| 172 |
|
|
| 173 |
|
writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName); |
| 174 |
|
Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB); |
