我搞定了！
有要的人mail to me !!!
如下：
//--------------------
//dbconsts.pas
//--------------------
{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ }
{ Copyright (c) 1997,98 Inprise Corporation }
{ }
{*******************************************************}
unit DbConsts;
interface
resourcestring
SInvalidFieldSize = '字段大小无效';
SInvalidFieldKind = '字段类型无效';
SInvalidFieldRegistration = '字段注册无效';
SUnknownFieldType = '字段 ''%s'' 类型未知';
SFieldNameMissing = '字段名丢失';
SDuplicateFieldName = '字段名 ''%s'' 重复';
SFieldNotFound = '未发现字段 ''%s''';
SFieldAccessError = '无法将字段 ''%s'' 作为 %s 类型存取';
SFieldValueError = '字段 ''%s'' 取值无效';
SFieldRangeError = '%g 对于字段 ''%s'' 是无效的. 允许的取值范围是从 %g 到 %g';
SInvalidIntegerValue = '''%s'' 对于字段 ''%s'' 不是有效的整数值';
SInvalidBoolValue = '''%s'' 对于字段 ''%s'' 不是有效的布尔值';
SInvalidFloatValue = '''%s'' 对于字段 ''%s'' 不是有效的浮点值';
SFieldTypeMismatch = '字段 ''%s'' 类型不匹配, 希望类型: %s, 实际类型: %s';
SFieldSizeMismatch = '字段 ''%s'' 大小不匹配, 希望大小: %d, 实际大小: %d';
SInvalidVarByteArray = '字段 ''%s'' 变量类型或大小无效';
SFieldOutOfRange = '字段 ''%s'' 取值超界';
SBCDOverflow = '(溢出)';
SFieldRequired = '字段 ''%s'' 必须赋值';
SDataSetMissing = '字段 ''%s'' 没有指定数据集';
SInvalidCalcType = '字段 ''%s'' 不能作为计算字段或查找字段';
SFieldReadOnly = '字段 ''%s'' 不能修改';
SFieldIndexError = '字段索引超界';
SNoFieldIndexes = '目前没有活动的索引';
SNotIndexField = '字段 ''%s'' 没有索引, 无法修改';
SIndexFieldMissing = '无法存取索引字段 ''%s''';
SDuplicateIndexName = '索引名重复 ''%s''';
SNoIndexForFields = '字段 ''%s'' 没有索引';
SIndexNotFound = '未发现索引 ''%s''';
SDuplicateName = '%s 中 ''%s'' 重名';
SCircularDataLink = '不允许循环的数据连接';
SLookupInfoError = '字段 ''%s'' 的查找信息不完整';
SDataSourceChange = '数据源不能修改';
SNoNestedMasterSource = '嵌套的数据集不能拥有主数据源';
SDataSetOpen = '无法在打开的数据集上执行该操作';
SNotEditing = '数据集不在修改或插入模式';
SDataSetClosed = '无法在关闭的数据集上执行该操作';
SDataSetEmpty = '无法在空数据集上执行该操作';
SDataSetReadOnly = '无法修改只读的数据集';
SNestedDataSetClass = '嵌套的数据集必须从 %s 继承';
SExprTermination = '过滤表达式不正常结束';
SExprNameError = '字段名未终止';
SExprStringError = '字符串常数未终止';
SExprInvalidChar = '无效的过滤表达式字符: ''%s''';
SExprNoLParen = '希望 ''('', 但发现了 %s';
SExprNoRParen = '希望 '')'', 但发现了 %s';
SExprNoRParenOrComma = '希望 '')'' 或 '','', 但发现了 %s';
SExprExpected = '希望表达式, 但发现了 %s';
SExprBadField = '字段 ''%s'' 不允许在过滤表达式中使用';
SExprBadNullTest = 'NULL 只允许用于 ''='' 和 ''<>''';
SExprRangeError = '常数超界';
SExprNotBoolean = '字段 ''%s'' 不是布尔类型';
SExprIncorrect = '过滤表达式形式不正确';
SExprNothing = '无';
SExprTypeMis = '表达式类型不匹配';
SExprBadScope = '该操作不能混合合计值和各记录变化的值';
SExprNoArith = '不支持过滤表达式中的算法';
SExprNotAgg = '表达式不是合计表达式';
SExprBadConst = '常数不是正确的 %s 类型';
SExprNoAggFilter = '过滤中不允许合计表达式';
SExprEmptyInList = 'IN 列表不能为空';
SInvalidKeywordUse = '关键字使用错误';
STextFalse = '假';
STextTrue = '真';
SParameterNotFound = '未发现参数 ''%s''';
SInvalidVersion = '无法载入约束参数';
SParamTooBig = '参数 ''%s'', 无法保存大于 %d 字节的数据';
SParamBadFieldType = '不支持字段 ''%s'' 的数据类型';
SAggActive = '合计处于活动状态时不能修改属性';
{ DBCtrls }
SFirstRecord = '第一条记录';
SPriorRecord = '前一条记录';
SNextRecord = '下一条记录';
SLastRecord = '最后一条记录';
SInsertRecord = '插入记录';
SDeleteRecord = '删除记录';
SEditRecord = '修改记录';
SPostEdit = '保存改动';
SCancelEdit = '取消改动';
SRefreshRecord = '刷新数据';
SDeleteRecordQuestion = '删除记录吗?';
SDeleteMultipleRecordsQuestion = '删除所有选中的记录吗?';
SRecordNotFound = '未发现记录';
SDataSourceFixed = '操作不允许在 DBCtrlGrid 上执行';
SNotReplicatable = '控件不允许在 DBCtrlGrid 中使用';
SPropDefByLookup = '属性已由查找字段定义了';
STooManyColumns = '表格试图显示超过256列';
{ DBLogDlg }
SRemoteLogin = '远程登录';
{ DBOleEdt }
SDataBindings = '数据绑定...';
implementation
end.
//--------------------
//consts.pas
//--------------------
{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ }
{ Copyright (c) 1995,98 Inprise Corporation }
{ }
{*******************************************************}
unit Consts;
interface
resourcestring
SOpenFileTitle = '打开';
SAssignError = '无法将一个 %s 分配给一个 %s';
SFCreateError = '无法建立文件 %s';
SFOpenError = '无法打开文件 %s';
SReadError = '流读取错误';
SWriteError = '流写入错误';
SMemoryStreamError = '扩展内存流时内存不足';
SCantWriteResourceStreamError = '无法写入一个只读的资源流';
SDuplicateReference = 'WriteObject 对同一个实例调用了两次';
SClassNotFound = '类 %s 未找到';
SInvalidImage = '无效的流格式';
SResNotFound = '资源 %s 未找到';
SClassMismatch = '资源 %s 是无效的类';
SListIndexError = '列表索引超界 (%d)';
SListCapacityError = '列表容量超界 (%d)';
SListCountError = '列表总数超界 (%d)';
SSortedListError = '操作不允许在排序列表中执行';
SDuplicateString = '字符串列表不允许重复';
SInvalidTabIndex = '标签索引超界';
SInvalidTabPosition = '标签位置与当前的标签类型冲突';
SInvalidTabStyle = '标签类型与当前的标签位置冲突';
SDuplicateName = '已经存在名为 %s 的组件';
SInvalidName = '''''%s'''' 不是有效的组件名';
SDuplicateClass = '已经存在名为 %s 的类';
SNoComSupport = '%s 没有注册为 COM 类';
SInvalidInteger = '''''%s'''' 不是有效的整数';
SLineTooLong = '行超长';
SInvalidPropertyValue = '无效的属性值';
SInvalidPropertyPath = '无效的属性路径';
SUnknownProperty = '属性不存在';
SReadOnlyProperty = '属性只读';
SPropertyException = '读取错误 %s%s%s: %s';
SAncestorNotFound = '未找到 ''%s'' 的祖先';
SInvalidBitmap = '位图图象无效';
SInvalidIcon = '图标图象无效';
SInvalidMetafile = '元文件无效';
SInvalidPixelFormat = '无效的像素格式';
SBitmapEmpty = '位图为空';
SScanLine = '扫描线索引超界';
SChangeIconSize = '无法改变图标大小';
SOleGraphic = 'TOleGraphic 上的无效操作';
SUnknownExtension = '未知的图象文件扩展名 (.%s)';
SUnknownClipboardFormat = '不支持的剪贴板格式';
SOutOfResources = '系统资源不足';
SNoCanvasHandle = '不允许绘图';
SInvalidImageSize = '无效的图象大小';
STooManyImages = '图象太多';
SDimsDoNotMatch = '图象维数与图象列表维数不匹配';
SInvalidImageList = '无效的图象列表';
SReplaceImage = '无法替换图象';
SImageIndexError = '无效的图象列表索引';
SImageReadFail = '从流中读取图象列表数据失败';
SImageWriteFail = '将图象列表数据写入流失败';
SWindowDCError = '创建窗口设备描述失败';
SClientNotSet = 'TDrag 客户区没有初始化';
SWindowClass = '创建窗口类失败';
SWindowCreate = '创建窗口失败';
SCannotFocus = '无法聚焦到失效的或不可见的窗口';
SParentRequired = '控件 ''%s'' 没有父窗口';
SMDIChildNotVisible = '无法隐藏 MDI 子窗口';
SVisibleChanged = '无法在 OnShow 或 OnHide 事件中改变可是否视';
SCannotShowModal = '无法使不可见窗口成为模态';
SScrollBarRange = '滚动条属性超界';
SPropertyOutOfRange = '%s 属性超界';
SMenuIndexError = '菜单索引超界';
SMenuReinserted = '菜单被插入了两次';
SMenuNotFound = '子菜单不在菜单内';
SNoTimers = '可用的计时器不足';
SNotPrinting = '打印机当前不在打印状态';
SPrinting = '打印正在进行';
SPrinterIndexError = '打印机索引超界';
SInvalidPrinter = '选定的打印机无效';
SDeviceOnPort = '%s 在 %s 上';
SGroupIndexTooLow = '组索引不能小于前一个菜单项的组索引';
STwoMDIForms = '每个应用程序只能有一个 MDI 窗口';
SNoMDIForm = '无法创建窗口. 目前没有活动的 MDI 窗口';
SRegisterError = '无效的组件注册信息';
SImageCanvasNeedsBitmap = '当图象为位图时才能修改它';
SControlParentSetToSelf = '控件不能将自身作为父窗口';
SOKButton = '确定';
SCancelButton = '取消';
SYesButton = '是[&Y]';
SNoButton = '否[&N]';
SHelpButton = '帮助[&H]';
SCloseButton = '关闭[&C]';
SIgnoreButton = '忽略[&I]';
SRetryButton = '重试[&R]';
SAbortButton = '中断[&A]';
SAllButton = '全部[&A]';
SCannotDragForm = '无法拖动窗口';
SPutObjectError = 'PutObject to undefined item';
SCardDLLNotLoaded = '无法载入 CARDS.DLL';
SDuplicateCardId = '发现重复的 CardId';
SDdeErr = 'DDE 返回错误 ($0%x)';
SDdeConvErr = 'DDE 错误 - 会话未确定 ($0%x)';
SDdeMemErr = 'DDE 运行内存不足时发生错误 ($0%x)';
SDdeNoConnect = '无法连接到 DDE 会话';
SFB = 'FB';
SFG = 'FG';
SBG = 'BG';
SOldTShape = '无法载入旧版本的 TShape';
SVMetafiles = '元文件';
SVEnhMetafiles = '扩展元文件';
SVIcons = '图标';
SVBitmaps = '位图';
SGridTooLarge = '表格太大,无法进行操作';
STooManyDeleted = '过多的行或列被删除';
SIndexOutOfRange = '表格索引超界';
SFixedColTooBig = '固定列必须少于总列数';
SFixedRowTooBig = '固定行必须少于总行数';
SInvalidStringGridOp = '无法在表格中删除或插入行';
SParseError = '%s 在第 %d 行';
SIdentifierExpected = '希望一个标识符';
SStringExpected = '希望一个字符串';
SNumberExpected = '希望一个数字';
SCharExpected = '希望一个''''%s''''';
SSymbolExpected = '希望一个%s';
SInvalidNumber = '无效的数字值';
SInvalidString = '无效的字符串常数';
SInvalidProperty = '无效的属性值';
SInvalidBinary = '无效的二进制值';
SOutlineIndexError = '未发现 Outline 索引';
SOutlineExpandError = '父节点必须展开';
SInvalidCurrentItem = '对当前项目无效的值';
SMaskErr = '无效的输入值';
SMaskEditErr = '无效的输入值. 按[Esc]键取消所作的修改';
SOutlineError = '无效的 Outline 索引';
SOutlineBadLevel = '级别分配错误';
SOutlineSelection = '无效的选择';
SOutlineFileLoad = '载入文件错误';
SOutlineLongLine = '行超长';
SOutlineMaxLevels = '超过了 Outline 最大深度';
SMsgDlgWarning = '警告';
SMsgDlgError = '错误';
SMsgDlgInformation = '信息';
SMsgDlgConfirm = '确认';
SMsgDlgYes = '是[&Y]';
SMsgDlgNo = '否[&N]';
SMsgDlgOK = '确定';
SMsgDlgCancel = '取消';
SMsgDlgHelp = '帮助[&H]';
SMsgDlgHelpNone = '没有可用的帮助';
SMsgDlgHelpHelp = '帮助';
SMsgDlgAbort = '中断[&A]';
SMsgDlgRetry = '重试[&R]';
SMsgDlgIgnore = '忽略[&I]';
SMsgDlgAll = '全部[&A]';
SMsgDlgNoToAll = '全部不是[&o]';
SMsgDlgYesToAll = '全是[&A]';
SmkcBkSp = '回退';
SmkcTab = 'Tab';
SmkcEsc = 'Esc';
SmkcEnter = '回车';
SmkcSpace = '空格';
SmkcPgUp = 'PgUp';
SmkcPgDn = 'PgDn';
SmkcEnd = 'End';
SmkcHome = 'Home';
SmkcLeft = '左';
SmkcUp = '上';
SmkcRight = '右';
SmkcDown = '下';
SmkcIns = '插入';
SmkcDel = '删除';
SmkcShift = 'Shift+';
SmkcCtrl = 'Ctrl+';
SmkcAlt = 'Alt+';
srUnknown = '(未知)';
srNone = '(无)';
SOutOfRange = '取值必须从 %d 到 %d';
SCannotCreateName = '无法为未命名的组件建立缺省的方法名';
SDateEncodeError = '参数对于对于日期编码无效';
STimeEncodeError = '参数对于对于时间编码无效';
SInvalidDate = '''''%s'''' 不是有效的日期';
SInvalidTime = '''''%s'''' 不是有效的时间';
SInvalidDateTime = '''''%s'''' 不是有效的日期和时间';
SInvalidFileName = '无效的文件名 - %s';
SDefaultFilter = '所有文件 (*.*)|*.*';
sAllFilter = '全部';
SNoVolumeLabel = ': [ - 无卷标 - ]';
SInsertLineError = '无法插入行';
SConfirmCreateDir = '指定的目录不存在. 创建吗?';
SSelectDirCap = '选择目录';
SCannotCreateDir = '无法创建目录';
SDirNameCap = '目录名[&N]:';
SDrivesCap = '磁盘驱动器[D&]:';
SDirsCap = '目录[&D]:';
SFilesCap = '文件[&F]: (*.*)';
SNetworkCap = '网络[&t]...';
SColorPrefix = '颜色';
//!! obsolete - delete in 5.0
SColorTags = 'ABCDEFGHIJKLMNOP';
//!! obsolete - delete in 5.0
SInvalidClipFmt = '无效的剪贴板格式';
SIconToClipboard = '剪贴板不支持图标';
SCannotOpenClipboard = '无法打开剪贴板';
SDefault = '缺省';
SInvalidMemoSize = '文本超过 Memo 容量';
SCustomColors = '自定义颜色';
SInvalidPrinterOp = '指定的打印机不支持该操作';
SNoDefaultPrinter = '目前没有选择缺省打印机';
SIniFileWriteError = '无法写入 %s';
SBitsIndexError = '位索引超界';
SUntitled = '(未命名)';
SInvalidRegType = '对于 ''%s'' 无效的数据类型';
SRegCreateFailed = '创建主键 %s 失败';
SRegSetDataFailed = '设置 ''%s'' 值失败';
SRegGetDataFailed = '读取 ''%s'' 值失败';
SUnknownConversion = '未知的 RichEdit 转换文件扩展名 (.%s)';
SDuplicateMenus = '菜单 ''%s'' 已经被其他窗口使用了';
SPictureLabel = '图象:';
SPictureDesc = ' (%dx%d)';
SPreviewLabel = '预览';
SCannotOpenAVI = '无法打开 AVI';
SNotOpenErr = '没有打开的 MCI 设备';
SMPOpenFilter = '所有文件 (*.*)|*.*|Wave 文件 (*.wav)|*.wav|Midi 文件 (*.mid)|*.mid|Avi 文件 (*.avi)|*.avi';
SMCINil = '';
SMCIAVIVideo = 'AVI 视频';
SMCICDAudio = 'CD 音频';
SMCIDAT = 'DAT';
SMCIDigitalVideo = '数字视频';
SMCIMMMovie = '影片';
SMCIOther = '其他';
SMCIOverlay = '覆盖';
SMCIScanner = '扫描器';
SMCISequencer = '序列发生器';
SMCIVCR = 'VCR';
SMCIVideodisc = '视盘';
SMCIWaveAudio = 'Wave 音频';
SMCIUnknownError = '未知的错误代号';
SBoldItalicFont = '粗体 斜体';
SBoldFont = '粗体';
SItalicFont = '斜体';
SRegularFont = '正常';
SPropertiesVerb = '属性';
sWindowsSocketError = 'Windows 套接字错误: %s (%d), 产生于 API 调用 ''%s'' 处';
sAsyncSocketError = '异步套接字错误 %d';
sNoAddress = '未指定地址';
sCannotListenOnOpen = '无法从打开的套接字中读取';
sCannotCreateSocket = '无法创建新的套接字';
sSocketAlreadyOpen = '套接字已打开';
sCantChangeWhileActive = '套接字活动时无法修改值';
sSocketMustBeBlocking = '套接字必须是块模式';
sSocketIOError = '%s 错误 %d, %s';
sSocketRead = '读';
sSocketWrite = '写';
SServiceFailed = '%s 服务失败: %s';
SExecute = '执行';
SStart = '开始';
SStop = '停止';
SPause = '暂停';
SContinue = '继续';
SInterrogate = '询问';
SShutdown = '关闭';
SCustomError = '服务在自定义消息(%d)中失败: %s';
SServiceInstallOK = '服务安装成功';
SServiceInstallFailed = '服务 "%s" 安装失败,错误信息为: "%s"';
SServiceUninstallOK = '服务卸载成功';
SServiceUninstallFailed = '服务 "%s" 卸载失败,错误信息为: "%s"';
SInvalidActionRegistration = '动作注册无效';
SInvalidActionUnregistration = '动作取消注册无效';
SInvalidActionEnumeration = '动作列举无效';
SInvalidActionCreation = '动作创建无效';
SDockedCtlNeedsName = '驻停式控件必须具有名称';
SDockTreeRemoveError = '从驻停树中删除控件错误';
SDockZoneNotFound = ' - 未发现驻停区域';
SDockZoneHasNoCtl = ' - 驻停区域中没有控件';
SAllCommands = '全部命令';
implementation
end.
