ana_dep_u.pas

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

unit ana_dep_u;

interface

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

type
  TAna_dep_form = class(TForm)
    ScrollBox: TScrollBox;
    Label1: TLabel;
    EditDeposito: TDBEdit;
    Label2: TLabel;
    EditDenominazione: TDBEdit;
    Label3: TLabel;
    EditIndirizzo: TDBEdit;
    Label4: TLabel;
    EditLocalita: TDBEdit;
    Label5: TLabel;
    EditCap: TDBEdit;
    Label6: TLabel;
    EditProvincia: TDBEdit;
    Label7: TLabel;
    EditStato: TDBEdit;
    Label9: TLabel;
    EditRiferimento: TDBEdit;
    Label10: TLabel;
    EditTelefono: TDBEdit;
    Label11: TLabel;
    EditFax: TDBEdit;
    Label12: TLabel;
    EditDati: TDBEdit;
    Label13: TLabel;
    EditEmail: TDBEdit;
    Label14: TLabel;
    EditUrl: TDBEdit;
    Label15: TLabel;
    EditHost: TDBEdit;
    Label16: TLabel;
    EditLogin: TDBEdit;
    Label17: TLabel;
    EditPassword: TDBEdit;
    Label18: TLabel;
    EditOradichiamata: TDBEdit;
    Label19: TLabel;
    EditTentativi: TDBEdit;
    Label21: TLabel;
    EditNote: TDBEdit;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    Panel2: TPanel;
    Griglia: TDBGrid;
    Chiudi_but: TButton;
    CheckBoxGiacenza: TDBCheckBox;
    DBCheckBox1: TDBCheckBox;
    Label8: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    ActionList1: TActionList;
    Aiuto: TAction;
    DBCheckBox2: TDBCheckBox;
    procedure Chiudi_butClick(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Ana_dep_form: TAna_dep_form;

implementation

uses ana_mod, Umenu, aboutOS;

{$R *.DFM}

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

procedure TAna_dep_form.AiutoExecute(Sender: TObject);
begin
     menu_form.Aiuto('manuale.pdf',90) ;
end;

procedure TAna_dep_form.FormCreate(Sender: TObject);
begin
(*
     If AboutBox.TestVersion('A') or AboutBox.TestVersion('P') then
       DbNavigator.VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]
     else
       DbNavigator.VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbEdit,nbPost,nbCancel] ;
       *)
end;

end.