150 lines
4.1 KiB
Plaintext
150 lines
4.1 KiB
Plaintext
object srvLogin: TsrvLogin
|
|
OldCreateOrder = True
|
|
OnCreate = DataAbstractServiceCreate
|
|
ConnectionName = 'IBX'
|
|
ServiceSchema = schLogin
|
|
ServiceDataStreamer = Bin2DataStreamer
|
|
ExportedDataTables = <>
|
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
|
Height = 300
|
|
Width = 300
|
|
object schLogin: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
Datasets = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID_USUARIO'
|
|
DataType = datInteger
|
|
Value = '1'
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'EMPRESAS_USUARIOS'
|
|
SQL =
|
|
'SELECT '#10' ID_EMPRESA'#10' FROM'#10' EMPRESAS_USUARIOS'#10' WHERE ID_U' +
|
|
'SUARIO = :ID_USUARIO'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID_EMPRESA'
|
|
TableField = 'ID_EMPRESA'
|
|
end>
|
|
end>
|
|
Name = 'EmpresasUsuario'
|
|
Fields = <
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
DataType = datInteger
|
|
InPrimaryKey = True
|
|
end>
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'ID_USUARIO'
|
|
DataType = datInteger
|
|
Value = '1'
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
SQL =
|
|
'SELECT '#10' PERFILES.PERFIL'#10' FROM'#10' PERFILES, PERFILES_USUARI' +
|
|
'OS'#10' WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO'#10' AND PERF' +
|
|
'ILES.ID = PERFILES_USUARIOS.ID_PERFIL'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'PERFIL'
|
|
TableField = 'PERFIL'
|
|
end>
|
|
end>
|
|
Name = 'PerfilesUsuario'
|
|
Fields = <
|
|
item
|
|
Name = 'PERFIL'
|
|
DataType = datString
|
|
Size = 15
|
|
end>
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'USUARIO'
|
|
DataType = datString
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'PASS'
|
|
DataType = datString
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'USUARIOS'
|
|
SQL =
|
|
'SELECT'#10' ID'#10' FROM'#10' USUARIOS'#10' WHERE USUARIO = :USUARIO AND' +
|
|
#10' PASS = :PASS AND'#10' ACTIVO = 1'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end>
|
|
end>
|
|
Name = 'UsuarioPermitido'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datInteger
|
|
InPrimaryKey = True
|
|
end>
|
|
end>
|
|
JoinDataTables = <>
|
|
UnionDataTables = <>
|
|
Commands = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'PASSWORD'
|
|
DataType = datString
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'USERID'
|
|
DataType = datString
|
|
Value = ''
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'USUARIOS'
|
|
SQL =
|
|
'UPDATE'#10' USUARIOS'#10' SET'#10' PASS = :PASSWORD'#10' WHERE'#10' ID = ' +
|
|
':USERID'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'SetUserPassword'
|
|
end>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 40
|
|
Top = 24
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 40
|
|
Top = 88
|
|
end
|
|
end
|