nuovo_articolo_u.pas

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

unit nuovo_articolo_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, DBCtrls, Mask, Buttons, DBGridEh, DBCGrids,
  ToolEdit, CurrEdit, RXDBCtrl, ComCtrls, ExtCtrls, ActnList;

type
  TNuovo_articolo_form = class(TForm)
    Label1: TLabel;
    EditCodice: TDBEdit;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label41: TLabel;
    DBEdit27: TDBEdit;
    DBCheckBox9: TDBCheckBox;
    Label5: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Button3: TButton;
    Label10: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    dep_pref_but: TButton;
    DBLookupComboBox3: TDBLookupComboBox;
    Label11: TLabel;
    Label12: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Button2: TButton;
    DBCheckBox8: TDBCheckBox;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBCheckBox2: TDBCheckBox;
    Button4: TButton;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBLookupComboBox6: TDBLookupComboBox;
    Label17: TLabel;
    pagine: TPageControl;
    Prezzi: TTabSheet;
    Pag_varianti: TTabSheet;
    GroupBox1: TGroupBox;
    AcNL: TRxDBCalcEdit;
    AcIL: TRxDBCalcEdit;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    Label13: TLabel;
    DBEdit8: TDBEdit;
    ScNL: TRxDBCalcEdit;
    ScIL: TRxDBCalcEdit;
    Label14: TLabel;
    Label16: TLabel;
    Label7: TLabel;
    Label19: TLabel;
    C_Valuta: TRadioGroup;
    GridaListini: TDBCtrlGrid;
    Label8: TLabel;
    Label24: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    Label26: TLabel;
    Label27: TLabel;
    Label29: TLabel;
    DBEdit7: TDBEdit;
    DBCheckBox4: TDBCheckBox;
    Ricarico_edit: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    Label42: TLabel;
    DBLookupComboBox7: TDBLookupComboBox;
    DBLookupComboBox8: TDBLookupComboBox;
    DBGrid3: TDBGrid;
    Genera_varianti: TButton;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Tutti1: TButton;
    Nessuno1: TButton;
    Nessuno2: TButton;
    tutti2: TButton;
    Pulisci: TButton;
    DBLookupComboBox11: TDBLookupComboBox;
    DBText11: TDBText;
    DBText10: TDBText;
    Label58: TLabel;
    Label59: TLabel;
    NoteBtn: TButton;
    ActionList1: TActionList;
    Aiuto: TAction;
    Label60: TLabel;
    DBEdit20: TDBEdit;
    DBLookupComboBox10: TDBLookupComboBox;
    Label40: TLabel;
    DBEdit6: TDBEdit;
    Label15: TLabel;
    Varie: TTabSheet;
    Parametri_Riordino: TGroupBox;
    Label18: TLabel;
    mo: TDBEdit;
    Label20: TLabel;
    ss: TDBEdit;
    Label21: TLabel;
    mm: TDBEdit;
    gestriord: TDBCheckBox;
    allarmesottoscorta: TDBCheckBox;
    AllarmeNegativi: TDBCheckBox;
    Impostazioni_Scadenza: TGroupBox;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    tiposcad: TDBEdit;
    scadass: TDBEdit;
    scadgiorni: TDBEdit;
    scadmesi: TDBEdit;
    DBCheckBox5: TDBCheckBox;
    Prezzi_consigliati: TGroupBox;
    Label64: TLabel;
    prezzoL: TRxDBCalcEdit;
    PrezzoLIvato: TRxDBCalcEdit;
    Label65: TLabel;
    Label66: TLabel;
    prezzoeIvato: TRxDBCalcEdit;
    Label67: TLabel;
    prezzoe: TRxDBCalcEdit;
    DBEdit13: TDBEdit;
    DBEdit15: TDBEdit;
    AcNE: TDBEdit;
    AcIE: TDBEdit;
    ScNE: TDBEdit;
    ScIE: TDBEdit;
    Label56: TLabel;
    DBEdit46: TDBEdit;
    Label53: TLabel;
    DBEdit47: TDBEdit;
    Label68: TLabel;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    Label25: TLabel;
    procedure Tutti1Click(Sender: TObject);
    procedure Nessuno1Click(Sender: TObject);
    procedure tutti2Click(Sender: TObject);
    procedure Nessuno2Click(Sender: TObject);
    procedure Genera_variantiClick(Sender: TObject);
    procedure DBLookupComboBox3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit6Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure dep_pref_butClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBCheckBox2Exit(Sender: TObject);
    procedure PulisciClick(Sender: TObject);
    procedure EditCodiceKeyPress(Sender: TObject; var Key: Char);
    procedure C_ValutaClick(Sender: TObject);
    procedure C_ValutaExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GridaListiniEnter(Sender: TObject);
    procedure NoteBtnClick(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Cambia_valuta;
    { Public declarations }
  end;

var
  Nuovo_articolo_form: TNuovo_articolo_form;

implementation

uses ana_mod, Umenu, ana_tipart_u, nuovo_soggetto_u, u_request,
  note_articoli_u;

{$R *.DFM}

procedure TNuovo_articolo_form.Tutti1Click(Sender: TObject);
begin
     With ModuloDatiAnagrafiche do
      begin
       TTDVarianti1.First ;
       While Not TTDVarianti1.Eof do
        begin
         TTDVarianti1.Edit ;
         TTDVarianti1Seleziona.asBoolean := True ;
         TTDVarianti1.Post ;
         TTDVarianti1.next ;
        end ;
       TTDVarianti1.First ;
      end ;
end;

procedure TNuovo_articolo_form.Nessuno1Click(Sender: TObject);
begin
     With ModuloDatiAnagrafiche do
      begin
       TTDVarianti1.First ;
       While Not TTDVarianti1.Eof do
        begin
         TTDVarianti1.Edit ;
         TTDVarianti1Seleziona.asBoolean := False ;
         TTDVarianti1.Post ;
         TTDVarianti1.next ;
        end ;
       TTDVarianti1.First ;
      end ;
end;

procedure TNuovo_articolo_form.tutti2Click(Sender: TObject);
begin
     With ModuloDatiAnagrafiche do
      begin
       TTDVarianti2.First ;
       While Not TTDVarianti2.Eof do
        begin
         TTDVarianti2.Edit ;
         TTDVarianti2Seleziona.asBoolean := True ;
         TTDVarianti2.Post ;
         TTDVarianti2.next ;
        end ;
       TTDVarianti2.First ;
      end ;
end;

procedure TNuovo_articolo_form.Nessuno2Click(Sender: TObject);
begin
     With ModuloDatiAnagrafiche do
      begin
       TTDVarianti2.First ;
       While Not TTDVarianti2.Eof do
        begin
         TTDVarianti2.Edit ;
         TTDVarianti2Seleziona.asBoolean := False ;
         TTDVarianti2.Post ;
         TTDVarianti2.next ;
        end ;
       TTDVarianti2.First ;
      end ;
end;

procedure TNuovo_articolo_form.Genera_variantiClick(Sender: TObject);
begin
 ModuloDatiAnagrafiche.genera_varianti ;
end;

procedure TNuovo_articolo_form.DBLookupComboBox3Click(Sender: TObject);
begin
 Pag_varianti.enabled := ModuloDatiAnagrafiche.TTArticoliGestioneVarianti.AsBoolean ;
end;

procedure TNuovo_articolo_form.BitBtn2Click(Sender: TObject);
begin
 If MessageDLg('Abbandonare l''inserimento del nuovo articolo ?',mtconfirmation,[mbYes,mbNo],0) = mrYes then
  with ModuloDatiAnagrafiche do
   begin
     While Not (TTArtBase.Bof and TTartbase.eof) do
      TTArtBase.Delete ;
     While Not (TTListino.Bof and TTListino.Eof) do
      TTListino.Delete ;
     moduloDatianagrafiche.TTarticoli.cancel ;
     modalResult := mrCancel ;
   end ;

end;

procedure TNuovo_articolo_form.BitBtn1Click(Sender: TObject);
begin
        if DBEdit4.Focused then
          begin
            modalResult := mrNone ;
            abort ;
          end ;
        ModuloDatiAnagrafiche.TTarticoli.Post ;
end;

procedure TNuovo_articolo_form.DBEdit6Change(Sender: TObject);
begin
    // ModuloDatiAnagrafiche.Controlla_listino ;
end;

procedure TNuovo_articolo_form.Button3Click(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTArticoliFornitore.AsString := '' ;
end;

procedure TNuovo_articolo_form.Button4Click(Sender: TObject);
begin
     Nuovo_soggetto_form := TNuovo_soggetto_Form.Create(self) ;
     ModuloDatiAnagrafiche.TTsoggetti.Insert ;
     Nuovo_soggetto_form.ShowModal ;
     If nuovo_soggetto_form.ModalResult = mrOk then
        Modulodatianagrafiche.TTArticoliFornitore.asString := Modulodatianagrafiche.ttsoggetticodice.asString
     else
           ModuloDatiAnagrafiche.TTSoggetti.Cancel ;
     Nuovo_soggetto_form.release ;
end;

procedure TNuovo_articolo_form.dep_pref_butClick(Sender: TObject);
begin
     Request_form := TRequest_form.Create(Self) ;
     Request_form.Label1.Caption := 'Nuova categoria' ;
     Request_form.ShowModal ;
     If Request_form.modalresult = mrOK then
        with modulodatianagrafiche do
         begin
          TTTipart.insert ;
          TTTipartTipoArticolo.asString := Request_form.testo.text ;
          TTTipart.Post ;
          TTArticoliTipoArticolo.AsString := Request_form.testo.text ;
         end ;
end;

procedure TNuovo_articolo_form.Button2Click(Sender: TObject);
begin
     Request_form := TRequest_form.Create(Self) ;
     Request_form.Label1.Caption := 'Nuova marca' ;
     Request_form.ShowModal ;
     If Request_form.modalresult = mrOK then
        with modulodatianagrafiche do
         begin
          TTMarche.insert ;
          TTMarcheMarca.asString := Request_form.testo.text ;
          TTMarche.Post ;
          TTArticoliMarca.AsString := Request_form.testo.text ;
         end ;
end;

procedure TNuovo_articolo_form.DBCheckBox2Exit(Sender: TObject);
begin
  Pag_Varianti.visible := ModuloDatiAnagrafiche.TTArticoliGestioneVarianti.AsBoolean ;
end;

procedure TNuovo_articolo_form.PulisciClick(Sender: TObject);
begin
     ModuloDatiAnagrafiche.PulisciVarianti ;
end;

procedure TNuovo_articolo_form.EditCodiceKeyPress(Sender: TObject;
  var Key: Char);
begin
 if (key >= 'a') and (key <= 'z') then
   key := Chr(Ord(key) - 32) ;
end;

procedure TNuovo_articolo_form.C_ValutaClick(Sender: TObject);
begin
 cambia_valuta ;
end;

procedure TNuovo_articolo_form.C_ValutaExit(Sender: TObject);
begin
 cambia_valuta ;
end;

procedure TNuovo_articolo_form.Cambia_valuta;
Var
   VediEuro, VediLire : boolean ;
begin

 VediLire := (C_Valuta.ItemIndex = 0) ;
 VediEuro := (C_Valuta.ItemIndex = 1) ;
 AcNL.Visible := VediLire ;
 AcNE.Visible := VediEuro ;
 AcIL.Visible := VediLire ;
 ACIE.Visible := VediEuro ;
 ScNL.Visible := VediLire ;
 ScNE.Visible := VediEuro ;
 ScIL.Visible := VediLire ;
 ScIE.Visible := VediEuro ;
end;

procedure TNuovo_articolo_form.FormCreate(Sender: TObject);
Var
   ValutaPref : String ;

begin
 ValutaPref := 'L' ;
 moduloDatianagrafiche.LeggiChiave('EURO O LIRE',ValutaPref) ;
 If ValutaPref = 'L' then
    C_valuta.ItemIndex := 0
 else
    C_Valuta.ItemIndex := 1 ;
 Cambia_Valuta ;
end;

procedure TNuovo_articolo_form.GridaListiniEnter(Sender: TObject);
begin
 ricarico_edit.setfocus ;
end;

procedure TNuovo_articolo_form.NoteBtnClick(Sender: TObject);
begin
  Articoli_note_form := Tarticoli_note_form.Create(Self) ;
  Articoli_note_form.ShowModal ;
  Articoli_note_form.Release ;
end;

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

end.