maindm.dfm

自己看把！

object dmMain: TdmMain
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 281
  Top = 159
  Height = 337
  Width = 591
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bar.mdb;Persist Sec' +
      'urity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 16
  end
  object dsMain: TDataSource
    DataSet = tblMain
    Left = 48
    Top = 128
  end
  object tblMain: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterOpen = BtnEnable
    AfterPost = BtnEnable
    AfterScroll = BtnEnable
    TableName = #35745#36153
    Left = 48
    Top = 72
    object tblMainDSDesigner: TSmallintField
      Alignment = taCenter
      DisplayWidth = 10
      FieldName = #26426#21495
      DisplayFormat = '000'
    end
    object tblMainDSDesigner2: TDateTimeField
      Alignment = taCenter
      DisplayWidth = 20
      FieldName = #19978#26426#26102#38388
      DisplayFormat = 'HH:mm'
    end
    object tblMainDSDesigner3: TDateTimeField
      Alignment = taCenter
      DisplayWidth = 20
      FieldName = #19979#26426#26102#38388
      Visible = False
      DisplayFormat = 'HH:mm'
    end
    object tblMainDSDesigner4: TDateTimeField
      Alignment = taCenter
      DisplayWidth = 20
      FieldName = #38480#26102
      DisplayFormat = 'HH:mm'
    end
    object tblMainDSDesigner5: TBCDField
      Alignment = taCenter
      FieldName = #32593#36153
      currency = True
      Precision = 19
    end
    object tblMainDSDesigner6: TBCDField
      Alignment = taCenter
      FieldName = #21387#37329
      currency = True
      Precision = 19
    end
    object tblMainField: TStringField
      Alignment = taCenter
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = #20250#21592#21517
      LookupDataSet = tblHy
      LookupKeyFields = #21345#21495
      LookupResultField = #22995#21517
      KeyFields = #21345#21495
      Size = 10
      Lookup = True
    end
    object tblMainDSDesigner7: TWideStringField
      Alignment = taCenter
      DisplayWidth = 15
      FieldName = #21345#21495
      Visible = False
      Size = 10
    end
    object tblMainDSDesigner9: TBooleanField
      DisplayWidth = 8
      FieldName = #36890#23477
    end
    object tblMainDSDesigner8: TWideStringField
      DisplayWidth = 40
      FieldName = #22791#27880
      Size = 255
    end
  end
  object qryForAll: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 72
  end
  object tblHy: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #20250#21592
    Left = 200
    Top = 72
    object tblHyDSDesigner: TWideStringField
      FieldName = #21345#21495
      Size = 10
    end
    object tblHyDSDesigner2: TWideStringField
      FieldName = #22995#21517
      Size = 8
    end
    object tblHyDSDesigner3: TWideStringField
      FieldName = #23494#30721
      Size = 15
    end
    object tblHyDSDesigner4: TWideStringField
      DisplayWidth = 22
      FieldName = #36523#20221#35777
    end
    object tblHyDSDesigner5: TWideStringField
      FieldName = #30005#35805
      Size = 15
    end
    object tblHyDSDesigner6: TDateTimeField
      FieldName = #24320#25143#26085#26399
      DisplayFormat = 'yyyy-mm-dd'
    end
    object tblHyDSDesigner7: TBCDField
      DisplayWidth = 10
      FieldName = #32047#35745#28040#36153
      currency = True
      Precision = 19
    end
    object tblHyDSDesigner8: TBCDField
      DisplayWidth = 10
      FieldName = #20313#39069
      currency = True
      Precision = 19
    end
    object tblHyDSDesigner9: TBooleanField
      DisplayWidth = 6
      FieldName = #29366#24577
    end
    object tblHyDSDesigner10: TWideStringField
      DisplayWidth = 20
      FieldName = #22791#27880
      Size = 255
    end
  end
  object dsHy: TDataSource
    DataSet = tblHy
    Left = 200
    Top = 128
  end
  object qryCheckHy: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 256
    Top = 72
  end
  object tblSpSell: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21830#21697#28165#21333
    Left = 360
    Top = 80
    object tblSpSellDSDesigner: TWideStringField
      DisplayWidth = 10
      FieldName = #21697#21517
    end
    object tblSpSellDSDesigner2: TBCDField
      DisplayWidth = 6
      FieldName = #21806#20215
      currency = True
      Precision = 19
    end
    object tblSpSellDSDesigner3: TBCDField
      DisplayWidth = 6
      FieldName = #36827#20215
      currency = True
      Precision = 19
    end
    object tblSpSellDSDesigner5: TWideStringField
      DisplayWidth = 6
      FieldName = #21333#20301
      Size = 10
    end
  end
  object tblSpBuy: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterPost = BtnEnable
    OnCalcFields = tblSpBuyCalcFields
    IndexFieldNames = #26426#21495
    MasterFields = #26426#21495
    MasterSource = dsMain
    TableName = #21830#21697#38144#21806
    Left = 408
    Top = 80
    object tblSpBuyDSDesigner: TSmallintField
      DisplayWidth = 6
      FieldName = #26426#21495
    end
    object tblSpBuyDSDesigner2: TWideStringField
      DisplayWidth = 10
      FieldName = #21697#21517
    end
    object tblSpBuyDSDesigner3: TBCDField
      DisplayWidth = 6
      FieldName = #21806#20215
      currency = True
      Precision = 19
    end
    object tblSpBuyDSDesigner4: TIntegerField
      DisplayWidth = 6
      FieldName = #25968#37327
    end
    object tblSpBuyField: TCurrencyField
      DisplayWidth = 6
      FieldKind = fkCalculated
      FieldName = #21512#35745
      Calculated = True
    end
    object tblSpBuyDSDesigner5: TBooleanField
      FieldName = #31867#22411
    end
  end
  object dsSpSell: TDataSource
    DataSet = tblSpSell
    Left = 360
    Top = 136
  end
  object dsSpBuy: TDataSource
    DataSet = tblSpBuy
    Left = 408
    Top = 136
  end
  object qryBuy: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 512
    Top = 80
  end
  object tblBuyCheck: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21830#21697#38144#21806
    Left = 464
    Top = 80
  end
  object dsMrjs: TDataSource
    DataSet = tblMrjs
    Left = 48
    Top = 240
  end
  object tblMrjs: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = tblMrjsCalcFields
    TableName = #27599#26085#32467#31639
    Left = 48
    Top = 192
    object tblMrjsDSDesigner: TDateTimeField
      Alignment = taCenter
      FieldName = #26085#26399
    end
    object tblMrjsDSDesigner2: TBCDField
      DisplayWidth = 10
      FieldName = #32593#36153
      currency = True
      Precision = 19
    end
    object tblMrjsDSDesigner3: TBCDField
      DisplayWidth = 10
      FieldName = #21830#21697
      currency = True
      Precision = 19
    end
    object tblMrjsField: TCurrencyField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = #21512#35745
      Calculated = True
    end
    object tblMrjsDSDesigner4: TWideStringField
      DisplayWidth = 40
      FieldName = #22791#27880
      Size = 200
    end
  end
  object qryTime: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 200
    Top = 192
  end
end