untuser.dfm

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· DFM 代码 · 共 74 行

inherited frmUser: TfrmUser
  Left = 250
  Top = 126
  Caption = 'frmUser'
  FormStyle = fsNormal
  Visible = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBack: TPanel
    inherited grdSingle: TDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'Code'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#32534#21495
          Width = 115
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#22995#21517
          Width = 226
          Visible = True
        end>
    end
    inherited ToolBar1: TToolBar
      ButtonWidth = 55
      inherited ToolButton3: TToolButton [6]
        Left = 239
      end
      inherited btnFilter: TToolButton [7]
        Left = 243
        Caption = #37325#32622#23494#30721
      end
      inherited btnShowDetail: TToolButton
        Left = 302
      end
      inherited ToolButton2: TToolButton
        Left = 349
      end
      inherited btnClose: TToolButton
        Left = 353
      end
    end
  end
  inherited adsSingle: TADODataSet
    Connection = DM.cnn
    CommandText = 'select * from tDoctor where isUsed=1  Order By iAutoID'
    object atncfldSingleIAutoID: TAutoIncField
      FieldName = 'IAutoID'
      ReadOnly = True
    end
    object strngfldSingleCode: TStringField
      FieldName = 'Code'
      Size = 10
    end
    object strngfldSingleName: TStringField
      FieldName = 'Name'
      Size = 10
    end
    object strngfldSinglePassword: TStringField
      FieldName = 'Password'
      Size = 10
    end
    object blnfldSingleIsUsed: TBooleanField
      FieldName = 'IsUsed'
    end
  end
end