u_main.pas

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

unit u_main;

interface

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

type
  TMain = class(TForm)
    TTAziende: TTable;
    DSAziende: TDataSource;
    TTAziendeDenominazione: TStringField;
    Label1: TLabel;
    TTAziendePath: TStringField;
    Nuova: TButton;
    Elimina: TButton;
    Duplica: TButton;
    Verifica: TButton;
    StatusBar: TStatusBar;
    Db1: TDatabase;
    EseguiApp: TAppExec;
    Button1: TButton;
    Zippatore: TZipMaster;
    Backup_file_Name: TSaveDialog;
    DBEdit1: TDBEdit;
    Importa: TButton;
    Collega: TButton;
    TTAziendePathNetfile: TStringField;
    DBEdit2: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Usa: TBitBtn;
    Chiudi: TBitBtn;
    SfogliaNetfiledir: TButton;
    SfogliaPercorso: TButton;
    TTAziendeCollegata: TBooleanField;
    DBGridEh1: TDBGridEh;
    Parametri: TButton;
    Preferenze_button: TButton;
    Informazioni: TButton;
    TTAziendeSelezionata: TBooleanField;
    Label4: TLabel;
    v_label: TLabel;
    Sceglifile: TOpenDialog;
    procedure NuovaClick(Sender: TObject);
    procedure USAClick(Sender: TObject);
    procedure DuplicaClick(Sender: TObject);
    procedure EliminaClick(Sender: TObject);
    procedure VerificaClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ZippatoreMessage(Sender: TObject; ErrCode: Integer;
      Message: String);
    procedure ImportaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ChiudiClick(Sender: TObject);
    procedure SfogliaPercorsoClick(Sender: TObject);
    procedure SfogliaNetfiledirClick(Sender: TObject);
    procedure CollegaClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ParametriClick(Sender: TObject);
    procedure Preferenze_buttonClick(Sender: TObject);
    procedure InformazioniClick(Sender: TObject);
    procedure DSAziendeDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Copiafile(sorgente,destinazione : string);
    procedure ImpostaDb ;
    Procedure Status(Testo:string) ;
    Function Salva_zip(Nome_zip,Files_da_zippare: string ; Silenzioso : boolean) : integer ;
    function VerificaAlias: boolean;
    function scegli(filtro : string): string;
  end;

var
  Main: TMain;

implementation

uses u_nuuovadlg, selezionadir, MakeDB, config,
     // attenzione, about fa riferimento alla about di euro2000, quindi non va modificata
     aboutOS, u_preferenze;

{$R *.DFM}
Procedure TMain.Status(testo:string) ;
begin
 StatusBar.Panels[0].Text := testo ;
 StatusBar.Update ;
end ;

Function TMain.Salva_zip(Nome_zip,Files_da_zippare: string ; Silenzioso : boolean) : integer ;
Var
   Anno,Mese,Giorno : word ;
   nf : String ;

begin
 (* Crea un file ZIP con nome 'NOME_ZIP' dei 'FILES_DA_ZIPPARE'
    non d