ana_tipidoc_u.pas

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

unit ana_tipidoc_u;

interface

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

type
  TAna_tipidoc_form = class(TForm)
    ScrollBox: TScrollBox;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    CheckBoxGiacenza: TDBCheckBox;
    CheckBoxProvvigione: TDBCheckBox;
    GroupBox2: TGroupBox;
    CheckBoxAcquistato: TDBCheckBox;
    CheckBoxVenduto: TDBCheckBox;
    Chiudi_but: TButton;
    DBRadioGroup1: TDBRadioGroup;
    CheckBoxScadenziario: TDBCheckBox;
    GroupBox3: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    EditCopie: TDBEdit;
    Label4: TLabel;
    Sceglifile: TOpenDialog;
    Button1: TButton;
    DBCheckBox2: TDBCheckBox;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    SelezionaE_but: TButton;
    ModificaE_but: TButton;
    ModificaL_but: TButton;
    Contabilita: TGroupBox;
    DBCheckBox3: TDBCheckBox;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    GroupBox4: TGroupBox;
    DBComboBox1: TDBComboBox;
    GrigliaConversioni: TDBGridEh;
    Label8: TLabel;
    Pagine_Visualizzate: TGroupBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    Label1: TLabel;
    EditTipodocumento: TDBEdit;
    EditDescrizione: TDBEdit;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label3: TLabel;
    PageControl1: TPageControl;
    Codifiche: TTabSheet;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox31: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    Prezzi: TTabSheet;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    BitBtn1: TBitBtn;
    Varie: TTabSheet;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    MailBtn: TBitBtn;
    DBRadioGroup2: TDBRadioGroup;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    DBCheckBox35: TDBCheckBox;
    DBCheckBox36: TDBCheckBox;
    DBCheckBox37: TDBCheckBox;
    DBCheckBox38: TDBCheckBox;
    DBCheckBox39: TDBCheckBox;
    DBCheckBox40: TDBCheckBox;
    DBEdit4: TDBEdit;
    Label2: TLabel;
    Button2: TButton;
    DBCheckBox41: TDBCheckBox;
    GroupBox5: TGroupBox;
    Button3: TButton;
    procedure Chiudi_butClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SelezionaE_butClick(Sender: TObject);
    procedure ModificaE_butClick(Sender: TObject);
    procedure ModificaL_butClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MailBtnClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Ana_tipidoc_form: TAna_tipidoc_form;

implementation

uses ana_mod, Umenu, Doc_mod, gestModExt, mail_doc_impostazioni_u, aboutOS,
  ana_ExpImp_doc_u;

{$R *.DFM}

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

procedure TAna_tipidoc_form.Button1Click(Sender: TObject);
Var
   pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;
     ScegliFile.InitialDir := pathfile ;
     If ScegliFile.Execute then
      begin
        If UpperCase(ExtractFilePath(ScegliFile.filename)) <>
           uppercase(ModuloDatiAnagrafiche.Euro2000Path) then
            begin
             ShowMessage('Attenzione, il file non si trova nella directory dell''azienda, per utilizzarlo, spostarlo in tale directory !') ;
             exit ;
            end ;

        ModuloDatiAnagrafiche.TTTIpidoc.Edit ;
        ModuloDatiAnagrafiche.TTTipidocNomeFileStampaL.AsString := ExtractFileName(ScegliFile.filename) ;
        ModuloDatiAnagrafiche.TTTipidoc.Post ;
      end ;

end;

procedure TAna_tipidoc_form.SelezionaE_butClick(Sender: TObject);
Var
   pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;
     ScegliFile.InitialDir := pathfile ;
     If ScegliFile.Execute then
      begin
        If UpperCase(ExtractFilePath(ScegliFile.filename)) <>
           Uppercase(ModuloDatiAnagrafiche.Euro2000Path) then
            begin
             ShowMessage('Attenzione, il file non si trova nella directory dell''azienda, per utilizzarlo, spostarlo in tale directory !') ;
             exit ;
            end ;

        ModuloDatiAnagrafiche.TTTIpidoc.Edit ;
        ModuloDatiAnagrafiche.TTTipidocNomeFileStampaE.AsString := ExtractFileName(ScegliFile.filename) ;
        ModuloDatiAnagrafiche.TTTipidoc.Post ;
      end ;

end;

procedure TAna_tipidoc_form.ModificaE_butClick(Sender: TObject);
Var
   NomeFileStampa : String ;
   dir : string ;
begin
     NomeFileStampa := ModuloDatiAnagrafiche.TTTipiDocNomefileStampaE.AsString ;
     dir := ExtractFilePath(nomeFileStampa) ;
     If dir = '' then
        NomeFileStampa := modulodatianagrafiche.euro2000path+ModuloDatiAnagrafiche.TTTipidocNomeFileStampaE.AsString ;
     NomeFileStampa := ModuloDatiDocumenti.ImpostaDoc(NomeFileStampa) ;
     dir := UpperCase(ExtractFilePath(nomefileStampa)) ;
     If Dir = UpperCase(moduloDatiAnagrafiche.Euro2000path) then
        NomeFileStampa := ExtractFileName(NomeFileStampa) ;
     ModuloDatiAnagrafiche.TTTipiDoc.Edit ;
     ModuloDatiAnagrafiche.TTTipidocNomeFileStampaE.asString := NomeFileStampa ;
end;

procedure TAna_tipidoc_form.ModificaL_butClick(Sender: TObject);
Var
   NomeFileStampa : String ;
   dir : string ;

begin
     NomeFileStampa := ModuloDatiAnagrafiche.TTTipiDocNomefileStampaL.AsString ;
     dir := ExtractFilePath(nomeFileStampa) ;
     If dir = '' then
        NomeFileStampa := modulodatianagrafiche.euro2000path+ModuloDatiAnagrafiche.TTTipidocNomeFileStampaL.AsString ;
     NomeFileStampa := ModuloDatiDocumenti.ImpostaDoc(NomeFileStampa) ;
     dir := UpperCase(ExtractFilePath(nomefileStampa)) ;
     If Dir = UpperCase(moduloDatiAnagrafiche.Euro2000path) then
        NomeFileStampa := ExtractFileName(NomeFileStampa) ;
     ModuloDatiAnagrafiche.TTTipiDoc.Edit ;
     ModuloDatiAnagrafiche.TTTipidocNomeFileStampaL.asString := NomeFileStampa ;
end;

procedure TAna_tipidoc_form.FormCreate(Sender: TObject);
begin
     Contabilita.Visible := ContaLoaded ;
     (*
     MailBtn.Enabled := AboutBox.TestVersion('P') ;
     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;

procedure TAna_tipidoc_form.MailBtnClick(Sender: TObject);
begin
  Mail_doc_Impostazioni_form := Tmail_Doc_impostazioni_form.Create(Self) ;
  Mail_doc_impostazioni_form.ShowModal;
  Mail_doc_Impostazioni_form.Release ;
end;

procedure TAna_tipidoc_form.Button2Click(Sender: TObject);
begin
   if (ModuloDatiAnagrafiche.TTTipidoc.State = dsEdit) or (ModuloDatiAnagrafiche.TTTipidoc.State = dsInsert) then
     ModuloDatiAnagrafiche.TTTipiDocNumeratore.AsString := '' ;
end;

procedure TAna_tipidoc_form.Button3Click(Sender: TObject);
begin
  Application.CreateForm(Tana_ExpImp_doc,ana_ExpImp_doc) ;
  Ana_ExpImp_doc.show ;
end;

end.