mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
32 lines
718 B
Plaintext
32 lines
718 B
Plaintext
|
object dmMain: TdmMain
|
||
|
|
OldCreateOrder = False
|
||
|
|
Height = 242
|
||
|
|
Width = 476
|
||
|
|
object Connection: TFDConnection
|
||
|
|
Params.Strings = (
|
||
|
|
'Database=serversentevents.db'
|
||
|
|
'DriverID=SQLite')
|
||
|
|
Connected = True
|
||
|
|
LoginPrompt = False
|
||
|
|
AfterConnect = ConnectionAfterConnect
|
||
|
|
BeforeConnect = ConnectionBeforeConnect
|
||
|
|
Left = 80
|
||
|
|
Top = 56
|
||
|
|
end
|
||
|
|
object qryInsertNotification: TFDQuery
|
||
|
|
Connection = Connection
|
||
|
|
SQL.Strings = (
|
||
|
|
|
||
|
|
'INSERT INTO notifications (VALUE, CREATED_AT) VALUES (:STATE, da' +
|
||
|
|
'tetime('#39'now'#39'))')
|
||
|
|
Left = 208
|
||
|
|
Top = 56
|
||
|
|
ParamData = <
|
||
|
|
item
|
||
|
|
Name = 'STATE'
|
||
|
|
ParamType = ptInput
|
||
|
|
Value = Null
|
||
|
|
end>
|
||
|
|
end
|
||
|
|
end
|