udm.dfm

双色球矩阵计算程序

object Dm: TDm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 227
  Top = 113
  Height = 254
  Width = 429
  object conn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 24
  end
  object query: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 88
    Top = 24
  end
  object dsTemp: TDataSource
    DataSet = cdsTemp
    Left = 148
    Top = 72
  end
  object cdsTemp: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 144
    Top = 24
  end
  object cdsResult: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 208
    Top = 24
  end
  object dsResult: TDataSource
    DataSet = cdsResult
    Left = 212
    Top = 72
  end
  object aqMatrix: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 272
    Top = 24
  end
  object dsMatrix: TDataSource
    DataSet = aqMatrix
    Left = 272
    Top = 72
  end
  object cdsVerify: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 328
    Top = 24
  end
  object dsVerify: TDataSource
    DataSet = cdsVerify
    Left = 328
    Top = 72
  end
  object aqHistory: TADOQuery
    Active = True
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select '#26399#25968', '#39#39' as 1, '#39#39' as 2, '#39#39' as 3, '#39#39' as 4, '#39#39' as 5, '#39#39' as 6,' +
        ' '#39#39' as 7, '#39#39' as 8, '#39#39' as 9, '#39#39' as 10, '
      
        #9#39#39' as 11, '#39#39' as 12, '#39#39' as 13, '#39#39' as 14, '#39#39' as 15, '#39#39' as 16, '#39#39' ' +
        'as 17, '#39#39' as 18, '#39#39' as 19, '#39#39' as 20, '
      
        #9#39#39' as 21, '#39#39' as 22, '#39#39' as 23, '#39#39' as 24, '#39#39' as 25, '#39#39' as 26, '#39#39' ' +
        'as 27, '#39#39' as 28, '#39#39' as 29, '#39#39' as 30, '
      
        #9#39#39' as 31, '#39#39' as 32, '#39#39' as 33,  '#32418'1, '#32418'2, '#32418'3, '#32418'4, '#32418'5, '#32418'6 from '#21382#21490#25968#25454 +
        ' order by '#26399#25968)
    Left = 56
    Top = 144
    object aqHistoryDSDesigner: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'No'
      DisplayWidth = 8
      FieldName = #26399#25968
    end
    object aqHistoryDSDesigner1: TWideStringField
      DisplayWidth = 2
      FieldName = '1'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner2: TWideStringField
      DisplayWidth = 2
      FieldName = '2'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner3: TWideStringField
      DisplayWidth = 2
      FieldName = '3'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner4: TWideStringField
      DisplayWidth = 2
      FieldName = '4'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner5: TWideStringField
      DisplayWidth = 2
      FieldName = '5'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner6: TWideStringField
      DisplayWidth = 2
      FieldName = '6'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner7: TWideStringField
      DisplayWidth = 2
      FieldName = '7'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner8: TWideStringField
      DisplayWidth = 2
      FieldName = '8'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner9: TWideStringField
      DisplayWidth = 2
      FieldName = '9'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner10: TWideStringField
      DisplayWidth = 2
      FieldName = '10'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner11: TWideStringField
      DisplayWidth = 2
      FieldName = '11'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner12: TWideStringField
      DisplayWidth = 2
      FieldName = '12'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner13: TWideStringField
      DisplayWidth = 2
      FieldName = '13'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner14: TWideStringField
      DisplayWidth = 2
      FieldName = '14'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner15: TWideStringField
      DisplayWidth = 2
      FieldName = '15'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner16: TWideStringField
      DisplayWidth = 2
      FieldName = '16'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner17: TWideStringField
      DisplayWidth = 2
      FieldName = '17'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner18: TWideStringField
      DisplayWidth = 2
      FieldName = '18'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner19: TWideStringField
      DisplayWidth = 2
      FieldName = '19'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner20: TWideStringField
      DisplayWidth = 2
      FieldName = '20'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner21: TWideStringField
      DisplayWidth = 2
      FieldName = '21'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner22: TWideStringField
      DisplayWidth = 2
      FieldName = '22'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner23: TWideStringField
      DisplayWidth = 2
      FieldName = '23'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner24: TWideStringField
      DisplayWidth = 2
      FieldName = '24'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner25: TWideStringField
      DisplayWidth = 2
      FieldName = '25'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner26: TWideStringField
      DisplayWidth = 2
      FieldName = '26'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner27: TWideStringField
      DisplayWidth = 2
      FieldName = '27'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner28: TWideStringField
      DisplayWidth = 2
      FieldName = '28'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner29: TWideStringField
      DisplayWidth = 2
      FieldName = '29'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner30: TWideStringField
      DisplayWidth = 2
      FieldName = '30'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner31: TWideStringField
      DisplayWidth = 2
      FieldName = '31'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner32: TWideStringField
      DisplayWidth = 2
      FieldName = '32'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner33: TWideStringField
      DisplayWidth = 2
      FieldName = '33'
      ReadOnly = True
      Size = 255
    end
    object aqHistoryDSDesigner110: TIntegerField
      FieldName = #32418'1'
      Visible = False
    end
    object aqHistoryDSDesigner210: TIntegerField
      FieldName = #32418'2'
      Visible = False
    end
    object aqHistoryDSDesigner34: TIntegerField
      FieldName = #32418'3'
      Visible = False
    end
    object aqHistoryDSDesigner42: TIntegerField
      FieldName = #32418'4'
      Visible = False
    end
    object aqHistoryDSDesigner52: TIntegerField
      FieldName = #32418'5'
      Visible = False
    end
    object aqHistoryDSDesigner62: TIntegerField
      FieldName = #32418'6'
      Visible = False
    end
  end
  object dsHistory: TDataSource
    DataSet = aqHistory
    Left = 112
    Top = 144
  end
end