program ContaSys;
uses
Forms,
UFMain in 'UFMain.pas' ,
Acercade in 'Acercade.pas' ,
UFLogin in 'UFLogin.pas' ,
UMySQL in 'UMySQL.pas',
IniFiles,
SysUtils,
UDMContaSys in 'UDMContaSys.pas' ,
UFCompras_Gastos in 'UFCompras_Gastos.pas' ,
FindProv in 'FindProv.pas' ;
{$R *.res}
begin
if TFLogin.Execute then
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'ContaSys 1.0.1';
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TFComprasGtos, FComprasGtos);
with tinifile.create (changefileext(paramstr(0),'.ini')) do
with DataModule1 do
begin
Connect.Catalog := ReadString('Acceso a BD','Base datos','');
Connect.Database := ReadString('Acceso a BD','Base datos','');
Connect.HostName := ReadString('Acceso a BD','Servidor','');
Connect.LoginPrompt:= False;
Connect.User := ReadString('Acceso a BD','Usuario','');
Connect.Password := 'hecafox';
Connect.Protocol := ReadString('Acceso a BD','Proveedor','');
Connect.Port := ReadInteger('Acceso a BD','Puerto',0);
Connect.Connected := True;
end;
Application.Run;
end
else
begin
Application.MessageBox('No tiene Autorización a entrar a la Aplicación.', 'Advertencia');
end;
end.