blob: e41c9d2bc0e78a73b5bee9a27389565019806a28 (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
object SessionManagement: TSessionManagement
OnCreate = DataModuleCreate
OldCreateOrder = False
DispatchOptions = [jdoSearchRegistry, jdoSearchOwner, jdoJSONRPC1, jdoJSONRPC2, jdoNotifications]
APIPath = 'API'
RouterPath = 'router'
Height = 200
HorizontalOffset = 582
VerticalOffset = 455
Width = 295
object Login: TJSONRPCHandler
OnExecute = LoginExecute
Options = []
ParamDefs = <
item
Name = 'UserName'
end
item
Name = 'Password'
end>
left = 24
top = 24
end
object IBConnection1: TIBConnection
Connected = False
LoginPrompt = False
KeepConnection = False
Transaction = SQLTransaction1
LogEvents = []
left = 24
top = 117
end
object SQLTransaction1: TSQLTransaction
Active = False
Action = caNone
Database = IBConnection1
left = 26
top = 72
end
object QAuthenticate: TSQLQuery
AutoCalcFields = False
Database = IBConnection1
Transaction = SQLTransaction1
ReadOnly = False
SQL.Strings = (
'SELECT'
' U_ID, U_NAME'
'From'
' USERS'
'WHERE'
' (U_LOGIN = :LOGIN)'
' AND (U_PASSWORD=:PASSWORD);'
''
)
Params = <
item
DataType = ftUnknown
Name = 'LOGIN'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'PASSWORD'
ParamType = ptUnknown
end>
left = 128
top = 117
end
object Logout: TJSONRPCHandler
OnExecute = LogoutExecute
Options = []
ParamDefs = <>
left = 120
top = 16
end
end
|
