ux_sjbf1.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit ux_sjbf1;

interface

uses
  Controls;

type
 Tcd = Record
   fbz:string[5];    //文件标志为'yysj1'
   cdbh: string[12];
   fdbh:string[1];
   ycrq:tdate;
   ycsj:ttime;
   yylx:string[1];
   srlb:string[1];
   th:string[2];
   tht:string[2];
   krs:integer;
   fwyh:string[4];
   skyh:string[4];
   zj:currency;
   xj:currency;
   fwf:currency;
   zkf:currency;
   zsje:currency;
   ssje:currency;
   jzrq:tdate;
   jzsj:Ttime;
   jzfs:string[1];
   qdjz:string[1];
   skje:currency;
   zt:string[1];
   skth:string[2];
   pzrh:string[4];
   qdrm:string[8];
   ckbh:string[4];
   dbxm:string[8];
 end;
   cdfile= file of Tcd;

 Tcdmx = Record
   fbz:string[5];  //文件标志为'yysj2'
   bh:integer;
   cdbh: string[12];
   clh: string[2];
   ch:string[4];
   cm:string[30];
   dj:currency;
   sl:currency;
   dzl:currency;
   hj:currency;
   gg:string[4];
   srlb:string[1];
   cz:string[1];
   tcyyh:string[2];
   tcyy:string[40];
   pzrh:string[4];
   tsl:currency;
   lbh:string[1];
 end;
   cdmxfile= file of Tcdmx;

 Tt = Record
   fbz:string[3];  //文件标志为'ct1'
   fdbh: string[1];
   th: string[2];
   tm: string[20];
   sfbj:string[2];
 end;
   tfile= file of Tt;
 Ttai = Record
   fbz:string[3];  //文件标志为'ct2'
   th: string[2];
   tht: string[2];
   fdbh: string[1];
   zws: integer;
   fwfl:currency;
   dzl:currency;
   sfbz:currency;
   zdxf:currency;
   fwyh: string[4];
   fwym: string[8];
   sfbj: string[2];
   zt: string[1];
 end;
   taifile= file of Ttai;

 Tcl = Record
   fbz:string[3];  //文件标志为'cp1'
   clh: string[2];
   clm: string[10];
   dzl:currency;
   lbh: string[1];
 end;
   clfile= file of Tcl;
 Tcy = Record
   fbz:string[3];  //文件标志为'cp2'
   ch: string[4];
   clh: string[2];
   mc: string[20];
   zjm: string[10];
   gg: string[4];
   dj:currency;
   dzl:currency;
   bz: string[20];
   lbh: string[1];
 end;
   cyfile= file of Tcy;

 Tyhyd = Record
   fbz:string[5];  //文件标志为'yhyd1'
   yddh: string[10];
   ydrq:Tdate;
   yhrq:string[10];
   yhsj:string[5];
   tht: string[2];
   thts: string[48];
   ckbh: string[4];
   dw: string[40];
   dz: string[40];
   lxr: string[8];
   zw: string[10];
   dh: string[30];
   krzs:integer;
   ydzs:integer;
   yhbz:currency;
   dj:currency;
   jzfs: string[1];
   jdr: string[8];
   cbr: string[8];
   kryq: string[40];
   sjrs:integer;
   xhs:integer;
   czyh: string[4];
   fwfl:currency;
   dzl:currency;
   yhje:currency;
   sjje:currency;
   bz: string[20];
 end;
   yhydfile= file of Tyhyd;
 Tyhydcd = Record
   fbz:string[5];  //文件标志为'yhyd2'
   bh:integer;
   yddh: string[10];
   ch:string[4];
   cm:string[30];
   gg:string[4];
   sl:currency;
   dj:currency;
   dzl:currency;
   hj:currency;
   clh: string[2];
   lbh:string[1];
 end;
   yhydcdfile= file of Tyhydcd;

 Tckzl = Record
   fbz:string[4];  //文件标志为'ckzl'
   ckbh: string[4];
   dwmc: string[40];
   zjm: string[20];
   xfcs:integer;
   xfze:currency;
   xydj: string[1];
   dwxz: string[1];
   dwdz: string[40];
   yzbm: string[6];
   khyh: string[40];
   zh: string[16];
   dbxm: string[8];
   xb: string[2];
   dh: string[30];
   chh: string[20];
   sj: string[12];
   email: string[30];
   csrq:Tdate;
   qldj: string[1];
   zw: string[10];
 end;
   ckzlfile= file of Tckzl;

 Tbzc = Record
   fbz:string[4];  //文件标志为'bzc1'
   bzbh:string[4];
   bzmc: string[20];
   bzbz:currency;
   zzr:string[8];
   zzrq:Tdate;
   bz:string[40];
 end;
   bzcfile= file of Tbzc;
 Tbzccd = Record
   fbz:string[4];  //文件标志为'bzc2'
   bh:integer;
   bzbh:string[4];
   ch:string[4];
   cm:string[30];
   gg:string[4];
   sl:currency;
   dj:currency;
   dzl:currency;
   hj:currency;
   clh: string[2];
   lbh:string[1];
 end;
   bzccdfile= file of Tbzccd;

var
  cdrec:Tcd;         //处理文件记录
  cd:cdfile;         //与记录文件关联的文件名
  cdmxrec:Tcdmx;
  cdmx:cdmxfile;

  trec:Tt;
  t:tfile;
  tairec:Ttai;
  tai:taifile;

  clrec:Tcl;
  cl:clfile;
  cyrec:Tcy;
  cy:cyfile;

  yhydrec:Tyhyd;
  yhyd:yhydfile;
  yhydcdrec:Tyhydcd;
  yhydcd:yhydcdfile;

  ckzlrec:Tckzl;
  ckzl:ckzlfile;

  bzcrec:Tbzc;
  bzc:bzcfile;
  bzccdrec:Tbzccd;
  bzccd:bzccdfile;

implementation

end.