object DataModule1: TDataModule1
OldCreateOrder = False
Left = 241
Top = 113
Height = 300
Width = 435
object Session1: TSession
Active = True
SessionName = 's1'
Left = 88
Top = 56
end
object Database1: TDatabase
AliasName = 'inversor'
Connected = True
DatabaseName = 'inversor'
LoginPrompt = False
Params.Strings = (
'USER NAME=inversor'
'PASSWORD=i')
SessionName = 's1'
Left = 144
Top = 64
end
object Table1: TTable
DatabaseName = 'inversor'
SessionName = 's1'
FieldDefs = <
item
Name = 'POTENCIA'
DataType = ftFloat
end
item
Name = 'TENSION_DE_PANEL'
DataType = ftFloat
end
item
Name = 'INTENSIDAD_DE_PANEL'
DataType = ftFloat
end
item
Name = 'TENSION_DE_RED'
DataType = ftFloat
end
item
Name = 'INTENSIDAD_DE_BOBINA'
DataType = ftFloat
end
item
Name = 'FECHA_Y_HORA'
DataType = ftDateTime
end
item
Name = 'NUMERO'
DataType = ftSmallint
end>
StoreDefs = True
TableName = 'TABLA1'
Left = 96
Top = 136
object Table1POTENCIA: TFloatField
FieldName = 'POTENCIA'
end
object Table1TENSION_DE_PANEL: TFloatField
FieldName = 'TENSION_DE_PANEL'
end
object Table1INTENSIDAD_DE_PANEL: TFloatField
FieldName = 'INTENSIDAD_DE_PANEL'
end
object Table1TENSION_DE_RED: TFloatField
FieldName = 'TENSION_DE_RED'
end
object Table1INTENSIDAD_DE_BOBINA: TFloatField
FieldName = 'INTENSIDAD_DE_BOBINA'
end
object Table1FECHA_Y_HORA: TDateTimeField
FieldName = 'FECHA_Y_HORA'
end
object Table1NUMERO: TSmallintField
FieldName = 'NUMERO'
end
end
object StoredProc1: TStoredProc
DatabaseName = 'inversor'
SessionName = 's1'
StoredProcName = 'ACTVARINV'
Left = 32
Top = 120
ParamData = <
item
DataType = ftSmallint
Name = 'NUM'
ParamType = ptInput
end
item
DataType = ftFloat
Name = 'TENPAN'
ParamType = ptInput
end
item
DataType = ftFloat
Name = 'INTPAN'
ParamType = ptInput
end
item
DataType = ftFloat
Name = 'TENRED'
ParamType = ptInput
end
item
DataType = ftFloat
Name = 'INTBOB'
ParamType = ptInput
end>
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
