udatavar.pas

来自「相关的销售服务管理行业的一个软件」· PAS 代码 · 共 44 行

unit UDataVar;

interface

type DataState=(dsNone,dsAdd,dsAddNext,dsDel,dsChange);

type
  TTreeBack=record
    tbName:String;
    tbCode:String;
  end;

type TSelBack=(sbNone,sbClose,sbHide);

type
  TBaseMessage=record
    bmDate:String;
    bmMan:String;
    bmYear:integer;
  end;

type
  TGDInfo=record
    Code:String;
    Name:String;
    GdUnit:String;
    GdGg:String;
    bBatch:Boolean;
    bColor:Boolean;
    bPosition:Boolean;
    HPrice:Double;
    LPrice:double;
    CKPrice:Double;
    CKCost:Double;
  end;

type
  GDTag=(None,BeforeFirst,BeforeSecond,
         BeforeThird,AfterFirst,AfterSecond,AfterThird);

implementation

end.