global.pas

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

{
  全局变量模块

  2005.01.10
}
unit Global;

interface
    uses Windows,syncobjs,sysutils;

const
    SCnInformation = '提示';
    SCnWarning = '警告';
    SCnError = '错误';
    SCnEnabled = '有效';
    SCnDisabled = '禁用';
    SCnMsgDlgOK = '确认(&O)';
    SCnMsgDlgCancel = '取消(&C)';
    SUnknowError = '未知错误';
    SErrorCode = '错误代码：';

var
    //版本号
    g_sVersion: String = '002.01.021';
    //[数据库连接信息]
    g_DriverName : String ='MSSQL';              //数据库平台
    g_DataBaseName : String;                     //数据库名
    g_ServerName : String;                       //服务器名
    g_Password : String;                         //密码
    g_UserName : String;                         //用户名
    g_MaxLogNum : Integer;                       //日志数据显示条数
    g_LogTime : Integer;                         //日志刷新时间[分]
    
    g_RepFileName: String;                      //打印临时文件名及路径
    g_sLinkDomain: string;                      //域名
    g_sLinkUserName: string;                    //登陆名
    g_sLinkPwd: string;                         //密码
    g_sLinkPhoneNumber: string;                 //电话号码
    g_sEntryBook: string;                       //电话簿

    //装箱方式
    g_BoxType: array[0..2] of String = ('拼箱','散货','整柜');
    //货物类型
    g_GoodsType: array[0..2] of String = ('普通','冷藏','危险品');
    //结算方式
    g_PayType: array[0..3] of String = ('预付','到付','免费','其他');
    //集装箱大小
    g_SIZEID: array[0..2] of String = ('20','40','45');
    //数字大写    佰 仟  
    g_CapNum: array[0..9] of String = ('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');
    
    gAppPath: String;
    //图标文件位置
    //0上按钮图 1下按钮图
    g_ImageFile: array[0..10] of String;

    //公司代码
    gCOMPANYCD: String;

    //拨号连接句柄
    g_iRasHandle: Cardinal = 0;
    g_sLocalIP : String = '0.0.0.0';             //本地主机IP地址
    g_sCurrentDir : String; //运行路径
    g_sTbPrefix: string='';           //表的前缀如：dbo.或''

    //new
    g_CriticalSection: TCriticalSection;
    g_MultiRead: TMultiReadExclusiveWriteSynchronizer;

    //对互斥的数据库进行处理
    s006:boolean=false;           s002:integer=0;
    s007:boolean=false;           s011:integer=0;
    s001:boolean=false;           s101:integer=0;

    //建立互斥信号量
    g_Mutex1 : THandle = 0;
    
    sInBag,sOutBag : array[0..64*1024] of char;
    Re : Integer;

implementation

end.