Ver Mensaje Individual
  #20  
Antiguo 03-12-2008
Avatar de Anyu
Anyu Anyu is offline
Miembro
 
Registrado: jun 2008
Posts: 30
Reputación: 0
Anyu Va por buen camino
este es mi codigo, la unica ventana que tengo:

Código Delphi [-]
unit chequera;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, rpcompobase, rpclxreport, Mask;

type
  Tf_chequera = class(TForm)
    TITULO: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    contrato: TEdit;
    codigo: TEdit;
    cuota: TEdit;
    titular: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    new: TBitBtn;
    print: TBitBtn;
    Shape1: TShape;
    report: TCLXReport;
    mes: TMaskEdit;
    exit: TBitBtn;
    procedure newClick(Sender: TObject);
    procedure printClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_chequera: Tf_chequera;

implementation

{$R *.dfm}

procedure Tf_chequera.newClick(Sender: TObject);
begin
mes.Enabled:=true;
mes.Text:=DateToStr(now);
codigo.Enabled:=true;
codigo.Text:='0';
contrato.Enabled:=true;
contrato.Text:='0';
cuota.Enabled:=true;
cuota.Text:='0';
titular.Enabled:=true;
titular.Text:='';
Edit1.Enabled:=true;
Edit1.Text:='0';
Edit2.Enabled:=true;
Edit2.Text:='0';
Edit3.Enabled:=true;
Edit3.Text:='0';
Edit4.Enabled:=true;
Edit4.Text:='0';
print.Enabled:=true;
end;

procedure Tf_chequera.printClick(Sender: TObject);
var cont: Integer;
begin
mes.Enabled:=false;
codigo.Enabled:=false;
contrato.Enabled:=false;
cuota.Enabled:=false;
titular.Enabled:=false;
Edit1.Enabled:=false;
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
print.Enabled:=false;
try
report.Report.Params[0].Value:= titular.Text;
report.Report.Params[1].Value:= StrToInt(cuota.Text);
report.Report.Params[2].Value:= contrato.Text;
report.Report.Params[3].Value:= StrToInt(codigo.Text);
report.Report.Params[4].Value:=StrToDate(mes.Text);
report.Report.Params[5].Value:=StrToInt(Edit1.Text);
report.Report.Params[6].Value:=StrToInt(Edit2.Text);
report.Report.Params[7].Value:=StrToInt(Edit3.Text);
report.Report.Params[8].Value:=StrToInt(Edit4.Text);
report.Execute;
except
 with Application do
  begin
    NormalizeTopMosts;
    MessageBox('Verifique que los parámetros pasados sean los correctos', 'Atención', MB_OK);
    RestoreTopMosts;
  end;
end;
end;

procedure Tf_chequera.exitClick(Sender: TObject);
begin
Close;
end;

procedure Tf_chequera.FormCreate(Sender: TObject);
begin
mes.Text:=DateToStr(now);
end;

end.


como veras no uso ningun componente que tenga una Q en frente, sera que no hay algun paquete que deba llevar a instalar en la maquina del cliente?
Responder Con Cita