mirror of
https://github.com/mrfluffy-dev/Delphi-Projects.git
synced 2026-01-17 05:40:33 +00:00
28 lines
365 B
ObjectPascal
28 lines
365 B
ObjectPascal
unit Login_u;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
|
|
|
|
type
|
|
TDataUser = class(TDataModule)
|
|
dtaUsers: TDataSource;
|
|
adoUser: TADOQuery;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DataUser: TDataUser;
|
|
|
|
implementation
|
|
|
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|