u_provvigioni_gruppi.pas

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

unit u_provvigioni_gruppi;

interface

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

type
  TProvvigioni_Gruppi = class(TForm)
    Pagine: TPageControl;
    Generale: TTabSheet;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBLookupComboBox4: TDBLookupComboBox;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    DBNavigator3: TDBNavigator;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    TabSheet1: TTabSheet;
    DBNavigator1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    TabSheet2: TTabSheet;
    DBNavigator2: TDBNavigator;
    DBGridEh2: TDBGridEh;
    Button2: TButton;
    Panel2: TPanel;
    Button1: TButton;
    ActionList1: TActionList;
    RicercaArticoli: TAction;
    procedure RicercaArticoliExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Provvigioni_Gruppi: TProvvigioni_Gruppi;

implementation

uses ana_mod, rica_art_u_fornit;

{$R *.DFM}

procedure TProvvigioni_Gruppi.RicercaArticoliExecute(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.TTGru_Prov_art.State <> dsEdit) and (ModuloDatiAnagrafiche.TTGru_Prov_art.State <> dsInsert) then
     ModuloDatiAnagrafiche.TTGru_Prov_art.Edit ;
   ModuloDatiAnagrafiche.TTGru_Prov_artArticolo.AsString := ModuloDatiAnagrafiche.TTArticoliArticolo.AsString ;

end;

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

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

end.