u_ana_provvigioni.pas

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

unit u_ana_provvigioni;

interface

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

type
  TAna_provvigioni = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    Panel2: TPanel;
    Button1: TButton;
    Pagine: TPageControl;
    Generale: TTabSheet;
    TabSheet1: TTabSheet;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBLookupComboBox4: TDBLookupComboBox;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    DBNavigator3: TDBNavigator;
    DBNavigator1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    TabSheet2: TTabSheet;
    DBNavigator2: TDBNavigator;
    DBGridEh2: TDBGridEh;
    Button2: TButton;
    ActionList1: TActionList;
    RicercaArticolo: TAction;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    TabSheet3: TTabSheet;
    DBGridEh3: TDBGridEh;
    Button3: TButton;
    DBNavigator4: TDBNavigator;
    RicercaArticoloPremio: TAction;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure RicercaArticoloExecute(Sender: TObject);
    procedure RicercaArticoloPremioExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ana_provvigioni: TAna_provvigioni;

implementation

uses ana_mod, rica_art_u_fornit;

{$R *.DFM}

procedure TAna_provvigioni.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     if (ModuloDatiAnagrafiche.TTAg_doc.State = dsEdit) or (ModuloDatiAnagrafiche.TTAg_doc.State = dsInsert) or
        (ModuloDatiAnagrafiche.TTAg_provvigioni.State = dsEdit) or (ModuloDatiAnagrafiche.TTAg_provvigioni.State = dsInsert) then
       begin
           showmessage('Attenzione: I dati non sono stati salvati !') ;
           abort ;
       end ;
     release ;
end;

procedure TAna_provvigioni.Button1Click(Sender: TObject);
begin
     close ;
end;

procedure TAna_provvigioni.RicercaArticoloExecute(Sender: TObject);
begin
   Ricerca_articoli.GrigliaArticoli.Options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,{dgRowSelect,}dgConfirmDelete,dgCancelOnExit] ;
   Ricerca_Articoli.showModal ;
   If Ricerca_Articoli.ModalResult = mrOk then
      ModuloDatiAnagrafiche.TTArticoli.FindKey([Ricerca_Articoli.Articolo]) ;
   Ricerca_Articoli.Close ;
   if (ModuloDatiAnagrafiche.TTAg_Prov_art.State <> dsEdit) and (ModuloDatiAnagrafiche.TTAg_Prov_art.State <> dsInsert) then
     ModuloDatiAnagrafiche.TTAg_Prov_art.Edit ;
   ModuloDatiAnagrafiche.TTAg_Prov_artArticolo.AsString := ModuloDatiAnagrafiche.TTArticoliArticolo.AsString ;

end;

procedure TAna_provvigioni.RicercaArticoloPremioExecute(Sender: TObject);
begin
   Ricerca_articoli.GrigliaArticoli.Options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,{dgRowSelect,}dgConfirmDelete,dgCancelOnExit] ;
   Ricerca_Articoli.showModal ;
   If Ricerca_Articoli.ModalResult = mrOk then
      ModuloDatiAnagrafiche.TTArticoli.FindKey([Ricerca_Articoli.Articolo]) ;
   Ricerca_Articoli.Close ;
   if (ModuloDatiAnagrafiche.TTAg_Premio.State <> dsEdit) and (ModuloDatiAnagrafiche.TTAg_Premio.State <> dsInsert) then
     ModuloDatiAnagrafiche.TTAg_Premio.Edit ;
   ModuloDatiAnagrafiche.TTAg_PremioArticolo.AsString := ModuloDatiAnagrafiche.TTArticoliArticolo.AsString ;
end;

end.