79 lines
2.1 KiB
Plaintext
79 lines
2.1 KiB
Plaintext
|
object srvLogin: TsrvLogin
|
||
|
|
OldCreateOrder = True
|
||
|
|
SessionManager = dmServer.SessionManager
|
||
|
|
AcquireConnection = True
|
||
|
|
ServiceSchema = schLogin
|
||
|
|
OnAfterProcessTransactionAction = pptaNone
|
||
|
|
ExportedDataTables = <>
|
||
|
|
CacheElements = <>
|
||
|
|
Options = [rsoProcessDeltasWithoutUpdateRules]
|
||
|
|
Height = 220
|
||
|
|
Width = 339
|
||
|
|
object schLogin: TDASchema
|
||
|
|
ConnectionManager = dmServer.ConnectionManager
|
||
|
|
DataDictionary = dmServer.DataDictionary
|
||
|
|
Diagrams = dmServer.DADiagrams
|
||
|
|
Datasets = <
|
||
|
|
item
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'USERID'
|
||
|
|
DataType = datString
|
||
|
|
Value = 'zeus'
|
||
|
|
ParamType = daptInput
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'PASSWORD'
|
||
|
|
DataType = datString
|
||
|
|
Value = 'zvg'
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'GFT_VARELA'
|
||
|
|
TargetTable = 'USUARIOS'
|
||
|
|
SQL =
|
||
|
|
'SELECT'#10' CLAVE AS ID, PASSW AS PASS'#10' FROM'#10' USUARIOS'#10' WH' +
|
||
|
|
'ERE CLAVE = :USERID AND'#10' PASSW = :PASSWORD;'
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <
|
||
|
|
item
|
||
|
|
DatasetField = 'ID'
|
||
|
|
TableField = 'CLAVE'
|
||
|
|
SQLOrigin = 'ID'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'PASS'
|
||
|
|
TableField = 'PASSW'
|
||
|
|
SQLOrigin = 'PASS'
|
||
|
|
end>
|
||
|
|
end>
|
||
|
|
Name = 'GetLoginInfo'
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'ID'
|
||
|
|
DataType = datString
|
||
|
|
Size = 12
|
||
|
|
InPrimaryKey = True
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'PASS'
|
||
|
|
DataType = datString
|
||
|
|
Size = 12
|
||
|
|
end>
|
||
|
|
end>
|
||
|
|
JoinDataTables = <>
|
||
|
|
UnionDataTables = <>
|
||
|
|
Commands = <>
|
||
|
|
RelationShips = <>
|
||
|
|
UpdateRules = <>
|
||
|
|
Version = 0
|
||
|
|
Left = 56
|
||
|
|
Top = 24
|
||
|
|
end
|
||
|
|
object DABINAdapter: TDABINAdapter
|
||
|
|
Left = 56
|
||
|
|
Top = 96
|
||
|
|
end
|
||
|
|
end
|