seleziona_documenti_u.pas

一套来自国外的ERP系统,有兴趣的朋友可以看看!

unit seleziona_Documenti_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActnList, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Grids, DBGridEh;

type
  TSeleziona_doc_form = class(TForm)
    ToolBar1: TToolBar;
    ActionList1: TActionList;
    Prosegui: TAction;
    Annulla: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    dal: TDateTimePicker;
    al: TDateTimePicker;
    Selezione_tipo: TComboBox;
    Label3: TLabel;
    Pagine: TPageControl;
    Documenti: TTabSheet;
    Varianti: TTabSheet;
    DBGridEh1: TDBGridEh;
    DBGridEh3: TDBGridEh;
    Splitter1: TSplitter;
    DBGridEh2: TDBGridEh;
    procedure FormCreate(Sender: TObject);
    procedure Selezione_tipoChange(Sender: TObject);
    procedure ProseguiExecute(Sender: TObject);
    procedure AnnullaExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Seleziona_doc_form: TSeleziona_doc_form;

implementation

uses Umenu, ana_mod, Doc_mod,dbtables;

{$R *.DFM}

procedure TSeleziona_doc_form.FormCreate(Sender: TObject);
Var
   TTDoc : TTable ;

begin
     TTdoc := TTable.Create(self) ;
     TTdoc.DatabaseName := 'euro2000' ;
     TTdoc.TableName := 'tipidoc.db' ;
     TTdoc.open ;
     TTdoc.First ;
     While Not TTdoc.eof do
      begin
       Selezione_tipo.items.add(TTdoc.FieldByName('Descrizione').asString) ;
       TTdoc.Next ;
      end ;
     TTdoc.Close ;
     TTdoc.Free ;
     Dal.Date := Now() - 60 ;
     Al.DateTime := Now() + 10 ;
     Selezione_tipo.Text := 'Tutti i tipi' ;
     Pagine.ActivePage := Documenti ;
end;

procedure TSeleziona_doc_form.Selezione_tipoChange(Sender: TObject);
Var
   Tipodocvar : String ;

begin
     If Selezione_tipo.Text <> 'Tutti i tipi' then
       TipoDocvar := Selezione_tipo.text
     else
       TipoDocvar := '' ;
     With ModuloDatiDocumenti do
      begin
       TTConvDoc.Filter := 'Data >= '''+DateToStr(Dal.date) + '''' +
                           ' and Data <= ''' + DateToStr(al.Date) + '''' ;
       If TipoDocvar <> '' then
        TTConvDoc.Filter := TTconvDoc.Filter + ' and Descrizione = ''' + TipoDocvar +'''' ;
       TTConvDoc.Filtered := True ;
      end ;
end;

procedure TSeleziona_doc_form.ProseguiExecute(Sender: TObject);
begin
     ModalResult := mrOk
end;

procedure TSeleziona_doc_form.AnnullaExecute(Sender: TObject);
begin
     modalResult := mrCancel ;
end;

end.