V-0.4

V-0.4/Login_u.pas

@@ -0,0 +1,27 @@
+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.