unit datos;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ExtCtrls,
  Vcl.Grids, Vcl.DBGrids, Data.DB, ZAbstractRODataset, ZAbstractDataset,
  ZDataset, Vcl.Tabs, Vcl.ComCtrls, Vcl.Mask, Vcl.DBCtrls, ZAbstractConnection,
  ZConnection, ZAbstractTable, Vcl.ExtDlgs, Vcl.Imaging.jpeg, frxClass, frxDBSet,
  frxExportPDF, frxBarcode, Vcl.Buttons, VCLTee.TeEngine, VCLTee.Series,
  VCLTee.TeeData, VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart,ShellApi,
  Vcl.OleCtrls,IdHTTP,mshtml, SHDocVw, Vcl.DBLookup,  VSPDF8Lib_TLB, AcroPDFLib_TLB, Vcl.ToolWin, Vcl.ImgList,BDE,dateutils,
  Excel_TLB, Vcl.OleServer,  ComObj, Excel2000, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdMessageClient, IdSMTPBase, IdSMTP, Data.Win.ADODB;


type
  Tdm = class(TDataModule)
    DBproduccgest: TZConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   function PedirConfirmacion(mensaje:string; si,no,cancelar:boolean):integer;
  end;

var
  dm: Tdm;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}
uses principal, fconfirmar;
{$R *.dfm}

function TDM.PedirConfirmacion(mensaje:string; si,no,cancelar:boolean):integer;
begin
    confirmar:=tconfirmar.create(nil);
    with confirmar do
    begin
        LMensaje.caption:=mensaje;
        bsi.visible:=si;
        bno.visible:=no;
        bcancelar.visible:=cancelar;
    end;
    result:=Confirmar.Showmodal;
    confirmar.free;
end;

procedure Tdm.DataModuleCreate(Sender: TObject);
var F: TextFile;
    sLinea,thost,tuser,tpass: String;
    hora1,hora2,hora3:ttime;
    configuracion:array of string;
    linea,x:integer;
begin
  inherited;
  AssignFile( F, ExtractFilePath( Application.ExeName ) + 'config.ini' );
  Reset( F );
  linea:=1;
  setlength (configuracion,5);
  for x:=1 to 4 do
  begin
    ReadLn( F, sLinea );
    configuracion[linea]:=sLinea;
    linea:=linea+1;
  end;

  CloseFile( F );
    thost:=configuracion[1];
    tuser:=configuracion[2];
    tpass:=configuracion[3];
    tlimitado:=configuracion[4];
    DM.DBproduccgest.Connected:=false;
    DM.DBproduccgest.HostName:=thost;
    DM.DBproduccgest.User:=tuser;
    DM.DBproduccgest.Password:=tpass;
    DM.DBproduccgest.connected:=true;
end;

end.