workstatetjdm.dfm

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

object DM_WorkStateTJ: TDM_WorkStateTJ
  OldCreateOrder = False
  Left = 200
  Top = 125
  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 = 96
  end
  object Qr_WorkStateTJ: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      
        'select a.WorkId,a.WorkName,a.GZBX_Num,a.YKZX_Num,a.YHTS_Num,b.YH' +
        'ZX_Num from Temp3 a Left Join YHZX_Num b on a.WorkId=b.Slr')
    Left = 112
    Top = 24
    object Qr_WorkStateTJWorkId: TStringField
      FieldName = 'WorkId'
      Origin = 'DBECSC.Temp3.WorkId'
      FixedChar = True
    end
    object Qr_WorkStateTJWorkName: TStringField
      FieldName = 'WorkName'
      Origin = 'DBECSC.Temp3.WorkName'
      FixedChar = True
      Size = 50
    end
    object Qr_WorkStateTJGZBX_Num: TIntegerField
      FieldName = 'GZBX_Num'
      Origin = 'DBECSC.Temp3.GZBX_Num'
    end
    object Qr_WorkStateTJYKZX_Num: TIntegerField
      FieldName = 'YKZX_Num'
      Origin = 'DBECSC.Temp3.YKZX_Num'
    end
    object Qr_WorkStateTJYHTS_Num: TIntegerField
      FieldName = 'YHTS_Num'
      Origin = 'DBECSC.Temp3.YHTS_Num'
    end
    object Qr_WorkStateTJYHZX_Num: TIntegerField
      FieldName = 'YHZX_Num'
      Origin = 'DBECSC.YHZX_Num.YHZX_Num'
    end
  end
  object DS_WorkStateTJ: TDataSource
    DataSet = Qr_WorkStateTJ
    Left = 120
    Top = 96
  end
  object Qr_Total: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'Select * from Total ')
    Left = 208
    Top = 24
    object Qr_TotalGZBX_Total: TIntegerField
      FieldName = 'GZBX_Total'
      Origin = 'DBECSC.Total.GZBX_Total'
    end
    object Qr_TotalYKZX_Total: TIntegerField
      FieldName = 'YKZX_Total'
      Origin = 'DBECSC.Total.YKZX_Total'
    end
    object Qr_TotalYHTS_Total: TIntegerField
      FieldName = 'YHTS_Total'
      Origin = 'DBECSC.Total.YHTS_Total'
    end
    object Qr_TotalYHZX_Total: TIntegerField
      FieldName = 'YHZX_Total'
      Origin = 'DBECSC.Total.YHZX_Total'
    end
  end
end