unteduset.dfm

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

inherited frmEduset: TfrmEduset
  Left = 454
  Top = 246
  Width = 498
  Caption = #23398#21382#35774#32622
  FormStyle = fsNormal
  Visible = False
  PixelsPerInch = 96
  TextHeight = 12
  inherited imgImgRight: TImage
    Left = 466
  end
  inherited pnlBack: TPanel
    Width = 442
    inherited grdSingle: TDBGrid
      Width = 442
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnKeyDown = grdSingleKeyDown
      OnKeyPress = grdSingleKeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Title.Caption = #23398#21382#21517#31216
          Visible = True
        end>
    end
    inherited ToolBar1: TToolBar
      Width = 442
      inherited btnLocate: TToolButton
        Visible = False
      end
      inherited btnFilter: TToolButton
        Visible = False
      end
    end
  end
  inherited pnlPalBottom: TPanel
    Width = 490
    inherited imgImgBR: TImage
      Left = 468
    end
    inherited imgImgBC: TImage
      Width = 446
    end
  end
  inherited pnlPalTop: TPanel
    Width = 490
    inherited imgImgTC: TImage
      Width = 478
    end
    inherited imgImgTR: TImage
      Left = 484
    end
  end
  inherited adsSingle: TADODataSet
    BeforePost = adsSingleBeforePost
    CommandText = 'select * from twork where iType=1'
    object smlntfldSingleiAutoID: TSmallintField
      FieldName = 'iAutoID'
      ReadOnly = True
    end
    object strngfldSingleName: TStringField
      FieldName = 'Name'
    end
    object intgrfldSingleiType: TIntegerField
      FieldName = 'iType'
    end
  end
end