ana_catmer_dett_u.pas

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

unit ana_catmer_dett_u;

interface

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

type
  TAna_catmer_dett_form = class(Tana_catmer_form)
    Panel3: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label3: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    DBLookupComboBox3: TDBLookupComboBox;
    Label6: TLabel;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBEdit3: TDBEdit;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    Aiuto: TAction;
    Label5: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    procedure DBNavigatorBeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure AiutoExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ana_catmer_dett_form: TAna_catmer_dett_form;

implementation

uses ana_mod, Umenu;

{$R *.DFM}

procedure TAna_catmer_dett_form.DBNavigatorBeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  inherited;
 If Button = nbInsert then dbedit1.setfocus ;

end;

procedure TAna_catmer_dett_form.AiutoExecute(Sender: TObject);
begin
  inherited;
  menu_form.Aiuto('manuale.pdf',65) ;
end;

end.