dm_sjbf_pas.~dfm

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

object dm_sjbf: Tdm_sjbf
  OldCreateOrder = False
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object Database1: TDatabase
    AliasName = 'gyxgdb'
    Connected = True
    DatabaseName = 'sjbf'
    LoginPrompt = False
    SessionName = 'Session1_1'
    TransIsolation = tiDirtyRead
    Left = 16
    Top = 24
  end
  object q_worker: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'sjbf'
    SessionName = 'Session1_1'
    RequestLive = True
    SQL.Strings = (
      'select * from worker')
    UpdateObject = us_worker
    Left = 112
    Top = 128
    object q_workerId: TIntegerField
      FieldName = 'Id'
      Origin = 'SJBF."worker.DB".Id'
    end
    object q_workerCode: TStringField
      FieldName = 'Code'
      Origin = 'SJBF."worker.DB".Code'
      Size = 2
    end
    object q_workerName: TStringField
      FieldName = 'Name'
      Origin = 'SJBF."worker.DB".Name'
    end
    object q_workerBirthday: TDateField
      FieldName = 'Birthday'
      Origin = 'SJBF."worker.DB".Birthday'
    end
    object q_workerSex: TStringField
      FieldName = 'Sex'
      Origin = 'SJBF."worker.DB".Sex'
      Size = 2
    end
    object q_workerAddress: TStringField
      FieldName = 'Address'
      Origin = 'SJBF."worker.DB".Address'
    end
    object q_workerPhone: TStringField
      FieldName = 'Phone'
      Origin = 'SJBF."worker.DB".Phone'
    end
    object q_workerPager: TStringField
      FieldName = 'Pager'
      Origin = 'SJBF."worker.DB".Pager'
    end
    object q_workerNumber: TStringField
      FieldName = 'Number'
      Origin = 'SJBF."worker.DB".Number'
      Size = 4
    end
  end
  object q_point: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'sjbf'
    SessionName = 'Session1_1'
    RequestLive = True
    SQL.Strings = (
      'select * from  point')
    UpdateObject = us_point
    Left = 112
    Top = 72
    object q_pointId: TIntegerField
      FieldName = 'Id'
      Origin = 'SJBF."point.DB".Id'
    end
    object q_pointNode: TStringField
      FieldName = 'Node'
      Origin = 'SJBF."point.DB".Node'
      Size = 4
    end
    object q_pointLinename: TStringField
      FieldName = 'Linename'
      Origin = 'SJBF."point.DB".Linename'
    end
    object q_pointName: TStringField
      FieldName = 'Name'
      Origin = 'SJBF."point.DB".Name'
    end
    object q_pointNodeplace: TStringField
      FieldName = 'Nodeplace'
      Origin = 'SJBF."point.DB".Nodeplace'
    end
    object q_pointLseq: TSmallintField
      FieldName = 'Lseq'
      Origin = 'SJBF."point.DB".Lseq'
    end
    object q_pointNtime: TSmallintField
      FieldName = 'Ntime'
      Origin = 'SJBF."point.DB".Ntime'
    end
  end
  object q_shiftrule: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'sjbf'
    SessionName = 'Session1_1'
    RequestLive = True
    SQL.Strings = (
      'select * from shiftrule')
    UpdateObject = us_shiftrule
    Left = 104
    Top = 192
    object q_shiftruleId: TIntegerField
      FieldName = 'Id'
      Origin = 'SJBF."shiftrule.DB".Id'
    end
    object q_shiftruleLinename: TStringField
      FieldName = 'Linename'
      Origin = 'SJBF."shiftrule.DB".Linename'
    end
    object q_shiftruleShifts: TStringField
      FieldName = 'Shifts'
      Origin = 'SJBF."shiftrule.DB".Shifts'
    end
    object q_shiftruleFirstp: TTimeField
      FieldName = 'Firstp'
      Origin = 'SJBF."shiftrule.DB".Firstp'
    end
    object q_shiftruleLastp: TTimeField
      FieldName = 'Lastp'
      Origin = 'SJBF."shiftrule.DB".Lastp'
    end
    object q_shiftruleChkcycl: TIntegerField
      FieldName = 'Chkcycl'
      Origin = 'SJBF."shiftrule.DB".Chkcycl'
    end
    object q_shiftruleDltp: TIntegerField
      FieldName = 'Dltp'
      Origin = 'SJBF."shiftrule.DB".Dltp'
    end
    object q_shiftruleDltt: TIntegerField
      FieldName = 'Dltt'
      Origin = 'SJBF."shiftrule.DB".Dltt'
    end
    object q_shiftruleDgpcsx: TIntegerField
      FieldName = 'Dgpcsx'
      Origin = 'SJBF."shiftrule.DB".Dgpcsx'
    end
    object q_shiftruleDgpcxx: TIntegerField
      FieldName = 'Dgpcxx'
      Origin = 'SJBF."shiftrule.DB".Dgpcxx'
    end
    object q_shiftruleTimes: TIntegerField
      FieldName = 'Times'
      Origin = 'SJBF."shiftrule.DB".Times'
    end
  end
  object q_fpxl: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'sjbf'
    SessionName = 'Session1_1'
    RequestLive = True
    SQL.Strings = (
      'select * from fpxl')
    UpdateObject = us_fpxl
    Left = 104
    Top = 248
    object q_fpxlNumber: TIntegerField
      FieldName = 'Number'
      Origin = 'SJBF."fpxl.DB".Number'
    end
    object q_fpxlCode: TStringField
      FieldName = 'Code'
      Origin = 'SJBF."fpxl.DB".Code'
      Size = 2
    end
    object q_fpxlShift: TStringField
      FieldName = 'Shift'
      Origin = 'SJBF."fpxl.DB".Shift'
    end
    object q_fpxlLinename: TStringField
      FieldName = 'Linename'
      Origin = 'SJBF."fpxl.DB".Linename'
    end
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 64
    Top = 24
  end
  object us_point: TUpdateSQL
    ModifySQL.Strings = (
      'update point'
      'set'
      '  Node = :Node,'
      '  Linename = :Linename,'
      '  Name = :Name,'
      '  Nodeplace = :Nodeplace,'
      '  Lseq = :Lseq,'
      '  Ntime = :Ntime'
      'where'
      '  Id = :OLD_Id')
    InsertSQL.Strings = (
      'insert into point'
      '  (Node, Linename, Name, Nodeplace, Lseq, Ntime)'
      'values'
      '  (:Node, :Linename, :Name, :Nodeplace, :Lseq, :Ntime)')
    DeleteSQL.Strings = (
      'delete from point'
      'where'
      '  Id = :OLD_Id')
    Left = 176
    Top = 80
  end
  object us_worker: TUpdateSQL
    ModifySQL.Strings = (
      'update worker'
      'set'
      '  Code = :Code,'
      '  Name = :Name,'
      '  Birthday = :Birthday,'
      '  Sex = :Sex,'
      '  Address = :Address,'
      '  Phone = :Phone,'
      '  Pager = :Pager,'
      '  Number = :Number'
      'where'
      '  Id = :OLD_Id')
    InsertSQL.Strings = (
      'insert into worker'
      '  (Code, Name, Birthday, Sex, Address, Phone, Pager, Number)'
      'values'
      
        '  (:Code, :Name, :Birthday, :Sex, :Address, :Phone, :Pager, :Num' +
        'ber)')
    DeleteSQL.Strings = (
      'delete from worker'
      'where'
      '  Id = :OLD_Id')
    Left = 184
    Top = 128
  end
  object us_shiftrule: TUpdateSQL
    ModifySQL.Strings = (
      'update shiftrule'
      'set'
      '  Id = :Id,'
      '  Linename = :Linename,'
      '  Shifts = :Shifts,'
      '  Firstp = :Firstp,'
      '  Lastp = :Lastp,'
      '  Chkcycl = :Chkcycl,'
      '  Dltp = :Dltp,'
      '  Dltt = :Dltt,'
      '  Dgpcsx = :Dgpcsx,'
      '  Dgpcxx = :Dgpcxx,'
      '  Times = :Times'
      'where'
      '  Id = :OLD_Id')
    InsertSQL.Strings = (
      'insert into shiftrule'
      
        '  (Id, Linename, Shifts, Firstp, Lastp, Chkcycl, Dltp, Dltt, Dgp' +
        'csx, Dgpcxx, '
      '   Times)'
      'values'
      
        '  (:Id, :Linename, :Shifts, :Firstp, :Lastp, :Chkcycl, :Dltp, :D' +
        'ltt, :Dgpcsx, '
      '   :Dgpcxx, :Times)')
    DeleteSQL.Strings = (
      'delete from shiftrule'
      'where'
      '  Id = :OLD_Id')
    Left = 176
    Top = 184
  end
  object us_fpxl: TUpdateSQL
    ModifySQL.Strings = (
      'update fpxl'
      'set'
      '  Code = :Code,'
      '  Shift = :Shift,'
      '  Linename = :Linename'
      'where'
      '  Number = :OLD_Number')
    InsertSQL.Strings = (
      'insert into fpxl'
      '  (Code, Shift, Linename)'
      'values'
      '  (:Code, :Shift, :Linename)')
    DeleteSQL.Strings = (
      'delete from fpxl'
      'where'
      '  Number = :OLD_Number')
    Left = 176
    Top = 248
  end
end