untjudgestd.dfm

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

inherited frmJudgeStd: TfrmJudgeStd
  Left = 253
  Top = 189
  Caption = 'frmJudgeStd'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Name'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'iType'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MeasureName'
          Width = 217
          Visible = True
        end>
    end
  end
  inherited adsSingle: TADODataSet
    AfterScroll = adsSingleAfterScroll
    OnNewRecord = adsSingleNewRecord
    CommandText = 'select * from tJudgeStd'
    object adsSingleiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsSingleName: TStringField
      DisplayLabel = #26631#20934#21517#31216
      FieldName = 'Name'
    end
    object adsSingleiType: TIntegerField
      DisplayLabel = #26631#20934#31867#22411
      FieldName = 'iType'
      OnGetText = adsSingleiTypeGetText
      OnSetText = adsSingleiTypeSetText
    end
    object adsSingleMeasureCode: TStringField
      FieldName = 'MeasureCode'
      Visible = False
      Size = 10
    end
    object adsSingleMeasureName: TStringField
      DisplayLabel = #23545#24212#37327#34920
      FieldKind = fkLookup
      FieldName = 'MeasureName'
      LookupDataSet = adsMeasure
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'MeasureCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
  end
  inherited adsDetail: TADODataSet
    CommandText = 'select * from tJudgeStd_Mx where JSID = :iAutoID'
    MasterFields = 'iAutoID'
    Parameters = <
      item
        Name = 'iAutoID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    object adsDetailiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsDetailJSID: TIntegerField
      FieldName = 'JSID'
      Visible = False
    end
    object adsDetailMeasureCode: TStringField
      FieldName = 'MeasureCode'
      Visible = False
      Size = 10
    end
    object adsDetailItemCode: TStringField
      FieldName = 'ItemCode'
      Visible = False
      Size = 10
    end
    object adsDetailItemName: TStringField
      DisplayLabel = #22240#23376#21517#31216
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsDetailSex: TIntegerField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      OnGetText = adsDetailSexGetText
    end
    object adsDetailAvgValue: TBCDField
      DisplayLabel = #22343#20540
      FieldName = 'AvgValue'
      Precision = 9
      Size = 2
    end
    object adsDetailSDValue: TBCDField
      DisplayLabel = #26631#20934#20540
      FieldName = 'SDValue'
      Precision = 9
      Size = 2
    end
  end
  object adsMeasure: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tMeasure'
    Parameters = <>
    Left = 568
    Top = 88
    object adsMeasurecode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasurename: TStringField
      DisplayWidth = 50
      FieldName = 'name'
      Size = 50
    end
  end
  object adsMeasureItem: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, Name from tMeasure_Item'
    Parameters = <>
    Left = 656
    Top = 88
    object adsMeasureItemcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasureItemName: TStringField
      FieldName = 'Name'
    end
  end
end