u_fr_dm.~dfm

来自「人事考勤管理系統源代碼」· ~DFM 代码 · 共 57 行

object Fr_DM: TFr_DM
  OldCreateOrder = False
  Left = 210
  Top = 145
  Height = 375
  Width = 544
  object Q_DBchat: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select substring(in_date,1,7),count(*) from employees'
      'where in_date like '#39'2001%'#39
      'group by substring(in_date,1,7)')
    Left = 16
    Top = 16
  end
  object Q_DBChat2: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select substring(in_date,1,4),count(*) from employees'
      'where in_date like '#39'[1-2]___%'#39
      'group by substring(in_date,1,4)')
    Left = 80
    Top = 16
  end
  object QV_emp_fk: TQuery
    DatabaseName = 'person_DB'
    SQL.Strings = (
      'select * from v_emp_fk')
    Left = 144
    Top = 16
  end
  object T_corpposi: TTable
    DatabaseName = 'person_DB'
    IndexFieldNames = 'jb'
    TableName = 'dbo.corpposi'
    Left = 224
    Top = 16
    object T_corpposijbid: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'jbid'
      Required = True
    end
    object T_corpposijb: TStringField
      DisplayLabel = '戮单'
      FieldName = 'jb'
      Required = True
      FixedChar = True
      Size = 4
    end
    object T_corpposijsfs: TStringField
      DisplayLabel = '璸羱よΑ'
      FieldName = 'jsfs'
      FixedChar = True
      Size = 6
    end
    object T_corpposijbgz: TFloatField
      DisplayLabel = '膀セ