rica_art_u.pas

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

unit rica_art_u;

interface

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

type
  TRicerca_articoli_fornitore = class(TForm)
    Panel2: TPanel;
    DsArticoli: TDataSource;
    ActionList1: TActionList;
    cercatutto: TAction;
    ToolBar1: TToolBar;
    OK: TAction;
    Annulla: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    ricerca: TEdit;
    Label1: TLabel;
    cerca_nel_campo: TComboBox;
    Label2: TLabel;
    GrigliaArticoli: TDBGridEh;
    Qarticoli: TQuery;
    QarticoliArticolo: TStringField;
    QarticoliDescrizione: TStringField;
    QarticoliUM: TStringField;
    QarticoliArticoloetichetta: TStringField;
    QarticoliArticolofornitore: TStringField;
    QarticoliTipoarticolo: TStringField;
    QarticoliMarca: TStringField;
    QarticoliRagionesociale: TStringField;
    QarticoliFornitore: TStringField;
    procedure ElencoExecute(Sender: TObject);
    procedure cercatuttoExecute(Sender: TObject);
    procedure ricercaChange(Sender: TObject);
    procedure cerca_nel_campoChange(Sender: TObject);
    procedure ovunqueClick(Sender: TObject);
    procedure AnnullaExecute(Sender: TObject);
    procedure OKExecute(Sender: TObject);
    procedure GrigliaArticoliTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure GrigliaArticoliDblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    function Articolo : string ;
    Procedure AggiornaFiltro ;
  end;

var
  Ricerca_articoli_fornitore: TRicerca_articoli_fornitore;

implementation

uses ana_mod, Ucerca, Uelenco, Umenu;

{$R *.DFM}

function TRicerca_articoli_fornitore.Articolo : string ;
begin
     result := qArticoliArticolo.asString ;
end ;

procedure TRicerca_articoli_fornitore.ElencoExecute(Sender: TObject);
begin
     Elenco_form.mostraelenco(self) ;
end;

procedure TRicerca_articoli_fornitore.cercatuttoExecute(Sender: TObject);
begin
     Cerca_form.Trova(self) ;
end;

procedure TRicerca_articoli_fornitore.ricercaChange(Sender: TObject);
begin
     AggiornaFiltro ;
end;

procedure TRicerca_articoli_fornitore.cerca_nel_campoChange(Sender: TObject);
begin
     AggiornaFiltro ;
end;

procedure TRicerca_articoli_fornitore.ovunqueClick(Sender: TObject);
begin
     AggiornaFiltro ;
end;

procedure TRicerca_articoli_fornitore.AggiornaFiltro ;
Var
   Asterisco : string ;
   
begin
 If Ricerca.Text = ''  then
  QArticoli.Filtered := False
 else
  begin
   Qarticoli.Filtered := False ;
   QArticoli.Filter := cerca_nel_campo.text + '=''' + ricerca.Text + '*''' ;
   QArticoli.Filtered := True ;
  end ;
end ;

procedure TRicerca_articoli_fornitore.AnnullaExecute(Sender: TObject);
begin
     ModalResult := mrCancel ;
end;

procedure TRicerca_articoli_fornitore.OKExecute(Sender: TObject);
begin
     modalResult := mrOk ;
end;

procedure TRicerca_articoli_fornitore.GrigliaArticoliTitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
Var
   Campo_ordinamento,tabella : string   ;
   i,righe : integer ;

begin

     for i:= 0 to GrigliaArticoli.Columns.Count -1 do
      If GrigliaArticoli.Columns[i] <> Column then
       Column.Title.SortMarker := smNoneeh ;
     Column.Title.SortMarker := smUpeh ;
     QArticoli.Close ;
     Campo_ordinamento := Column.Title.Caption ;
     If Campo_ordinamento <> 'Ragione sociale' then
      tabella := 'D'
     else
      Tabella := 'D1';
     righe := QArticoli.SQL.Count ;
     for i:= 0 to righe-1 do
     If Pos('ORDER',QArticoli.Sql.Strings[i]) > 0 then
        QArticoli.Sql.Strings[i] := 'ORDER BY '+tabella + '."'+campo_ordinamento+'"' ;
     Qarticoli.Open ;
end;

procedure TRicerca_articoli_fornitore.GrigliaArticoliDblClick(Sender: TObject);
begin
 Ok.Execute ;
end;

procedure TRicerca_articoli_fornitore.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = 13 then ok.execute ;
end;

end.