ubjxx.dfm

学生信息管理系统

inherited FBjxx: TFBjxx
  Left = 62
  Top = 90
  Height = 488
  Caption = #29677#32423#31649#29702
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Left = 239
    Height = 392
  end
  inherited StatusBar: TStatusBar
    Top = 435
  end
  inherited Panel1: TPanel
    Width = 239
    Height = 392
    inherited Shape1: TShape
      Width = 239
      Height = 392
    end
    object Label5: TLabel
      Left = 43
      Top = 87
      Width = 56
      Height = 13
      Caption = #29677'    '#32423
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 73
      Top = 41
      Width = 96
      Height = 16
      Caption = #29677#32423#20449#24687#24405#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Shape2: TShape
      Left = 2
      Top = 204
      Width = 236
      Height = 1
    end
    object DBEh_xm: TDBEditEh
      Left = 109
      Top = 84
      Width = 102
      Height = 18
      DataField = 'bj'
      DataSource = DataSource
      EditButtons = <>
      Flat = True
      TabOrder = 0
      Visible = True
      OnKeyPress = DBEh_xmKeyPress
    end
  end
  inherited Panel2: TPanel
    Left = 242
    Width = 533
    Height = 392
    inherited DBGridEh: TDBGridEh
      Width = 533
      Height = 392
      Columns = <
        item
          EditButtons = <>
          FieldName = 'vxh'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'bj'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29677'  '#32423
          Width = 157
        end>
    end
  end
  inherited ADOQuery: TADOQuery
    SQL.Strings = (
      'select * from STU_class order by id')
    object ADOQueryID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuerybj: TWideStringField
      FieldName = 'bj'
      Size = 12
    end
  end
end