untstudentresult.dfm

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

                FieldName = 'sSuggest'
                Title.Alignment = taCenter
                Visible = True
              end>
          end
        end
        object TabSheet5: TTabSheet
          Caption = '5.'#24863#35273#32479#21512#21151#33021
          ImageIndex = 4
          DesignSize = (
            797
            299)
          object DBGrid3: TDBGrid
            Left = 16
            Top = 10
            Width = 759
            Height = 266
            Anchors = [akLeft, akTop, akRight]
            DataSource = DSGJ
            FixedColor = 15525344
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'ItemName'
                Title.Alignment = taCenter
                Width = 141
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'sResult'
                Title.Alignment = taCenter
                Width = 550
                Visible = True
              end>
          end
        end
      end
    end
    inherited pnlBottom: TPanel
      Top = 436
      Width = 805
      inherited Bevel1: TBevel
        Width = 805
      end
      inherited btnCancel: TfcImageBtn
        Left = 506
        Glyph.Data = {00000000}
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 427
        Glyph.Data = {00000000}
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      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 pnl1: TPanel
    Top = 485
    Width = 839
    inherited img2: TImage
      Width = 827
    end
    inherited img3: TImage
      Left = 833
    end
  end
  inherited dsSingle: TDataSource
    Left = 536
    Top = 304
  end
  object dsClass: TDataSource
    DataSet = adsClass
    Left = 504
    Top = 152
  end
  object adsClass: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tClass'
    Parameters = <>
    Left = 328
    Top = 216
    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 = 56
    Top = 208
    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 = 48
    Top = 296
  end
  object adsMeasure: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tMeasure'
    Parameters = <>
    Left = 344
    Top = 88
    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 = 188
    Top = 269
    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 = 160
    Top = 456
  end
  object adsMeasureItem: TADODataSet
    Active = True
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select code, Name from tMeasure_Item'
    Parameters = <>
    Left = 272
    Top = 80
  end
  object adsXL: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = 'select * from tXLResult'
    Parameters = <>
    Left = 129
    Top = 400
    object atncfldXLiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object intgrfldXLChildrenID: TIntegerField
      FieldName = 'ChildrenID'
    end
    object strngfldXLsResult: TStringField
      DisplayWidth = 255
      FieldName = 'sResult'
      Size = 800
    end
    object strngfldXLsSuggest: TStringField
      FieldName = 'sSuggest'
      Size = 255
    end
  end
  object adsQZ: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    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
    object adsQZsSuggest: TStringField
      FieldName = 'sSuggest'
      Size = 255
    end
  end
  object adsXW: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    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'
      OnGetText = adsXWFlagTextGetText
      Size = 5
    end
    object adsXWsSuggest: TStringField
      DisplayLabel = #24314#35758
      FieldName = 'sSuggest'
      Size = 255
    end
  end
  object dsXL: TDataSource
    DataSet = adsXL
    Left = 160
    Top = 360
  end
  object dsQZ: TDataSource
    DataSet = adsQZ
    Left = 224
    Top = 336
  end
  object dsXW: TDataSource
    DataSet = adsXW
    Left = 272
    Top = 360
  end
  object adsSuggestWord: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tSuggestWord'
    Parameters = <>
    Left = 432
    Top = 304
    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
  object ADSGJ: TADODataSet
    Connection = DM.cnn
    CursorType = ctStatic
    CommandText = ' select * from tGJResult'
    Parameters = <>
    Left = 425
    Top = 392
    object atncfldADSGJiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object intgrfldADSGJChildrenID: TIntegerField
      FieldName = 'ChildrenID'
    end
    object strngfldADSGJItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 10
    end
    object strngfldADSGJsResult: TStringField
      DisplayLabel = #32467#26524
      FieldName = 'sResult'
      Size = 2000
    end
    object ADSGJItemName: TStringField
      DisplayLabel = #22240#23376
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      Size = 50
      Lookup = True
    end
  end
  object DSGJ: TDataSource
    DataSet = ADSGJ
    Left = 358
    Top = 340
  end
end