dm_yxxx_pas.dfm

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

object dm_yxxx_form: Tdm_yxxx_form
  OldCreateOrder = False
  Left = 122
  Top = 146
  Height = 479
  Width = 741
  object Q_worker: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from worker')
    Left = 16
    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 = 72
    Top = 16
  end
  object q_line: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct linename'
      'from point')
    Left = 120
    Top = 16
    object q_linelinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
  end
  object ds_line: TDataSource
    DataSet = q_line
    Left = 160
    Top = 16
  end
  object q_shifts: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct shifts'
      'from shiftrule')
    Left = 288
    Top = 16
    object q_shiftsshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
  end
  object ds_shifts: TDataSource
    DataSet = q_shifts
    Left = 336
    Top = 16
  end
  object q_point: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct node,name,lseq,nodeplace'
      'from point')
    Left = 200
    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 = 240
    Top = 16
  end
  object q_fpxl: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select code,linename,shift'
      'from  fpxl ')
    Left = 96
    Top = 80
    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_choose_point: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from point '
      'where linename=:linename'
      'order by lseq')
    Left = 168
    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.chkcycl,shiftrule.dgp' +
        'csx,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'
      'and   point.linename=:_linename'
      'and   shiftrule.shifts=:_shifts'
      'and   patrolrec.workercode=:_workercode'
      
        'order by patrolrec.pdate,patrolrec.workercode,point.linename,shi' +
        'ftrule.shifts,patrolrec.ptime'
      ' '
      ' ')
    Left = 168
    Top = 144
    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_ysxxdataseq: TIntegerField
      FieldName = 'dataseq'
    end
    object q_ysxxworkercode: TStringField
      FieldName = 'workercode'
      Size = 2
    end
    object q_ysxxpencode: TStringField
      FieldName = 'pencode'
      Size = 2
    end
    object q_ysxxpdate: TDateField
      FieldName = 'pdate'
    end
    object q_ysxxptime: TTimeField
      FieldName = 'ptime'
    end
    object q_ysxxpstatu: TStringField
      FieldName = 'pstatu'
    end
    object q_ysxxnode: TStringField
      FieldName = 'node'
      Size = 4
    end
    object q_ysxxlinename: TStringField
      FieldName = 'linename'
    end
    object q_ysxxname: TStringField
      FieldName = 'name'
    end
    object q_ysxxnodeplace: TStringField
      FieldName = 'nodeplace'
    end
    object q_ysxxlseq: TSmallintField
      FieldName = 'lseq'
    end
    object q_ysxxntime: TSmallintField
      FieldName = 'ntime'
    end
    object q_ysxxworkername: TStringField
      FieldName = 'workername'
    end
    object q_ysxxnumber: TStringField
      FieldName = 'number'
      Size = 4
    end
    object q_ysxxshifts: TStringField
      FieldName = 'shifts'
    end
    object q_ysxxfirstp: TTimeField
      FieldName = 'firstp'
    end
    object q_ysxxlastp: TTimeField
      FieldName = 'lastp'
    end
    object q_ysxxchkcycl: TIntegerField
      FieldName = 'chkcycl'
    end
    object q_ysxxdgpcsx: TIntegerField
      FieldName = 'dgpcsx'
    end
    object q_ysxxdgpcxx: TIntegerField
      FieldName = 'dgpcxx'
    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 = 224
    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 = 224
  end
  object q_choose_shifts: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from shiftrule'
      'where shifts=:shifts'
      'and linename=:linename')
    Left = 256
    Top = 72
    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.linename,yxx' +
        'x_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.code,yxxx_fl.linenam' +
        'e,yxxx_fl.shifts,yxxx_fl.lseq'
      ''
      ''
      ''
      ''
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '