u_ana_area.pas

Mosaic ERP大型系统 v6.09.rar

unit u_ana_area;

interface

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

type
  Tana_area = class(TForm)
    Pagine: TPageControl;
    Generale: TTabSheet;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBLookupComboBox4: TDBLookupComboBox;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    DBNavigator3: TDBNavigator;
    TabSheet1: TTabSheet;
    DBNavigator2: TDBNavigator;
    DBGridEh1: TDBGridEh;
    TabSheet2: TTabSheet;
    DBNavigator4: TDBNavigator;
    DBGridEh2: TDBGridEh;
    Button2: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Chiudi: TButton;
    ActionList1: TActionList;
    RicercaArticolo: TAction;
    Table1: TTable;
    DBGrid2: TDBGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    DBEdit4: TDBEdit;
    Label2: TLabel;
    DBEdit5: TDBEdit;
    procedure ChiudiClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RicercaArticoloExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ana_area: Tana_area;

implementation

uses ana_mod, rica_art_u_fornit;

{$R *.DFM}

procedure Tana_area.ChiudiClick(Sender: TObject);
begin
     close ;
end;

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

procedure Tana_area.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
     begin
          ModuloDatiAnagrafiche.TTArticoli.FindKey([Ricerca_Articoli.Articolo]) ;
       if (ModuloDatiAnagrafiche.TTArea_Prov_art.State <> dsEdit) and (ModuloDatiAnagrafiche.TTArea_Prov_art.State <> dsInsert) then
         ModuloDatiAnagrafiche.TTArea_Prov_art.Edit ;
       ModuloDatiAnagrafiche.TTArea_Prov_artArticolo.AsString := ModuloDatiAnagrafiche.TTArticoliArticolo.AsString ;
     end ;
   Ricerca_Articoli.Close ;
end;

end.