upurchasedetail.pas

三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写

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;

type
  Tfrmpurchasedetail = class(TfrmBasePrint)
    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;
    procedure FormCreate(Sender: TObject);
    procedure frBaseinfoUserFunction(const Name: String; p1, p2,
      p3: Variant; var Val: Variant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpurchasedetail: Tfrmpurchasedetail;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmpurchasedetail.FormCreate(Sender: TObject);
begin
  inherited;
  MainView:='vpurchasedetail';
  KeyField:='Fid';
  frName:=gs_AppPath+'\prints\frpurchasedetail.frf';
end;

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;

end.