dm_xjysxx_view_pas.~dfm

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

object dm_xjysxx_view: Tdm_xjysxx_view
  OldCreateOrder = False
  Left = 87
  Top = 80
  Height = 479
  Width = 741
  object q_temp: TQuery
    DatabaseName = 'gyxgdb'
    SessionName = 'Default'
    SQL.Strings = (
      'select a.dataseq,a.pdate,a.ptime,'
      'a.pencode, a.node,a.workercode,a.pstatu'
      'from patrolrec a')
    Left = 192
    Top = 72
    object q_tempdataseq: TIntegerField
      FieldName = 'dataseq'
    end
    object q_temppdate: TDateField
      FieldName = 'pdate'
    end
    object q_tempptime: TTimeField
      FieldName = 'ptime'
    end
    object q_temppencode: TStringField
      FieldName = 'pencode'
      Size = 2
    end
    object q_tempnode: TStringField
      FieldName = 'node'
      Size = 4
    end
    object q_tempworkercode: TStringField
      FieldName = 'workercode'
      Size = 2
    end
    object q_temppstatu: TStringField
      FieldName = 'pstatu'
    end
    object q_tempworkername: TStringField
      FieldKind = fkLookup
      FieldName = 'workername'
      LookupDataSet = Query2
      LookupKeyFields = 'Code'
      LookupResultField = 'Name'
      KeyFields = 'workercode'
      Lookup = True
    end
    object q_tempnodename: TStringField
      FieldKind = fkLookup
      FieldName = 'nodename'
      LookupDataSet = Query1
      LookupKeyFields = 'node'
      LookupResultField = 'name'
      KeyFields = 'node'
      Lookup = True
    end
    object q_tempnodeplace: TStringField
      FieldKind = fkLookup
      FieldName = 'nodeplace'
      LookupDataSet = Query1
      LookupKeyFields = 'node'
      LookupResultField = 'nodeplace'
      KeyFields = 'node'
      Lookup = True
    end
    object q_templinename: TStringField
      FieldKind = fkLookup
      FieldName = 'linename'
      LookupDataSet = Query1
      LookupKeyFields = 'Node'
      LookupResultField = 'Linename'
      KeyFields = 'node'
      Lookup = True
    end
    object q_templseq: TStringField
      FieldKind = fkLookup
      FieldName = 'lseq'
      LookupDataSet = Query1
      LookupKeyFields = 'Node'
      LookupResultField = 'Lseq'
      KeyFields = 'node'
      Lookup = True
    end
  end
  object ds_xjysxx_view: TDataSource
    DataSet = q_xjysxx_view
    Left = 88
    Top = 8
  end
  object ds_xjysxx_order: TDataSource
    DataSet = q_xjysxx_order
    Left = 104
    Top = 72
  end
  object q_worker: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from worker')
    Left = 256
    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 = 336
    Top = 16
  end
  object q_line: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct linename'
      'from point')
    Left = 16
    Top = 144
    object q_linelinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
  end
  object ds_line: TDataSource
    DataSet = q_line
    Left = 80
    Top = 144
  end
  object q_point: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct node,name,lseq,nodeplace'
      'from point')
    Left = 144
    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 = 192
    Top = 8
  end
  object q_xjysxx_order: TTable
    DatabaseName = 'gyxgdb'
    TableName = 'temp.DB'
    Left = 24
    Top = 72
    object q_xjysxx_orderDataseq: TAutoIncField
      FieldName = 'Dataseq'
      ReadOnly = True
    end
    object q_xjysxx_orderPdate: TDateField
      FieldName = 'Pdate'
    end
    object q_xjysxx_orderPtime: TTimeField
      FieldName = 'Ptime'
    end
    object q_xjysxx_orderPencode: TStringField
      FieldName = 'Pencode'
      Size = 2
    end
    object q_xjysxx_orderNode: TStringField
      FieldName = 'Node'
      Size = 4
    end
    object q_xjysxx_orderWorkercode: TStringField
      FieldName = 'Workercode'
      Size = 2
    end
    object q_xjysxx_orderNodename: TStringField
      FieldName = 'Nodename'
    end
    object q_xjysxx_orderNodeplace: TStringField
      FieldName = 'Nodeplace'
    end
    object q_xjysxx_orderLinename: TStringField
      FieldName = 'Linename'
    end
    object q_xjysxx_orderLseq: TSmallintField
      FieldName = 'Lseq'
    end
    object q_xjysxx_orderPstatu: TStringField
      FieldName = 'Pstatu'
    end
    object q_xjysxx_orderShifts: TStringField
      FieldName = 'Shifts'
    end
    object q_xjysxx_orderFirstp: TTimeField
      FieldName = 'Firstp'
    end
    object q_xjysxx_orderLastp: TTimeField
      FieldName = 'Lastp'
    end
    object q_xjysxx_orderChkcycl: TIntegerField
      FieldName = 'Chkcycl'
    end
    object q_xjysxx_orderDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
    end
    object q_xjysxx_orderDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
    end
    object q_xjysxx_orderNtime: TSmallintField
      FieldName = 'Ntime'
    end
  end
  object q_xjysxx_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from temp')
    Left = 16
    Top = 8
    object q_xjysxx_viewDataseq: TIntegerField
      FieldName = 'Dataseq'
      Origin = 'GYXGDB."temp.DB".Dataseq'
    end
    object q_xjysxx_viewPdate: TDateField
      FieldName = 'Pdate'
      Origin = 'GYXGDB."temp.DB".Pdate'
    end
    object q_xjysxx_viewPtime: TTimeField
      FieldName = 'Ptime'
      Origin = 'GYXGDB."temp.DB".Ptime'
    end
    object q_xjysxx_viewPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."temp.DB".Pencode'
      Size = 2
    end
    object q_xjysxx_viewNode: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."temp.DB".Node'
      Size = 4
    end
    object q_xjysxx_viewWorkercode: TStringField
      FieldName = 'Workercode'
      Origin = 'GYXGDB."temp.DB".Workercode'
      Size = 2
    end
    object q_xjysxx_viewNodename: TStringField
      FieldName = 'Nodename'
      Origin = 'GYXGDB."temp.DB".Nodename'
    end
    object q_xjysxx_viewNodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."temp.DB".Nodeplace'
    end
    object q_xjysxx_viewLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."temp.DB".Linename'
    end
    object q_xjysxx_viewLseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."temp.DB".Lseq'
    end
    object q_xjysxx_viewWorkername: TStringField
      FieldName = 'Workername'
      Origin = 'GYXGDB."temp.DB".Workername'
    end
    object q_xjysxx_viewPstatu: TStringField
      FieldName = 'Pstatu'
      Origin = 'GYXGDB."temp.DB".Pstatu'
    end
  end
  object q_del: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select * from temp')
    Left = 288
    Top = 80
  end
  object T_PATROLREC: TTable
    DatabaseName = 'GYxgdb'
    IndexFieldNames = 'Dataseq'
    TableName = 'patrolrec.DB'
    Left = 48
    Top = 232
    object T_PATROLRECDataseq: TAutoIncField
      FieldName = 'Dataseq'
      ReadOnly = True
    end
    object T_PATROLRECPdate: TDateField
      FieldName = 'Pdate'
    end
    object T_PATROLRECPtime: TTimeField
      FieldName = 'Ptime'
    end
    object T_PATROLRECPencode: TStringField
      FieldName = 'Pencode'
      Size = 2
    end
    object T_PATROLRECNode: TStringField
      FieldName = 'Node'
      Size = 4
    end
    object T_PATROLRECWorkercode: TStringField
      FieldName = 'Workercode'
      Size = 2
    end
    object T_PATROLRECNodename: TStringField
      FieldName = 'Nodename'
    end
    object T_PATROLRECNodeplace: TStringField
      FieldName = 'Nodeplace'
    end
    object T_PATROLRECWorkername: TStringField
      FieldName = 'Workername'
    end
    object T_PATROLRECLinename: TStringField
      FieldName = 'Linename'
    end
    object T_PATROLRECLseq: TSmallintField
      FieldName = 'Lseq'
    end
    object T_PATROLRECPstatu: TStringField
      FieldName = 'Pstatu'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select point.*'
      'from point')
    Left = 176
    Top = 192
    object Query1Id: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."point.DB".Id'
    end
    object Query1Node: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object Query1Linename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
    object Query1Name: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object Query1Nodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
    object Query1Lseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object Query1Ntime: TSmallintField
      FieldName = 'Ntime'
      Origin = 'GYXGDB."point.DB".Ntime'
    end
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * from worker')
    Left = 280
    Top = 192
    object Query2Id: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."worker.DB".Id'
    end
    object Query2Code: TStringField
      FieldName = 'Code'
      Origin = 'GYXGDB."worker.DB".Code'
      Size = 2
    end
    object Query2Name: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object Query2Birthday: TDateField
      FieldName = 'Birthday'
      Origin = 'GYXGDB."worker.DB".Birthday'
    end
    object Query2Sex: TStringField
      FieldName = 'Sex'
      Origin = 'GYXGDB."worker.DB".Sex'
      Size = 2
    end
    object Query2Address: TStringField
      FieldName = 'Address'
      Origin = 'GYXGDB."worker.DB".Address'
    end
    object Query2Phone: TStringField
      FieldName = 'Phone'
      Origin = 'GYXGDB."worker.DB".Phone'
    end
    object Query2Pager: TStringField
      FieldName = 'Pager'
      Origin = 'GYXGDB."worker.DB".Pager'
    end
    object Query2Number: TStringField
      FieldName = 'Number'
      Origin = 'GYXGDB."worker.DB".Number'
      Size = 4
    end
    object Query2Pencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."worker.DB".Pencode'
      Size = 4
    end
  end
end