treandtjdm.dfm

一个电力企业的后台管理程序

object DM_TrendTJ: TDM_TrendTJ
  OldCreateOrder = False
  Left = 206
  Top = 133
  Height = 375
  Width = 544
  object Tbl_Worker: TTable
    Active = True
    DatabaseName = 'DBECSC'
    TableName = 'SYSLOGIN'
    Left = 24
    Top = 24
  end
  object DS_Worker: TDataSource
    DataSet = Tbl_Worker
    Left = 24
    Top = 88
  end
  object Qr_TrendTJ: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      
        'select a.TheDate,a.theValue gz,b.theValue Yk,c.thevalue ts,d.the' +
        'value zx,a.thevalue+b.thevalue+c.thevalue+d.thevalue S from T_GZ' +
        'GX a,T_YKZX b,T_YHTS c,T_YHZX d where a.thedate=b.thedate and a.' +
        'thedate=c.thedate and a.thedate=d.thedate')
    Left = 112
    Top = 24
    object Qr_TrendTJTheDate: TStringField
      FieldName = 'TheDate'
      FixedChar = True
      Size = 50
    end
    object Qr_TrendTJgz: TIntegerField
      FieldName = 'gz'
    end
    object Qr_TrendTJYk: TIntegerField
      FieldName = 'Yk'
    end
    object Qr_TrendTJts: TIntegerField
      FieldName = 'ts'
    end
    object Qr_TrendTJzx: TIntegerField
      FieldName = 'zx'
    end
    object Qr_TrendTJS: TIntegerField
      FieldName = 'S'
    end
  end
  object Qr_Temp: TQuery
    DatabaseName = 'DBECSC'
    Left = 200
    Top = 24
  end
end