ana_causali_u.pas

Mosaic ERP大型系统 v6.09.rar

unit ana_causali_u;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Dialogs,
  StdCtrls, Forms, DBCtrls, DB, DBGrids, Grids, Mask, ExtCtrls, Buttons,
  ActnList;

type
  TAna_causali_form = class(TForm)
    ScrollBox: TScrollBox;
    Label1: TLabel;
    EditCodice: TDBEdit;
    Label2: TLabel;
    EditDescrizione: TDBEdit;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Chiudi_but: TButton;
    DBGrid1: TDBGrid;
    DBRadioGroup1: TDBRadioGroup;
    DBRadioGroup2: TDBRadioGroup;
    DBCheckBox1: TDBCheckBox;
    DBRadioGroup3: TDBRadioGroup;
    ActionList1: TActionList;
    CercaTutto: TAction;
    elenco: TAction;
    DBNavigator1: TDBNavigator;
    DBRadioGroup4: TDBRadioGroup;
    procedure Chiudi_butClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure CercaTuttoExecute(Sender: TObject);
    procedure elencoExecute(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Ana_causali_form: TAna_causali_form;

implementation

uses ana_mod, Umenu, ricerca_u, Ucerca, Uelenco;

{$R *.DFM}

procedure TAna_causali_form.Chiudi_butClick(Sender: TObject);
begin
     If (EditCodice.DataSource.DataSet.State = dsEdit) or
        (EditCodice.DataSource.DataSet.State = dsInsert) then
        if MessageDlg('Attenzione, salvare le modifiche ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
           EditCodice.DataSource.DataSet.Post ;
     release ;
end;

procedure TAna_causali_form.DBGrid1DblClick(Sender: TObject);
begin
     With lookup_form do
          begin
               anagrafica_but.Action := Menu_form.Tipidoc ;
               griglia.datasource := moduloDatiAnagrafiche.DSTipidoc ;
               If showModal = mrOk then
                  begin
                       moduloDatiAnagrafiche.TTCaudoc.Edit ;
                       moduloDatiAnagrafiche.TTCaudocTipodocumento.value := moduloDatiAnagrafiche.TTTipidocCodice.value ;
                  end ;

          end ;
end;

procedure TAna_causali_form.CercaTuttoExecute(Sender: TObject);
begin
     Cerca_form.Trova(self) ;
end;

procedure TAna_causali_form.elencoExecute(Sender: TObject);
begin
     elenco_form.MostraElenco(self) ;
end;

end.