dm_yxxx_view_pas.~dfm

delphi6.0电子寻更源程序,用来计算保安有无查抄

    object q_yxxx_flNodeplace: TStringField
      FieldName = 'Nodeplace'
    end
    object q_yxxx_flName: TStringField
      FieldName = 'Name'
    end
    object q_yxxx_flLseq: TSmallintField
      FieldName = 'Lseq'
    end
    object q_yxxx_flEndtime: TTimeField
      FieldName = 'Endtime'
    end
  end
  object ds_yxxx_fl: TDataSource
    DataSet = q_yxxx_fl
    Left = 80
    Top = 232
  end
  object q_wzxx_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      
        'select yxxx_fl.xxbs,yxxx_fl.pencode,yxxx_fl.linename,yxxx_fl.shi' +
        'fts,yxxx_fl.code,yxxx_fl.pdate,'
      'yxxx_fl.ptime,yxxx_fl.endtime,yxxx_fl.name'
      'from yxxx_fl'
      'where(yxxx_fl.xxbs='#39'2'#39')'
      
        'order by yxxx_fl.pdate,yxxx_fl.pencode,yxxx_fl.code,yxxx_fl.line' +
        'name,yxxx_fl.shifts'
      ' '
      ' '
      ' '
      ' ')
    Left = 201
    Top = 280
    object q_wzxx_viewxxbs: TStringField
      FieldName = 'xxbs'
      Origin = 'GYXGDB."yxxx_fl.DB".Xxbs'
      Size = 1
    end
    object q_wzxx_viewlinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."yxxx_fl.DB".Linename'
    end
    object q_wzxx_viewshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."yxxx_fl.DB".Shifts'
    end
    object q_wzxx_viewcode: TStringField
      FieldName = 'code'
      Origin = 'GYXGDB."yxxx_fl.DB".Code'
      Size = 2
    end
    object q_wzxx_viewpdate: TDateField
      FieldName = 'pdate'
      Origin = 'GYXGDB."yxxx_fl.DB".Pdate'
    end
    object q_wzxx_viewptime: TTimeField
      FieldName = 'ptime'
      Origin = 'GYXGDB."yxxx_fl.DB".Ptime'
    end
    object q_wzxx_viewendtime: TTimeField
      FieldName = 'endtime'
      Origin = 'GYXGDB."yxxx_fl.DB".Endtime'
    end
    object q_wzxx_viewname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."yxxx_fl.DB".Name'
    end
    object q_wzxx_viewpencode: TStringField
      FieldName = 'pencode'
      Origin = 'GYXGDB."yxxx_fl.DB".Pencode'
      Size = 2
    end
  end
  object ds_wzxx_view: TDataSource
    DataSet = q_wzxx_view
    Left = 265
    Top = 278
  end
  object q_lxxx_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      
        'select yxxx_fl.pencode,yxxx_fl.pstatu,yxxx_fl.node, yxxx_fl.code' +
        ', yxxx_fl.pdate, yxxx_fl.linename, yxxx_fl.shifts,yxxx_fl.ptime,'
      
        '       worker.name as workername,point.lseq,point.name,point.nod' +
        'eplace'
      'from yxxx_fl,worker,point'
      'where yxxx_fl.code=worker.code'
      'and yxxx_fl.linename=point.linename'
      'and yxxx_fl.node=point.node'
      'and yxxx_fl.xxbs='#39'3'#39
      
        'order by yxxx_fl.pdate,yxxx_fl.pencode,yxxx_fl.code,yxxx_fl.line' +
        'name,yxxx_fl.shifts,yxxx_fl.ptime,point.lseq')
    Left = 328
    Top = 272
    object q_lxxx_viewpencode: TStringField
      FieldName = 'pencode'
      Origin = 'GYXGDB."yxxx_fl.DB".Pencode'
      Size = 2
    end
    object q_lxxx_viewpstatu: TStringField
      FieldName = 'pstatu'
      Origin = 'GYXGDB."yxxx_fl.DB".Pstatu'
    end
    object q_lxxx_viewnode: TStringField
      FieldName = 'node'
      Origin = 'GYXGDB."yxxx_fl.DB".Node'
      Size = 4
    end
    object q_lxxx_viewcode: TStringField
      FieldName = 'code'
      Origin = 'GYXGDB."yxxx_fl.DB".Code'
      Size = 2
    end
    object q_lxxx_viewpdate: TDateField
      FieldName = 'pdate'
      Origin = 'GYXGDB."yxxx_fl.DB".Pdate'
    end
    object q_lxxx_viewlinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."yxxx_fl.DB".Linename'
    end
    object q_lxxx_viewshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."yxxx_fl.DB".Shifts'
    end
    object q_lxxx_viewptime: TTimeField
      FieldName = 'ptime'
      Origin = 'GYXGDB."yxxx_fl.DB".Ptime'
      DisplayFormat = 'hh:mm'
    end
    object q_lxxx_viewworkername: TStringField
      FieldName = 'workername'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object q_lxxx_viewlseq: TSmallintField
      FieldName = 'lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object q_lxxx_viewname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object q_lxxx_viewnodeplace: TStringField
      FieldName = 'nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
  end
  object ds_lxxx_view: TDataSource
    DataSet = q_lxxx_view
    Left = 408
    Top = 264
  end
  object Table1: TTable
    DatabaseName = 'gyxgdb'
    TableName = 'yxxx.DB'
    Left = 216
    Top = 128
    object Table1Dataseq: TAutoIncField
      FieldName = 'Dataseq'
      ReadOnly = True
    end
    object Table1Pdate: TDateField
      FieldName = 'Pdate'
    end
    object Table1Ptime: TTimeField
      FieldName = 'Ptime'
      DisplayFormat = 'hh:mm'
    end
    object Table1Pencode: TStringField
      FieldName = 'Pencode'
      Size = 2
    end
    object Table1Node: TStringField
      FieldName = 'Node'
      Size = 4
    end
    object Table1Workercode: TStringField
      FieldName = 'Workercode'
      Size = 2
    end
    object Table1Nodename: TStringField
      FieldName = 'Nodename'
    end
    object Table1Nodeplace: TStringField
      FieldName = 'Nodeplace'
    end
    object Table1Linename: TStringField
      FieldName = 'Linename'
    end
    object Table1Lseq: TSmallintField
      FieldName = 'Lseq'
    end
    object Table1Pstatu: TStringField
      FieldName = 'Pstatu'
    end
    object Table1Shifts: TStringField
      FieldName = 'Shifts'
    end
    object Table1Firstp: TTimeField
      FieldName = 'Firstp'
    end
    object Table1Lastp: TTimeField
      FieldName = 'Lastp'
    end
    object Table1Chkcycl: TIntegerField
      FieldName = 'Chkcycl'
    end
    object Table1Dgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
    end
    object Table1Dgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
    end
    object Table1Ntime: TSmallintField
      FieldName = 'Ntime'
    end
  end
  object ds_sjyc: TDataSource
    DataSet = q_sjyc
    Left = 32
    Top = 344
  end
  object q_sjyc: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      
        'select yxxx_fl.pdate,yxxx_fl.ptime,yxxx_fl.code,yxxx_fl.linename' +
        ',yxxx_fl.shifts,yxxx_fl.case,'
      'yxxx_fl.conifo,worker.name,yxxx_fl.xxbs,yxxx_fl.pencode'
      'from yxxx_fl,worker'
      'where yxxx_fl.code=worker.code'
      'and yxxx_fl.xxbs='#39'4'#39
      
        'order by yxxx_fl.pdate,yxxx_fl.pencode,yxxx_fl.code,yxxx_fl.line' +
        'name,yxxx_fl.shifts,yxxx_fl.ptime'
      ''
      ''
      ' '
      ' '
      ' ')
    Left = 88
    Top = 344
    object q_sjycpdate: TDateField
      FieldName = 'pdate'
      Origin = 'GYXGDB."yxxx_fl.DB".Pdate'
    end
    object q_sjycptime: TTimeField
      FieldName = 'ptime'
      Origin = 'GYXGDB."yxxx_fl.DB".Ptime'
      DisplayFormat = 'hh:mm'
    end
    object q_sjyccode: TStringField
      FieldName = 'code'
      Origin = 'GYXGDB."yxxx_fl.DB".Code'
      Size = 2
    end
    object q_sjyclinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."yxxx_fl.DB".Linename'
    end
    object q_sjycshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."yxxx_fl.DB".Shifts'
    end
    object q_sjyccase: TStringField
      FieldName = 'case'
      Origin = 'GYXGDB."yxxx_fl.DB".Case'
      Size = 50
    end
    object q_sjycconifo: TStringField
      FieldName = 'conifo'
      Origin = 'GYXGDB."yxxx_fl.DB".Conifo'
      Size = 50
    end
    object q_sjycname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object q_sjycxxbs: TStringField
      FieldName = 'xxbs'
      Origin = 'GYXGDB."yxxx_fl.DB".Xxbs'
      Size = 1
    end
    object q_sjycpencode: TStringField
      FieldName = 'pencode'
      Origin = 'GYXGDB."yxxx_fl.DB".Pencode'
      Size = 2
    end
  end
  object BatchMove1: TBatchMove
    Destination = Table1
    Source = t_yxxx_view
    Left = 280
    Top = 96
  end
  object t_yxxx_view: TTable
    DatabaseName = 'gyxgdb'
    IndexFieldNames = 'Dataseq'
    TableName = 'temp.db'
    Left = 232
    Top = 192
    object t_yxxx_viewDataseq: TAutoIncField
      FieldName = 'Dataseq'
      ReadOnly = True
    end
    object t_yxxx_viewPdate: TDateField
      FieldName = 'Pdate'
    end
    object t_yxxx_viewPtime: TTimeField
      FieldName = 'Ptime'
      DisplayFormat = 'hh:mm'
    end
    object t_yxxx_viewPencode: TStringField
      FieldName = 'Pencode'
      Size = 2
    end
    object t_yxxx_viewNode: TStringField
      FieldName = 'Node'
      Size = 4
    end
    object t_yxxx_viewWorkercode: TStringField
      FieldName = 'Workercode'
      Size = 2
    end
    object t_yxxx_viewNodename: TStringField
      FieldName = 'Nodename'
    end
    object t_yxxx_viewNodeplace: TStringField
      FieldName = 'Nodeplace'
    end
    object t_yxxx_viewLinename: TStringField
      FieldName = 'Linename'
    end
    object t_yxxx_viewLseq: TSmallintField
      FieldName = 'Lseq'
    end
    object t_yxxx_viewPstatu: TStringField
      FieldName = 'Pstatu'
    end
    object t_yxxx_viewShifts: TStringField
      FieldName = 'Shifts'
    end
    object t_yxxx_viewFirstp: TTimeField
      FieldName = 'Firstp'
    end
    object t_yxxx_viewLastp: TTimeField
      FieldName = 'Lastp'
    end
    object t_yxxx_viewChkcycl: TIntegerField
      FieldName = 'Chkcycl'
    end
    object t_yxxx_viewDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
    end
    object t_yxxx_viewDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
    end
    object t_yxxx_viewNtime: TSmallintField
      FieldName = 'Ntime'
    end
    object t_yxxx_viewWorkername: TStringField
      FieldName = 'Workername'
    end
  end
  object q_yxxx_view: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select  *'
      'from yxxx'
      'where pdate>=:_pdate1'
      'and pdate<=:_pdate2'
      'and linename=:_linename'
      'and  shifts=:_shifts'
      'and workercode=:_workercode'
      ''
      ''
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 104
    Top = 128
    ParamData = <
      item
        DataType = ftDate
        Name = '_pdate1'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = '_pdate2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '_linename'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '_shifts'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '_workercode'
        ParamType = ptInput
      end>
    object q_yxxx_viewDataseq: TAutoIncField
      FieldName = 'Dataseq'
      Origin = 'GYXGDB."yxxx.DB".Dataseq'
      ReadOnly = True
    end
    object q_yxxx_viewPdate: TDateField
      FieldName = 'Pdate'
      Origin = 'GYXGDB."yxxx.DB".Pdate'
    end
    object q_yxxx_viewPtime: TTimeField
      FieldName = 'Ptime'
      Origin = 'GYXGDB."yxxx.DB".Ptime'
      DisplayFormat = 'hh:mm'
    end
    object q_yxxx_viewPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."yxxx.DB".Pencode'
      Size = 2
    end
    object q_yxxx_viewNode: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."yxxx.DB".Node'
      Size = 4
    end
    object q_yxxx_viewWorkercode: TStringField
      FieldName = 'Workercode'
      Origin = 'GYXGDB."yxxx.DB".Workercode'
      Size = 2
    end
    object q_yxxx_viewNodename: TStringField
      FieldName = 'Nodename'
      Origin = 'GYXGDB."yxxx.DB".Nodename'
    end
    object q_yxxx_viewNodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."yxxx.DB".Nodeplace'
    end
    object q_yxxx_viewLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."yxxx.DB".Linename'
    end
    object q_yxxx_viewLseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."yxxx.DB".Lseq'
    end
    object q_yxxx_viewPstatu: TStringField
      FieldName = 'Pstatu'
      Origin = 'GYXGDB."yxxx.DB".Pstatu'
    end
    object q_yxxx_viewShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."yxxx.DB".Shifts'
    end
    object q_yxxx_viewFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."yxxx.DB".Firstp'
    end
    object q_yxxx_viewLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."yxxx.DB".Lastp'
    end
    object q_yxxx_viewChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."yxxx.DB".Chkcycl'
    end
    object q_yxxx_viewDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."yxxx.DB".Dgpcxx'
    end
    object q_yxxx_viewDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."yxxx.DB".Dgpcsx'
    end
    object q_yxxx_viewNtime: TSmallintField
      FieldName = 'Ntime'
      Origin = 'GYXGDB."yxxx.DB".Ntime'
    end
  end
  object q_xxlr: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select  distinct workercode,node'
      'from patrolrec ')
    Left = 408
    Top = 168
    object q_xxlrworkercode: TStringField
      FieldName = 'workercode'
      Origin = 'GYXGDB."patrolrec.DB".Workercode'
      Size = 2
    end
    object q_xxlrnode: TStringField
      FieldName = 'node'
      Origin = 'GYXGDB."patrolrec.DB".Node'
      Size = 4
    end
  end
  object q_xxwh: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct fpxl.code,point.node'
      'from fpxl,point'
      'where fpxl.linename=point.linename')
    Left = 424
    Top = 96
  end
  object q_pen: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct a.pencode '
      'from yxxx a,pen b'
      'where a.pencode=b.pencode')
    Left = 208
    Top = 352
  end
end