systemconstunit.pas

实达企业在线EOL源码

//****************************************************************************//
//                                                                            //
//  产品 : EOL AppServer                                                      //
//  单元 : SystemConst.Pas                                                    //
//  版本 : 1.0                                                                //
//  作者 : 孙卫东                                                             //
//  描述 : 系统常量和字符串定义;                                              //
//  日期 : 2000-08-08                                                         //
//                                                                            //
//  COPYRIGHT (C) 2000 START-TECH.                                            //
//                                                                            //
//                                                                            //
//  说明：增加常量和字符串定义时，请按照字母顺序排列。                        //
//        定义时参照以下约定：                                                //
//                                                                            //
//            常量      字母'G' 开头;                                         //
//            系统信息  字母'SYS_' 开头;                                      //
//            错误信息  字母'E' 开头;                                         //
//            提示信息  字母'I' 开头;                                         //
//            字符串    字母'S' 开头;                                         //
//                                                                            //
//        如有需要，简要说明其用途。                                          //
//                                                                            //
//  修订 ：                                                                   //
//****************************************************************************//

unit SystemConstUnit;

interface

{常量定义}
const
  GRemoteServerAddress = '198.198.198.105';
  GRemoteServerGUID = '{609E0F83-5EAC-11D4-8C9D-002035B1890D}';

  SystemAdmin = 'Admin';

{结构定义}
type
  recSystemInfo = record
                    ConnectID:integer;
                    UserCode:String;
                    UserName: string;
                    Password: string;
                    Station: string;
                    IPAddress:string;
                    Account: string;//帐桃号 {今后拟用帐套号取代公司代码}
                    ItemCompanyCode:string;//公司代码 {商品用}
                    CompanyCode:string;//公司代码 {今后取消此变量}
                    CompanyName:string;
                    WebMemberCode:string;//网站会员代码
                    CurDate: string;//业务日期
                    StartDate:string;//起始业务日期
                    StopDate:string;//结束业务日期
                    ConnectionString: string;
                    ServerName:string;
                    DataBaseName:string;
                    DBUserName:string;
                    DBPassword:string;
                    AppServerHost:string;
                  end;

var
  SystemInfo: recSystemInfo;

type
  TRecLogin = record
                UserName: string;
                Password: string;
                Account : string;
              end;

var
  rcLogin: TRecLogin;
//李建新定义：库存配置项
type
  TStockVar = record
                MultiItemAloc: Variant; //是否允许同一库位存放不同商品
                MultiLocation: Variant; //是否同一商品可以存放在不同库位
                MultiBatch: Variant;    //是否不同批号商品可以存放于同一库位
                MultiMeasure: Variant;  //是否库房中同一商品可以有多个计量单位
              end;

var
  rcStock: TStockVar;

{字符串定义}
resourcestring

       //系统信息
       SYS_Name = 'EOL普及版';
       SYS_CopyRight = '版权所有(C)2000 实达科技软件有限公司';
       SYS_Version = '版本：1.0';
       SYS_Product = '东方之星系列产品';

       //错误信息
       EClose = '存在工作站的连接，不能关闭！';
       EInitShedule = '初始化时序簿出错！';
       EOpenDbFail = '连接数据库失败! 运行中止。';
       EFilterData = '过滤数据出错！';

       //提示信息
       IAsk = '询问';
       IConnected = '已连接';
       IClose = '存在工作站的连接，强制关闭将导致数据丢失。'+#13+'真要关闭吗?';
       IMsg = '收到 %S 于 %S 发送的消息: %S';

       //字符串
       SBillStatus = '单据状态：%s';
       SCloseFlag = '关闭状态：%s';
       SDateFormat = 'ddddddd  hh:nn:ss';
       SMemory = 'Windows 的物理内存为 %d MB。';
       sMaker = '制单人：%s';
       SShowUser = '用户：%s';

Resourcestring
  OPENDATASETERROR='打开%s表失败';
  ASKSAVE='是否保存数据？';
  DLG_SELECT_TITLE='请选择';
  DLG_OK_TITLE = '请确认';
  ASKDELETE='确定要删除吗？';

  SAVEERROR = '数据不能存盘';
  SAVEERRORITEM = '代号重复';
  KEY_VIOLATION = 'Key violation';
  INPUTMASTKEY = '请先输入主表单号!';

CONST
  FORMWIDTH=800;
  FORMHEIGHT=515;


implementation

end.