untmeasure.dfm

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

inherited frmMeasure: TfrmMeasure
  Left = 303
  Top = 393
  Caption = 'frmMeasure'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'code'
          Width = 126
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Width = 219
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GrpName'
          Width = 150
          Visible = True
        end
        item
          Alignment = taLeftJustify
          Expanded = False
          FieldName = 'TypeID'
          Title.Caption = #37327#34920#31867#22411
          Visible = True
        end>
    end
    inherited grdDetail: TDBGrid
      FixedColor = 15525344
      Columns = <
        item
          Expanded = False
          FieldName = 'code'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'needFormula'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Content'
          Width = 300
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Formula'
          Width = 550
          Visible = True
        end>
    end
  end
  inherited adsSingle: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from tMeasure where IsUsed=1'
    object adsSinglecode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsSingleshortname: TStringField
      DisplayLabel = #37327#34920#31616#31216
      FieldName = 'shortname'
      Size = 10
    end
    object adsSinglename: TStringField
      DisplayLabel = #37327#34920#21517#31216
      FieldName = 'name'
    end
    object adsSingleQuestionGrp: TStringField
      FieldName = 'QuestionGrp'
      Visible = False
      Size = 10
    end
    object adsSingleGrpName: TStringField
      DisplayLabel = #37327#34920#38382#39064#38598
      FieldKind = fkLookup
      FieldName = 'GrpName'
      LookupDataSet = adsQuestionGrp
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'QuestionGrp'
      LookupCache = True
      Size = 50
      Lookup = True
    end
    object adsSingleIsUsed: TBooleanField
      FieldName = 'IsUsed'
      Visible = False
    end
    object adsSingleTypeID: TSmallintField
      DisplayWidth = 15
      FieldName = 'TypeID'
      OnGetText = adsSingleTypeIDGetText
    end
  end
  inherited il4: TImageList
    Left = 332
  end
  inherited pmSingle: TPopupMenu
    Left = 176
    Top = 184
  end
  inherited ImageList1: TImageList
    Top = 194
  end
  inherited adsDetail: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tMeasure_Item where MeasureCode = :Code'
    MasterFields = 'Code'
    Parameters = <
      item
        Name = 'Code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    object adsDetailcode: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'code'
      Size = 10
    end
    object adsDetailMeasurecode: TStringField
      FieldName = 'Measurecode'
      Size = 10
    end
    object adsDetailName: TStringField
      DisplayLabel = #22240#23376#21517#31216
      FieldName = 'Name'
    end
    object adsDetailneedFormula: TBooleanField
      DisplayLabel = #26159#21542#38656#35201#20844#24335
      FieldName = 'needFormula'
      OnGetText = adsDetailneedFormulaGetText
    end
    object adsDetailFormula: TStringField
      DisplayLabel = #20844#24335
      FieldName = 'Formula'
      Size = 2000
    end
    object adsDetailContent: TStringField
      DisplayLabel = #22240#23376#25551#36848
      FieldName = 'Content'
      Size = 400
    end
  end
  object adsQuestionGrp: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tQuestionGrp'
    Parameters = <>
    Left = 640
    Top = 280
    object adsQuestionGrpcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsQuestionGrpname: TStringField
      FieldName = 'name'
      Size = 50
    end
  end
end