dm_point_pas.dfm

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

object dm_point: Tdm_point
  OldCreateOrder = False
  Left = 197
  Top = 151
  Height = 479
  Width = 741
  object q_point: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from point'
      'order by linename,lseq,name,nodeplace')
    Left = 144
    Top = 24
    object q_pointId: TAutoIncField
      FieldName = 'Id'
      Origin = 'GYXGDB."point.DB".Id'
      ReadOnly = True
    end
    object q_pointNode: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object q_pointLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
    object q_pointName: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object q_pointNodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
    object q_pointLseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object q_pointNtime: TSmallintField
      FieldName = 'Ntime'
      Origin = 'GYXGDB."point.DB".Ntime'
    end
  end
  object ds_point: TDataSource
    DataSet = q_point
    Left = 96
    Top = 24
  end
  object ds_point_view: TDataSource
    DataSet = q_point_view
    Left = 104
    Top = 80
  end
  object q_point_view: TQuery
    Active = True
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select linename,node,lseq,name,nodeplace,ntime'
      'from point'
      'order by linename,node'
      '')
    Left = 32
    Top = 80
    object q_point_viewlinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
    object q_point_viewnode: TStringField
      FieldName = 'node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object q_point_viewlseq: TSmallintField
      FieldName = 'lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object q_point_viewname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object q_point_viewnodeplace: TStringField
      FieldName = 'nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
    object q_point_viewntime: TSmallintField
      FieldName = 'ntime'
      Origin = 'GYXGDB."point.DB".Ntime'
    end
  end
  object q_find: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select linename,node,lseq,name,nodeplace,ntime'
      'from point'
      'order by linename,node')
    Left = 16
    Top = 136
    object q_findlinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
    object q_findnode: TStringField
      FieldName = 'node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object q_findlseq: TSmallintField
      FieldName = 'lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object q_findname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object q_findnodeplace: TStringField
      FieldName = 'nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
    object q_findntime: TSmallintField
      FieldName = 'ntime'
      Origin = 'GYXGDB."point.DB".Ntime'
    end
  end
  object q_line: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct linename'
      'from point ')
    Left = 8
    Top = 224
    object q_linelinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
  end
  object ds_line: TDataSource
    DataSet = q_line
    Left = 72
    Top = 224
  end
  object q_point_ls: TQuery
    Active = True
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from point')
    Left = 80
    Top = 136
    object AutoIncField1: TAutoIncField
      FieldName = 'Id'
      Origin = 'GYXGDB."point.DB".Id'
      ReadOnly = True
    end
    object StringField1: TStringField
      FieldName = 'Node'
      Origin = 'GYXGDB."point.DB".Node'
      Size = 4
    end
    object StringField2: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
    object StringField3: TStringField
      FieldName = 'Name'
      Origin = 'GYXGDB."point.DB".Name'
    end
    object StringField4: TStringField
      FieldName = 'Nodeplace'
      Origin = 'GYXGDB."point.DB".Nodeplace'
    end
    object SmallintField1: TSmallintField
      FieldName = 'Lseq'
      Origin = 'GYXGDB."point.DB".Lseq'
    end
    object SmallintField2: TSmallintField
      FieldName = 'Ntime'
      Origin = 'GYXGDB."point.DB".Ntime'
    end
  end
  object q_lseq: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct linename,lseq'
      'from point ')
    Left = 240
    Top = 112
  end
end