untstumeasure.dfm

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

            ReadOnly = True
            TabOrder = 2
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'ItemName'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'NormalValue'
                Width = 50
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'CalcValue'
                Width = 50
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'FlagText'
                Visible = True
              end>
          end
        end
        object TabSheet6: TTabSheet
          Caption = '3.'#24314#35758
          ImageIndex = 5
          object DBMemo1: TDBMemo
            Left = 272
            Top = 6
            Width = 353
            Height = 305
            DataField = 'suggest'
            DataSource = dsSingle
            ScrollBars = ssVertical
            TabOrder = 0
          end
          object DBLookupListBox1: TDBLookupListBox
            Left = 8
            Top = 7
            Width = 261
            Height = 304
            KeyField = 'iAutoID'
            ListField = 'Word'
            ListSource = dsSuggestWord
            TabOrder = 1
            OnDblClick = DBLookupListBox1DblClick
          end
        end
      end
    end
    inherited pnlBottom: TPanel
      Top = 428
      Width = 591
      inherited Bevel1: TBevel
        Width = 591
      end
      inherited btnOK: TBitBtn
        Left = 427
      end
      inherited btnCancel: TBitBtn
        Left = 507
      end
      object btnPiror: TBitBtn
        Left = 16
        Top = 6
        Width = 25
        Height = 25
        Caption = #8592
        TabOrder = 2
        OnClick = btnPirorClick
      end
      object btnNext: TBitBtn
        Left = 42
        Top = 6
        Width = 25
        Height = 25
        Caption = #8594
        TabOrder = 3
        OnClick = btnNextClick
      end
    end
  end
  inherited pnlPalBottom: TPanel
    Top = 484
    Width = 639
    inherited imgImgBR: TImage
      Left = 587
    end
    inherited imgImgBC: TImage
      Width = 535
    end
  end
  inherited dsSingle: TDataSource
    Left = 544
    Top = 312
  end
  object dsClass: TDataSource
    DataSet = adsClass
    Left = 504
    Top = 152
  end
  object adsClass: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tClass'
    Parameters = <>
    Left = 440
    Top = 152
    object adsClassiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object adsClassName: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object adsClassSchoolID: TIntegerField
      FieldName = 'SchoolID'
    end
    object adsClassClassYear: TStringField
      FieldName = 'ClassYear'
      Size = 10
    end
  end
  object adsCheckResult: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tChildrenResult'
    Parameters = <>
    Left = 32
    Top = 232
    object adsCheckResultiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsCheckResultChildrenID: TIntegerField
      FieldName = 'ChildrenID'
      Visible = False
    end
    object adsCheckResultMeasureCode: TStringField
      FieldName = 'MeasureCode'
      Size = 10
    end
    object adsCheckResultMeasureName: TStringField
      DisplayLabel = #37327#34920
      FieldKind = fkLookup
      FieldName = 'MeasureName'
      LookupDataSet = adsMeasure
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'MeasureCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
  end
  object dsCheckResult: TDataSource
    DataSet = adsCheckResult
    Left = 32
    Top = 304
  end
  object adsMeasure: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tMeasure'
    Parameters = <>
    Left = 32
    Top = 160
    object adsMeasurecode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasurename: TStringField
      FieldName = 'name'
    end
  end
  object adsResultItem: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tChildrenResult_Mx where CheckResultID = :iAutoID'
    DataSource = dsCheckResult
    MasterFields = 'iAutoID'
    Parameters = <
      item
        Name = 'iAutoID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 144
    Top = 232
    object adsResultItemiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsResultItemCheckResultID: TIntegerField
      FieldName = 'CheckResultID'
      Visible = False
    end
    object adsResultItemItemCode: TStringField
      FieldName = 'ItemCode'
      Visible = False
      Size = 10
    end
    object adsResultItemItemName: TStringField
      DisplayLabel = #22240#23376
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsResultItemItemValue: TStringField
      DisplayLabel = #27979#37327#20540
      FieldName = 'ItemValue'
      Size = 30
    end
  end
  object dsResultItem: TDataSource
    DataSet = adsResultItem
    Left = 144
    Top = 304
  end
  object adsMeasureItem: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, Name from tMeasure_Item'
    Parameters = <>
    Left = 144
    Top = 160
  end
  object adsXL: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tXLResult'
    Parameters = <>
    Left = 160
    Top = 408
  end
  object adsQZ: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tQZTableResult'
    Parameters = <>
    Left = 216
    Top = 408
    object adsQZiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsQZChildrenID: TIntegerField
      FieldName = 'ChildrenID'
      Visible = False
    end
    object adsQZItemCode: TStringField
      FieldName = 'ItemCode'
      Visible = False
      Size = 10
    end
    object adsQZItemName: TStringField
      DisplayLabel = #22240#23376
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 16
      Lookup = True
    end
    object adsQZsResult: TStringField
      DisplayLabel = #32467#26524
      FieldName = 'sResult'
      Size = 2000
    end
  end
  object adsXW: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tXWResult'
    Parameters = <>
    Left = 272
    Top = 408
    object adsXWiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object adsXWChildrenID: TIntegerField
      FieldName = 'ChildrenID'
    end
    object adsXWItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 10
    end
    object adsXWItemName: TStringField
      DisplayLabel = #22240#23376
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 16
      Lookup = True
    end
    object adsXWNormalValue: TStringField
      DisplayLabel = #27491#24120#20540
      FieldName = 'NormalValue'
    end
    object adsXWCalcValue: TStringField
      DisplayLabel = #27979#37327#20540
      FieldName = 'CalcValue'
    end
    object adsXWFlagText: TStringField
      DisplayLabel = #26631#24535
      FieldName = 'FlagText'
      Size = 5
    end
  end
  object dsXL: TDataSource
    DataSet = adsXL
    Left = 160
    Top = 360
  end
  object dsQZ: TDataSource
    DataSet = adsQZ
    Left = 216
    Top = 360
  end
  object dsXW: TDataSource
    DataSet = adsXW
    Left = 272
    Top = 360
  end
  object adsSuggestWord: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tSuggestWord'
    Parameters = <>
    Left = 424
    Top = 296
    object adsSuggestWordiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object adsSuggestWordWord: TStringField
      FieldName = 'Word'
      Size = 2000
    end
  end
  object dsSuggestWord: TDataSource
    DataSet = adsSuggestWord
    Left = 424
    Top = 224
  end
end