mainfrm.~dfm

一小的学生成绩管理系统,是学习DELPHI的好资料.

object MainForm: TMainForm
  Left = 189
  Top = 105
  AutoScroll = False
  Caption = #39640#25968#25945#30740#23460#65293#23398#29983#25104#32489#31649#29702#31995#32479
  ClientHeight = 348
  ClientWidth = 523
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 347
    Top = 329
    Width = 27
    Height = 16
    Caption = #23398#21495':'
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 42
    Width = 521
    Height = 280
    DataSource = dsTable
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColExit = DBGridColExit
    Columns = <
      item
        Expanded = False
        FieldName = #23398#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32570#32771
        PickList.Strings = (
          'True'
          'False')
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24635#25104#32489
        PickList.Strings = (
          '')
        Title.Caption = #24471#20998
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#19968#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#20108#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#19977#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#22235#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#20116#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#20845#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#19971#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#20843#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#20061#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#39064
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#19968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#20108
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#19977
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#22235
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#20116
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#20845
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#19971
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#20843
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#21313#20061
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#20108#21313
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#19968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#20108
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#19977
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#22235
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#20116
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#20845
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#19971
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#20843
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20108#21313#20061
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#19977#21313
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#19968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#20108
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#19977
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#22235
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#20116
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#20845
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#19971
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#20843
        Visible = True
      end
      item
        Expanded = False
        FieldName = #19977#21313#20061
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31532#22235#21313
        Visible = True
      end>
  end
  object Navigator: TDBNavigator
    Left = 3
    Top = 325
    Width = 240
    Height = 21
    DataSource = dsTable
    TabOrder = 1
  end
  object bbtnState: TBitBtn
    Left = 248
    Top = 325
    Width = 72
    Height = 21
    Caption = #27983#35272#25968#25454
    TabOrder = 2
    OnClick = bbtnStateClick
  end
  object EdtStuno: TEdit
    Left = 386
    Top = 325
    Width = 71
    Height = 24
    Hint = #24555#36895#23450#20301#35760#24405
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnKeyPress = EdtStunoKeyPress
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 523
    Height = 41
    Bands = <>
    object sbADD: TSpeedButton
      Left = 15
      Top = 6
      Width = 72
      Height = 25
      Caption = #26032'  '#22686
      ParentShowHint = False
      ShowHint = True
      OnClick = sbADDClick
    end
    object sbQuery: TSpeedButton
      Left = 95
      Top = 6
      Width = 72
      Height = 25
      Hint = #26597#35810#26465#20214#65306
      Caption = #26597'  '#35810
      OnClick = sbQueryClick
    end
    object sbChart: TSpeedButton
      Left = 175
      Top = 6
      Width = 72
      Height = 25
      Caption = #32479'  '#35745
      OnClick = sbChartClick
    end
    object sbAbout: TSpeedButton
      Left = 337
      Top = 6
      Width = 72
      Height = 25
      Caption = #20851'  '#20110
      OnClick = sbAboutClick
    end
    object sbClose: TSpeedButton
      Left = 417
      Top = 6
      Width = 72
      Height = 25
      Caption = #36864'  '#20986
      OnClick = sbCloseClick
    end
    object sbOption: TSpeedButton
      Left = 257
      Top = 6
      Width = 72
      Height = 25
      Caption = #35774'  '#32622
      OnClick = sbOptionClick
    end
  end
  object dsTable: TDataSource
    DataSet = Table1
    Left = 96
    Top = 177
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'StudentScore'
    SessionName = 'Default'
    TableName = 'StudentScore.DB'
    Left = 128
    Top = 177
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'StudentScore'
    SessionName = 'Default'
    RequestLive = True
    SQL.Strings = (
      'Select * from StudentScore ')
    Left = 160
    Top = 177
  end
  object dsQuery: TDataSource
    DataSet = Query1
    Left = 64
    Top = 177
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'StudentScore'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=F:\studydelphi\StudentScore\DB'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 200
    Top = 176
  end
end