upaymentdetail.pas

这是一个三层的进销存系统

unit upaymentdetail;

interface

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

type
  Tfrmpaymentdetail = class(TfrmBasePrint2)
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofresid: TIntegerField;
    CDSbaseinfofpurno: TWideStringField;
    CDSbaseinfofitemid: TBCDField;
    CDSbaseinfofincludetax: TBCDField;
    CDSbaseinfoftax: TBCDField;
    CDSbaseinfofalreadypay: TBCDField;
    CDSbaseinfofpay: TBCDField;
    CDSbaseinfofnote: TWideStringField;
    CDSbaseinfofrefno: TWideStringField;
    CDSbaseinfofno: TWideStringField;
    CDSbaseinfofprovider: TWideStringField;
    CDSbaseinfofpaymenttype: TWideStringField;
    CDSbaseinfofreceipttype: TWideStringField;
    CDSbaseinfofdeposituser: TWideStringField;
    CDSbaseinfofbillno: TWideStringField;
    CDSbaseinfofnotesub: TWideStringField;
    CDSbaseinfofcountpay: TBCDField;
    CDSbaseinfofcreauser: TWideStringField;
    CDSbaseinfofcreadate: TDateTimeField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpaymentdetail: Tfrmpaymentdetail;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmpaymentdetail.FormCreate(Sender: TObject);
begin
  inherited;
  Mainview:='VpaymentDetail';
  keyField:='fid';
  frName:=gs_AppPath+'\prints\frpaymentdetail.frf';
end;

end.