unit UControlVentas;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TCControlVentas = class(TDataModule)
private
ADOConnection1: TADOConnection;
public
constructor Create();
property ADOConection: TADOConnection read ADOConnection1 write ADOConnection1;
end;
var
CControlVentas: TCControlVentas;
implementation
{$R *.DFM}
constructor TCControlVentas.Create;
begin
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hangup;Data Source=localhost';
ADOConnection1.LoginPrompt :=false;
ADOConnection1.Connected := true;
end;
end.