代码转换(100分)

  • 主题发起人 主题发起人 wy1979
  • 开始时间 开始时间
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 " &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim( 客户信息视图.教工编号)as 教工编号,rtrim(性别) as 性别, rtrim(年龄) as 年龄, rtrim( 婚否) as 婚否,rtrim(单位) as 单位," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim(民族) as 民族,rtrim(体重)as 体重,rtrim(舒张压)as 血压舒张,rtrim(收缩压)as 血压收缩,rtrim( 脉搏)as 脉搏," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim(发育营养)as 发育营养,rtrim(神经)as 神经,rtrim(心电图)as 心电图,rtrim(肺及呼吸道)as 肺及呼吸道,rtrim(肝功)as 肝功," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim( 两对半)as 两对半,rtrim(皮肤淋巴)as 皮肤淋巴,rtrim(四肢关节)as 四肢关节,rtrim(甲状腺)as 甲状腺," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim( 泌尿生殖)as 泌尿生殖,rtrim(脊柱)as 脊柱,rtrim( B超)as B超,rtrim(青光眼)as 青光眼,rtrim(白内障)as 白内障," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim( 眼底动脉)as 眼底动脉,rtrim(眼疾)as 眼疾,rtrim( 听力)as 听力,rtrim(耳疾)as 耳疾,rtrim(鼻及鼻窦)as 鼻及鼻窦," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim(嗅觉)as 嗅觉,rtrim(牙齿)as 牙齿,rtrim(X光)as X光,rtrim(甘油脂)as 甘油脂,rtrim(血糖)as 血糖,rtrim(妇科)as 妇科," &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"rtrim(低密度脂蛋白)as 脂蛋白,rtrim(血常规)as 血常规,rtrim( 尿常规)as 尿常规,rtrim(胆固醇)as 胆固醇 " &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"from 客户信息视图,朝阳2000" &amp;
vbCrLf
oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement &amp;
"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") = "//**********************************************************************" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"// Java 转换脚本" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//************************************************************************" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"function Main()" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"{" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"DTSDestination(""教工编号"")=DTSSource(""教工编号"");" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//性别分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""性别"")==""男""||DTSSource(""性别"")==""女"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""性别"") = DTSSource(""性别"");" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""性别"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//婚否分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""婚否"")==""已婚""||DTSSource(""婚否"")==""未婚"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""婚否"") = DTSSource(""婚否"");" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""婚否"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//民族分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""民族"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""民族"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""民族"") = DTSSource(""民族"");" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//单位分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""单位"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""单位"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""单位"") = DTSSource(""单位"");" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//年龄分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""年龄"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" {" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""年龄"")<=10)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""小于10"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=20)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""10-20岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=30)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""20-30岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=40)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""30-40岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=50)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""40-50岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=60)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""50-60岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=70)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""60-70岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=80)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""70-80岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")<=90)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""80-90岁"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""年龄"")>90)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""年龄"")=""90以上"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""年龄"")=""其它"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" }" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//体重分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""体重"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""体重"")<50)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""100斤以内"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""体重"")<60)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""100-120斤"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""体重"")<70)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""120-140斤"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""体重"")<80)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""140-160斤"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""体重"")<90)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""160-180斤"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""体重"")>=90)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""体重"") = ""180斤以上"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""体重"") = ""其它"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//收缩压分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""血压收缩"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""收缩压"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(100>=DTSSource(""血压收缩"")&amp;&amp;DTSSource(""血压收缩"")>=90)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""收缩压"")=""90-100"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(110>=DTSSource(""血压收缩"")&amp;&amp;DTSSource(""血压收缩"")>=100)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""收缩压"")=""100-110"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""血压收缩"")>=110)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""收缩压"")=""大于110"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""收缩压"")=""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//舒张压分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""血压舒张"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""舒张压"")=""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(160>DTSSource(""血压舒张"")&amp;&amp;DTSSource(""血压舒张"")>=140)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""舒张压"")=""140-160"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(180>DTSSource(""血压舒张"")&amp;&amp;DTSSource(""血压舒张"")>=160)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""舒张压"")=""160-180"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""血压舒张"")>=180)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""舒张压"")=""大于180"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""舒张压"")=""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//脉搏分层" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""脉搏"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脉搏"") = ""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""脉搏"")<=60)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脉搏"") = ""少于60"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""脉搏"")<=70)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脉搏"") = ""60-70次"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""脉搏"")<=80)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脉搏"") = ""70-80次"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""脉搏"")>80)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脉搏"") = ""80次以上"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""脉搏"") = ""其它"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//甘油脂" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""甘油脂"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甘油脂"") = ""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""甘油脂"")<1.5)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甘油脂"") = ""小于1.5"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""甘油脂"")<=1.7)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甘油脂"") = ""1.5-1.7"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""甘油脂"")<=1.9)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甘油脂"") = ""1.7-1.9"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""甘油脂"")>1.9) " &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甘油脂"")=""大于1.9"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""甘油脂"")=""其它"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//血糖" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""血糖"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""血糖"") = ""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""血糖"")<7.8) " &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""血糖"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""血糖"")>=7.8)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""血糖"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""血糖"")=""其它"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//胆固醇" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""胆固醇"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""胆固醇"") = ""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""胆固醇"")<5)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""胆固醇"") = ""小于5"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""胆固醇"")<6)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""胆固醇"") = ""5-6"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""胆固醇"")<7)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""胆固醇"") = ""6-7"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""胆固醇"")<8)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""胆固醇"") = ""7-8"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""胆固醇"")>8)" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""胆固醇"") = ""大于8"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""胆固醇"") = ""其它"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//发育营养" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""发育营养"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""发育营养"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""发育营养"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""发育营养"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""发育营养"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//神经" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""神经"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""神经"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""神经"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""神经"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""神经"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//心电图" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""心电图"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""心电图"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""心电图"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""心电图"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""心电图"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//肺及呼吸道" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""肺及呼吸道"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""肺及呼吸道"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""肺及呼吸道"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""肺及呼吸道"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""肺及呼吸道"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//肝功" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""肝功"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""肝功"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""肝功"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""肝功"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""肝功"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//两对半" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""两对半"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""两对半"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""两对半"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""两对半"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""两对半"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//皮肤淋巴" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""皮肤淋巴"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""皮肤淋巴"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""皮肤淋巴"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""皮肤淋巴"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""皮肤淋巴"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//四肢关节" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""四肢关节"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""四肢关节"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""四肢关节"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""四肢关节"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""四肢关节"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//甲状腺" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""甲状腺"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甲状腺"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""甲状腺"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""甲状腺"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""甲状腺"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//泌尿生殖" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""泌尿生殖"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""泌尿生殖"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""泌尿生殖"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""泌尿生殖"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""泌尿生殖"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//脊柱" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""脊柱"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脊柱"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""脊柱"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脊柱"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""脊柱"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//B超" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""B超"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""B超"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""B超"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""B超"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""B超"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//青光眼、眼底动脉、白内障正常为无。" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""青光眼"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""青光眼"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""青光眼"")==""无"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""青光眼"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""青光眼"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//白内障" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""白内障"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""白内障"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
{" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""白内障"")==""无"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""白内障"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""白内障"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" }" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//眼底动脉" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""眼底动脉"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""眼底动脉"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""眼底动脉"")==""无"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""眼底动脉"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""眼底动脉"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//眼疾" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""眼疾"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""眼疾"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""眼疾"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""眼疾"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""眼疾"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//听力" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""听力"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""听力"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""听力"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""听力"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""听力"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//耳疾" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""耳疾"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""耳疾"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""耳疾"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""耳疾"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""耳疾"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//鼻及鼻窦" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""鼻及鼻窦"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""鼻及鼻窦"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""鼻及鼻窦"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""鼻及鼻窦"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""鼻及鼻窦"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//嗅觉" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""嗅觉"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""嗅觉"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""嗅觉"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""嗅觉"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""嗅觉"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//牙齿" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""牙齿"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""牙齿"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""牙齿"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""牙齿"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""牙齿"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//X光" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""X光"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""X光"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""X光"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""X光"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""X光"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//妇科" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""妇科"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""妇科"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""妇科"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""妇科"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""妇科"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//脂蛋白" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""脂蛋白"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脂蛋白"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""脂蛋白"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""脂蛋白"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""脂蛋白"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//血常规" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""血常规"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""血常规"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""血常规"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""血常规"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""血常规"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"//尿常规" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" if(DTSSource(""尿常规"")=="""")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""尿常规"") =""未知"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
if(DTSSource(""尿常规"")==""正常"")" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" DTSDestination(""尿常规"") = ""正常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" else
DTSDestination(""尿常规"")=""异常"";" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
" return(DTSTransformStat_OK);" &amp;
vbCrLf
oTransProps("Text") = oTransProps("Text") &amp;
"}"
oTransProps("Language") = "JScript"
oTransProps("FunctionEntry") = "Main"

Set oTransProps = Nothing
oCustomTask2.Transformations.Add oTransformation
Set oTransformation = Nothing
End Sub
 
太长,dts是一个类吧,你自己研究一下dts不就行了
 
后退
顶部