upurchasedetail.pas

在打沙场用的最简单

unit upurchasedetail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,BasePrint,DB, DBClient, ImgList, ActnList, Grids, DBGridEh,
  StdCtrls, wwdbdatetimepicker, Buttons, ExtCtrls, Menus, FR_Desgn,
  FR_DSet, FR_DBSet, FR_Class, ComCtrls, wwdblook, DBGrids, ksthemedbgrids,
  Wwdbigrd, Wwdbgrid, ADODB;

type
  Tfrmpurchasedetail = class(Tform)
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofresid: TIntegerField;
    CDSbaseinfofitemid: TIntegerField;
    CDSbaseinfofqty: TBCDField;
    CDSbaseinfofprice: TBCDField;
    CDSbaseinfofrefno: TWideStringField;
    CDSbaseinfofstoreno: TWideStringField;
    CDSbaseinfofprovider: TWideStringField;
    CDSbaseinfofpurer: TWideStringField;
    CDSbaseinfofpurstore: TWideStringField;
    CDSbaseinfofdelivdate: TDateTimeField;
    CDSbaseinfofcreadate: TDateTimeField;
    CDSbaseinfofcreauser: TWideStringField;
    CDSbaseinfofcode: TWideStringField;
    CDSbaseinfofname: TWideStringField;
    CDSbaseinfofunit: TWideStringField;
    CDSbaseinfoftype: TWideStringField;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    procedure frBaseinfoUserFunction(const Name: String; p1, p2,
      p3: Variant; var Val: Variant);
    procedure searchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpurchasedetail: Tfrmpurchasedetail;

implementation

uses Global,common, data;

{$R *.dfm}

procedure Tfrmpurchasedetail.frBaseinfoUserFunction(const Name: String; p1,
  p2, p3: Variant; var Val: Variant);
begin
  inherited;
  if Ansicomparetext('XTOD',name)=0 then
    Val:=syRMB(frParser.Calc(p1));
end;

procedure Tfrmpurchasedetail.searchClick(Sender: TObject);
begin
  inherited;
  with adoquery1 do
  begin
  sql.clear;
  sql.add('SELECT   titem.fcode, titem.fname, titem.funit, titem.ftype, titem.zs,');
  sql.add('   tpurchase.frefno, tpurchase.fpurno, dbo.tpurchase.fprovider,');
  sql.add('  dbo.tpurchase.fpurer, dbo.tpurchase.fpurstore, dbo.tpurchase.fdelivdate,');
  sql.add('    dbo.tpurchase.fcreadate, dbo.tpurchase.fcreauser, dbo.tpurchase.pno,');
  sql.add('  dbo.tpurchasesub.fprice, dbo.tpurchasesub.fqty, dbo.tpurchasesub.fnote,');
  sql.add('  dbo.tpurchasesub.gno, dbo.tpurchasesub.colorno, dbo.tpurchasesub.color,');
  sql.add('  dbo.tpurchasesub.js, dbo.tpurchasesub.avgh, dbo.tpurchasesub.qtyunit,');
  sql.add('  dbo.tpurchasesub.rs, dbo.tpurchasesub.dps, dbo.tpurchasesub.zz,');
  sql.add('  dbo.tpurchasesub.cgyrqty');
  sql.add('FROM  dbo.titem INNER JOIN');
  sql.add('  dbo.tpurchasesub ON dbo.titem.fid = dbo.tpurchasesub.fitemid INNER JOIN');
  sql.add('  dbo.tpurchase ON dbo.tpurchasesub.fresid = dbo.tpurchase.fresid');
  open;
  end;
end;

end.