dm_yxxx_pas.dfm

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

      ' '
      ' ')
    Left = 25
    Top = 326
    object q_ldxx_viewpdate: TDateField
      FieldName = 'pdate'
      Origin = 'GYXGDB."yxxx_fl.DB".Pdate'
    end
    object q_ldxx_viewcode: TStringField
      FieldName = 'code'
      Origin = 'GYXGDB."yxxx_fl.DB".Code'
      Size = 2
    end
    object q_ldxx_viewlinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."yxxx_fl.DB".Linename'
    end
    object q_ldxx_viewshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."yxxx_fl.DB".Shifts'
    end
    object q_ldxx_viewnode: TStringField
      FieldName = 'node'
      Origin = 'GYXGDB."yxxx_fl.DB".Node'
      Size = 4
    end
    object q_ldxx_viewxxbs: TStringField
      FieldName = 'xxbs'
      Origin = 'GYXGDB."yxxx_fl.DB".Xxbs'
      Size = 1
    end
    object q_ldxx_viewcase: TStringField
      FieldName = 'case'
      Origin = 'GYXGDB."yxxx_fl.DB".Case'
      Size = 50
    end
    object q_ldxx_viewname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."yxxx_fl.DB".Name'
    end
    object q_ldxx_viewnodeplace: TStringField
      FieldName = 'nodeplace'
      Origin = 'GYXGDB."yxxx_fl.DB".Nodeplace'
    end
    object q_ldxx_viewlseq: TSmallintField
      FieldName = 'lseq'
      Origin = 'GYXGDB."yxxx_fl.DB".Lseq'
    end
    object q_ldxx_viewworkername: TStringField
      FieldName = 'workername'
      Origin = 'GYXGDB."worker.DB".Name'
    end
  end
  object ds_ldxx_view: TDataSource
    DataSet = q_ldxx_view
    Left = 81
    Top = 326
  end
  object q_yxxx_fl: TTable
    DatabaseName = 'gyxgdb'
    TableName = 'yxxx_fl.DB'
    Left = 24
    Top = 272
    object q_yxxx_flId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object q_yxxx_flPdate: TDateField
      FieldName = 'Pdate'
    end
    object q_yxxx_flPtime: TTimeField
      FieldName = 'Ptime'
      DisplayFormat = 'hh:mm'
    end
    object q_yxxx_flCode: TStringField
      FieldName = 'Code'
      Size = 2
    end
    object q_yxxx_flLinename: TStringField
      FieldName = 'Linename'
    end
    object q_yxxx_flShifts: TStringField
      FieldName = 'Shifts'
    end
    object q_yxxx_flNode: TStringField
      FieldName = 'Node'
      Size = 4
    end
    object q_yxxx_flXxbs: TStringField
      FieldName = 'Xxbs'
      Size = 1
    end
    object q_yxxx_flCase: TStringField
      FieldName = 'Case'
      Size = 50
    end
    object q_yxxx_flConifo: TStringField
      FieldName = 'Conifo'
      Size = 50
    end
    object q_yxxx_flPencode: TStringField
      FieldName = 'Pencode'
      Size = 2
    end
    object q_yxxx_flPstatu: TStringField
      FieldName = 'Pstatu'
    end
    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 = 272
  end
  object q_wzxx_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      
        'select yxxx_fl.xxbs,yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.code' +
        ',yxxx_fl.pdate,yxxx_fl.ptime,yxxx_fl.endtime,'
      'worker.name as workername'
      'from yxxx_fl worker'
      'where worker.code=yxxx_fl.code'
      'and(yxxx_fl.xxbs='#39'2'#39')'
      
        'order by yxxx_fl.pdate,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shi' +
        'fts'
      ' '
      ' '
      ' ')
    Left = 145
    Top = 326
    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'
      DisplayFormat = 'hh:mm'
    end
    object q_wzxx_viewendtime: TTimeField
      FieldName = 'endtime'
      Origin = 'GYXGDB."yxxx_fl.DB".Endtime'
      DisplayFormat = 'hh:MM'
    end
    object q_wzxx_viewworkername: TStringField
      FieldName = 'workername'
      Origin = 'GYXGDB."yxxx_fl.DB".Name'
    end
  end
  object ds_wzxx_view: TDataSource
    DataSet = q_wzxx_view
    Left = 201
    Top = 326
  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.code,yxxx_fl.linename,yxxx_fl.shi' +
        'fts,yxxx_fl.ptime,point.lseq')
    Left = 256
    Top = 328
    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 = 304
    Top = 328
  end
  object Table1: TTable
    DatabaseName = 'gyxgdb'
    TableName = 'yxxx.DB'
    Left = 176
    Top = 192
    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 = 400
    Top = 328
  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'
      'from yxxx_fl,worker'
      'where yxxx_fl.code=worker.code'
      'and yxxx_fl.xxbs='#39'4'#39
      
        'order by yxxx_fl.pdate,yxxx_fl.code,yxxx_fl.linename,yxxx_fl.shi' +
        'fts,yxxx_fl.ptime'
      ''
      ''
      ' '
      ' '
      ' ')
    Left = 352
    Top = 328
    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
  end
  object BatchMove1: TBatchMove
    Destination = Table1
    Source = t_yxxx_view
    Left = 272
    Top = 152
  end
  object t_yxxx_view: TTable
    DatabaseName = 'gyxgdb'
    IndexFieldNames = 'Dataseq'
    TableName = 'temp.db'
    Left = 224
    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_xxlr: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select  distinct workercode,node'
      'from patrolrec ')
    Left = 280
    Top = 192
    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 = 320
    Top = 192
  end
end