BillsEditor/CU/ConstVarUnit.pas

unit ConstVarUnit;

interface

uses Messages;

const
  {SoftWare Name}

  SoftWareName_ZY_Common  = '纵横公路工程0号台账清单编审软件(专业版)';
  SoftWareName_ZY         = '纵横清单编制管理系统(专业版)';//'广东三级清单编制软件';
  SoftWareName_XX         = '纵横清单编制管理系统(学习版)';
  SoftWareName_OnLine     = '纵横清单编制管理系统(网络版)';

  {serve phone}
  
  LoadAuthorizePhone      = '0756-3850888';
  LoadServicePhone        = '0756-3850888';

  {TemplateFiles}

  BillsTemplateFile       = 'BillsTemplete.bmf';
  BudgetTemplateFile      = 'BudgetTemplete.bmf';
  FXTemplateFile          = 'FXTemplate.dat';


  {DataBase Fields ************** Begin ******************}
  
  {Bills}

  SID                     = 'ID';
  sParentID               = 'ParentID';
  sNextSiblingID          = 'NextSiblingID';
  sBillsID                = 'BillsID';
  STotalPrice             = 'TotalPrice';
  STenderTotalPrice       = 'TenderTotalPrice';
  sName                   = 'Name';
  sUnits                  = 'Units';
  sCode                   = 'Code';
  sB_Code                 = 'B_Code';
  sIsLeaf                 = 'IsLeaf';
  sBillsCode              = 'BillsCode';
  sMemoStr                = 'MemoStr';
  sOwnerName              = 'OwnerName';
  sQuantity               = 'Quantity';
  sQuantity2              = 'Quantity2';
  sUnitPrice              = 'UnitPrice';
  sDesignQuantity         = 'DesignQuantity';
  sDesignQuantity2        = 'DesignQuantity2';
  sDesignPrice            = 'DesignPrice';
  sIsPreDefine            = 'IsPreDefine';

  {dqCalcExpression}

  sDQID                   = 'DQID';

  {HisResPoint}

  sCreateTime             = 'CreateTime';

  {Exprs}

  SMajorMinorRecdID       = 'MajorID;MinorID;RecdID';
  SMajorRecdID            = 'MajorID;RecdID';

  Exprs_Bills_ID          = 1;
  Exprs_DrawQty_ID        = 2;

  Exprs_Qty_ID            = 1;
  Exprs_DQty_ID           = 4;
  Exprs_DQty2_ID          = 5;

  {DrawingQuantity}

  sDQuantity1             = 'DQuantity1';
  sDQuantity2             = 'DQuantity2';
  sMemoContext            = 'MemoContext';
  sSerinalNo              = 'SerinalNo';

  {ProjProperty}

  sProjType               = 'PROJTYPE';

  { Bills ID }

  GYTotalPriceID          = 5;
  GLBaseCost              = 6;

  {************************** End *******************************}

  
  {Message Hint Words}

  sInputFileName          = '输入文件名称';
  sNameNotNull            = '名称不能为空,请重新输入!';
  sSameFileName           = '已存在同名文件,请重新输入!';
  sSpecialChar            = '文件名不能包含特殊字符(/ \ : * ? " < > |)！';
  sGatherError            = '汇总出错，可能打勾位置不正确！';
  sMergeProjectHint       = '选择操作:' + #13#10 + '  1. 确定: 覆盖建设项目;' + #13#10 + '  2. 取消: 先导出建设项目,再覆盖.';
  sSplitProjectHint       = '选择操作:' + #13#10 + '  1. 确定: 覆盖标段;' + #13#10 + '  2. 取消: 先导出建设项目,再覆盖.';

  sQuestTip               = '询问';
  sErrorTip               = '错误';
  sExportTip              = '导出';
  sImportTip              = '导入';

  sImportExcelHint        = '导入Excel会覆盖原来清单，是否继续？';
  sDeleteBillsHint        = '确定要删除该清单项及其下面的所有子项吗？';
  sDeleteLib              = '确定要删除该标准清单吗？';
  sRemoveBillsZeorQty     = '确定要删除(工程量和单价 = 0)的所有清单吗?';
  sClearBillsQtyHint      = '确定要清空当前清单及其子项的工程量, 以及它们底下的所有图纸工程量的数量吗?';
  sLoginFailed            = '登录服务器失败，程序即将关闭。';

  sWelcomeText            = '欢迎使用纵横软件！！！';

  {Status Words}

  sNewWord                = '正在新建文件';
  sOpenWord               = '正在打开文件';
  sSaveWord               = '正在保存文件';
  sSaveAsWord             = '正在另存文件';
  sImportExcel            = '正在导入Excel';
  sGatherWord             = '正在汇总清单';
  sCopyBills              = '正在复制清单';
  sExportExcel            = '正在导出Excel';
  sMergeProject           = '正在合并清单';
  sSplitProject           = '正在拆分清单';
  sExportStdLib           = '正在导出分项清单';
  sInitWord               = '就绪';


  {Self Define Messages}

  SM_Base                 = WM_USER + 100;
  SM_ProgressInc          = SM_Base + 1;
  SM_StdBillsLib          = SM_Base + 2;
  SM_CheckProject         = SM_Base + 3;
  SM_LocateBills          = SM_Base + 4;
  SM_AutoSaveProjects     = SM_Base + 5;


  {Units}

  UnitsArray: array [0..34] of string = (
                                        'm',
                                        'km',
                                        'm2',
                                        'm3',
                                        'kg',
                                        't',
                                        'm3·km',
                                        '总额',
                                        '月',
                                        '项',
                                        '处',
                                        '个',
                                        '根',
                                        '棵',
                                        '块',
                                        '每一试桩',
                                        '桥长米',
                                        '公路公里',
                                        '株',
                                        '组',
                                        '座',
                                        '元',
                                        '工日',
                                        '套',
                                        '台班',
                                        '艘班',
                                        'm/处',
                                        'm/道',
                                        'm/座',
                                        'm2/m',
                                        'm3/m',
                                        'm3/处',
                                        '根/米',
                                        '亩',
                                        'm3/m2'
                                       );

  { project property }

  ArrProjectProperties: array [0..17] of string =
                                                  (
                                                    '项目类型',
                                                    '建设项目',
                                                    '合同段',
                                                    '编制范围',
                                                    '建设单位',
                                                    '工程地点',
                                                    '编制日期',
                                                    '编制人',
                                                    '编制人证号',
                                                    '复核人',
                                                    '复核人证号',
                                                    '投标人',
                                                    '数据文件号',
                                                    '公路等级',
                                                    '起点桩号',
                                                    '终点桩号',
                                                    '路线或桥梁长度(km)',
                                                    '路线或桥梁宽度(m)'
                                                  );

  {exprs}                                     
  ExprsCharSet: set of char = ['0'..'9','(','[','{', ')',']','}', '+','-','*','/','^', '%'];
//  ExprsCharSet: set of char = ['0'..'9', 'a'..'z', 'A'..'Z', '(','[','{', ')',']','}', '+','-','*','/','^', '%'];

  {Copy Bills}

  c_BillsList             = '清单列表';
  c_DrawQList             = '图纸列表';
  c_BillsItem             = '项目';
  c_DQItem                = '图纸项';
  c_BillsExprs            = '清单公式列表';
  c_BillsExprsItem        = '清单公式';
  c_DrawingExprs          = '图纸公式列表';
  c_DrawingExprsItem      = '图纸公式';
  
  c_ID                    = '序号';
  c_ParentID              = '父项序号';
  c_NextSiblingID         = '兄弟序号';
  c_Code                  = '项目节编号';
  c_BCode                 = '清单编号';
  c_Name                  = '名称';
  c_Units                 = '单位';
  c_DesignQuantity1       = '设计数量1';
  c_DesignQuantity2       = '设计数量2';
  c_DesignPrice           = '经济指标';
  c_Quantity              = '清单数量';
  c_Quantity2             = '清单数量2';
  c_UnitPrice             = '清单单价';
  c_TotalPrice            = '金额';
  c_MemoString            = '备注';
  c_IsGatherQty           = '统计';
  c_SerinalNo             = '顺序号';
  c_MajorID               = '主ID';
  c_MinorID               = '辅ID';
  c_RecdID                = '记录ID';
  c_Exprs                 = '表达式';
  c_Exprs1                = '表达式1';
  c_Flag                  = '标识';
  c_ExprsValue            = '值';
  c_BillsID               = 'BillsID';


  {Check Paste Bills Position}

  cp_Next                 = 0;
  cp_Font                 = 1;
  cp_Child                = 2;

  {restore point}
  MaxRPointCount          = 5;
  sBackUpFolder           = 'BackUpPoints';

  { max rows in trail's version when export bills to excel }
  MaxExcelRow             = 100;

  {connection string}
  SAdoConnectStr          = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;User ID=%s;Password=%s;Persist Security Info=True';

  {iniFile}
  SIniFileName            = 'config.ini';
  SStandardLibs           = 'StandardLibs';
  SProjectType            = 'Budget';

  SGeneralOptions         = 'GeneralOptions';
  SAllowMfyCode           = 'AllowMfyCode';
  SAutoSaveProjects       = 'AutoSaveProjects';
  SAutoSaveInterval       = 'AutoSaveInterval';
  SSaveAllProjects        = 'SaveAllProjects';
  SSaveRestorePoint       = 'SaveRestorePoint';
  SAutoCollapse           = 'AutoCollapse';
  SRealTimeCalc           = 'RealTimeCalc';

  SGatherOptions          = 'GatherOptions';
  SMatchCodeOnly          = 'MatchCodeOnly';

  {File Ext}
  
  STempFileExt            = '.tmp';
  SBudgetFileExt          = '.smb';
  SBillsFileExt           = '.smp';
  SEstimateFileExt        = '.sme';

type
  // 清单种类：图纸工程量、预算项目节、清单子目号、不区分
  TBillCategory = (bcTZGCL, bcYSXMJ, bcQDZMH, bcAll);
  // 错误种类：
  TErrorCategory = (ecCodeError, ecB_CodeError, ecNameError, ecUnitError,
                    ecNoQuantity, ecQuantityError,
                    ecNoDesignQuantity, ecNoDesignQuantity2, ecDesignQuantityPosError, ecRepeatLine,
                    ecLostChildren, ecLostPreSibling, ecLostNextSibling,
                    ecSuperscale, ecCodeStep, ecNoUnits);

// “数量错误”公用，用于用户手工指定
var
  ErrorHintAry: array[0..15] of string = ('新增预算项目节', '新增清单子目',
                  '名称错误', '单位错误', '清单数量遗漏', '数量错误',
                  '设计数量1遗漏', '设计数量2遗漏', '设计数量位置错误',
                  '重行', '漏子项(漏%d行)', '漏前项(漏%d行)', '漏后项(漏%d行)',
                  '深度超出', '编号递延', '单位遗漏');

const HintSeparator = '；';

implementation




end.