student.dfm

一款比较好的学生信息管理系统DELPHI+ACCE

object frmstudent: Tfrmstudent
  Left = 258
  Top = 265
  Width = 610
  Height = 429
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #23398#29983#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 104
    Top = 24
    Width = 51
    Height = 16
    Caption = #23398'     '#21495#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 104
    Top = 48
    Width = 51
    Height = 16
    Caption = #22995'     '#21517#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 104
    Top = 80
    Width = 54
    Height = 16
    Caption = #24615'      '#21035#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 352
    Top = 16
    Width = 87
    Height = 16
    Caption = #25152#23646#29677#32423#65306'         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 352
    Top = 48
    Width = 87
    Height = 16
    Caption = #20986#29983#26085#26399#65306'         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 352
    Top = 80
    Width = 60
    Height = 16
    Caption = '  '#31821'      '#36143#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object dbestudentID: TDBEdit
    Left = 160
    Top = 16
    Width = 161
    Height = 21
    DataField = 'studentID'
    DataSource = dsstudent
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 0
  end
  object dbename: TDBEdit
    Left = 160
    Top = 40
    Width = 161
    Height = 21
    DataField = 'name'
    DataSource = dsstudent
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 1
  end
  object dbebirthday: TDBEdit
    Left = 416
    Top = 40
    Width = 153
    Height = 21
    DataField = 'birthday'
    DataSource = dsstudent
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 2
  end
  object dbenative: TDBEdit
    Left = 416
    Top = 72
    Width = 153
    Height = 21
    DataField = 'native'
    DataSource = dsstudent
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 3
  end
  object dblcclassname: TDBLookupComboBox
    Left = 416
    Top = 16
    Width = 153
    Height = 21
    DataField = 'classID'
    DataSource = dsstudent
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    KeyField = 'classID'
    ListField = 'classname'
    ListSource = dsclass
    TabOrder = 4
  end
  object dbrgsex: TDBRadioGroup
    Left = 160
    Top = 64
    Width = 161
    Height = 33
    Columns = 2
    DataField = 'sex'
    DataSource = dsstudent
    Items.Strings = (
      #30007
      #22899)
    TabOrder = 5
    Values.Strings = (
      #30007
      #22899)
  end
  object dbnstudent: TDBNavigator
    Left = 16
    Top = 112
    Width = 350
    Height = 25
    DataSource = dsstudent
    ParentShowHint = False
    ConfirmDelete = False
    ShowHint = True
    TabOrder = 6
    OnClick = dbnstudentClick
  end
  object BitBtn1: TBitBtn
    Left = 448
    Top = 112
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 7
    OnClick = BitBtn1Click
  end
  object dbgstudent: TDBGrid
    Left = 0
    Top = 144
    Width = 601
    Height = 257
    DataSource = dsstudent
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'studentID'
        Title.Alignment = taCenter
        Title.Caption = #23398#21495
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'sex'
        Title.Alignment = taCenter
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'classID'
        Title.Alignment = taCenter
        Title.Caption = #25152#23646#29677#32423#21495
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'birthday'
        Title.Alignment = taCenter
        Title.Caption = #20986#29983#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'native'
        Title.Alignment = taCenter
        Title.Caption = #31821#36143
        Visible = True
      end>
  end
  object tblstudent: TTable
    BeforePost = tblstudentBeforePost
    BeforeDelete = tblstudentBeforeDelete
    AfterScroll = tblstudentAfterScroll
    DatabaseName = 'stud'
    TableName = 'dbo.student'
    Left = 80
    Top = 184
  end
  object tblclass: TTable
    DatabaseName = 'stud'
    TableName = 'dbo.class'
    Left = 152
    Top = 184
  end
  object tblvalid: TTable
    DatabaseName = 'stud'
    Left = 208
    Top = 184
  end
  object dsstudent: TDataSource
    DataSet = tblstudent
    Left = 80
    Top = 224
  end
  object dsclass: TDataSource
    DataSet = tblclass
    Left = 152
    Top = 224
  end
end