unit1.dfm

用delphi编写的学生学籍管理系统

object Form1: TForm1
  Left = 216
  Top = 123
  Width = 748
  Height = 567
  Caption = #23398#29983#23398#31821#31649#29702#31995#32479
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -32
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 37
  object Label1: TLabel
    Left = 200
    Top = 8
    Width = 345
    Height = 57
    Alignment = taCenter
    AutoSize = False
    Caption = #23398#29983#23398#31821#31649#29702#31995#32479
    Color = clInfoBk
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -32
    Font.Name = 'Arial Black'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 562
    Top = 283
    Width = 135
    Height = 46
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object GroupBox1: TGroupBox
    Left = 24
    Top = 104
    Width = 241
    Height = 249
    Align = alCustom
    BiDiMode = bdLeftToRight
    Caption = #23398#29983#20449#24687#36755#20837
    Color = clBtnHighlight
    DockSite = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clOlive
    Font.Height = -32
    Font.Name = 'Book Antiqua'
    Font.Style = [fsBold]
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object Btn_stud: TButton
      Left = 31
      Top = 48
      Width = 146
      Height = 41
      Caption = #26032#29983#20449#24687#36755#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Btn_studClick
    end
    object Bnt_rp: TButton
      Left = 31
      Top = 176
      Width = 146
      Height = 41
      Caption = #22870#24809#24773#20917#36755#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Bnt_rpClick
    end
    object Btn_change: TButton
      Left = 31
      Top = 112
      Width = 146
      Height = 41
      Caption = #23398#31821#21464#26356#36755#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Btn_changeClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 272
    Top = 104
    Width = 233
    Height = 249
    Align = alCustom
    Caption = #23398#29983#20449#24687#26597#35810
    Color = clBtnHighlight
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -32
    Font.Name = 'Bookman Old Style'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object Btn_query: TButton
      Left = 29
      Top = 48
      Width = 164
      Height = 41
      Caption = #23398#29983#20010#20154#20449#24687#26597#35810#20462#25913
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Btn_queryClick
    end
    object Print_rep_reward: TButton
      Left = 29
      Top = 112
      Width = 164
      Height = 41
      Caption = #25171#21360#33719#22870#23398#29983#21517#21333
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Print_rep_rewardClick
    end
    object Print_rep_punish: TButton
      Left = 29
      Top = 176
      Width = 164
      Height = 41
      Caption = #25171#21360#21463#32602#23398#29983#21517#21333
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Print_rep_punishClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 512
    Top = 104
    Width = 217
    Height = 137
    Caption = #25968#25454#32500#25252
    Color = clBtnHighlight
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -32
    Font.Name = 'Bookman Old Style'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Backup_Restore: TButton
      Left = 40
      Top = 48
      Width = 145
      Height = 41
      Caption = #25968#25454#22791#20221#21644#24674#22797
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Backup_RestoreClick
    end
  end
  object Meno: TMemo
    Left = 0
    Top = 400
    Width = 740
    Height = 133
    Color = cl3DLight
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -29
    Font.Name = 'Bookman Old Style'
    Font.Style = []
    Lines.Strings = (
      '     '#27426#36814#20351#29992#23398#29983#23398#31821#31649#29702#31995#32479#65292#26412#31995#32479#20165#20379#25945#21153#22788#32769
      #24072#31649#29702#26412#26657#23398#29983#22522#26412#20449#24687#19987#29992#65292#19981#23545#24191#22823#23398#29983#24320#25918#12290
      '     '#33509#26377#38382#39064#65292#35831#25214#31995#32479#31649#29702#21592#65281
      '')
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object RvProject1: TRvProject
    ProjectFile = 'rvProject1.rav'
    Left = 16
    Top = 8
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_re
    Left = 48
    Top = 8
  end
  object RvDataSetConnection2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_r_st
    Left = 16
    Top = 40
  end
  object ADO_re: TADOTable
    CursorType = ctStatic
    TableName = 'REWARD'
    Left = 80
    Top = 8
  end
  object ADO_r_st: TADOTable
    CursorType = ctStatic
    TableName = 'STUDENT'
    Left = 48
    Top = 40
  end
  object RvDataSetConnection3: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_re_le
    Left = 8
    Top = 72
  end
  object ADO_re_le: TADOTable
    CursorType = ctStatic
    TableName = 'REWARD_LEVELS'
    Left = 40
    Top = 72
  end
  object ADO_r_cla: TADOTable
    CursorType = ctStatic
    TableName = 'CLASS'
    Left = 112
    Top = 40
  end
  object ADO_r_dep: TADOTable
    CursorType = ctStatic
    TableName = 'DEPARTMENT'
    Left = 112
    Top = 72
  end
  object RvDataSetConnection4: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_r_cla
    Left = 80
    Top = 40
  end
  object RvDataSetConnection5: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_r_dep
    Left = 80
    Top = 72
  end
  object RvProject2: TRvProject
    ProjectFile = 'rvProject2.rav'
    Left = 528
  end
  object RvDataSetConnection6: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_pun
    Left = 560
  end
  object RvDataSetConnection7: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_p_st
    Left = 624
  end
  object RvDataSetConnection8: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_pun_le
    Left = 688
  end
  object RvDataSetConnection9: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_p_cla
    Left = 536
    Top = 32
  end
  object RvDataSetConnection10: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADO_p_dep
    Left = 600
    Top = 32
  end
  object ADO_pun: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=mydb'
    CursorType = ctStatic
    TableName = 'PUNISHMENT'
    Left = 592
  end
  object ADO_p_st: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=mydb'
    CursorType = ctStatic
    TableName = 'STUDENT'
    Left = 656
  end
  object ADO_pun_le: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=mydb'
    CursorType = ctStatic
    TableName = 'PUNISH_LEVELS'
    Left = 720
  end
  object ADO_p_cla: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=mydb'
    CursorType = ctStatic
    TableName = 'CLASS'
    Left = 568
    Top = 32
  end
  object ADO_p_dep: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=mydb'
    CursorType = ctStatic
    TableName = 'DEPARTMENT'
    Left = 632
    Top = 32
  end
end