u_doc_esistenti.pas

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

unit u_doc_esistenti;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, DBTables, ActnList;

type
  TDoc_esistenti = class(TForm)
    QDoc_Evasi: TQuery;
    QDoc_Non_Evasi: TQuery;
    Q_Doc_Annullati: TQuery;
    Q_non_evasi: TQuery;
    DsNon_Evasi: TDataSource;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DsDoc_Evasi: TDataSource;
    DsDoc_non_evasi: TDataSource;
    DsDoc_annullati: TDataSource;
    Label4: TLabel;
    ActionList1: TActionList;
    Apri_non_evaso: TAction;
    Chiudi: TAction;
    Button1: TButton;
    Button2: TButton;
    Q_non_evasitipo: TStringField;
    Q_non_evasicausale: TStringField;
    Q_non_evasidata: TDateField;
    Q_non_evasinumero: TIntegerField;
    Q_non_evasidocumento: TIntegerField;
    Q_non_evasitotalel: TCurrencyField;
    Q_non_evasitotalee: TCurrencyField;
    Q_non_evasiProvvigione: TStringField;
    Q_non_evasiParzialeprovvigione: TFloatField;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    DsSoggetti_Ricerca: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ChiudiExecute(Sender: TObject);
    procedure Apri_non_evasoExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Doc_esistenti: TDoc_esistenti;

implementation

uses doc_wiz_u, Doc_mod, Umenu;

{$R *.DFM}

procedure TDoc_esistenti.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     release ;
end;

procedure TDoc_esistenti.ChiudiExecute(Sender: TObject);
begin
     close ;
end;

procedure TDoc_esistenti.Apri_non_evasoExecute(Sender: TObject);
begin
     if Q_non_evasiDocumento.AsString = ModuloDatiDocumenti.TTTestataDocumento.AsString then
       begin
         close ;
       end
     else
       begin
         if Q_non_evasi.isEmpty then
          exit ;
         Doc_wiz_form.annulla.Execute ;
         If ModuloDatiDocumenti.TTTestata.Locate('Documento',Q_non_evasiDocumento.AsString,[locaseinsensitive]) then
           Menu_form.scorri_documenti.Execute
         else
            ShowMessage('Documento non disponibile.') ;
       end ;
end;

end.