usetgrade.dfm

Delphi学籍管理程序,以Delphi7.0为前台开发工具

object dlgSetGrade: TdlgSetGrade
  Left = 361
  Top = 209
  BorderStyle = bsDialog
  Caption = #29677#32423#35774#32622
  ClientHeight = 236
  ClientWidth = 321
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  DesignSize = (
    321
    236)
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 8
    Top = 8
    Width = 305
    Height = 177
    ActivePage = tsElementary
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    OnChange = PageControlChange
    object tsElementary: TTabSheet
      Caption = #23567#23398
      inline FrameGrade1: TFrameGrade
        Left = 0
        Top = 0
        Width = 297
        Height = 149
        Align = alClient
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        inherited lbClasses: TListBox
          Height = 114
        end
        inherited clbGrades: TCheckListBox
          Height = 113
          Items.Strings = (
            #19968#24180#32423
            #20108#24180#32423
            #19977#24180#32423
            #22235#24180#32423
            #20116#24180#32423
            #20845#24180#32423)
          OnClick = FrameGrade1clbGradesClick
        end
      end
    end
    object tsJunior: TTabSheet
      Caption = #21021#20013
      ImageIndex = 1
      inline FrameGrade2: TFrameGrade
        Left = 0
        Top = 0
        Width = 297
        Height = 149
        Align = alClient
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        inherited lbClasses: TListBox
          Height = 114
        end
        inherited clbGrades: TCheckListBox
          Height = 113
          Items.Strings = (
            #21021#19968
            #21021#20108
            #21021#19977)
          OnClick = FrameGrade2clbGradesClick
        end
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 152
    Top = 200
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #30830#23450
    TabOrder = 1
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 232
    Top = 200
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #21462#28040
    TabOrder = 2
    Kind = bkCancel
  end
end