-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathInstructions.inc
33 lines (29 loc) · 1.28 KB
/
Instructions.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
const
OnlineDataSignature: AnsiString = 'AMTF';
SuperUsr = 'User37';
SuperPsw = '546h87hi27';
InstructionNames: array[low(TInstruction)..High(TInstruction)] of TInstructionName = (
(Instruction: istNone; Name: 'None'),
(Instruction: istError; Name: 'Error'),
(Instruction: istLogin; Name: 'Login'),
(Instruction: istTime; Name: 'Time'),
(Instruction: istSQL; Name: 'SQL'),
(Instruction: istLoadFile; Name: 'LoadFile'),
(Instruction: istNoIst; Name: 'NoIst'),
(Instruction: istSQLCacheExec; Name: 'SQLCacheExec'),
(Instruction: istChangePSW; Name: 'ChangePSW'),
(Instruction: istSpecialSQL; Name: 'SPSQL'),
(Instruction: istSQLScript; Name: 'SCRIP'),
(Instruction: istStoredProc; Name: 'Stored'),
(Instruction: istDynamicCustProc; Name: 'ClDLL'),
(Instruction: istInternalCustProc; Name: 'INNER'),
(Instruction: istInternalOpen; Name: 'INOPEN'),
(Instruction: InternalSQLInstruciton; Name: 'INSQLExec'),
(Instruction: istSysName; Name: 'SysName'),
(Instruction: istUpgradeInfo; Name: 'UpgradeInfo'),
(Instruction: istUpgradeFile; Name: 'UpgradeFile')
);
type
TLogonStyle = (UserNameError, PassWordError, LogedOnServer, PermDenied,
PermModeII, PermModeIII);
{$DEFINE EVENTLOGON}