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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
object FPWebProviderDataModule1: TFPWebProviderDataModule1
OnCreate = DataModuleCreate
OldCreateOrder = False
InputAdaptor = ExtJSJSonWebdataInputAdaptor1
ContentProducer = ExtJSJSONDataFormatter1
OnGetContentProducer = DataModuleGetContentProducer
OnGetInputAdaptor = DataModuleGetInputAdaptor
Height = 300
HorizontalOffset = 635
VerticalOffset = 230
Width = 400
object ExtJSJSonWebdataInputAdaptor1: TExtJSJSonWebdataInputAdaptor
left = 232
top = 152
end
object ExtJSXMLWebdataInputAdaptor1: TExtJSXMLWebdataInputAdaptor
left = 272
top = 152
end
object ExtJSXMLDataFormatter1: TExtJSXMLDataFormatter
AllowPageSize = False
left = 272
top = 192
end
object ExtJSJSONDataFormatter1: TExtJSJSONDataFormatter
AllowPageSize = False
left = 232
top = 192
end
object ANAME: TSQLDBWebDataProvider
SelectSQL.Strings = (
'SELECT * FROM FPCUSERS'
)
UpdateSQL.Strings = (
'UPDATE FPCUSERS SET'
' NAME=:NAME,'
' LOGIN=:LOGIN,'
' EMAIL=:EMAIL,'
' LASTLOGIN=:LASTLOGIN'
'WHERE'
' (ID=:ID)'
)
DeleteSQL.Strings = (
'DELETE FROM FPCUSERS WHERE (ID=:ID)'
)
InsertSQL.Strings = (
'INSERT INTO FPCUSERS '
'(ID, LOGIN, NAME, EMAIL, LASTLOGIN)'
'VALUES'
'(:ID, :LOGIN, :NAME, :EMAIL, :LASTLOGIN)'
)
Connection = IBConnection1
IDFieldName = 'ID'
OnGetNewID = ANAMEGetNewID
left = 113
top = 120
end
object IBConnection1: TIBConnection
Connected = False
LoginPrompt = False
DatabaseName = '/wisa/firebird/fpcusers.fb'
KeepConnection = False
Password = 'SysteemD'
Transaction = SQLTransaction1
UserName = 'WISASOFT'
left = 72
top = 120
end
object QGetID: TSQLQuery
IndexName = 'DEFAULT_ORDER'
AutoCalcFields = False
Database = IBConnection1
Transaction = SQLTransaction1
ReadOnly = False
SQL.Strings = (
'SELECT GEN_ID(GEN_FPCUSERS,1) AS THEID FROM RDB$DATABASE'
)
Params = <>
left = 155
top = 63
end
object SQLTransaction1: TSQLTransaction
Active = False
Action = caNone
Database = IBConnection1
left = 74
top = 64
end
object SQLQuery1: TSQLQuery
IndexName = 'DEFAULT_ORDER'
AutoCalcFields = False
Database = IBConnection1
Transaction = SQLTransaction1
ReadOnly = False
SQL.Strings = (
'INSERT INTO FPCUSERS'
'(ID, LOGIN, NAME, EMAIL, LASTLOGIN)'
'VALUES'
'(:ID, :LOGIN, :NAME, :EMAIL, :LASTLOGIN)'
''
)
Params = <
item
DataType = ftUnknown
Name = 'ID'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'LOGIN'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'NAME'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'EMAIL'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'LASTLOGIN'
ParamType = ptUnknown
end>
left = 174
top = 111
end
end
|
