usaledetail.pas

在打沙场用的最简单

unit usaledetail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BasePrint, Menus, FR_DSet, FR_DBSet, FR_Class, DB, DBClient,
  ImgList, ActnList, Grids, DBGridEh, StdCtrls, wwdbdatetimepicker,
  Buttons, ExtCtrls;

type
  Tfrmsaledetail = class(TfrmBasePrint)
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofresid: TIntegerField;
    CDSbaseinfofitemid: TIntegerField;
    CDSbaseinfofqty: TBCDField;
    CDSbaseinfofprice: TBCDField;
    CDSbaseinfofrefno: TWideStringField;
    CDSbaseinfofsaleno: TWideStringField;
    CDSbaseinfofprovider: TWideStringField;
    CDSbaseinfofsaleer: TWideStringField;
    CDSbaseinfofsalestore: TWideStringField;
    CDSbaseinfofdelivdate: TDateTimeField;
    CDSbaseinfofcreadate: TDateTimeField;
    CDSbaseinfofcreauser: TWideStringField;
    CDSbaseinfofcode: TWideStringField;
    CDSbaseinfofname: TWideStringField;
    CDSbaseinfofunit: TWideStringField;
    CDSbaseinfoftype: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure frBaseinfoUserFunction(const Name: String; p1, p2,
      p3: Variant; var Val: Variant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsaledetail: Tfrmsaledetail;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmsaledetail.FormCreate(Sender: TObject);
begin
  inherited;
  MainView:='vsaledetail';
  KeyField:='Fid';
  frName:=gs_AppPath+'\prints\frsaledetail.frf';
end;

procedure Tfrmsaledetail.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;

end.