fmordu.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMOrdU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMBizMulU, DB, Menus, ADODB, Grids, DBGrids, dxDBGrid, dxDBTLCl,
  dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls, DBCtrls, StdCtrls, Mask,
  Buttons, ExtCtrls;

type
  TFMOrd = class(TFMBizMul)
    cdsMainfSupNo: TWideStringField;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    cdsDetailfBuyPrice: TFloatField;
    procedure btnQueryClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMOrd: TFMOrd;

implementation

{$R *.dfm}
uses RepTsReceiveU ; 

procedure TFMOrd.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_receive_head';
  inherited;
end;

procedure TFMOrd.FormCreate(Sender: TObject);
begin
  inherited;
  aPriceType := 1 ;
  aDetailTable :='ts_receive_detail';
  aKeyField :='fBillId';
  aMainTable :='ts_receive_head';
  aUserId :='system';
  aBillNo :='fBillNo';
  Style :='SH';
end;

procedure TFMOrd.btnPrintClick(Sender: TObject);
begin
  inherited;
  if Application.FindComponent('RepTsReceive')=nil then
        RepTsReceive:=TRepTsReceive.create(self);
  RepTsReceive.Caption :=Self.Caption ;
  RepTsReceive.idtCompany.Caption :='AA' ;
  RepTsReceive.idtTitle.Caption :='信息';
  RepTsReceive.cdsRep.Active :=false ;
  RepTsReceive.cdsRep.CommandText :='SELECT a.*, b.fProductId, b.fqty '
   +' FROM ts_receive_head AS a, ts_receive_detail AS b '
   +' WHERE a.fBillId = b.fBillId and a.fBillId in '+GetPrintList ;
  RepTsReceive.cdsRep.Active :=true ; 
  RepTsReceive.Show ;
  RepTsReceive.Visible :=false ;
  RepTsReceive.QRep.Preview ;
end;

end.