david
28cc4ff877
- Adaptar el código a las nuevas versiones - Incluye VCLFixPack (http://andy.jgknet.de/blog/?page_id=288) git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@921 0c75b7a4-871f-7646-8a2f-f78d34cc349f
584 lines
16 KiB
Plaintext
584 lines
16 KiB
Plaintext
object srvUsuarios: TsrvUsuarios
|
|
OldCreateOrder = True
|
|
OnCreate = DataAbstractServiceCreate
|
|
ServiceSchema = schUsuarios
|
|
ServiceDataStreamer = Bin2DataStreamer
|
|
AllowExecuteSQL = True
|
|
AllowWhereSQL = True
|
|
ExportedDataTables = <>
|
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
|
Height = 300
|
|
Width = 300
|
|
object Diagrams: TDADiagrams
|
|
Left = 150
|
|
Top = 88
|
|
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
|
end
|
|
object DataDictionary: TDADataDictionary
|
|
Fields = <
|
|
item
|
|
Name = 'USUARIOS_ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_USUARIOS_ID'
|
|
Required = True
|
|
DisplayLabel = 'ID'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_USERNAME'
|
|
DataType = datString
|
|
Size = 30
|
|
DisplayLabel = 'Nombre'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_LOGIN'
|
|
DataType = datString
|
|
Size = 30
|
|
DisplayLabel = 'Login'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_PASS'
|
|
DataType = datString
|
|
Size = 250
|
|
DisplayLabel = 'Password'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_PASSEXPIRED'
|
|
DataType = datDateTime
|
|
DisplayLabel = 'Expiraci'#243'n de password'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_BLOQUEADO'
|
|
DataType = datSmallInt
|
|
DisplayLabel = 'Bloqueado'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_EMAIL'
|
|
DataType = datString
|
|
Size = 150
|
|
DisplayLabel = 'Correo electr'#243'nico'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_USERDAYSSUN'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'USUARIOS_PRIVILEGED'
|
|
DataType = datInteger
|
|
DisplayLabel = 'Privilegiado'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
DisplayLabel = 'Tipo'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_ID_PERFIL'
|
|
DataType = datInteger
|
|
DisplayLabel = 'ID_PERFIL'
|
|
end
|
|
item
|
|
Name = 'USUARIOS_CHECKSUM'
|
|
DataType = datString
|
|
Size = 250
|
|
DisplayLabel = 'Checksum'
|
|
end
|
|
item
|
|
Name = 'PERFILES_ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_USUARIOS_ID'
|
|
Required = True
|
|
DisplayLabel = 'ID'
|
|
end
|
|
item
|
|
Name = 'PERFILES_USERNAME'
|
|
DataType = datString
|
|
Size = 30
|
|
DisplayLabel = 'Nombre'
|
|
end
|
|
item
|
|
Name = 'PERFILES_LOGIN'
|
|
DataType = datString
|
|
Size = 30
|
|
DisplayLabel = 'Login'
|
|
end
|
|
item
|
|
Name = 'PERFILES_TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
DisplayLabel = 'Tipo'
|
|
end>
|
|
Left = 150
|
|
Top = 24
|
|
end
|
|
object schUsuarios: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
DataDictionary = DataDictionary
|
|
Diagrams = Diagrams
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'USUARIOS'
|
|
SQL =
|
|
'SELECT '#10' ID, USERNAME, LOGIN, PASS, PASSEXPIRED, BLOQUEADO,'#10' ' +
|
|
' EMAIL, USERDAYSSUN, PRIVILEGED, TIPO, ID_PERFIL, CHECKSUM'#10' F' +
|
|
'ROM'#10' USUARIOS'#10' WHERE TIPO = '#39'U'#39' AND {Where}'#10' ORDER BY USERN' +
|
|
'AME'#10
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'USERNAME'
|
|
TableField = 'USERNAME'
|
|
end
|
|
item
|
|
DatasetField = 'LOGIN'
|
|
TableField = 'LOGIN'
|
|
end
|
|
item
|
|
DatasetField = 'PASS'
|
|
TableField = 'PASS'
|
|
end
|
|
item
|
|
DatasetField = 'PASSEXPIRED'
|
|
TableField = 'PASSEXPIRED'
|
|
end
|
|
item
|
|
DatasetField = 'BLOQUEADO'
|
|
TableField = 'BLOQUEADO'
|
|
end
|
|
item
|
|
DatasetField = 'EMAIL'
|
|
TableField = 'EMAIL'
|
|
end
|
|
item
|
|
DatasetField = 'USERDAYSSUN'
|
|
TableField = 'USERDAYSSUN'
|
|
end
|
|
item
|
|
DatasetField = 'PRIVILEGED'
|
|
TableField = 'PRIVILEGED'
|
|
end
|
|
item
|
|
DatasetField = 'TIPO'
|
|
TableField = 'TIPO'
|
|
end
|
|
item
|
|
DatasetField = 'ID_PERFIL'
|
|
TableField = 'ID_PERFIL'
|
|
end
|
|
item
|
|
DatasetField = 'CHECKSUM'
|
|
TableField = 'CHECKSUM'
|
|
end>
|
|
end>
|
|
Name = 'USUARIOS'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_USUARIOS_ID'
|
|
DictionaryEntry = 'USUARIOS_ID'
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'USERNAME'
|
|
DataType = datString
|
|
Size = 30
|
|
DictionaryEntry = 'USUARIOS_USERNAME'
|
|
end
|
|
item
|
|
Name = 'LOGIN'
|
|
DataType = datString
|
|
Size = 30
|
|
DictionaryEntry = 'USUARIOS_LOGIN'
|
|
end
|
|
item
|
|
Name = 'PASS'
|
|
DataType = datString
|
|
Size = 250
|
|
DictionaryEntry = 'USUARIOS_PASS'
|
|
end
|
|
item
|
|
Name = 'PASSEXPIRED'
|
|
DataType = datDateTime
|
|
DictionaryEntry = 'USUARIOS_PASSEXPIRED'
|
|
end
|
|
item
|
|
Name = 'BLOQUEADO'
|
|
DataType = datSmallInt
|
|
DictionaryEntry = 'USUARIOS_BLOQUEADO'
|
|
end
|
|
item
|
|
Name = 'EMAIL'
|
|
DataType = datString
|
|
Size = 150
|
|
DictionaryEntry = 'USUARIOS_EMAIL'
|
|
end
|
|
item
|
|
Name = 'USERDAYSSUN'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'USUARIOS_USERDAYSSUN'
|
|
end
|
|
item
|
|
Name = 'PRIVILEGED'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'USUARIOS_PRIVILEGED'
|
|
end
|
|
item
|
|
Name = 'TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
DictionaryEntry = 'USUARIOS_TIPO'
|
|
end
|
|
item
|
|
Name = 'ID_PERFIL'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'USUARIOS_ID_PERFIL'
|
|
end
|
|
item
|
|
Name = 'CHECKSUM'
|
|
DataType = datString
|
|
Size = 250
|
|
DictionaryEntry = 'USUARIOS_CHECKSUM'
|
|
end>
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'USUARIOS_EVENTOS'
|
|
StatementType = stAutoSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'APLICACION'
|
|
TableField = 'APLICACION'
|
|
end
|
|
item
|
|
DatasetField = 'ID_USUARIO'
|
|
TableField = 'ID_USUARIO'
|
|
end
|
|
item
|
|
DatasetField = 'FECHA'
|
|
TableField = 'FECHA'
|
|
end
|
|
item
|
|
DatasetField = 'HORA'
|
|
TableField = 'HORA'
|
|
end
|
|
item
|
|
DatasetField = 'FORM'
|
|
TableField = 'FORM'
|
|
end
|
|
item
|
|
DatasetField = 'TITULO_FORM'
|
|
TableField = 'TITULO_FORM'
|
|
end
|
|
item
|
|
DatasetField = 'EVENTO'
|
|
TableField = 'EVENTO'
|
|
end
|
|
item
|
|
DatasetField = 'NOTAS'
|
|
TableField = 'NOTAS'
|
|
end
|
|
item
|
|
DatasetField = 'TNAME'
|
|
TableField = 'TNAME'
|
|
end>
|
|
end>
|
|
Name = 'USUARIOS_EVENTOS'
|
|
Fields = <
|
|
item
|
|
Name = 'APLICACION'
|
|
DataType = datString
|
|
Size = 250
|
|
end
|
|
item
|
|
Name = 'ID_USUARIO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'FECHA'
|
|
DataType = datString
|
|
Size = 10
|
|
end
|
|
item
|
|
Name = 'HORA'
|
|
DataType = datString
|
|
Size = 8
|
|
end
|
|
item
|
|
Name = 'FORM'
|
|
DataType = datString
|
|
Size = 250
|
|
end
|
|
item
|
|
Name = 'TITULO_FORM'
|
|
DataType = datString
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'EVENTO'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'NOTAS'
|
|
DataType = datMemo
|
|
end
|
|
item
|
|
Name = 'TNAME'
|
|
DataType = datString
|
|
Size = 20
|
|
end>
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'USUARIOS_LOGON'
|
|
StatementType = stAutoSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'LOGONID'
|
|
TableField = 'LOGONID'
|
|
end
|
|
item
|
|
DatasetField = 'ID_USUARIO'
|
|
TableField = 'ID_USUARIO'
|
|
end
|
|
item
|
|
DatasetField = 'APLICACION'
|
|
TableField = 'APLICACION'
|
|
end
|
|
item
|
|
DatasetField = 'EQUIPO'
|
|
TableField = 'EQUIPO'
|
|
end
|
|
item
|
|
DatasetField = 'DATA'
|
|
TableField = 'DATA'
|
|
end>
|
|
end>
|
|
Name = 'USUARIOS_LOGON'
|
|
Fields = <
|
|
item
|
|
Name = 'LOGONID'
|
|
DataType = datString
|
|
Size = 38
|
|
Required = True
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_USUARIO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'APLICACION'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'EQUIPO'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'DATA'
|
|
DataType = datString
|
|
Size = 14
|
|
end>
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'PERMISOS'
|
|
StatementType = stAutoSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID_USUARIO'
|
|
TableField = 'ID_USUARIO'
|
|
end
|
|
item
|
|
DatasetField = 'MODULO'
|
|
TableField = 'MODULO'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRECOMP'
|
|
TableField = 'NOMBRECOMP'
|
|
end
|
|
item
|
|
DatasetField = 'CHECKSUM'
|
|
TableField = 'CHECKSUM'
|
|
end>
|
|
end>
|
|
Name = 'PERMISOS'
|
|
Fields = <
|
|
item
|
|
Name = 'ID_USUARIO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'MODULO'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'NOMBRECOMP'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'CHECKSUM'
|
|
DataType = datString
|
|
Size = 250
|
|
end>
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'PERMISOSEX'
|
|
StatementType = stAutoSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID_USUARIO'
|
|
TableField = 'ID_USUARIO'
|
|
end
|
|
item
|
|
DatasetField = 'MODULO'
|
|
TableField = 'MODULO'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBRECOMP'
|
|
TableField = 'NOMBRECOMP'
|
|
end
|
|
item
|
|
DatasetField = 'NOMBREFORM'
|
|
TableField = 'NOMBREFORM'
|
|
end
|
|
item
|
|
DatasetField = 'CHECKSUM'
|
|
TableField = 'CHECKSUM'
|
|
end>
|
|
end>
|
|
Name = 'PERMISOSEX'
|
|
Fields = <
|
|
item
|
|
Name = 'ID_USUARIO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'MODULO'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'NOMBRECOMP'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'NOMBREFORM'
|
|
DataType = datString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'CHECKSUM'
|
|
DataType = datString
|
|
Size = 250
|
|
end>
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
TargetTable = 'USUARIOS'
|
|
SQL =
|
|
'SELECT '#10' ID, USERNAME, LOGIN, TIPO'#10' FROM'#10' USUARIOS'#10' WHER' +
|
|
'E TIPO = '#39'P'#39' AND {Where}'#10' ORDER BY USERNAME'#10
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'USERNAME'
|
|
TableField = 'USERNAME'
|
|
end
|
|
item
|
|
DatasetField = 'LOGIN'
|
|
TableField = 'LOGIN'
|
|
end
|
|
item
|
|
DatasetField = 'TIPO'
|
|
TableField = 'TIPO'
|
|
end>
|
|
end>
|
|
Name = 'PERFILES'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_USUARIOS_ID'
|
|
DictionaryEntry = 'PERFILES_ID'
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'USERNAME'
|
|
DataType = datString
|
|
Size = 30
|
|
DictionaryEntry = 'PERFILES_USERNAME'
|
|
end
|
|
item
|
|
Name = 'LOGIN'
|
|
DataType = datString
|
|
Size = 30
|
|
DictionaryEntry = 'PERFILES_LOGIN'
|
|
end
|
|
item
|
|
Name = 'TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
DictionaryEntry = 'PERFILES_TIPO'
|
|
end>
|
|
end>
|
|
JoinDataTables = <>
|
|
UnionDataTables = <>
|
|
Commands = <>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 48
|
|
Top = 24
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 48
|
|
Top = 88
|
|
end
|
|
end
|