W
wy1979
Unregistered / Unconfirmed
GUEST, unregistred user!
//请问如何把下面的代码转换为c++builder的代码?
'****************************************************************
'Microsoft SQL Server 2000
'Visual Basic file generated for DTS Package
'File Name: E:/Documents and Settings/Administrator/Mydo
cuments/新建文件夹 (2)/朝阳2000.bas
'Package Name: 朝阳2000
'Package Description:
'Generated Date: 2003-5-18
'Generated Time: 13:19:35
'****************************************************************
Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Private Sub Main()
set goPackage = goPackageOld
goPackage.Name = "朝阳2000"
goPackage.WriteCompletionStatusToNTEventLog = False
goPackage.FailOnError = False
goPackage.PackagePriorityClass = 2
goPackage.MaxConcurrentSteps = 4
goPackage.LineageOptions = 0
goPackage.UseTransaction = True
goPackage.TransactionIsolationLevel = 4096
goPackage.AutoCommitTransaction = True
goPackage.RepositoryMetadataOptions = 0
goPackage.UseOLEDBServiceComponents = True
goPackage.LogToSQLServer = False
goPackage.LogServerFlags = 0
goPackage.FailPackageOnLogFailure = False
goPackage.ExplicitGlobalVariables = False
goPackage.PackageType = 0
'---------------------------------------------------------------------------
' create package connection information
'---------------------------------------------------------------------------
Dim oConnection as DTS.Connection2
'------------- a new connection defined below.
'For security purposes, the password is never scripted
Set oConnection = goPackage.Connections.New("SQLOLEDB")
oConnection.ConnectionProperties("Integrated Security") = "SSPI"
oConnection.ConnectionProperties("Persist Security Info") = True
oConnection.ConnectionProperties("Initial Catalog") = "体检表"
oConnection.ConnectionProperties("Data Source") = "(local)"
oConnection.ConnectionProperties("Application Name") = "DTS 设计器"
oConnection.Name = "源"
oConnection.ID = 1
oConnection.Reusable = True
oConnection.ConnectImmediate = False
oConnection.DataSource = "(local)"
oConnection.ConnectionTimeout = 60
oConnection.Catalog = "体检表"
oConnection.UseTrustedConnection = True
oConnection.UseDSL = False
'If you have a password for this connection, please uncomment and add your password below.
'oConnection.Password = "<put the password here>"
goPackage.Connections.Add oConnection
Set oConnection = Nothing
'------------- a new connection defined below.
'For security purposes, the password is never scripted
Set oConnection = goPackage.Connections.New("SQLOLEDB")
oConnection.ConnectionProperties("Integrated Security") = "SSPI"
oConnection.ConnectionProperties("Persist Security Info") = True
oConnection.ConnectionProperties("Initial Catalog") = "体检分层表"
oConnection.ConnectionProperties("Data Source") = "(local)"
oConnection.ConnectionProperties("Application Name") = "DTS 设计器"
oConnection.Name = "目的"
oConnection.ID = 2
oConnection.Reusable = True
oConnection.ConnectImmediate = False
oConnection.DataSource = "(local)"
oConnection.ConnectionTimeout = 60
oConnection.Catalog = "体检分层表"
oConnection.UseTrustedConnection = True
oConnection.UseDSL = False
'If you have a password for this connection, please uncomment and add your password below.
'oConnection.Password = "<put the password here>"
goPackage.Connections.Add oConnection
Set oConnection = Nothing
'---------------------------------------------------------------------------
' create package steps information
'---------------------------------------------------------------------------
Dim oStep as DTS.Step2
Dim oPrecConstraint as DTS.PrecedenceConstraint
'------------- a new step defined below
Set oStep = goPackage.Steps.New
oStep.Name = "DTSStep_DTSDataPumpTask_1"
oStep.Description = "转换数据任务: 未定义"
oStep.ExecutionStatus = 1
oStep.TaskName = "DTSTask_DTSDataPumpTask_1"
oStep.CommitSuccess = False
oStep.RollbackFailure = False
oStep.ScriptLanguage = "VBScript"
oStep.AddGlobalVariables = True
oStep.RelativePriority = 3
oStep.CloseConnection = False
oStep.ExecuteInMainThread = False
oStep.IsPackageDSORowset = False
oStep.JoinTransactionIfPresent = False
oStep.DisableStep = False
oStep.FailPackageOnError = False
goPackage.Steps.Add oStep
Set oStep = Nothing
'------------- a new step defined below
Set oStep = goPackage.Steps.New
oStep.Name = "DTSStep_DTSExecuteSQLTask_1"
oStep.Description = "执行 SQL 任务: 未定义"
oStep.ExecutionStatus = 1
oStep.TaskName = "DTSTask_DTSExecuteSQLTask_1"
oStep.CommitSuccess = False
oStep.RollbackFailure = False
oStep.ScriptLanguage = "VBScript"
oStep.AddGlobalVariables = True
oStep.RelativePriority = 3
oStep.CloseConnection = False
oStep.ExecuteInMainThread = False
oStep.IsPackageDSORowset = False
oStep.JoinTransactionIfPresent = False
oStep.DisableStep = False
oStep.FailPackageOnError = False
goPackage.Steps.Add oStep
Set oStep = Nothing
'------------- a precedence constraint for steps defined below
Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_1")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
oPrecConstraint.PrecedenceBasis = 1
oPrecConstraint.Value = 0
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing
'---------------------------------------------------------------------------
' create package tasks information
'---------------------------------------------------------------------------
'------------- call Task_Sub1 for task DTSTask_DTSExecuteSQLTask_1 (执行 SQL 任务: 未定义)
Call Task_Sub1( goPackage )
'------------- call Task_Sub2 for task DTSTask_DTSDataPumpTask_1 (转换数据任务: 未定义)
Call Task_Sub2( goPackage )
'---------------------------------------------------------------------------
' Save or execute package
'---------------------------------------------------------------------------
'goPackage.SaveToSQLServer "(local)", "sa", ""
goPackage.Execute
goPackage.Uninitialize
'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line
set goPackage = Nothing
set goPackageOld = Nothing
End Sub
'------------- define Task_Sub1 for task DTSTask_DTSExecuteSQLTask_1 (执行 SQL 任务: 未定义)
Public Sub Task_Sub1(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask1 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask1 = oTask.CustomTask
oCustomTask1.Name = "DTSTask_DTSExecuteSQLTask_1"
oCustomTask1.Description = "执行 SQL 任务: 未定义"
oCustomTask1.SQLStatement = "DELETE 朝阳2000分层l"
oCustomTask1.ConnectionID = 2
oCustomTask1.CommandTimeout = 0
oCustomTask1.OutputAsRecordset = False
goPackage.Tasks.Add oTask
Set oCustomTask1 = Nothing
Set oTask = Nothing
End Sub
'------------- define Task_Sub2 for task DTSTask_DTSDataPumpTask_1 (转换数据任务: 未定义)
Public Sub Task_Sub2(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask2 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask2 = oTask.CustomTask
oCustomTask2.Name = "DTSTask_DTSDataPumpTask_1"
oCustomTask2.Description = "转换数据任务: 未定义"
oCustomTask2.SourceConnectionID = 1
oCustomTask2.SourceSQLStatement = "select " &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 客户信息视图.教工编号)as 教工编号,rtrim(性别) as 性别, rtrim(年龄) as 年龄, rtrim( 婚否) as 婚否,rtrim(单位) as 单位," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(民族) as 民族,rtrim(体重)as 体重,rtrim(舒张压)as 血压舒张,rtrim(收缩压)as 血压收缩,rtrim( 脉搏)as 脉搏," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(发育营养)as 发育营养,rtrim(神经)as 神经,rtrim(心电图)as 心电图,rtrim(肺及呼吸道)as 肺及呼吸道,rtrim(肝功)as 肝功," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 两对半)as 两对半,rtrim(皮肤淋巴)as 皮肤淋巴,rtrim(四肢关节)as 四肢关节,rtrim(甲状腺)as 甲状腺," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 泌尿生殖)as 泌尿生殖,rtrim(脊柱)as 脊柱,rtrim( B超)as B超,rtrim(青光眼)as 青光眼,rtrim(白内障)as 白内障," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 眼底动脉)as 眼底动脉,rtrim(眼疾)as 眼疾,rtrim( 听力)as 听力,rtrim(耳疾)as 耳疾,rtrim(鼻及鼻窦)as 鼻及鼻窦," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(嗅觉)as 嗅觉,rtrim(牙齿)as 牙齿,rtrim(X光)as X光,rtrim(甘油脂)as 甘油脂,rtrim(血糖)as 血糖,rtrim(妇科)as 妇科," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(低密度脂蛋白)as 脂蛋白,rtrim(血常规)as 血常规,rtrim( 尿常规)as 尿常规,rtrim(胆固醇)as 胆固醇 " &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"from 客户信息视图,朝阳2000" &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"where 客户信息视图.教工编号=朝阳2000.教工编号"
oCustomTask2.DestinationConnectionID = 2
oCustomTask2.DestinationObjectName = "[体检分层表].[dbo].[朝阳2000分层]"
oCustomTask2.ProgressRowCount = 1000
oCustomTask2.MaximumErrorCount = 0
oCustomTask2.FetchBufferSize = 1
oCustomTask2.UseFastLoad = True
oCustomTask2.InsertCommitSize = 0
oCustomTask2.ExceptionFileColumnDelimiter = "|"
oCustomTask2.ExceptionFileRowDelimiter = vbCrLf
oCustomTask2.AllowIdentityInserts = False
oCustomTask2.FirstRow = 0
oCustomTask2.LastRow = 0
oCustomTask2.FastLoadOptions = 2
oCustomTask2.ExceptionFileOptions = 1
oCustomTask2.DataPumpOptions = 0
Call oCustomTask2_Trans_Sub1( oCustomTask2 )
goPackage.Tasks.Add oTask
Set oCustomTask2 = Nothing
Set oTask = Nothing
End Sub
Public Sub oCustomTask2_Trans_Sub1(ByVal oCustomTask2 As Object)
Dim oTransformation As DTS.Transformation2
Dim oTransProps as DTS.Properties
Dim oColumn As DTS.Column
Set oTransformation = oCustomTask2.Transformations.New("DTSPump.DataPumpTransformScript")
oTransformation.Name = "DTSTransformation__1"
oTransformation.TransformFlags = 63
oTransformation.ForceSourceBlobsBuffered = 0
oTransformation.ForceBlobsInMemory = False
oTransformation.InMemoryBlobSize = 1048576
oTransformation.TransformPhases = 4
Set oColumn = oTransformation.SourceColumns.New("教工编号" , 1)
oColumn.Name = "教工编号"
oColumn.Ordinal = 1
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("性别" , 2)
oColumn.Name = "性别"
oColumn.Ordinal = 2
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("年龄" , 3)
oColumn.Name = "年龄"
oColumn.Ordinal = 3
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("婚否" , 4)
oColumn.Name = "婚否"
oColumn.Ordinal = 4
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("单位" , 5)
oColumn.Name = "单位"
oColumn.Ordinal = 5
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("民族" , 6)
oColumn.Name = "民族"
oColumn.Ordinal = 6
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("体重" , 7)
oColumn.Name = "体重"
oColumn.Ordinal = 7
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血压舒张" , 8)
oColumn.Name = "血压舒张"
oColumn.Ordinal = 8
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血压收缩" , 9)
oColumn.Name = "血压收缩"
oColumn.Ordinal = 9
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("脉搏" , 10)
oColumn.Name = "脉搏"
oColumn.Ordinal = 10
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("发育营养" , 11)
oColumn.Name = "发育营养"
oColumn.Ordinal = 11
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("神经" , 12)
oColumn.Name = "神经"
oColumn.Ordinal = 12
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("心电图" , 13)
oColumn.Name = "心电图"
oColumn.Ordinal = 13
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("肺及呼吸道" , 14)
oColumn.Name = "肺及呼吸道"
oColumn.Ordinal = 14
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("肝功" , 15)
oColumn.Name = "肝功"
oColumn.Ordinal = 15
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("两对半" , 16)
oColumn.Name = "两对半"
oColumn.Ordinal = 16
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("皮肤淋巴" , 17)
oColumn.Name = "皮肤淋巴"
oColumn.Ordinal = 17
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("四肢关节" , 18)
oColumn.Name = "四肢关节"
oColumn.Ordinal = 18
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("甲状腺" , 19)
oColumn.Name = "甲状腺"
oColumn.Ordinal = 19
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("泌尿生殖" , 20)
oColumn.Name = "泌尿生殖"
oColumn.Ordinal = 20
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("脊柱" , 21)
oColumn.Name = "脊柱"
oColumn.Ordinal = 21
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("B超" , 22)
oColumn.Name = "B超"
oColumn.Ordinal = 22
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("青光眼" , 23)
oColumn.Name = "青光眼"
oColumn.Ordinal = 23
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("白内障" , 24)
oColumn.Name = "白内障"
oColumn.Ordinal = 24
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("眼底动脉" , 25)
oColumn.Name = "眼底动脉"
oColumn.Ordinal = 25
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("眼疾" , 26)
oColumn.Name = "眼疾"
oColumn.Ordinal = 26
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("听力" , 27)
oColumn.Name = "听力"
oColumn.Ordinal = 27
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("耳疾" , 28)
oColumn.Name = "耳疾"
oColumn.Ordinal = 28
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("鼻及鼻窦" , 29)
oColumn.Name = "鼻及鼻窦"
oColumn.Ordinal = 29
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("嗅觉" , 30)
oColumn.Name = "嗅觉"
oColumn.Ordinal = 30
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("牙齿" , 31)
oColumn.Name = "牙齿"
oColumn.Ordinal = 31
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("X光" , 32)
oColumn.Name = "X光"
oColumn.Ordinal = 32
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("甘油脂" , 33)
oColumn.Name = "甘油脂"
oColumn.Ordinal = 33
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血糖" , 34)
oColumn.Name = "血糖"
oColumn.Ordinal = 34
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("妇科" , 35)
oColumn.Name = "妇科"
oColumn.Ordinal = 35
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("脂蛋白" , 36)
oColumn.Name = "脂蛋白"
oColumn.Ordinal = 36
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血常规" , 37)
oColumn.Name = "血常规"
oColumn.Ordinal = 37
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("尿常规" , 38)
oColumn.Name = "尿常规"
oColumn.Ordinal = 38
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("胆固醇" , 39)
oColumn.Name = "胆固醇"
oColumn.Ordinal = 39
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("教工编号" , 1)
oColumn.Name = "教工编号"
oColumn.Ordinal = 1
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("性别" , 2)
oColumn.Name = "性别"
oColumn.Ordinal = 2
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("民族" , 3)
oColumn.Name = "民族"
oColumn.Ordinal = 3
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("婚否" , 4)
oColumn.Name = "婚否"
oColumn.Ordinal = 4
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("年龄" , 5)
oColumn.Name = "年龄"
oColumn.Ordinal = 5
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("单位" , 6)
oColumn.Name = "单位"
oColumn.Ordinal = 6
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("体重" , 7)
oColumn.Name = "体重"
oColumn.Ordinal = 7
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("收缩压" , 8)
oColumn.Name = "收缩压"
oColumn.Ordinal = 8
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("舒张压" , 9)
oColumn.Name = "舒张压"
oColumn.Ordinal = 9
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("脉搏" , 10)
oColumn.Name = "脉搏"
oColumn.Ordinal = 10
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("发育营养" , 11)
oColumn.Name = "发育营养"
oColumn.Ordinal = 11
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("神经" , 12)
oColumn.Name = "神经"
oColumn.Ordinal = 12
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("心电图" , 13)
oColumn.Name = "心电图"
oColumn.Ordinal = 13
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("肺及呼吸道" , 14)
oColumn.Name = "肺及呼吸道"
oColumn.Ordinal = 14
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("肝功" , 15)
oColumn.Name = "肝功"
oColumn.Ordinal = 15
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("两对半" , 16)
oColumn.Name = "两对半"
oColumn.Ordinal = 16
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("皮肤淋巴" , 17)
oColumn.Name = "皮肤淋巴"
oColumn.Ordinal = 17
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("四肢关节" , 18)
oColumn.Name = "四肢关节"
oColumn.Ordinal = 18
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("甲状腺" , 19)
oColumn.Name = "甲状腺"
oColumn.Ordinal = 19
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("泌尿生殖" , 20)
oColumn.Name = "泌尿生殖"
oColumn.Ordinal = 20
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("脊柱" , 21)
oColumn.Name = "脊柱"
oColumn.Ordinal = 21
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("B超" , 22)
oColumn.Name = "B超"
oColumn.Ordinal = 22
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("青光眼" , 23)
oColumn.Name = "青光眼"
oColumn.Ordinal = 23
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("白内障" , 24)
oColumn.Name = "白内障"
oColumn.Ordinal = 24
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("眼底动脉" , 25)
oColumn.Name = "眼底动脉"
oColumn.Ordinal = 25
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("眼疾" , 26)
oColumn.Name = "眼疾"
oColumn.Ordinal = 26
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("听力" , 27)
oColumn.Name = "听力"
oColumn.Ordinal = 27
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("耳疾" , 28)
oColumn.Name = "耳疾"
oColumn.Ordinal = 28
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("鼻及鼻窦" , 29)
oColumn.Name = "鼻及鼻窦"
oColumn.Ordinal = 29
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("嗅觉" , 30)
oColumn.Name = "嗅觉"
oColumn.Ordinal = 30
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("牙齿" , 31)
oColumn.Name = "牙齿"
oColumn.Ordinal = 31
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("X光" , 32)
oColumn.Name = "X光"
oColumn.Ordinal = 32
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("甘油脂" , 33)
oColumn.Name = "甘油脂"
oColumn.Ordinal = 33
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("血糖" , 34)
oColumn.Name = "血糖"
oColumn.Ordinal = 34
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("妇科" , 35)
oColumn.Name = "妇科"
oColumn.Ordinal = 35
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("脂蛋白" , 36)
oColumn.Name = "脂蛋白"
oColumn.Ordinal = 36
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("血常规" , 37)
oColumn.Name = "血常规"
oColumn.Ordinal = 37
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("尿常规" , 38)
oColumn.Name = "尿常规"
oColumn.Ordinal = 38
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("胆固醇" , 39)
oColumn.Name = "胆固醇"
oColumn.Ordinal = 39
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oTransProps = oTransformation.TransformServerProperties
oTransProps("Text") = "//**********************************************************************" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"// Java 转换脚本" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//************************************************************************" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"function Main()" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"{" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"DTSDestination(""教工编号"")=DTSSource(""教工编号"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//性别分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""性别"")==""男""||DTSSource(""性别"")==""女"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""性别"") = DTSSource(""性别"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""性别"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//婚否分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""婚否"")==""已婚""||DTSSource(""婚否"")==""未婚"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""婚否"") = DTSSource(""婚否"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""婚否"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//民族分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""民族"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""民族"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""民族"") = DTSSource(""民族"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//单位分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""单位"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""单位"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""单位"") = DTSSource(""单位"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//年龄分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""年龄"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" {" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""年龄"")<=10)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""小于10"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=20)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""10-20岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=30)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""20-30岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=40)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""30-40岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=50)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""40-50岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=60)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""50-60岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=70)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""60-70岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""70-80岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""80-90岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")>90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""90以上"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""年龄"")=""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" }" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//体重分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""体重"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<50)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""100斤以内"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<60)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""100-120斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<70)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""120-140斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""140-160斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""160-180斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")>=90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""180斤以上"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""体重"") = ""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//收缩压分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血压收缩"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(100>=DTSSource(""血压收缩"")&&DTSSource(""血压收缩"")>=90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""90-100"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(110>=DTSSource(""血压收缩"")&&DTSSource(""血压收缩"")>=100)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""100-110"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血压收缩"")>=110)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""大于110"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""收缩压"")=""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//舒张压分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血压舒张"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(160>DTSSource(""血压舒张"")&&DTSSource(""血压舒张"")>=140)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""140-160"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(180>DTSSource(""血压舒张"")&&DTSSource(""血压舒张"")>=160)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""160-180"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血压舒张"")>=180)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""大于180"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""舒张压"")=""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//脉搏分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""脉搏"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")<=60)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""少于60"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")<=70)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""60-70次"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")<=80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""70-80次"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")>80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""80次以上"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""脉搏"") = ""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//甘油脂" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""甘油脂"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")<1.5)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""小于1.5"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")<=1.7)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""1.5-1.7"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")<=1.9)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""1.7-1.9"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")>1.9) " &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"")=""大于1.9"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""甘油脂"")=""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//血糖" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血糖"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血糖"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血糖"")<7.8) " &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血糖"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血糖"")>=7.8)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血糖"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""血糖"")=""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//胆固醇" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""胆固醇"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<5)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""小于5"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<6)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""5-6"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<7)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""6-7"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<8)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""7-8"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")>8)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""大于8"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""胆固醇"") = ""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//发育营养" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""发育营养"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""发育营养"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""发育营养"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""发育营养"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""发育营养"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//神经" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""神经"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""神经"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""神经"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""神经"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""神经"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//心电图" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""心电图"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""心电图"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""心电图"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""心电图"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""心电图"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//肺及呼吸道" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""肺及呼吸道"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肺及呼吸道"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""肺及呼吸道"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肺及呼吸道"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""肺及呼吸道"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//肝功" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""肝功"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肝功"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""肝功"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肝功"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""肝功"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//两对半" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""两对半"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""两对半"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""两对半"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""两对半"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""两对半"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//皮肤淋巴" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""皮肤淋巴"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""皮肤淋巴"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""皮肤淋巴"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""皮肤淋巴"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""皮肤淋巴"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//四肢关节" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""四肢关节"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""四肢关节"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""四肢关节"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""四肢关节"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""四肢关节"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//甲状腺" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""甲状腺"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甲状腺"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甲状腺"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甲状腺"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""甲状腺"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//泌尿生殖" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""泌尿生殖"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""泌尿生殖"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""泌尿生殖"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""泌尿生殖"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""泌尿生殖"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//脊柱" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""脊柱"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脊柱"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脊柱"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脊柱"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""脊柱"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//B超" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""B超"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""B超"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""B超"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""B超"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""B超"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//青光眼、眼底动脉、白内障正常为无。" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""青光眼"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""青光眼"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""青光眼"")==""无"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""青光眼"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""青光眼"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//白内障" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""白内障"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""白内障"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
{" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""白内障"")==""无"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""白内障"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""白内障"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" }" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//眼底动脉" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""眼底动脉"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼底动脉"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""眼底动脉"")==""无"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼底动脉"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""眼底动脉"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//眼疾" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""眼疾"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼疾"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""眼疾"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼疾"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""眼疾"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//听力" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""听力"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""听力"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""听力"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""听力"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""听力"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//耳疾" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""耳疾"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""耳疾"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""耳疾"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""耳疾"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""耳疾"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//鼻及鼻窦" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""鼻及鼻窦"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""鼻及鼻窦"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""鼻及鼻窦"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""鼻及鼻窦"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""鼻及鼻窦"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//嗅觉" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""嗅觉"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""嗅觉"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""嗅觉"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""嗅觉"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""嗅觉"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//牙齿" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""牙齿"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""牙齿"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""牙齿"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""牙齿"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""牙齿"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//X光" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""X光"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""X光"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""X光"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""X光"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""X光"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//妇科" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""妇科"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""妇科"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""妇科"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""妇科"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""妇科"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//脂蛋白" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""脂蛋白"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脂蛋白"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脂蛋白"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脂蛋白"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""脂蛋白"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//血常规" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血常规"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血常规"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血常规"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血常规"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""血常规"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//尿常规" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""尿常规"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""尿常规"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""尿常规"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""尿常规"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""尿常规"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" return(DTSTransformStat_OK);" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"}"
oTransProps("Language") = "JScript"
oTransProps("FunctionEntry") = "Main"
Set oTransProps = Nothing
oCustomTask2.Transformations.Add oTransformation
Set oTransformation = Nothing
End Sub
'****************************************************************
'Microsoft SQL Server 2000
'Visual Basic file generated for DTS Package
'File Name: E:/Documents and Settings/Administrator/Mydo
cuments/新建文件夹 (2)/朝阳2000.bas
'Package Name: 朝阳2000
'Package Description:
'Generated Date: 2003-5-18
'Generated Time: 13:19:35
'****************************************************************
Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Private Sub Main()
set goPackage = goPackageOld
goPackage.Name = "朝阳2000"
goPackage.WriteCompletionStatusToNTEventLog = False
goPackage.FailOnError = False
goPackage.PackagePriorityClass = 2
goPackage.MaxConcurrentSteps = 4
goPackage.LineageOptions = 0
goPackage.UseTransaction = True
goPackage.TransactionIsolationLevel = 4096
goPackage.AutoCommitTransaction = True
goPackage.RepositoryMetadataOptions = 0
goPackage.UseOLEDBServiceComponents = True
goPackage.LogToSQLServer = False
goPackage.LogServerFlags = 0
goPackage.FailPackageOnLogFailure = False
goPackage.ExplicitGlobalVariables = False
goPackage.PackageType = 0
'---------------------------------------------------------------------------
' create package connection information
'---------------------------------------------------------------------------
Dim oConnection as DTS.Connection2
'------------- a new connection defined below.
'For security purposes, the password is never scripted
Set oConnection = goPackage.Connections.New("SQLOLEDB")
oConnection.ConnectionProperties("Integrated Security") = "SSPI"
oConnection.ConnectionProperties("Persist Security Info") = True
oConnection.ConnectionProperties("Initial Catalog") = "体检表"
oConnection.ConnectionProperties("Data Source") = "(local)"
oConnection.ConnectionProperties("Application Name") = "DTS 设计器"
oConnection.Name = "源"
oConnection.ID = 1
oConnection.Reusable = True
oConnection.ConnectImmediate = False
oConnection.DataSource = "(local)"
oConnection.ConnectionTimeout = 60
oConnection.Catalog = "体检表"
oConnection.UseTrustedConnection = True
oConnection.UseDSL = False
'If you have a password for this connection, please uncomment and add your password below.
'oConnection.Password = "<put the password here>"
goPackage.Connections.Add oConnection
Set oConnection = Nothing
'------------- a new connection defined below.
'For security purposes, the password is never scripted
Set oConnection = goPackage.Connections.New("SQLOLEDB")
oConnection.ConnectionProperties("Integrated Security") = "SSPI"
oConnection.ConnectionProperties("Persist Security Info") = True
oConnection.ConnectionProperties("Initial Catalog") = "体检分层表"
oConnection.ConnectionProperties("Data Source") = "(local)"
oConnection.ConnectionProperties("Application Name") = "DTS 设计器"
oConnection.Name = "目的"
oConnection.ID = 2
oConnection.Reusable = True
oConnection.ConnectImmediate = False
oConnection.DataSource = "(local)"
oConnection.ConnectionTimeout = 60
oConnection.Catalog = "体检分层表"
oConnection.UseTrustedConnection = True
oConnection.UseDSL = False
'If you have a password for this connection, please uncomment and add your password below.
'oConnection.Password = "<put the password here>"
goPackage.Connections.Add oConnection
Set oConnection = Nothing
'---------------------------------------------------------------------------
' create package steps information
'---------------------------------------------------------------------------
Dim oStep as DTS.Step2
Dim oPrecConstraint as DTS.PrecedenceConstraint
'------------- a new step defined below
Set oStep = goPackage.Steps.New
oStep.Name = "DTSStep_DTSDataPumpTask_1"
oStep.Description = "转换数据任务: 未定义"
oStep.ExecutionStatus = 1
oStep.TaskName = "DTSTask_DTSDataPumpTask_1"
oStep.CommitSuccess = False
oStep.RollbackFailure = False
oStep.ScriptLanguage = "VBScript"
oStep.AddGlobalVariables = True
oStep.RelativePriority = 3
oStep.CloseConnection = False
oStep.ExecuteInMainThread = False
oStep.IsPackageDSORowset = False
oStep.JoinTransactionIfPresent = False
oStep.DisableStep = False
oStep.FailPackageOnError = False
goPackage.Steps.Add oStep
Set oStep = Nothing
'------------- a new step defined below
Set oStep = goPackage.Steps.New
oStep.Name = "DTSStep_DTSExecuteSQLTask_1"
oStep.Description = "执行 SQL 任务: 未定义"
oStep.ExecutionStatus = 1
oStep.TaskName = "DTSTask_DTSExecuteSQLTask_1"
oStep.CommitSuccess = False
oStep.RollbackFailure = False
oStep.ScriptLanguage = "VBScript"
oStep.AddGlobalVariables = True
oStep.RelativePriority = 3
oStep.CloseConnection = False
oStep.ExecuteInMainThread = False
oStep.IsPackageDSORowset = False
oStep.JoinTransactionIfPresent = False
oStep.DisableStep = False
oStep.FailPackageOnError = False
goPackage.Steps.Add oStep
Set oStep = Nothing
'------------- a precedence constraint for steps defined below
Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_1")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
oPrecConstraint.PrecedenceBasis = 1
oPrecConstraint.Value = 0
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing
'---------------------------------------------------------------------------
' create package tasks information
'---------------------------------------------------------------------------
'------------- call Task_Sub1 for task DTSTask_DTSExecuteSQLTask_1 (执行 SQL 任务: 未定义)
Call Task_Sub1( goPackage )
'------------- call Task_Sub2 for task DTSTask_DTSDataPumpTask_1 (转换数据任务: 未定义)
Call Task_Sub2( goPackage )
'---------------------------------------------------------------------------
' Save or execute package
'---------------------------------------------------------------------------
'goPackage.SaveToSQLServer "(local)", "sa", ""
goPackage.Execute
goPackage.Uninitialize
'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line
set goPackage = Nothing
set goPackageOld = Nothing
End Sub
'------------- define Task_Sub1 for task DTSTask_DTSExecuteSQLTask_1 (执行 SQL 任务: 未定义)
Public Sub Task_Sub1(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask1 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask1 = oTask.CustomTask
oCustomTask1.Name = "DTSTask_DTSExecuteSQLTask_1"
oCustomTask1.Description = "执行 SQL 任务: 未定义"
oCustomTask1.SQLStatement = "DELETE 朝阳2000分层l"
oCustomTask1.ConnectionID = 2
oCustomTask1.CommandTimeout = 0
oCustomTask1.OutputAsRecordset = False
goPackage.Tasks.Add oTask
Set oCustomTask1 = Nothing
Set oTask = Nothing
End Sub
'------------- define Task_Sub2 for task DTSTask_DTSDataPumpTask_1 (转换数据任务: 未定义)
Public Sub Task_Sub2(ByVal goPackage As Object)
Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup
Dim oCustomTask2 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask2 = oTask.CustomTask
oCustomTask2.Name = "DTSTask_DTSDataPumpTask_1"
oCustomTask2.Description = "转换数据任务: 未定义"
oCustomTask2.SourceConnectionID = 1
oCustomTask2.SourceSQLStatement = "select " &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 客户信息视图.教工编号)as 教工编号,rtrim(性别) as 性别, rtrim(年龄) as 年龄, rtrim( 婚否) as 婚否,rtrim(单位) as 单位," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(民族) as 民族,rtrim(体重)as 体重,rtrim(舒张压)as 血压舒张,rtrim(收缩压)as 血压收缩,rtrim( 脉搏)as 脉搏," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(发育营养)as 发育营养,rtrim(神经)as 神经,rtrim(心电图)as 心电图,rtrim(肺及呼吸道)as 肺及呼吸道,rtrim(肝功)as 肝功," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 两对半)as 两对半,rtrim(皮肤淋巴)as 皮肤淋巴,rtrim(四肢关节)as 四肢关节,rtrim(甲状腺)as 甲状腺," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 泌尿生殖)as 泌尿生殖,rtrim(脊柱)as 脊柱,rtrim( B超)as B超,rtrim(青光眼)as 青光眼,rtrim(白内障)as 白内障," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim( 眼底动脉)as 眼底动脉,rtrim(眼疾)as 眼疾,rtrim( 听力)as 听力,rtrim(耳疾)as 耳疾,rtrim(鼻及鼻窦)as 鼻及鼻窦," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(嗅觉)as 嗅觉,rtrim(牙齿)as 牙齿,rtrim(X光)as X光,rtrim(甘油脂)as 甘油脂,rtrim(血糖)as 血糖,rtrim(妇科)as 妇科," &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"rtrim(低密度脂蛋白)as 脂蛋白,rtrim(血常规)as 血常规,rtrim( 尿常规)as 尿常规,rtrim(胆固醇)as 胆固醇 " &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"from 客户信息视图,朝阳2000" &
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &
"where 客户信息视图.教工编号=朝阳2000.教工编号"
oCustomTask2.DestinationConnectionID = 2
oCustomTask2.DestinationObjectName = "[体检分层表].[dbo].[朝阳2000分层]"
oCustomTask2.ProgressRowCount = 1000
oCustomTask2.MaximumErrorCount = 0
oCustomTask2.FetchBufferSize = 1
oCustomTask2.UseFastLoad = True
oCustomTask2.InsertCommitSize = 0
oCustomTask2.ExceptionFileColumnDelimiter = "|"
oCustomTask2.ExceptionFileRowDelimiter = vbCrLf
oCustomTask2.AllowIdentityInserts = False
oCustomTask2.FirstRow = 0
oCustomTask2.LastRow = 0
oCustomTask2.FastLoadOptions = 2
oCustomTask2.ExceptionFileOptions = 1
oCustomTask2.DataPumpOptions = 0
Call oCustomTask2_Trans_Sub1( oCustomTask2 )
goPackage.Tasks.Add oTask
Set oCustomTask2 = Nothing
Set oTask = Nothing
End Sub
Public Sub oCustomTask2_Trans_Sub1(ByVal oCustomTask2 As Object)
Dim oTransformation As DTS.Transformation2
Dim oTransProps as DTS.Properties
Dim oColumn As DTS.Column
Set oTransformation = oCustomTask2.Transformations.New("DTSPump.DataPumpTransformScript")
oTransformation.Name = "DTSTransformation__1"
oTransformation.TransformFlags = 63
oTransformation.ForceSourceBlobsBuffered = 0
oTransformation.ForceBlobsInMemory = False
oTransformation.InMemoryBlobSize = 1048576
oTransformation.TransformPhases = 4
Set oColumn = oTransformation.SourceColumns.New("教工编号" , 1)
oColumn.Name = "教工编号"
oColumn.Ordinal = 1
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("性别" , 2)
oColumn.Name = "性别"
oColumn.Ordinal = 2
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("年龄" , 3)
oColumn.Name = "年龄"
oColumn.Ordinal = 3
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("婚否" , 4)
oColumn.Name = "婚否"
oColumn.Ordinal = 4
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("单位" , 5)
oColumn.Name = "单位"
oColumn.Ordinal = 5
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("民族" , 6)
oColumn.Name = "民族"
oColumn.Ordinal = 6
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("体重" , 7)
oColumn.Name = "体重"
oColumn.Ordinal = 7
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血压舒张" , 8)
oColumn.Name = "血压舒张"
oColumn.Ordinal = 8
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血压收缩" , 9)
oColumn.Name = "血压收缩"
oColumn.Ordinal = 9
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("脉搏" , 10)
oColumn.Name = "脉搏"
oColumn.Ordinal = 10
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("发育营养" , 11)
oColumn.Name = "发育营养"
oColumn.Ordinal = 11
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("神经" , 12)
oColumn.Name = "神经"
oColumn.Ordinal = 12
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("心电图" , 13)
oColumn.Name = "心电图"
oColumn.Ordinal = 13
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("肺及呼吸道" , 14)
oColumn.Name = "肺及呼吸道"
oColumn.Ordinal = 14
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("肝功" , 15)
oColumn.Name = "肝功"
oColumn.Ordinal = 15
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("两对半" , 16)
oColumn.Name = "两对半"
oColumn.Ordinal = 16
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("皮肤淋巴" , 17)
oColumn.Name = "皮肤淋巴"
oColumn.Ordinal = 17
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("四肢关节" , 18)
oColumn.Name = "四肢关节"
oColumn.Ordinal = 18
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("甲状腺" , 19)
oColumn.Name = "甲状腺"
oColumn.Ordinal = 19
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("泌尿生殖" , 20)
oColumn.Name = "泌尿生殖"
oColumn.Ordinal = 20
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("脊柱" , 21)
oColumn.Name = "脊柱"
oColumn.Ordinal = 21
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("B超" , 22)
oColumn.Name = "B超"
oColumn.Ordinal = 22
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("青光眼" , 23)
oColumn.Name = "青光眼"
oColumn.Ordinal = 23
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("白内障" , 24)
oColumn.Name = "白内障"
oColumn.Ordinal = 24
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("眼底动脉" , 25)
oColumn.Name = "眼底动脉"
oColumn.Ordinal = 25
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("眼疾" , 26)
oColumn.Name = "眼疾"
oColumn.Ordinal = 26
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("听力" , 27)
oColumn.Name = "听力"
oColumn.Ordinal = 27
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("耳疾" , 28)
oColumn.Name = "耳疾"
oColumn.Ordinal = 28
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("鼻及鼻窦" , 29)
oColumn.Name = "鼻及鼻窦"
oColumn.Ordinal = 29
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("嗅觉" , 30)
oColumn.Name = "嗅觉"
oColumn.Ordinal = 30
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("牙齿" , 31)
oColumn.Name = "牙齿"
oColumn.Ordinal = 31
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("X光" , 32)
oColumn.Name = "X光"
oColumn.Ordinal = 32
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("甘油脂" , 33)
oColumn.Name = "甘油脂"
oColumn.Ordinal = 33
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血糖" , 34)
oColumn.Name = "血糖"
oColumn.Ordinal = 34
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("妇科" , 35)
oColumn.Name = "妇科"
oColumn.Ordinal = 35
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("脂蛋白" , 36)
oColumn.Name = "脂蛋白"
oColumn.Ordinal = 36
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("血常规" , 37)
oColumn.Name = "血常规"
oColumn.Ordinal = 37
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("尿常规" , 38)
oColumn.Name = "尿常规"
oColumn.Ordinal = 38
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.SourceColumns.New("胆固醇" , 39)
oColumn.Name = "胆固醇"
oColumn.Ordinal = 39
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.SourceColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("教工编号" , 1)
oColumn.Name = "教工编号"
oColumn.Ordinal = 1
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("性别" , 2)
oColumn.Name = "性别"
oColumn.Ordinal = 2
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("民族" , 3)
oColumn.Name = "民族"
oColumn.Ordinal = 3
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("婚否" , 4)
oColumn.Name = "婚否"
oColumn.Ordinal = 4
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("年龄" , 5)
oColumn.Name = "年龄"
oColumn.Ordinal = 5
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("单位" , 6)
oColumn.Name = "单位"
oColumn.Ordinal = 6
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("体重" , 7)
oColumn.Name = "体重"
oColumn.Ordinal = 7
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("收缩压" , 8)
oColumn.Name = "收缩压"
oColumn.Ordinal = 8
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("舒张压" , 9)
oColumn.Name = "舒张压"
oColumn.Ordinal = 9
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("脉搏" , 10)
oColumn.Name = "脉搏"
oColumn.Ordinal = 10
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("发育营养" , 11)
oColumn.Name = "发育营养"
oColumn.Ordinal = 11
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("神经" , 12)
oColumn.Name = "神经"
oColumn.Ordinal = 12
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("心电图" , 13)
oColumn.Name = "心电图"
oColumn.Ordinal = 13
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("肺及呼吸道" , 14)
oColumn.Name = "肺及呼吸道"
oColumn.Ordinal = 14
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("肝功" , 15)
oColumn.Name = "肝功"
oColumn.Ordinal = 15
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("两对半" , 16)
oColumn.Name = "两对半"
oColumn.Ordinal = 16
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("皮肤淋巴" , 17)
oColumn.Name = "皮肤淋巴"
oColumn.Ordinal = 17
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("四肢关节" , 18)
oColumn.Name = "四肢关节"
oColumn.Ordinal = 18
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("甲状腺" , 19)
oColumn.Name = "甲状腺"
oColumn.Ordinal = 19
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("泌尿生殖" , 20)
oColumn.Name = "泌尿生殖"
oColumn.Ordinal = 20
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("脊柱" , 21)
oColumn.Name = "脊柱"
oColumn.Ordinal = 21
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("B超" , 22)
oColumn.Name = "B超"
oColumn.Ordinal = 22
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("青光眼" , 23)
oColumn.Name = "青光眼"
oColumn.Ordinal = 23
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("白内障" , 24)
oColumn.Name = "白内障"
oColumn.Ordinal = 24
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("眼底动脉" , 25)
oColumn.Name = "眼底动脉"
oColumn.Ordinal = 25
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("眼疾" , 26)
oColumn.Name = "眼疾"
oColumn.Ordinal = 26
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("听力" , 27)
oColumn.Name = "听力"
oColumn.Ordinal = 27
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("耳疾" , 28)
oColumn.Name = "耳疾"
oColumn.Ordinal = 28
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("鼻及鼻窦" , 29)
oColumn.Name = "鼻及鼻窦"
oColumn.Ordinal = 29
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("嗅觉" , 30)
oColumn.Name = "嗅觉"
oColumn.Ordinal = 30
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("牙齿" , 31)
oColumn.Name = "牙齿"
oColumn.Ordinal = 31
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("X光" , 32)
oColumn.Name = "X光"
oColumn.Ordinal = 32
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("甘油脂" , 33)
oColumn.Name = "甘油脂"
oColumn.Ordinal = 33
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("血糖" , 34)
oColumn.Name = "血糖"
oColumn.Ordinal = 34
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("妇科" , 35)
oColumn.Name = "妇科"
oColumn.Ordinal = 35
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("脂蛋白" , 36)
oColumn.Name = "脂蛋白"
oColumn.Ordinal = 36
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("血常规" , 37)
oColumn.Name = "血常规"
oColumn.Ordinal = 37
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("尿常规" , 38)
oColumn.Name = "尿常规"
oColumn.Ordinal = 38
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oColumn = oTransformation.DestinationColumns.New("胆固醇" , 39)
oColumn.Name = "胆固醇"
oColumn.Ordinal = 39
oColumn.Flags = 0
oColumn.Size = 0
oColumn.DataType = 0
oColumn.Precision = 0
oColumn.NumericScale = 0
oColumn.Nullable = True
oTransformation.DestinationColumns.Add oColumn
Set oColumn = Nothing
Set oTransProps = oTransformation.TransformServerProperties
oTransProps("Text") = "//**********************************************************************" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"// Java 转换脚本" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//************************************************************************" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"function Main()" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"{" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"DTSDestination(""教工编号"")=DTSSource(""教工编号"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//性别分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""性别"")==""男""||DTSSource(""性别"")==""女"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""性别"") = DTSSource(""性别"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""性别"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//婚否分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""婚否"")==""已婚""||DTSSource(""婚否"")==""未婚"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""婚否"") = DTSSource(""婚否"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""婚否"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//民族分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""民族"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""民族"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""民族"") = DTSSource(""民族"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//单位分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""单位"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""单位"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""单位"") = DTSSource(""单位"");" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//年龄分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""年龄"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" {" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""年龄"")<=10)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""小于10"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=20)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""10-20岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=30)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""20-30岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=40)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""30-40岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=50)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""40-50岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=60)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""50-60岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=70)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""60-70岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""70-80岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")<=90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""80-90岁"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""年龄"")>90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""年龄"")=""90以上"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""年龄"")=""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" }" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//体重分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""体重"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<50)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""100斤以内"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<60)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""100-120斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<70)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""120-140斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""140-160斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")<90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""160-180斤"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""体重"")>=90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""体重"") = ""180斤以上"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""体重"") = ""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//收缩压分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血压收缩"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(100>=DTSSource(""血压收缩"")&&DTSSource(""血压收缩"")>=90)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""90-100"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(110>=DTSSource(""血压收缩"")&&DTSSource(""血压收缩"")>=100)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""100-110"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血压收缩"")>=110)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""收缩压"")=""大于110"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""收缩压"")=""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//舒张压分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血压舒张"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(160>DTSSource(""血压舒张"")&&DTSSource(""血压舒张"")>=140)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""140-160"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(180>DTSSource(""血压舒张"")&&DTSSource(""血压舒张"")>=160)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""160-180"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血压舒张"")>=180)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""舒张压"")=""大于180"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""舒张压"")=""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//脉搏分层" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""脉搏"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")<=60)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""少于60"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")<=70)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""60-70次"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")<=80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""70-80次"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脉搏"")>80)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脉搏"") = ""80次以上"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""脉搏"") = ""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//甘油脂" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""甘油脂"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")<1.5)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""小于1.5"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")<=1.7)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""1.5-1.7"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")<=1.9)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"") = ""1.7-1.9"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甘油脂"")>1.9) " &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甘油脂"")=""大于1.9"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""甘油脂"")=""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//血糖" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血糖"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血糖"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血糖"")<7.8) " &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血糖"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血糖"")>=7.8)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血糖"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""血糖"")=""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//胆固醇" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""胆固醇"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<5)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""小于5"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<6)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""5-6"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<7)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""6-7"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")<8)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""7-8"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""胆固醇"")>8)" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""胆固醇"") = ""大于8"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""胆固醇"") = ""其它"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//发育营养" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""发育营养"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""发育营养"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""发育营养"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""发育营养"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""发育营养"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//神经" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""神经"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""神经"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""神经"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""神经"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""神经"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//心电图" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""心电图"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""心电图"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""心电图"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""心电图"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""心电图"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//肺及呼吸道" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""肺及呼吸道"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肺及呼吸道"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""肺及呼吸道"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肺及呼吸道"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""肺及呼吸道"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//肝功" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""肝功"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肝功"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""肝功"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""肝功"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""肝功"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//两对半" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""两对半"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""两对半"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""两对半"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""两对半"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""两对半"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//皮肤淋巴" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""皮肤淋巴"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""皮肤淋巴"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""皮肤淋巴"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""皮肤淋巴"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""皮肤淋巴"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//四肢关节" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""四肢关节"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""四肢关节"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""四肢关节"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""四肢关节"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""四肢关节"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//甲状腺" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""甲状腺"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甲状腺"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""甲状腺"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""甲状腺"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""甲状腺"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//泌尿生殖" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""泌尿生殖"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""泌尿生殖"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""泌尿生殖"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""泌尿生殖"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""泌尿生殖"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//脊柱" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""脊柱"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脊柱"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脊柱"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脊柱"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""脊柱"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//B超" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""B超"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""B超"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""B超"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""B超"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""B超"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//青光眼、眼底动脉、白内障正常为无。" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""青光眼"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""青光眼"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""青光眼"")==""无"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""青光眼"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""青光眼"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//白内障" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""白内障"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""白内障"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
{" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""白内障"")==""无"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""白内障"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""白内障"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" }" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//眼底动脉" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""眼底动脉"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼底动脉"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""眼底动脉"")==""无"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼底动脉"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""眼底动脉"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//眼疾" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""眼疾"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼疾"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""眼疾"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""眼疾"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""眼疾"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//听力" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""听力"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""听力"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""听力"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""听力"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""听力"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//耳疾" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""耳疾"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""耳疾"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""耳疾"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""耳疾"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""耳疾"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//鼻及鼻窦" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""鼻及鼻窦"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""鼻及鼻窦"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""鼻及鼻窦"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""鼻及鼻窦"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""鼻及鼻窦"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//嗅觉" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""嗅觉"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""嗅觉"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""嗅觉"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""嗅觉"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""嗅觉"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//牙齿" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""牙齿"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""牙齿"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""牙齿"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""牙齿"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""牙齿"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//X光" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""X光"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""X光"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""X光"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""X光"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""X光"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//妇科" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""妇科"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""妇科"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""妇科"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""妇科"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""妇科"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//脂蛋白" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""脂蛋白"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脂蛋白"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""脂蛋白"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""脂蛋白"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""脂蛋白"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//血常规" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""血常规"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血常规"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""血常规"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""血常规"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""血常规"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"//尿常规" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" if(DTSSource(""尿常规"")=="""")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""尿常规"") =""未知"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
if(DTSSource(""尿常规"")==""正常"")" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" DTSDestination(""尿常规"") = ""正常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" else
DTSDestination(""尿常规"")=""异常"";" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
" return(DTSTransformStat_OK);" &
vbCrLf
oTransProps("Text") = oTransProps("Text") &
"}"
oTransProps("Language") = "JScript"
oTransProps("FunctionEntry") = "Main"
Set oTransProps = Nothing
oCustomTask2.Transformations.Add oTransformation
Set oTransformation = Nothing
End Sub