'*****************************************************************************
'文件：CheckCode4SqlServer.vbs
'版本：1.0
'功能：遍历物理模型中的所有表，检查表代码、字段代码
' 是否包含空格、是否包含中文、是否为系统关键字、是否长度超过116
'用法：打开物理模型，运行本脚本（Ctrl+Shift+X）
'备注：
'*****************************************************************************
dim model 'current model
set model = ActiveModel
If (model Is Nothing) Then
MsgBox "没有选择模型，请选择一个模型并打开."
ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then
MsgBox "当前选择的不是一个物理模型（PDM）."
Else
ProcessTables model
End If
'*****************************************************************************
'过程：ProcessTables
'功能：递归遍历所有的表
'*****************************************************************************
sub ProcessTables(folder)
'处理模型中的表
dim table
for each table in folder.tables
if not table.IsShortCut then
on error resume next
'检查表名中是否有特殊字符、是否为关键字
Check table.code, ""
Dim col
for each col in table.Columns
'检查字段名中是否有特殊字符、是否为关键字
Check col.code, table.code
next
end if
next
'对子目录进行递归
dim subFolder
for each subFolder in folder.Packages
ProcessTables subFolder
next
end sub
'*****************************************************************************
'过程：Check
'功能：检查表名 或 字段名
'*****************************************************************************
sub Check(str, tableCode)
dim outStr
if len(tableCode) > 0 then
outStr = "字段名 " & tableCode & "."
else
outStr = "表名 "
end if
'检查表明是否含有特殊字符
if InStr(str, " ") then
outStr = outStr & str & " 包含空格"
Output outStr
end if
'是否包含中文
if HasChinese(str) then
outStr = outStr & str & " 包含中文"
Output outStr
end if
'检测系统关键字
dim arr
arr = array("ADD","EXTERNAL","PROCEDURE","ALL","FETCH","PUBLIC","ALTER","FILE","RAISERROR","AND","FILLFACTOR","READ","ANY","FOR","READTEXT","AS","FOREIGN","RECONFIGURE","ASC","FREETEXT","REFERENCES","AUTHORIZATION","FREETEXTTABLE","REPLICATION","BACKUP","RESTORE","BEGIN","FULL","RESTRICT","BETWEEN","FUNCTION","RETURN","BREAK","GOTO","REVERT","BROWSE","GRANT","REVOKE","BULK","GROUP","RIGHT","BY","HAVING","ROLLBACK","CASCADE","HOLDLOCK","ROWCOUNT","CASE","IDENTITY","ROWGUIDCOL","CHECK","IDENTITY_INSERT","RULE","CHECKPOINT","IDENTITYCOL","SAVE","CLOSE","IF","SCHEMA","CLUSTERED","IN","SECURITYAUDIT","COALESCE","INDEX","SELECT","COLLATE","INNER","SEMANTICKEYPHRASETABLE","COLUMN","INSERT","SEMANTICSIMILARITYDETAILSTABLE","COMMIT","INTERSECT","SEMANTICSIMILARITYTABLE","COMPUTE","INTO","SESSION_USER","CONSTRAINT","IS","SET","CONTAINS","JOIN","SETUSER","CONTAINSTABLE","KEY","SHUTDOWN","CONTINUE","KILL","SOME","CONVERT","LEFT","STATISTICS","CREATE","LIKE","SYSTEM_USER","CROSS","LINENO","TABLE","CURRENT","LOAD","TABLESAMPLE","CURRENT_DATE","MERGE","TEXTSIZE","CURRENT_TIME","NATIONAL","THEN","CURRENT_TIMESTAMP","NOCHECK","CURRENT_USER","NONCLUSTERED","TOP","CURSOR","NOT","TRAN","DATABASE","NULL","TRANSACTION","DBCC","NULLIF","TRIGGER","DEALLOCATE","OF","TRUNCATE","DECLARE","OFF","TRY_CONVERT","DEFAULT","OFFSETS","TSEQUAL","DELETE","ON","UNION","DENY","OPEN","UNIQUE","DESC","OPENDATASOURCE","UNPIVOT","DISK","OPENQUERY","UPDATE","DISTINCT","OPENROWSET","UPDATETEXT","DISTRIBUTED","OPENXML","USE","DOUBLE","OPTION","USER","DROP","OR","VALUES","DUMP","ORDER","VARYING","ELSE","OUTER","VIEW","END","OVER","WAITFOR","ERRLVL","PERCENT","WHEN","ESCAPE","PIVOT","WHERE","EXCEPT","PLAN","WHILE","EXEC","PRECISION","WITH","EXECUTE","PRIMARY","WITHIN GROUP","EXISTS","PRINT","WRITETEXT","EXIT","PROC")
for each keyword in arr
if UCase(str) = keyword then
outStr = outStr & str & " 为系统关键字"
Output outStr
end if
next
'字符串长度是否超出限制
if Len(str) >= 116 then
outStr = outStr & str & " 命名的长度不应超过116"
Output outStr
end if
end sub
'*****************************************************************************
'函数：HasChinese
'功能：是否包含中文
'*****************************************************************************
function HasChinese(str)
HasChinese = false
dim i
for i=1 to Len(str)
if Asc(Mid(str,i,1)) < 0 then
HasChinese = true
exit for
end if
next
end function
