commonunit.pas

来自「工商收费系统,主要是管理非税收收入的费用的管理」· PAS 代码 · 共 22 行

unit CommonUnit;

interface

uses
   SysUtils ;

//const
//   aryDepCode : array[0..7] of string = ('00','030201','030202','030206','030204','030205','030203','03') ;
//   //aryDepCode : array[0..3] of string = ('00','01','02') ;
//   aryDepName : array[0..7] of string = ('全部机型','织带机','印染机','塑编机','喷水机','喷气机','印花机','其它') ;
//  // aryDepName : array[0..2] of string = ('全部机型','织带机','印染机') ;
//   //aryWhcode  : array[0..7] of string = ('''00''','''01''','''02''','''15''','''16''','''04'' or ' +'cWhCode =''05'' or '+ 'cWhCode =''06''');
//   DEP_CODE_OTHER = '03';
//type
//   ECheckException = class(Exception);
//   EDBException = class(Exception);

implementation

end.