articoli.pas

大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JAVA的朋友,将是不错的参考资料!

unit articoli;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGridEh, ActnList, DBGrids, ComCtrls, ImgList, ToolWin,
  DBTables, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls;

type
  TArticoli_form = class(TForm)
    DsArticoli: TDataSource;
    ActionList1: TActionList;
    cercatutto: TAction;
    ArticoliGrid: TDBGrid;
    Qarticoli: TQuery;
    ToolBar1: TToolBar;
    Listaimmagini: TImageList;
    Chiudi: TAction;
    Varianti: TAction;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    QarticoliCodice: TStringField;
    QarticoliDescrizionebase: TStringField;
    QarticoliPrezzoivatoL: TCurrencyField;
    QarticoliPrezzoivatoE: TCurrencyField;
    QarticoliAliquotaIva: TFloatField;
    QarticoliPunteggio: TFloatField;
    QarticoliGiacenza: TFloatField;
    QarticoliQtaScarico: TFloatField;
    Qarticolipezzi: TFloatField;
    Panel2: TPanel;
    Denominazione_Edit: TEdit;
    Label5: TLabel;
    QarticoliDenominazione: TStringField;
    QarticoliFornitore: TStringField;
    QarticoliArticoloetichetta: TStringField;
    Cerca: TButton;
    Query: TAction;
    Ricerca_edit: TEdit;
    Label4: TLabel;
    ToolButton5: TToolButton;
    ToolButton1: TToolButton;
    procedure cercatuttoExecute(Sender: TObject);
    procedure QarticoliCalcFields(DataSet: TDataSet);
    procedure VariantiExecute(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Ricerca_editChange(Sender: TObject);
    procedure Ricerca_editMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Fornitore_EditChange(Sender: TObject);
    procedure QueryExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Articoli_form: TArticoli_form;

implementation

uses main, Ucerca, u_griglia_varianti, Liste_nozze;

{$R *.DFM}

procedure TArticoli_form.cercatuttoExecute(Sender: TObject);
begin
     cerca_form.Trova(Self) ;
end;

procedure TArticoli_form.QarticoliCalcFields(DataSet: TDataSet);
begin
     QarticoliPezzi.asFloat := QarticoliGiacenza.asFloat - QArticoliQtaScarico.asFloat ;
end;

procedure TArticoli_form.VariantiExecute(Sender: TObject);
begin
     Griglia_Varianti := TGriglia_varianti.Create(self) ;
     Griglia_Varianti.ShowModal ;
     If Griglia_Varianti.ModalResult = mrOk then
      begin
       Griglia_Varianti.Release ;
       ModalResult := mrok ;
      end
     else
      Griglia_varianti.release ;
end;

procedure TArticoli_form.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key = 27 then chiudi.execute ;
end;

procedure TArticoli_form.BitBtn2Click(Sender: TObject);
begin
//     Main_form.TTDettaglio.Edit ;
//     Main_form.TTdettaglioArticolo.asString := QarticoliCodice.asString ;
end;

procedure TArticoli_form.FormCreate(Sender: TObject);
begin
     Ricerca_edit.SelectAll ;
     Query.Execute;
end;

procedure TArticoli_form.Ricerca_editChange(Sender: TObject);
begin
 //Qarticoli.Locate('Descrizione base',Ricerca_edit.Text,[loPartialKey,loCaseInsensitive]) ;
 {Qarticoli.Filtered := False ;
 Qarticoli.Filter := '[Descrizione base] = ''' + Ricerca_edit.Text + '*''' ;
 Qarticoli.Filtered := True ;
 }

end;

procedure TArticoli_form.Ricerca_editMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     Ricerca_edit.SelectAll ;
end;

procedure TArticoli_form.Fornitore_EditChange(Sender: TObject);
begin
    {Qarticoli.Filtered := False ;
    if qarticoli.filter = '' then
       Qarticoli.Filter := '[Fornitore] = ''' + Edit1.Text + '*''' ;
    else
       qarticoli.filter := qarticoli.filter + ' and [Fornitore] = ''' + Edit1.Text + '*''' ;
    Qarticoli.Filtered := True ;
    }
//    aggiorna_filtro;
end;



procedure TArticoli_form.QueryExecute(Sender: TObject);
var conta, i : integer;
begin
     Query.Enabled := False;
     if  not Qarticoli.Active then
     begin
          Qarticoli.Active := true;
     end;
     Conta := Articoli_form.ArticoliGrid.SelectedRows.count-1;
     if (conta) > -1 then
        if messagedlg('Vuoi inserire nella lista gli articoli selezionati?',mtconfirmation,[mbYes,mbNo],0) = mrYes then
        begin
             for i:=0 to conta do
             begin
                  Articoli_form.Qarticoli.Bookmark := Articoli_form.ArticoliGrid.SelectedRows.Items[i];
                  if  (not (Lista_Nozze.lista.State = dsEdit)) and (not (Lista_Nozze.lista.State = dsInsert)) then
                      Lista_Nozze.lista.Insert ;
                  Lista_Nozze.listaArticolo.asString := Articoli_form.Qarticolicodice.asString ;
                  Lista_Nozze.listaDescrizione.AsString := Articoli_form.QarticoliDescrizionebase.AsString;
                  Lista_Nozze.listaprezzoL.AsInteger := Articoli_form.QarticoliPrezzoivatoL.AsInteger;
                  Lista_Nozze.listaprezzoE.AsInteger := Articoli_form.QarticoliPrezzoivatoE.AsInteger;
                  Lista_Nozze.listaarticoloetichetta.AsString := Articoli_form.Qarticoliarticoloetichetta.AsString;
                  Lista_Nozze.lista.Post;
             end;
        end;
     QArticoli.Close ;
     Qarticoli.ParamByName('DESCRIZIONE').Value := Ricerca_edit.Text ;
     Qarticoli.ParamByName('DENOMINAZIONE').Value := Denominazione_edit.Text ;
     Qarticoli.Prepare ;
     Qarticoli.Open ;
     Query.Enabled := True;
end;

end.