untjudgestdset.dfm

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

inherited frmJudgeStdSet: TfrmJudgeStdSet
  Left = 307
  Top = 308
  Caption = 'frmJudgeStdSet'
  ClientHeight = 398
  ClientWidth = 654
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgLeft: TImage
    Height = 362
  end
  inherited imgImgRight: TImage
    Left = 639
    Height = 362
  end
  inherited pnlPalTop: TPanel
    Width = 654
    inherited imgImgTC: TImage
      Width = 642
    end
    inherited imgImgTR: TImage
      Left = 648
    end
  end
  inherited pnlBack: TPanel
    Width = 622
    Height = 362
    inherited Panel2: TPanel
      Width = 622
      Height = 331
      inherited pnlUp: TPanel
        Width = 622
        Height = 41
        object Label1: TLabel
          Left = 43
          Top = 12
          Width = 48
          Height = 12
          Caption = #26631#20934#21517#31216
        end
        object Label3: TLabel
          Left = 219
          Top = 12
          Width = 24
          Height = 12
          Caption = #31867#22411
        end
        object Label5: TLabel
          Left = 363
          Top = 12
          Width = 48
          Height = 12
          Caption = #23545#24212#37327#34920
        end
        object DBEdit1: TDBEdit
          Tag = 900
          Left = 98
          Top = 8
          Width = 112
          Height = 20
          DataField = 'Name'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Tag = 900
          Left = 417
          Top = 8
          Width = 154
          Height = 20
          DataField = 'MeasureCode'
          DataSource = dsMaster
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          KeyField = 'code'
          ListField = 'name'
          ListSource = dsMeasure
          TabOrder = 2
          OnCloseUp = DBLookupComboBox1CloseUp
        end
        object DBComboBox1: TDBComboBox
          Tag = 900
          Left = 249
          Top = 8
          Width = 105
          Height = 20
          Style = csDropDownList
          DataField = 'iType'
          DataSource = dsMaster
          ItemHeight = 12
          Items.Strings = (
            '5'#23618#31867#22411
            #19978#38480#31867#22411
            '3'#23618#31867#22411)
          TabOrder = 1
          OnExit = DBComboBox1Exit
        end
      end
      inherited grdDetail: TDBGrid
        Top = 41
        Width = 622
        Height = 290
        FixedColor = 15525344
      end
    end
    inherited pnlBottom: TPanel
      Top = 331
      Width = 622
      inherited Bevel1: TBevel
        Width = 622
      end
      inherited btnCancel: TfcImageBtn
        Left = 514
        NumGlyphs = 0
        TabOrder = 2
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnOK: TfcImageBtn
        Left = 426
        NumGlyphs = 0
        TabOrder = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000004B000000
          1900000001000000000000004B0000000100000000000000010000004B000000
          19000000}
      end
      inherited btnDelDetail: TfcImageBtn
        NumGlyphs = 1
        RegionData = {
          400000002000000001000000020000002000000000000000000000006C000000
          1900000001000000000000006C0000000100000000000000010000006C000000
          19000000}
        DownRegionData = {
          400000002000000001000000020000002000000000000000000000006C000000
          1900000001000000000000006C0000000100000000000000010000006C000000
          19000000}
      end
    end
  end
  inherited pnl1: TPanel
    Top = 380
    Width = 654
    inherited img2: TImage
      Width = 642
    end
    inherited img3: TImage
      Left = 648
    end
  end
  inherited adsDetail: TADODataSet
    Connection = DM.cnn
    BeforeInsert = adsDetailBeforeInsert
    OnNewRecord = adsDetailNewRecord
    CommandText = 'select * from tJudgeStd_Mx'
    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
      FieldKind = fkLookup
      FieldName = 'ItemName'
      LookupDataSet = adsLookUpMeasureItem
      LookupKeyFields = 'code'
      LookupResultField = 'Name'
      KeyFields = 'ItemCode'
      LookupCache = True
      Size = 30
      Lookup = True
    end
    object adsDetailSex: TIntegerField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      OnGetText = adsDetailSexGetText
      OnSetText = adsDetailSexSetText
    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
  inherited dsMaster: TDataSource
    Left = 464
    Top = 64
  end
  inherited dsDetail: TDataSource
    Left = 296
  end
  object adsMeasure: TADODataSet
    Connection = DM.cnn
    AfterScroll = adsMeasureAfterScroll
    CommandText = 'select code, name from tMeasure'
    Parameters = <>
    Left = 448
    Top = 176
    object adsMeasurecode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasurename: TStringField
      FieldName = 'name'
    end
  end
  object dsMeasure: TDataSource
    DataSet = adsMeasure
    Left = 528
    Top = 176
  end
  object adsMeasureItem: TADODataSet
    Connection = DM.cnn
    CommandText = 
      'select code, Measurecode, Name from tMeasure_Item'#13#10'where Measure' +
      'Code = :Code'
    DataSource = dsMeasure
    Parameters = <
      item
        Name = 'Code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 448
    Top = 248
    object adsMeasureItemcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsMeasureItemMeasurecode: TStringField
      FieldName = 'Measurecode'
      Size = 10
    end
    object adsMeasureItemName: TStringField
      FieldName = 'Name'
      Size = 50
    end
  end
  object adsLookUpMeasureItem: TADODataSet
    Connection = DM.cnn
    CommandText = 'select code, Measurecode, Name from tMeasure_Item'
    Parameters = <>
    Left = 360
    Top = 312
    object adsLookUpMeasureItemcode: TStringField
      FieldName = 'code'
      Size = 10
    end
    object adsLookUpMeasureItemName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object adsLookUpMeasureItemMeasurecode: TStringField
      FieldName = 'Measurecode'
      Size = 10
    end
  end
end