unid_principal.pas

System for issue quitter of rental immobile.

unit Unid_Principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ActnList, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,
  DB, DBClient, Math;

type
  TForm_Principal = class(TForm)
    ACL_Principal: TActionList;
    IMG_Principal: TImageList;
    ACT_Novo: TAction;
    ACT_Excluir: TAction;
    ACT_Duplicar: TAction;
    ACT_Localizar: TAction;
    ACT_Imprimir: TAction;
    ACT_Sair: TAction;
    BIT_Novo: TBitBtn;
    BIT_Excluir: TBitBtn;
    BIT_Alterar: TBitBtn;
    BIT_Localizar: TBitBtn;
    BIT_Imprimir: TBitBtn;
    BIT_Sair: TBitBtn;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    DSC_Recibo: TDataSource;
    DBGrid1: TDBGrid;
    procedure ACT_NovoExecute(Sender: TObject);
    procedure ACT_ExcluirExecute(Sender: TObject);
    procedure ACT_DuplicarExecute(Sender: TObject);
    procedure ACT_LocalizarExecute(Sender: TObject);
    procedure ACT_ImprimirExecute(Sender: TObject);
    procedure ACT_SairExecute(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
   Form_Principal: TForm_Principal;

implementation

uses Unid_Dados, Unid_Novo_Recibo, Unid_Impressao, Unid_Sobre;

{$R *.dfm}

procedure TForm_Principal.ACT_NovoExecute(Sender: TObject);
begin
   //Novo
   with TForm_Novo_Recibo.Create(Nil) do
   try
      Tag := 1;
      ShowModal;
   finally
      Free;
   end;
end;

procedure TForm_Principal.ACT_ExcluirExecute(Sender: TObject);
begin
   //Excluir
   if MessageBox (Handle, 'Confirma a exclus鉶 deste Recibo?',
      'Excluir Recibo', mb_OkCancel + mb_IconQuestion) = IDOK then begin
      Form_Dados.CDS_Recibo.Delete;
   end;
end;

procedure TForm_Principal.ACT_DuplicarExecute(Sender: TObject);
begin
   //Duplicar
   with TForm_Novo_Recibo.Create(Nil) do
   try
      Tag := 2;
      ShowModal;
   finally
      Free;
   end;
end;

procedure TForm_Principal.ACT_LocalizarExecute(Sender: TObject);
begin
   //Localizar
end;

procedure TForm_Principal.ACT_ImprimirExecute(Sender: TObject);
begin
   //Imprimir
   with TForm_Impressao.Create(Nil) do
   try
      Tag := 1;
      ShowModal;
   finally
      Free;
   end;
end;

procedure TForm_Principal.ACT_SairExecute(Sender: TObject);
begin
   with TForm_Sobre.Create(Nil) do
   try
      ShowModal;
   finally
      Free;
   end;
   Form_Dados.CDS_Recibo.SaveToFile('.\RECIBO.XML', dfXML);
   Form_Dados.CDS_Recibo.Close;
   Application.Terminate;
end;

procedure TForm_Principal.DBGrid1TitleClick(Column: TColumn);
begin
   //Seleciona Indice.
   Form_Dados.CDS_Recibo.IndexFieldNames := Column.FieldName;
   if Column.FieldName = 'LOC_NOME' then begin
      Form_Dados.CDS_Recibo.IndexFieldNames := 'LOC_NOME; REC_NUM';
   end;
end;

end.