u_qta.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 104 行

unit u_Qta;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, DBTables, ActnList, ComCtrls, ExtCtrls, DBCtrls,
  ToolWin, ppCtrls, ppBands, ppClass, ppDB, ppVar, ppPrnabl, ppProd,
  ppReport, ppComm, ppRelatv, ppCache, ppDBPipe, ppDBBDE, StdCtrls;

type
  TQta_form = class(TForm)
    QLista_T: TQuery;
    DBGrid1: TDBGrid;
    DsQLista_T: TDataSource;
    QLista_TTotPrenota: TFloatField;
    QLista_TTotVenduta: TFloatField;
    QLista_TArticolo: TStringField;
    QLista_TDescrizione: TStringField;
    QLista_TTotConsegnata: TFloatField;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    ToolButton1: TToolButton;
    ActionList1: TActionList;
    Esci: TAction;
    ppQta: TppBDEPipeline;
    Qta: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppSystemVariable2: TppSystemVariable;
    Stampa: TAction;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    Label4: TLabel;
    Ricerca_edit: TEdit;
    Label5: TLabel;
    Denominazione_Edit: TEdit;
    Cerca: TButton;
    Cerca_Qlista: TAction;
    QLista_TRagionesociale: TStringField;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    AQLista_T: TQuery;
    AQLista_TArticolo: TStringField;
    AQLista_TDescrizione: TStringField;
    AQLista_TDenominazione: TStringField;
    AQLista_TTotPrenota: TFloatField;
    AQLista_TTotVenduta: TFloatField;
    AQLista_TTotConsegnata: TFloatField;
    QLista_Tarticoloetichetta: TStringField;
    AQLista_TArticoloEtichetta: TStringField;
    ppLine2: TppLine;
    ppLine3: TppLine;
    QLista_TArticoloFornitore: TStringField;
    procedure EsciExecute(Sender: TObject);
    procedure StampaExecute(Sender: TObject);
    procedure Cerca_QlistaExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Qta_form: TQta_form;

implementation

{$R *.DFM}

procedure TQta_form.EsciExecute(Sender: TObject);
begin
     Close;
end;

procedure TQta_form.StampaExecute(Sender: TObject);
begin
     Qta.Print;
end;

procedure TQta_form.Cerca_QlistaExecute(Sender: TObject);
begin
     Qlista_t.Close ;
     Qlista_t.ParamByName('DESCRIZIONE').Value := Ricerca_edit.Text ;
     Qlista_t.ParamByName('DENOMINAZIONE').Value := Denominazione_edit.Text ;
     Qlista_t.Prepare ;
     Qlista_t.Open ;
end;

end.