main.dfm

学生管理系统的课程设计报告

object frmMain: TfrmMain
  Left = 277
  Top = 150
  Width = 708
  Height = 355
  Caption = #23398#29983#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = formclose
  OnCreate = FormCreate
  OnShow = formshow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 160
    Top = 96
    Width = 384
    Height = 64
    Caption = #23398#29983#31649#29702#31995#32479
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -64
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 282
    Width = 700
    Height = 19
    Panels = <
      item
        Text = #25552#31034#65306
        Width = 150
      end
      item
        Text = #29992#25143#21495#65306
        Width = 150
      end
      item
        Text = #29992#25143#21517#65306
        Width = 150
      end
      item
        Text = #26085#26399#65306
        Width = 150
      end
      item
        Text = #26102#38388#65306
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 72
    object mntsystem: TMenuItem
      Caption = #31995#32479
      object mntquit: TMenuItem
        Caption = #36864#20986
        OnClick = mntquitClick
      end
    end
    object mntstudent: TMenuItem
      Caption = #23398#29983#31649#29702
      object mntstudentmanage: TMenuItem
        Caption = #23398#29983#31649#29702
        OnClick = mntstudentmanageClick
      end
      object SP3: TMenuItem
        Caption = '-'
      end
      object mntstudentquery: TMenuItem
        Caption = #23398#29983#26597#35810
        OnClick = mntstudentqueryClick
      end
    end
    object mntadmin: TMenuItem
      Caption = #23398#31821#31649#29702
      object mntchange: TMenuItem
        Caption = #23398#31821#21464#26356
        OnClick = mntchangeClick
      end
      object mntreward: TMenuItem
        Caption = #22870#21169#24773#20917
        OnClick = mntrewardClick
      end
      object mntpunish: TMenuItem
        Caption = #22788#32602#24773#20917
        OnClick = mntpunishClick
      end
    end
    object mntabout: TMenuItem
      Caption = #20851#20110'...'
      object mntaboutsys: TMenuItem
        Caption = #20851#20110#26412#31995#32479
        OnClick = mntaboutsysClick
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 144
    Top = 72
  end
  object dbstudent: TDatabase
    AliasName = 'student'
    DatabaseName = 'stud'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME='
      'ODBC DSN=student'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 224
    Top = 72
  end
end