dm_worker_pas.dfm

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

object dm_worker: Tdm_worker
  OldCreateOrder = False
  Left = 165
  Top = 150
  Height = 479
  Width = 741
  object q_worker: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from worker '
      'order by number')
    Left = 24
    Top = 16
    object q_workerId: TAutoIncField
      FieldName = 'Id'
      Origin = 'GYXGDB."worker.DB".Id'
      ReadOnly = True
    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
    object q_workerPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."worker.DB".Pencode'
      Size = 4
    end
  end
  object ds_worker: TDataSource
    DataSet = q_worker
    Left = 96
    Top = 16
  end
  object q_worker_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from worker '
      'order by number')
    Left = 16
    Top = 72
    object q_worker_viewId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."worker.DB".Id'
    end
    object q_worker_viewCode: TStringField
      FieldName = 'Code'
      Origin = 'GYXGDB."worker.DB".Code'
      Size = 2
    end
    object q_worker_viewName: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object q_worker_viewBirthday: TDateField
      FieldName = 'Birthday'
      Origin = 'GYXGDB."worker.DB".Birthday'
    end
    object q_worker_viewSex: TStringField
      FieldName = 'Sex'
      Origin = 'GYXGDB."worker.DB".Sex'
      Size = 2
    end
    object q_worker_viewAddress: TStringField
      FieldName = 'Address'
      Origin = 'GYXGDB."worker.DB".Address'
    end
    object q_worker_viewPhone: TStringField
      FieldName = 'Phone'
      Origin = 'GYXGDB."worker.DB".Phone'
    end
    object q_worker_viewPager: TStringField
      FieldName = 'Pager'
      Origin = 'GYXGDB."worker.DB".Pager'
    end
    object q_worker_viewNumber: TStringField
      FieldName = 'Number'
      Origin = 'GYXGDB."worker.DB".Number'
      Size = 4
    end
    object q_worker_viewPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."worker.DB".Pencode'
      Size = 4
    end
  end
  object ds_worker_view: TDataSource
    DataSet = q_worker_view
    Left = 96
    Top = 72
  end
  object Q_FIND: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from worker')
    Left = 24
    Top = 144
    object Q_FINDId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."worker.DB".Id'
    end
    object Q_FINDCode: TStringField
      FieldName = 'Code'
      Origin = 'GYXGDB."worker.DB".Code'
      Size = 2
    end
    object Q_FINDName: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object Q_FINDBirthday: TDateField
      FieldName = 'Birthday'
      Origin = 'GYXGDB."worker.DB".Birthday'
    end
    object Q_FINDSex: TStringField
      FieldName = 'Sex'
      Origin = 'GYXGDB."worker.DB".Sex'
      Size = 2
    end
    object Q_FINDAddress: TStringField
      FieldName = 'Address'
      Origin = 'GYXGDB."worker.DB".Address'
    end
    object Q_FINDPhone: TStringField
      FieldName = 'Phone'
      Origin = 'GYXGDB."worker.DB".Phone'
    end
    object Q_FINDPager: TStringField
      FieldName = 'Pager'
      Origin = 'GYXGDB."worker.DB".Pager'
    end
    object Q_FINDNumber: TStringField
      FieldName = 'Number'
      Origin = 'GYXGDB."worker.DB".Number'
      Size = 4
    end
    object Q_FINDPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."worker.DB".Pencode'
      Size = 4
    end
  end
  object q_worker_ls: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select * '
      'from worker')
    Left = 32
    Top = 208
    object q_worker_lsId: TAutoIncField
      FieldName = 'Id'
      Origin = 'GYXGDB."worker.DB".Id'
      ReadOnly = True
    end
    object q_worker_lsCode: TStringField
      FieldName = 'Code'
      Origin = 'GYXGDB."worker.DB".Code'
      Size = 2
    end
    object q_worker_lsName: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."worker.DB".Name'
    end
    object q_worker_lsBirthday: TDateField
      FieldName = 'Birthday'
      Origin = 'GYXGDB."worker.DB".Birthday'
    end
    object q_worker_lsSex: TStringField
      FieldName = 'Sex'
      Origin = 'GYXGDB."worker.DB".Sex'
      Size = 2
    end
    object q_worker_lsAddress: TStringField
      FieldName = 'Address'
      Origin = 'GYXGDB."worker.DB".Address'
    end
    object q_worker_lsPhone: TStringField
      FieldName = 'Phone'
      Origin = 'GYXGDB."worker.DB".Phone'
    end
    object q_worker_lsPager: TStringField
      FieldName = 'Pager'
      Origin = 'GYXGDB."worker.DB".Pager'
    end
    object q_worker_lsNumber: TStringField
      FieldName = 'Number'
      Origin = 'GYXGDB."worker.DB".Number'
      Size = 4
    end
    object q_worker_lsPencode: TStringField
      FieldName = 'Pencode'
      Origin = 'GYXGDB."worker.DB".Pencode'
      Size = 4
    end
  end
  object q_edit: TQuery
    DatabaseName = 'gyxgdb'
    Left = 184
    Top = 160
  end
end