david
eac19a8f43
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@5 970f2627-a9d2-4748-b3d4-b5283c4fe7db
38 lines
770 B
ObjectPascal
38 lines
770 B
ObjectPascal
unit DataM_U;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, ADODB, UCBase;
|
|
|
|
type
|
|
TDataModule1 = class(TDataModule)
|
|
ADOTable1: TADOTable;
|
|
DataSource1: TDataSource;
|
|
UCControls1: TUCControls;
|
|
ADOTable1UCIdUser: TIntegerField;
|
|
ADOTable1UCUserName: TWideStringField;
|
|
ADOTable1UCLogin: TWideStringField;
|
|
ADOTable1UCPassword: TWideStringField;
|
|
ADOTable1UCEmail: TWideStringField;
|
|
ADOTable1UCPrivileged: TIntegerField;
|
|
ADOTable1UCTypeRec: TWideStringField;
|
|
ADOTable1UCProfile: TIntegerField;
|
|
ADOTable1UCKey: TWideStringField;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DataModule1: TDataModule1;
|
|
|
|
implementation
|
|
|
|
uses ucontrols;
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|