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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
object CombinedModule: TCombinedModule
OnCreate = DataModuleCreate
OldCreateOrder = False
InputAdaptor = ProviderInputAdaptor
ContentProducer = ProviderFormatter
OnGetContentProducer = DataModuleGetContentProducer
OnGetInputAdaptor = DataModuleGetInputAdaptor
OnNewSession = DataModuleNewSession
Height = 300
HorizontalOffset = 635
VerticalOffset = 230
Width = 400
object ProviderFormatter: TExtJSJSONDataFormatter
AllowPageSize = False
BeforeDataToJSON = ProviderFormatterBeforeDataToJSON
BeforeUpdate = ProviderFormatterBeforeUpdate
BeforeInsert = ProviderFormatterBeforeInsert
BeforeDelete = ProviderFormatterBeforeDelete
left = 272
top = 72
end
object Users: TSQLDBWebDataProvider
SelectSQL.Strings = (
'SELECT FIRST :limit SKIP :start U_ID, U_NAME, U_LOGIN, U_PASSWORD, U_EMAIL FROM USERS'
)
UpdateSQL.Strings = (
'UPDATE USERS SET'
' U_NAME=:U_NAME,'
' U_LOGIN=:U_LOGIN,'
' U_EMAIL=:U_EMAIL,'
' U_PASSWORD=:U_PASSWORD'
'WHERE'
' (U_ID=:U_ID)'
)
DeleteSQL.Strings = (
'DELETE FROM USERS WHERE (U_ID=:ID)'
)
InsertSQL.Strings = (
'INSERT INTO USERS'
'(U_ID, U_LOGIN, U_NAME, U_EMAIL, U_PASSWORD)'
'VALUES'
'(:U_ID, :U_LOGIN, :U_NAME, :U_EMAIL, :U_PASSWORD)'
)
Connection = IBConnection1
IDFieldName = 'U_ID'
OnGetNewID = UsersGetNewID
Options = []
Params = <
item
DataType = ftUnknown
Name = 'limit'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'start'
ParamType = ptUnknown
end>
left = 32
top = 72
end
object IBConnection1: TIBConnection
Connected = False
LoginPrompt = False
KeepConnection = False
Transaction = SQLTransaction1
LogEvents = []
left = 32
top = 16
end
object QGetID: TSQLQuery
AutoCalcFields = False
Database = IBConnection1
Transaction = SQLTransaction1
ReadOnly = False
SQL.Strings = (
'SELECT GEN_ID(GEN_USERS,1) AS THEID FROM RDB$DATABASE'
)
Params = <>
left = 32
top = 128
end
object SQLTransaction1: TSQLTransaction
Active = False
Action = caNone
Database = IBConnection1
left = 144
top = 16
end
object ProviderInputAdaptor: TExtJSJSonWebdataInputAdaptor
left = 272
top = 16
end
end
|