dm_class_pas.dfm

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

object dm_class_form: Tdm_class_form
  OldCreateOrder = False
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object ds_line: TDataSource
    DataSet = q_line
    Left = 24
    Top = 8
  end
  object q_line: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select distinct linename'
      'from point')
    Left = 80
    Top = 8
    object q_linelinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."point.DB".Linename'
    end
  end
  object q_class: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from shiftrule'
      'order by linename')
    Left = 88
    Top = 56
    object q_classId: TAutoIncField
      FieldName = 'Id'
      Origin = 'GYXGDB."shiftrule.DB".Id'
      ReadOnly = True
    end
    object q_classLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."shiftrule.DB".Linename'
    end
    object q_classShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
    object q_classFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."shiftrule.DB".Firstp'
    end
    object q_classLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."shiftrule.DB".Lastp'
    end
    object q_classChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."shiftrule.DB".Chkcycl'
    end
    object q_classDltp: TIntegerField
      FieldName = 'Dltp'
      Origin = 'GYXGDB."shiftrule.DB".Dltp'
    end
    object q_classDltt: TIntegerField
      FieldName = 'Dltt'
      Origin = 'GYXGDB."shiftrule.DB".Dltt'
    end
    object q_classDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcsx'
    end
    object q_classDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcxx'
    end
    object q_classTimes: TIntegerField
      FieldName = 'Times'
      Origin = 'GYXGDB."shiftrule.DB".Times'
    end
  end
  object ds_class: TDataSource
    DataSet = q_class
    Left = 24
    Top = 64
  end
  object q_find: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from shiftrule')
    Left = 24
    Top = 120
    object q_findId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."shiftrule.DB".Id'
    end
    object q_findLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."shiftrule.DB".Linename'
    end
    object q_findShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
    object q_findFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."shiftrule.DB".Firstp'
    end
    object q_findLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."shiftrule.DB".Lastp'
    end
    object q_findChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."shiftrule.DB".Chkcycl'
    end
    object q_findDltp: TIntegerField
      FieldName = 'Dltp'
      Origin = 'GYXGDB."shiftrule.DB".Dltp'
    end
    object q_findDltt: TIntegerField
      FieldName = 'Dltt'
      Origin = 'GYXGDB."shiftrule.DB".Dltt'
    end
    object q_findDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcsx'
    end
    object q_findDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcxx'
    end
  end
  object q_view: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select * '
      'from shiftrule'
      'order by linename')
    Left = 16
    Top = 184
    object q_viewId: TIntegerField
      FieldName = 'Id'
      Origin = 'GYXGDB."shiftrule.DB".Id'
    end
    object q_viewLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."shiftrule.DB".Linename'
    end
    object q_viewShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
    object q_viewFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."shiftrule.DB".Firstp'
    end
    object q_viewLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."shiftrule.DB".Lastp'
    end
    object q_viewChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."shiftrule.DB".Chkcycl'
    end
    object q_viewDltp: TIntegerField
      FieldName = 'Dltp'
      Origin = 'GYXGDB."shiftrule.DB".Dltp'
    end
    object q_viewDltt: TIntegerField
      FieldName = 'Dltt'
      Origin = 'GYXGDB."shiftrule.DB".Dltt'
    end
    object q_viewDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcsx'
    end
    object q_viewDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcxx'
    end
    object q_viewTimes: TIntegerField
      FieldName = 'Times'
      Origin = 'GYXGDB."shiftrule.DB".Times'
    end
  end
  object ds_view: TDataSource
    DataSet = q_view
    Left = 88
    Top = 184
  end
  object q_shift: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select  distinct shifts '
      'from shiftrule')
    Left = 80
    Top = 128
    object q_shiftshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
  end
  object ds_shift: TDataSource
    DataSet = q_shift
    Left = 136
    Top = 136
  end
  object q_class_ls: TQuery
    Active = True
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select * '
      'from shiftrule'
      '')
    Left = 32
    Top = 248
    object AutoIncField1: TAutoIncField
      FieldName = 'Id'
      Origin = 'GYXGDB."shiftrule.DB".Id'
      ReadOnly = True
    end
    object StringField1: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."shiftrule.DB".Linename'
    end
    object StringField2: TStringField
      FieldName = 'Shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
    end
    object TimeField1: TTimeField
      FieldName = 'Firstp'
      Origin = 'GYXGDB."shiftrule.DB".Firstp'
    end
    object TimeField2: TTimeField
      FieldName = 'Lastp'
      Origin = 'GYXGDB."shiftrule.DB".Lastp'
    end
    object IntegerField1: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'GYXGDB."shiftrule.DB".Chkcycl'
    end
    object IntegerField2: TIntegerField
      FieldName = 'Dltp'
      Origin = 'GYXGDB."shiftrule.DB".Dltp'
    end
    object IntegerField3: TIntegerField
      FieldName = 'Dltt'
      Origin = 'GYXGDB."shiftrule.DB".Dltt'
    end
    object IntegerField4: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcsx'
    end
    object IntegerField5: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'GYXGDB."shiftrule.DB".Dgpcxx'
    end
    object q_class_lsTimes: TIntegerField
      FieldName = 'Times'
      Origin = 'GYXGDB."shiftrule.DB".Times'
    end
  end
  object q_edit: TQuery
    DatabaseName = 'gyxgdb'
    Left = 160
    Top = 240
  end
end