dm_yxxx_view_pas.~dfm

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

object dm_yxxx_view: Tdm_yxxx_view
  OldCreateOrder = False
  Left = 48
  Top = 58
  Height = 479
  Width = 741
  object Q_worker: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from worker')
    Left = 32
    Top = 16
    object Q_workerId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."worker.DB".Id'
    end
    object Q_workerCode: TStringField
      FieldName = 'Code'
      Origin = 'GYXGDB."worker.DB".Code'
      Size = 2
    end
    object Q_workerName: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object Q_workerBirthday: TDateField
      FieldName = 'Birthday'
      Origin = 'GYXGDB."worker.DB".Birthday'
    end
    object Q_workerSex: TStringField
      FieldName = 'Sex'
      Origin = 'GYXGDB."worker.DB".Sex'
      Size = 2
    end
    object Q_workerAddress: TStringField
      FieldName = 'Address'
      Origin = 'GYXGDB."worker.DB".Address'
    end
    object Q_workerPhone: TStringField
      FieldName = 'Phone'
      Origin = 'GYXGDB."worker.DB".Phone'
    end
    object Q_workerPager: TStringField
      FieldName = 'Pager'
      Origin = 'GYXGDB."worker.DB".Pager'
    end
    object Q_workerNumber: TStringField
      FieldName = 'Number'
      Origin = 'GYXGDB."worker.DB".Number'
      Size = 4
    end
  end
  object ds_worker: TDataSource
    DataSet = Q_worker
    Left = 80
    Top = 8
  end
  object q_line: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct linename'
      'from point')
    Left = 128
    Top = 16
    object q_linelinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
  end
  object ds_line: TDataSource
    DataSet = q_line
    Left = 168
    Top = 16
  end
  object q_shifts: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct shifts'
      'from shiftrule')
    Left = 296
    Top = 8
    object q_shiftsshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
  end
  object ds_shifts: TDataSource
    DataSet = q_shifts
    Left = 360
    Top = 8
  end
  object q_point: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct node,name,lseq,nodeplace'
      'from point')
    Left = 208
    Top = 16
    object q_pointnode: TStringField
      FieldName = 'node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object q_pointname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object q_pointlseq: TSmallintField
      FieldName = 'lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object q_pointnodeplace: TStringField
      FieldName = 'nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
  end
  object ds_point: TDataSource
    DataSet = q_point
    Left = 248
    Top = 8
  end
  object q_fpxl: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select code,linename,shift'
      'from  fpxl ')
    Left = 72
    Top = 72
    object q_fpxlcode: TStringField
      FieldName = 'code'
      Origin = 'GYXGDB."fpxl.DB".Code'
      Size = 2
    end
    object q_fpxllinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."fpxl.DB".Linename'
    end
    object q_fpxlshift: TStringField
      FieldName = 'shift'
      Origin = 'GYXGDB."fpxl.DB".Shift'
    end
  end
  object q_date: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct pdate '
      'from patrolrec'
      'order by pdate')
    Left = 32
    Top = 72
    object q_datepdate: TDateField
      FieldName = 'pdate'
      Origin = 'GYXGDB."patrolrec.DB".Pdate'
    end
  end
  object q_choose_point: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from point '
      'where linename=:linename'
      'order by lseq')
    Left = 136
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'linename'
        ParamType = ptInput
      end>
    object q_choose_pointId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."point.DB".Id'
    end
    object q_choose_pointNode: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object q_choose_pointLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
    object q_choose_pointName: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object q_choose_pointNodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
    object q_choose_pointLseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object q_choose_pointNtime: TSmallintField
      FieldName = 'Ntime'
      Origin = 'GYXGDB."point.DB".Ntime'
    end
  end
  object q_ysxx: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT  patrolrec.dataseq,patrolrec.workercode,patrolrec.pencode' +
        ',patrolrec.pdate,'
      
        'patrolrec.ptime,patrolrec.pstatu,patrolrec.node,point.linename,p' +
        'oint.name,'
      
        'point.nodeplace,point.lseq,point.ntime,worker.name as workername' +
        ',worker.number,shiftrule.shifts,'
      
        'shiftrule.firstp,shiftrule.lastp,shiftrule.times,shiftrule.chkcy' +
        'cl,shiftrule.dgpcsx,shiftrule.dgpcxx'
      'from patrolrec inner join'
      'point on patrolrec.node=point.node  inner join'
      'worker on patrolrec.workercode=worker.code inner join'
      
        'fpxl on (patrolrec.workercode=fpxl.code) and  (point.linename=fp' +
        'xl.linename) inner join'
      'shiftrule on fpxl.shift=shiftrule.shifts'
      'where (patrolrec.pdate>=:_pdate1)'
      'and (patrolrec.pdate<=:_pdate2)'
      
        'order by patrolrec.pdate,patrolrec.workercode,point.linename,shi' +
        'ftrule.shifts,patrolrec.ptime'
      ''
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 24
    Top = 120
    ParamData = <
      item
        DataType = ftDate
        Name = '_pdate1'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = '_pdate2'
        ParamType = ptInput
      end>
  end
  object q_yxxx: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from yxxx'
      'order by pdate,workercode,linename,shifts,ptime,lseq')
    Left = 24
    Top = 176
    object q_yxxxDataseq: TIntegerField
      FieldName = 'Dataseq'
      Origin = 'GYXGDB."yxxx.DB".Dataseq'
    end
    object q_yxxxPdate: TDateField
      FieldName = 'Pdate'
      Origin = 'GYXGDB."yxxx.DB".Pdate'
    end
    object q_yxxxPtime: TTimeField
      FieldName = 'Ptime'
      Origin = 'GYXGDB."yxxx.DB".Ptime'
      DisplayFormat = 'hh:mm'
    end
    object q_yxxxPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."yxxx.DB".Pencode'
      Size = 2
    end
    object q_yxxxNode: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."yxxx.DB".Node'
      Size = 4
    end
    object q_yxxxWorkercode: TStringField
      FieldName = 'Workercode'
      Origin = 'GYXGDB."yxxx.DB".Workercode'
      Size = 2
    end
    object q_yxxxNodename: TStringField
      FieldName = 'Nodename'
      Origin = 'GYXGDB."yxxx.DB".Nodename'
    end
    object q_yxxxNodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."yxxx.DB".Nodeplace'
    end
    object q_yxxxLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."yxxx.DB".Linename'
    end
    object q_yxxxLseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."yxxx.DB".Lseq'
    end
    object q_yxxxPstatu: TStringField
      FieldName = 'Pstatu'
      Origin = 'GYXGDB."yxxx.DB".Pstatu'
    end
    object q_yxxxShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."yxxx.DB".Shifts'
    end
    object q_yxxxFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."yxxx.DB".Firstp'
    end
    object q_yxxxLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."yxxx.DB".Lastp'
    end
    object q_yxxxChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."yxxx.DB".Chkcycl'
    end
    object q_yxxxDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."yxxx.DB".Dgpcxx'
    end
    object q_yxxxDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."yxxx.DB".Dgpcsx'
    end
    object q_yxxxNtime: TSmallintField
      FieldName = 'Ntime'
      Origin = 'GYXGDB."yxxx.DB".Ntime'
    end
    object q_yxxxWorkername: TStringField
      FieldName = 'Workername'
      Origin = 'GYXGDB."yxxx.DB".Workername'
    end
  end
  object ds_yxxx: TDataSource
    DataSet = q_yxxx
    Left = 72
    Top = 176
  end
  object q_choose_shifts: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from shiftrule'
      'where shifts=:shifts'
      'and linename=:linename')
    Left = 216
    Top = 64
    ParamData = <
      item
        DataType = ftString
        Name = 'shifts'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'linename'
        ParamType = ptInput
      end>
    object q_choose_shiftsId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."shiftrule.DB".Id'
    end
    object q_choose_shiftsLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."shiftrule.DB".Linename'
    end
    object q_choose_shiftsShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
    object q_choose_shiftsFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."shiftrule.DB".Firstp'
    end
    object q_choose_shiftsLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."shiftrule.DB".Lastp'
    end
    object q_choose_shiftsChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."shiftrule.DB".Chkcycl'
    end
    object q_choose_shiftsDltp: TIntegerField
      FieldName = 'Dltp'
      Origin = 'GYXGDB."shiftrule.DB".Dltp'
    end
    object q_choose_shiftsDltt: TIntegerField
      FieldName = 'Dltt'
      Origin = 'GYXGDB."shiftrule.DB".Dltt'
    end
    object q_choose_shiftsDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcsx'
    end
    object q_choose_shiftsDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcxx'
    end
  end
  object q_ldxx_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      
        'select distinct  yxxx_fl.pdate,yxxx_fl.code,yxxx_fl.pencode,yxxx' +
        '_fl.linename,yxxx_fl.shifts,yxxx_fl.node,yxxx_fl.xxbs,'
      
        'yxxx_fl.case,yxxx_fl.name,yxxx_fl.nodeplace,yxxx_fl.lseq,worker.' +
        'name as workername'
      'from yxxx_fl,worker'
      'where yxxx_fl.code=worker.code'
      'and (yxxx_fl.xxbs='#39'1'#39')'
      
        'order by yxxx_fl.case,yxxx_fl.pdate,yxxx_fl.pencode,yxxx_fl.code' +
        ',yxxx_fl.linename,yxxx_fl.shifts,yxxx_fl.lseq'
      ''
      ''
      ''
      ''
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 33
    Top = 278
    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
    object q_ldxx_viewpencode: TStringField
      FieldName = 'pencode'
      Origin = 'GYXGDB."yxxx_fl.DB".Pencode'
      Size = 2
    end
  end
  object ds_ldxx_view: TDataSource
    DataSet = q_ldxx_view
    Left = 113
    Top = 286
  end
  object q_yxxx_fl: TTable
    DatabaseName = 'gyxgdb'
    TableName = 'yxxx_fl.DB'
    Left = 24
    Top = 232
    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