datam.dfm

销售分析,JUSCO,日月周查询,待完善.

object dm: Tdm
  OldCreateOrder = False
  Left = 982
  Top = 318
  Height = 366
  Width = 476
  object Database1: TDatabase
    AliasName = 'aeo'
    Connected = True
    DatabaseName = 'aeon'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 88
    Top = 8
  end
  object dayseq: TQuery
    DatabaseName = 'aeon'
    SQL.Strings = (
      'select *  FROM sellmonth')
    Left = 24
    Top = 24
  end
  object artcode: TTable
    DatabaseName = 'aeon'
    ReadOnly = True
    TableName = 'ARTICLE'
    Left = 128
    Top = 64
  end
  object dayconn: TDataSource
    DataSet = dayseq
    Left = 32
    Top = 80
  end
  object dept: TTable
    DatabaseName = 'aeon'
    ReadOnly = True
    TableName = 'DEPT'
    Left = 184
    Top = 48
  end
  object deptconn: TDataSource
    DataSet = dept
    Left = 184
    Top = 104
  end
  object artconn: TDataSource
    DataSet = artcode
    Left = 136
    Top = 128
  end
  object sect: TTable
    DatabaseName = 'aeon'
    ReadOnly = True
    TableName = 'SECTION'
    Left = 80
    Top = 72
  end
  object sectconn: TDataSource
    DataSet = sect
    Left = 72
    Top = 128
  end
  object tmp: TQuery
    DatabaseName = 'aeon'
    SQL.Strings = (
      
        'select itmaster.*,bar2item.barcode from itmaster  left join bar2' +
        'item on bar2item.item_code=itmaster.item_code ')
    Left = 312
    Top = 16
  end
  object tmpconn: TDataSource
    DataSet = tmp
    Left = 312
    Top = 64
  end
  object temp: TTable
    DatabaseName = 'aeon'
    Exclusive = True
    TableName = 'temptable'
    Left = 360
    Top = 32
  end
  object tempconn: TDataSource
    DataSet = temp
    Left = 368
    Top = 88
  end
  object TOEXCEL: TBatchMove
    Destination = LOCAL
    Mode = batCopy
    Source = dayseq
    Left = 208
    Top = 8
  end
  object LOCAL: TTable
    TableName = 'ss.dbf'
    TableType = ttFoxPro
    Left = 408
    Top = 32
  end
  object supply: TTable
    DatabaseName = 'aeon'
    TableName = 'VENDOR'
    Left = 304
    Top = 128
  end
  object supplyconn: TDataSource
    DataSet = supply
    Left = 360
    Top = 167
  end
  object barcode: TTable
    DatabaseName = 'aeon'
    TableName = 'BAR2ITEM'
    Left = 256
    Top = 8
  end
  object barconn: TDataSource
    DataSet = barcode
    Left = 248
    Top = 64
  end
  object act: TQuery
    AutoCalcFields = False
    DatabaseName = 'aeon'
    RequestLive = True
    SQL.Strings = (
      'select * from itemaster')
    Left = 432
    Top = 96
  end
  object order: TTable
    DatabaseName = 'aeon'
    TableName = 'orderpo'
    Left = 24
    Top = 144
  end
  object orderconn: TDataSource
    DataSet = order
    Left = 24
    Top = 200
  end
  object poweek: TTable
    DatabaseName = 'aeon'
    IndexFieldNames = 'Item_code'
    TableName = 'ORDPO_DL'
    Left = 256
    Top = 208
  end
  object poday: TTable
    DatabaseName = 'aeon'
    IndexFieldNames = 'Item_code'
    MasterFields = 'item_code'
    MasterSource = orderconn
    TableName = 'ORDPS_DL'
    Left = 312
    Top = 216
  end
  object poweekconn: TDataSource
    AutoEdit = False
    DataSet = poweek
    Left = 248
    Top = 280
  end
  object podayconn: TDataSource
    DataSet = poday
    Left = 320
    Top = 264
  end
  object todetail: TBatchMove
    Destination = tmpdetail
    Source = dayseq
    Left = 144
    Top = 176
  end
  object tmpdetail: TTable
    DatabaseName = 'aeon'
    IndexName = 'item_code'
    TableName = 'tmpdetail'
    Left = 136
    Top = 240
  end
  object sqldetailcon: TDataSource
    DataSet = sqldetail
    Left = 88
    Top = 259
  end
  object sqldetail: TQuery
    DatabaseName = 'aeon'
    Left = 88
    Top = 200
  end
  object sqlsum: TQuery
    DatabaseName = 'aeon'
    Left = 184
    Top = 240
  end
  object sqlsumcon: TDataSource
    DataSet = sqlsum
    Left = 152
    Top = 280
  end
end