ulista_doc.pas

基于OOP设计的一套较好的ERP系统

unit ULista_doc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Mask, DB;

type
  TLista_doc_form = class(TForm)
    Panel1: TPanel;
    DBNavigator: TDBNavigator;
    Chiudi_but: TButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBComboBox1: TDBComboBox;
    Applica: TButton;
    Elimina: TButton;
    Filtro: TEdit;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    procedure Chiudi_butClick(Sender: TObject);
    procedure EliminaClick(Sender: TObject);
    procedure ApplicaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Lista_doc_form: TLista_doc_form;

implementation

uses Doc_mod;

{$R *.DFM}

procedure TLista_doc_form.Chiudi_butClick(Sender: TObject);
Var
   Marcatore : Tbookmark ;

begin
     If ModulodatiDocumenti.TTTestata.filtered then
        If MessageDlg('Eliminare il filtro attivo ?',mtconfirmation,[mbYes,mbNo],0) = mrYes then
           begin
            Marcatore := ModuloDatiDocumenti.TTTestata.getBookmark ;
            ModuloDatiDocumenti.TTTestata.Filter := '' ;
            ModuloDatiDocumenti.TTTestata.Filtered := false ;
            ModuloDatiDocumenti.TTTestata.GotoBookmark(Marcatore) ;
            //ModuloDatiDocumenti.TTTestata.FreeBookmark(Marcatore) ;
           end ;
     release ;
end;

procedure TLista_doc_form.EliminaClick(Sender: TObject);
begin
     With ModuloDatiDocumenti do
      begin
       TTTestata.Filter := '' ;
       TTTestata.Filtered := false ;
      end ;
end;

procedure TLista_doc_form.ApplicaClick(Sender: TObject);
begin
     Filtro.Text := '' ;
     If Filtro.Text = ''  then
       With ModuloDatiDocumenti do
        begin
         TTTestata.Filter := '' ;
         If TTFiltroDocTipo.AsString <> '' then
           Filtro.Text := 'Tipo = ''' + TTFiltroDocTipo.AsString + '''' ;
         If TTFiltroDocSoggetto.AsString <> '' then
          begin
           If Filtro.Text <> '' then
              Filtro.Text := Filtro.Text + ' and ' ;
           Filtro.Text := Filtro.Text + 'Soggetto = ''' + TTFiltroDocSoggetto.AsString + '''' ;
          end ;
         If TTFiltroDocDaData.AsString <> '' then
          begin
           If Filtro.Text <> '' then
              Filtro.Text := Filtro.Text + ' and ' ;
           Filtro.Text := Filtro.Text + 'Data >= ''' + TTFiltroDocDaData.AsString + '''' ;
          end ;
         If TTFiltroDocAData.AsString <> '' then
          begin
           If Filtro.Text <> '' then
              Filtro.Text := Filtro.Text + ' and ' ;
           Filtro.Text := Filtro.Text + 'Data <= ''' + TTFiltroDocAData.AsString + '''' ;
          end ;
         If TTFiltroDocValuta.AsString <> '' then
          begin
           If Filtro.Text <> '' then
              Filtro.Text := Filtro.Text + ' and ' ;
           Filtro.Text := Filtro.Text + 'Valuta = ''' + TTFiltroDocValuta.AsString + '''' ;
          end ;
     end ;
     Filtro.Refresh  ;
     With ModuloDatiDocumenti do
      begin
       TTTestata.Filtered := false ;
       Try
          TTTestata.Filter := Filtro.Text ;
          TTTestata.Filtered := true  ;
       except
             ShowMessage('Il filtro non