u_gs_dm.~dfm

小型劳资管理系统,用visual basic+access编写

      DisplayWidth = 4
      FieldName = 'teamsid'
      Origin = 'PERSON_DB.V_empworktime.teamsid'
    end
    object V_empworktimeexceptionclass: TStringField
      DisplayLabel = #25720#57449
      DisplayWidth = 10
      FieldName = 'exceptionclass'
      Origin = 'PERSON_DB.V_empworktime.exceptionclass'
      FixedChar = True
    end
    object V_empworktimeGC_time: TFloatField
      FieldName = 'GC_time'
      Origin = 'PERSON_DB.V_empworktime.GC_time'
    end
  end
  object DV_empworktime: TDataSource
    DataSet = V_empworktime
    Left = 240
    Top = 88
  end
  object Q_teams: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select * from teams')
    Left = 328
    Top = 16
  end
  object V_depemptimestable: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select distinct  * from V_depemptimestable')
    Left = 48
    Top = 168
    object V_depemptimestableempid: TIntegerField
      FieldName = 'empid'
      Origin = 'PERSON_DB.V_depemptimestable.empid'
    end
    object V_depemptimestableyjbm_name: TStringField
      FieldName = 'yjbm_name'
      Origin = 'PERSON_DB.V_depemptimestable.yjbm_name'
      FixedChar = True
      Size = 16
    end
    object V_depemptimestableejbm_name: TStringField
      FieldName = 'ejbm_name'
      Origin = 'PERSON_DB.V_depemptimestable.ejbm_name'
      FixedChar = True
      Size = 16
    end
    object V_depemptimestablework_num: TStringField
      FieldName = 'work_num'
      Origin = 'PERSON_DB.V_depemptimestable.work_num'
      FixedChar = True
      Size = 10
    end
    object V_depemptimestablename: TStringField
      FieldName = 'name'
      Origin = 'PERSON_DB.V_depemptimestable.name'
      FixedChar = True
      Size = 10
    end
    object V_depemptimestableworkday: TDateTimeField
      FieldName = 'workday'
      Origin = 'PERSON_DB.V_depemptimestable.workday'
    end
    object V_depemptimestablemoringup: TIntegerField
      FieldName = 'moringup'
      Origin = 'PERSON_DB.V_depemptimestable.moringup'
    end
    object V_depemptimestablechar1: TStringField
      FieldName = 'char1'
      Origin = 'PERSON_DB.V_depemptimestable.char1'
      FixedChar = True
      Size = 1
    end
    object V_depemptimestablemoringdown: TIntegerField
      FieldName = 'moringdown'
      Origin = 'PERSON_DB.V_depemptimestable.moringdown'
    end
    object V_depemptimestablechar2: TStringField
      FieldName = 'char2'
      Origin = 'PERSON_DB.V_depemptimestable.char2'
      FixedChar = True
      Size = 1
    end
    object V_depemptimestableafternoonup: TIntegerField
      FieldName = 'afternoonup'
      Origin = 'PERSON_DB.V_depemptimestable.afternoonup'
    end
    object V_depemptimestablechar3: TStringField
      FieldName = 'char3'
      Origin = 'PERSON_DB.V_depemptimestable.char3'
      FixedChar = True
      Size = 1
    end
    object V_depemptimestableafternoondown: TIntegerField
      FieldName = 'afternoondown'
      Origin = 'PERSON_DB.V_depemptimestable.afternoondown'
    end
    object V_depemptimestablechar4: TStringField
      FieldName = 'char4'
      Origin = 'PERSON_DB.V_depemptimestable.char4'
      FixedChar = True
      Size = 1
    end
    object V_depemptimestableeveningup: TIntegerField
      FieldName = 'eveningup'
      Origin = 'PERSON_DB.V_depemptimestable.eveningup'
    end
    object V_depemptimestablechar5: TStringField
      FieldName = 'char5'
      Origin = 'PERSON_DB.V_depemptimestable.char5'
      FixedChar = True
      Size = 1
    end
    object V_depemptimestableeveningdown: TIntegerField
      FieldName = 'eveningdown'
      Origin = 'PERSON_DB.V_depemptimestable.eveningdown'
    end
    object V_depemptimestablechar6: TStringField
      FieldName = 'char6'
      Origin = 'PERSON_DB.V_depemptimestable.char6'
      FixedChar = True
      Size = 1
    end
    object V_depemptimestableexceptionclass: TStringField
      FieldName = 'exceptionclass'
      Origin = 'PERSON_DB.V_depemptimestable.exceptionclass'
      FixedChar = True
    end
    object V_depemptimestableteamsid: TIntegerField
      FieldName = 'teamsid'
      Origin = 'PERSON_DB.V_depemptimestable.teamsid'
    end
  end
  object DV_depemptimestable: TDataSource
    DataSet = V_depemptimestable
    Left = 48
    Top = 232
  end
  object Q_teamstime: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select * from teamstime')
    Left = 328
    Top = 80
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'person_DB'
    Left = 128
    Top = 160
  end
  object Q_temp: TQuery
    DatabaseName = 'person_DB'
    RequestLive = True
    Left = 136
    Top = 216
  end
  object Q_master: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select * from V_yj_ej_emp')
    Left = 328
    Top = 144
    object Q_masteryjbm_name: TStringField
      FieldName = 'yjbm_name'
      Origin = 'PERSON_DB.V_yj_ej_emp.yjbm_name'
      FixedChar = True
      Size = 16
    end
    object Q_masterejbm_name: TStringField
      FieldName = 'ejbm_name'
      Origin = 'PERSON_DB.V_yj_ej_emp.ejbm_name'
      FixedChar = True
      Size = 16
    end
    object Q_mastername: TStringField
      FieldName = 'name'
      Origin = 'PERSON_DB.V_yj_ej_emp.name'
      FixedChar = True
      Size = 10
    end
    object Q_masterwork_num: TStringField
      FieldName = 'work_num'
      Origin = 'PERSON_DB.V_yj_ej_emp.work_num'
      FixedChar = True
      Size = 10
    end
    object Q_masteryjbm_id: TIntegerField
      FieldName = 'yjbm_id'
      Origin = 'PERSON_DB.V_yj_ej_emp.yjbm_id'
    end
    object Q_masterejbm_id: TIntegerField
      FieldName = 'ejbm_id'
      Origin = 'PERSON_DB.V_yj_ej_emp.ejbm_id'
    end
    object Q_masteremp_id: TIntegerField
      FieldName = 'emp_id'
      Origin = 'PERSON_DB.V_yj_ej_emp.emp_id'
    end
  end
  object Q_detail: TQuery
    OnCalcFields = Q_detailCalcFields
    DatabaseName = 'person_DB'
    ParamCheck = False
    SQL.Strings = (
      'select distinct * from V_empworktime')
    Left = 272
    Top = 144
    object Q_detailworkday: TDateTimeField
      FieldName = 'workday'
      Origin = 'PERSON_DB.V_empworktime.workday'
    end
    object Q_detailejbm_id: TIntegerField
      FieldName = 'ejbm_id'
      Origin = 'PERSON_DB.V_empworktime.ejbm_id'
    end
    object Q_detailyjbm_name: TStringField
      FieldName = 'yjbm_name'
      Origin = 'PERSON_DB.V_empworktime.yjbm_name'
      FixedChar = True
      Size = 16
    end
    object Q_detailejbm_name: TStringField
      FieldName = 'ejbm_name'
      Origin = 'PERSON_DB.V_empworktime.ejbm_name'
      FixedChar = True
      Size = 16
    end
    object Q_detailwork_num: TStringField
      FieldName = 'work_num'
      Origin = 'PERSON_DB.V_empworktime.work_num'
      FixedChar = True
      Size = 10
    end
    object Q_detailname: TStringField
      FieldName = 'name'
      Origin = 'PERSON_DB.V_empworktime.name'
      FixedChar = True
      Size = 10
    end
    object Q_detailZB_time: TFloatField
      FieldName = 'ZB_time'
      Origin = 'PERSON_DB.V_empworktime.ZB_time'
      DisplayFormat = '0.0'
    end
    object Q_detailJB_time: TFloatField
      FieldName = 'JB_time'
      Origin = 'PERSON_DB.V_empworktime.JB_time'
      DisplayFormat = '0.0'
    end
    object Q_detailZBsj_time: TFloatField
      FieldName = 'ZBsj_time'
      Origin = 'PERSON_DB.V_empworktime.ZBsj_time'
      DisplayFormat = '0.0'
    end
    object Q_detailJBsj_time: TFloatField
      FieldName = 'JBsj_time'
      Origin = 'PERSON_DB.V_empworktime.JBsj_time'
      DisplayFormat = '0.0'
    end
    object Q_detailZBbj_time: TFloatField
      FieldName = 'ZBbj_time'
      Origin = 'PERSON_DB.V_empworktime.ZBbj_time'
      DisplayFormat = '0.0'
    end
    object Q_detailJBbj_time: TFloatField
      FieldName = 'JBbj_time'
      Origin = 'PERSON_DB.V_empworktime.JBbj_time'
      DisplayFormat = '0.0'
    end
    object Q_detailTBJ: TFloatField
      FieldName = 'TBJ'
      Origin = 'PERSON_DB.V_empworktime.TBJ'
      DisplayFormat = '0.0'
    end
    object Q_detailCD_time: TFloatField
      FieldName = 'CD_time'
      Origin = 'PERSON_DB.V_empworktime.CD_time'
    end
    object Q_detailCD_int: TIntegerField
      FieldName = 'CD_int'
      Origin = 'PERSON_DB.V_empworktime.CD_int'
    end
    object Q_detailZT_time: TFloatField
      FieldName = 'ZT_time'
      Origin = 'PERSON_DB.V_empworktime.ZT_time'
    end
    object Q_detailZT_int: TIntegerField
      FieldName = 'ZT_int'
      Origin = 'PERSON_DB.V_empworktime.ZT_int'
    end
    object Q_detailKG_time: TFloatField
      FieldName = 'KG_time'
      Origin = 'PERSON_DB.V_empworktime.KG_time'
      DisplayFormat = '0.0'
    end
    object Q_detailKG_int: TIntegerField
      FieldName = 'KG_int'
      Origin = 'PERSON_DB.V_empworktime.KG_int'
    end
    object Q_detailGS_time: TFloatField
      FieldName = 'GS_time'
      Origin = 'PERSON_DB.V_empworktime.GS_time'
      DisplayFormat = '0.0'
    end
    object Q_detailDL_time: TFloatField
      FieldName = 'DL_time'
      Origin = 'PERSON_DB.V_empworktime.DL_time'
      DisplayFormat = '0.0'
    end
    object Q_detailGX_time: TFloatField
      FieldName = 'GX_time'
      Origin = 'PERSON_DB.V_empworktime.GX_time'
      DisplayFormat = '0.0'
    end
    object Q_detailJ_time: TFloatField
      FieldName = 'J_time'
      Origin = 'PERSON_DB.V_empworktime.J_time'
      DisplayFormat = '0.0'
    end
    object Q_detailK_time: TFloatField
      FieldName = 'K_time'
      Origin = 'PERSON_DB.V_empworktime.K_time'
      DisplayFormat = '0.0'
    end
    object Q_detailmeme2_time: TFloatField
      FieldName = 'meme2_time'
      Origin = 'PERSON_DB.V_empworktime.meme2_time'
    end
    object Q_detailmoringup: TIntegerField
      FieldName = 'moringup'
      Origin = 'PERSON_DB.V_empworktime.moringup'
      DisplayFormat = '00:00'
    end
    object Q_detailchar1: TStringField
      FieldName = 'char1'
      Origin = 'PERSON_DB.V_empworktime.char1'
      FixedChar = True
      Size = 1
    end
    object Q_detailmoringdown: TIntegerField
      FieldName = 'moringdown'
      Origin = 'PERSON_DB.V_empworktime.moringdown'
      DisplayFormat = '00:00'
    end
    object Q_detailchar2: TStringField
      FieldName = 'char2'
      Origin = 'PERSON_DB.V_empworktime.char2'
      FixedChar = True
      Size = 1
    end
    object Q_detailafternoonup: TIntegerField
      FieldName = 'afternoonup'
      Origin = 'PERSON_DB.V_empworktime.afternoonup'
      DisplayFormat = '00:00'
    end
    object Q_detailchar3: TStringField
      FieldName = 'char3'
      Origin = 'PERSON_DB.V_empworktime.char3'
      FixedChar = True
      Size = 1
    end
    object Q_detailafternoondown: TIntegerField
      FieldName = 'afternoondown'
      Origin = 'PERSON_DB.V_empworktime.afternoondown'
      DisplayFormat = '00:00'
    end
    object Q_detailchar4: TStringField
      FieldName = 'char4'
      Origin = 'PERSON_DB.V_empworktime.char4'
      FixedChar = True
      Size = 1
    end
    object Q_detaileveningup: TIntegerField
      FieldName = 'eveningup'
      Origin = 'PERSON_DB.V_empworktime.eveningup'
      DisplayFormat = '00:00'
    end
    object Q_detailchar5: TStringField
      FieldName = 'char5'
      Origin = 'PERSON_DB.V_empworktime.char5'
      FixedChar = True
      Size = 1
    end
    object Q_detaileveningdown: TIntegerField
      FieldName = 'eveningdown'
      Origin = 'PERSON_DB.V_empworktime.eveningdown'
      DisplayFormat = '00:00'
    end
    object Q_detailchar6: TStringField
      FieldName = 'char6'
      Origin = 'PERSON_DB.V_empworktime.char6'
      FixedChar = True
      Size = 1
    end
    object Q_detailempid: TIntegerField
      FieldName = 'empid'
      Origin = 'PERSON_DB.V_empworktime.empid'
    end
    object Q_detailZB: TFloatField
      FieldKind = fkCalculated
      FieldName = 'ZB'
      DisplayFormat = '0.0'
      Calculated = True
    end
    object Q_detailJB: TFloatField
      FieldKind = fkCalculated
      FieldName = 'JB'
      DisplayFormat = '0.0'
      Calculated = True
    end
    object Q_detailnum: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'num'
      Calculated = True
    end
    object Q_detailGC_time: TFloatField
      FieldName = 'GC_time'
      Origin = 'PERSON_DB.V_empworktime.GC_time'
    end
  end
  object MasterDS: TDataSource
    DataSet = Q_master
    OnDataChange = MasterDSDataChange
    Left = 336
    Top = 200
  end
  object Q_gs_memo: TQuery
    BeforePost = Q_gs_memoBeforePost
    OnCalcFields = Q_detailCalcFields
    DatabaseName = 'person_DB'
    ParamCheck = False
    RequestLive = True
    SQL.Strings = (
      'select * from GS_memo')
    Left = 272
    Top = 200
    object Q_gs_memoempid: TIntegerField
      FieldName = 'empid'
      Origin = 'PERSON_DB.GS_memo.empid'
    end
    object Q_gs_memomemo: TMemoField
      FieldName = 'memo'
      Origin = 'PERSON_DB.GS_memo.memo'
      BlobType = ftMemo
      Size = 1
    end
    object Q_gs_memodatemonth: TStringField
      FieldName = 'datemonth'
      Origin = 'PERSON_DB.GS_memo.datemonth'
      FixedChar = True
      Size = 7
    end
  end
  object DS_gs_memo: TDataSource
    DataSet = Q_gs_memo
    Left = 272
    Top = 248
  end
end