datamodule.~dfm

数据仓库维表及参照表维护系统

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 355
  Top = 103
  Height = 291
  Width = 438
  object SQLConnection2: TSQLConnection
    ConnectionName = 'OracleConnection'
    DriverName = 'Oracle'
    GetDriverFunc = 'getSQLDriverORACLE'
    LibraryName = 'dbexpora.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Oracle'
      'DataBase=wanghai'
      'User_Name=system'
      'Password=neptune'
      'RowsetSize=20'
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Oracle TransIsolation=ReadCommited'
      'OS Authentication=False'
      'Multiple Transaction=False'
      'Trim Char=False')
    VendorLib = 'oci.dll'
    Connected = True
    Left = 257
    Top = 125
  end
  object SQLMonitor1: TSQLMonitor
    OnTrace = SQLMonitor1Trace
    SQLConnection = SQLConnection2
    Left = 25
    Top = 125
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'OracleConnection'
    DriverName = 'Oracle'
    GetDriverFunc = 'getSQLDriverORACLE'
    LibraryName = 'dbexpora.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Oracle'
      'DataBase='
      'User_Name='
      'Password='
      'RowsetSize=20'
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Oracle TransIsolation=ReadCommited'
      'OS Authentication=False'
      'Multiple Transaction=False'
      'Trim Char=False')
    VendorLib = 'oci.dll'
    Left = 105
    Top = 125
  end
  object SimpleDataSet5: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection2
    DataSet.CommandText = 
      'select ID, CONNECTIONNAME, DATABASE, "User", PASSWORD from ALLCO' +
      'NNECTIONNEW'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 369
    Top = 45
  end
  object SimpleDataSet4: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 
      'select ID "'#32534#21495'",'#13#10'CONNECTIONID "'#25968#25454#28304'",  '#13#10'DATASOURCEID "'#19994#21153#24179#21488'", '#13#10'T' +
      'OPICID "'#32500#32534#21495'", '#13#10'NAME "'#20195#30721#34920#21517#31216'", '#13#10'SQL "'#20195#30721#34920'SQL", '#13#10'IDCOLUMN "ID'#23383#27573#21517'"' +
      ', '#13#10'REMARKCOLUMN "'#25551#36848#23383#27573#21517'", '#13#10'STOREPROCEDURE "'#33258#21160#32500#25252#23384#20648#36807#31243'"'#13#10'from ALLC' +
      'ODE'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 177
    Top = 205
  end
  object SimpleDataSet3: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 
      'select ID "'#32500#32534#21495'", '#13#10'NAME "'#32500#21517#31216'", '#13#10'DIMTABLE "'#32500#34920#21517#31216'", '#13#10'DIMIDCOLUMN ' +
      '"'#32500#34920'ID'#21015'", '#13#10'DIMREMARKCOLUMN "'#32500#34920#25551#36848#21015'",  '#13#10'REFTABLE "'#21442#29031#34920#21517#31216'", '#13#10'REFDA' +
      'TASOURCE "'#21442#29031#34920'DataSource'#21015'", '#13#10'REFCODEIDCOLUMN "'#21442#29031#34920'CodeId'#21015'", '#13#10'REF' +
      'DIMIDCOLUMN "'#21442#29031#34920'DimId'#21015'"'#13#10'from ALLDIM'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 177
    Top = 149
  end
  object SimpleDataSet2: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 'select ID "'#32534#21495'",'#13#10' NAME "'#21517#31216'",'#13#10' REMARK "'#25551#36848'"'#13#10'from ALLDATASOURCE'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 177
    Top = 93
  end
  object SQLQuery1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection2
    Left = 369
    Top = 93
  end
  object SimpleDataSet6: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection2
    DataSet.CommandText = 'select max(id) from log where Result='#39'Finish'#39
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 369
    Top = 149
  end
  object SimpleDataSet1: TSimpleDataSet
    Aggregates = <>
    AggregatesActive = True
    Connection = SQLConnection1
    DataSet.CommandText = 
      'select ID "'#32534#21495'", '#13#10'NAME "'#21517#31216'", '#13#10'JDBCSTR "JDBC'#36830#25509#23383#31526#20018'", '#13#10'OLEDBSTR "' +
      'ODBC'#36830#25509#23383#31526#20018'", '#13#10'"User" "'#29992#25143#21517'", '#13#10'PASSWORD "'#23494#30721'"'#13#10'from ALLCONNECTION'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Filtered = True
    Params = <>
    ReadOnly = True
    Left = 177
    Top = 45
  end
  object SimpleDataSet7: TSimpleDataSet
    Aggregates = <>
    Connection = SQLConnection2
    DataSet.CommandText = 'select * from LOG'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 369
    Top = 205
  end
end