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.