untreporttextadd.dfm

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

            EEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF3EEEDF4EFEEF4EFEEF4
            EFEEF4EFEEF4EFEEF4EFEEF3EEEDF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEE
            F4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EF
            EEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4
            EFEEF4EFEEF4EFEEF4EFEEF4EFEEF4EDEAF5F0EDF1EDECF5F1F0F4F0EFF6F1F0
            F5EBEBEDE3E3E2D8D8F4EAEA0000FBF7F6E7E2E1DCD2D2EFE3E3FBEFEFFBF1F1
            FDF5F5F4EFEEF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2
            EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFFBF2EFFBF2EFFBF2EFFB
            F2EFFBF2EFFBF2EFFBF2EFFBF2EFF8F1EEF8F1EEF8F1EEF8F1EEF8F1EEF8F1EE
            F8F1EEF8F1EEF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2
            EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9
            F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EFF9F2EF
            F9F2EFF9F2EFF9F2EFFAF3F0F7F0EDFBF2EFFAF0F0F9EFEFEDE3E3E1D7D7E6E0
            E1FDF7F80000FFFFFFF6F4F4E9E1E1E4D8D8E0D2D3D9CCCADACDCBD6CAC8D6CB
            C7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6
            CBC7D6CBC7D6CBC7D6CBC7D6CBC7D8CCC8D8CCC8D8CCC8D8CCC8D8CCC8D8CCC8
            D8CCC8D8CCC8D8CDC9D7CCC8D7CCC8D7CCC8D7CCC8D7CCC8D7CCC8D8CDC9D7CC
            C8D7CCC8D7CCC8D6CBC7D6CBC7D6CBC7D5CAC6D5CAC6D7CCC8D7CCC8D7CCC8D7
            CCC8D7CCC8D7CCC8D7CCC8D7CCC8D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7
            D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D6CBC7D4CB
            C7D5C9C7D5C8C6DACBC9DACDCBE0D4D2DFD8D5E2DDDAFAF8F8FCFAFA0000F5F7
            F7FCFCFCFFF7F8F4E6E7F1E2E0F0DFDCEDDEDBEEDFDCECE0DAECE0DAECE0DAEC
            E0DAECE0DAECE0DAECE0DAECE0DAEDE1DBEDE1DBEDE1DBEDE1DBEDE1DBEDE1DB
            EDE1DBEDE1DBEDDFD9EDDFD9EDDFD9EDDFD9EDDFD9EDDFD9EDDFD9EDDFD9EBDF
            D9EBDFD9EADED8EADED8EADED8EADED8EBDFD9EBDFD9EDE1DBEDE1DBEDE1DBEC
            E0DAEBDFD9EBDFD9EADED8EADED8EDDFD9EDDFD9EDDFD9EDDFD9EDDFD9EDDFD9
            EDDFD9EDDFD9EEE0DAEEE0DAEEE0DAEEE0DAEEE0DAEEE0DAEEE0DAEEE0DAECE0
            DAECE0DAECE0DAECE0DAECE0DAECE0DAECE0DAECE0DAEADFDBECE0DCF2E1DEF4
            E1DEEDDBDAEDE0DEEFE8E5FEFBF7F9F9F9FAFAFA0000}
          NumGlyphs = 0
          ParentClipping = False
          ShadeStyle = fbsNormal
          TabOrder = 0
          TextOptions.Alignment = taCenter
          TextOptions.VAlignment = vaVCenter
          TransparentColor = clNone
          OnClick = btnAddClick
          RegionData = {
            400000002000000001000000020000002000000000000000000000004B000000
            1900000001000000000000004B0000000100000000000000010000004B000000
            19000000}
          DownRegionData = {
            400000002000000001000000020000002000000000000000000000004B000000
            1900000001000000000000004B0000000100000000000000010000004B000000
            19000000}
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 44
        Width = 954
        Height = 511
        Align = alClient
        DataSource = dsText
        FixedColor = 15525344
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MeasureName'
            ReadOnly = True
            Width = 101
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ItemName'
            ReadOnly = True
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Lvl'
            PickList.Strings = (
              #36739#20302
              #20302
              #20013
              #39640
              #36739#39640)
            ReadOnly = True
            Width = 33
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Discript'
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Method'
            Width = 420
            Visible = True
          end>
      end
    end
    inherited pnlBottom: TPanel
      Top = 555
      Width = 954
      inherited Bevel1: TBevel
        Width = 954
      end
      inherited btnCancel: TfcImageBtn
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 604
    Width = 988
    inherited img2: TImage
      Width = 976
    end
    inherited img3: TImage
      Left = 982
    end
  end
  object adsText: TADODataSet
    Connection = DM.cnn
    LockType = ltBatchOptimistic
    CommandText = 'select * from tReportText where 1>1'
    Parameters = <>
    Left = 264
    Top = 168
    object adsTextiAutoID: TAutoIncField
      FieldName = 'iAutoID'
      ReadOnly = True
      Visible = False
    end
    object adsTextMeasureCode: TStringField
      FieldName = 'MeasureCode'
      Visible = False
      Size = 10
    end
    object adsTextMeasureName: TStringField
      DisplayLabel = #37327#34920
      FieldKind = fkLookup
      FieldName = 'MeasureName'
      LookupDataSet = adsLookMeasure
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'MeasureCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsTextItemCode: TStringField
      FieldName = 'ItemCode'
      Visible = False
      Size = 10
    end
    object adsTextItemName: TStringField
      DisplayLabel = #22240#23376
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsLookMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsTextLvl: TIntegerField
      DisplayLabel = #31561#32423
      FieldName = 'Lvl'
      OnGetText = adsTextLvlGetText
      OnSetText = adsTextLvlSetText
    end
    object adsTextDiscript: TStringField
      DisplayLabel = #23618#24230#22240#23376#25551#36848
      FieldName = 'Discript'
      Size = 100
    end
    object adsTextMethod: TStringField
      DisplayLabel = #22788#29702#26041#24335
      FieldName = 'Method'
      Size = 800
    end
  end
  object dsText: TDataSource
    DataSet = adsText
    Left = 336
    Top = 168
  end
  object adsMeasure: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tMeasure'
    Parameters = <>
    Left = 88
    Top = 128
  end
  object dsMeasure: TDataSource
    DataSet = adsMeasure
    Left = 88
    Top = 184
  end
  object adsLookMeasure: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, name from tMeasure'
    Parameters = <>
    Left = 192
    Top = 328
  end
  object adsLookMeasureItem: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, Name from tMeasure_Item'
    Parameters = <>
    Left = 192
    Top = 392
  end
end