usysconst.~pas

来自「已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码」· ~PAS 代码 · 共 39 行

unit UsysConst;

interface

const
  MsgBxCaption ='系统提示';
  {日记操作}
  nOp_Insert = 1; // 插入记录操作
  nOp_Update = 2; // 修改记录操作
  nOp_Delete = 3; // 删除记录操作
  nOp_Login = 4;  // 登陆系统功能操作
  {记录状态}
  nJLZT_Normal = 0;//正常
  nJLZT_Delete = 1;//已删除
  {性别}
  nXB_Man = 0;   //男
  nXB_Woman = 1; //女
  {操作非法最大次数}
  nCZFF = 3;
var
  strCZYM :String; //操作员编号
  strCZYMC:string;
  strCZBM:STRING;
  strCZBMMC:STRING;
  strCZMD:STRING;
  strCZMDMC:STRING;
  strCZZT:STRING; //操作状态
  strDJZT:string; //new,save,cancel,find,delete  单据状态
  strXZZT:String;  //select,ok,cancel 选择状态
  strDJADDZT:String; //明细增加状态
  strGZXH :double; //工作组序号--操作员所在
  dMKXH :double;  //系统模块ID
  nJMCD :integer;//简码最大长度
  strSysDate:string;//服务器日期

implementation

end.