unit5.dfm

Delph 开发的学生管理信息系统

object Form5: TForm5
  Left = 214
  Top = 287
  Width = 656
  Height = 543
  Caption = #23398#29983#20010#20154#20449#24687#26597#35810#20462#25913
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 224
    Top = 32
    Width = 55
    Height = 13
    AutoSize = False
    Caption = #36755#20837#23398#21495':'
  end
  object Label3: TLabel
    Left = 56
    Top = 184
    Width = 72
    Height = 13
    Caption = #23398#31821#21464#26356#21015#34920
  end
  object Label8: TLabel
    Left = 264
    Top = 184
    Width = 72
    Height = 13
    Caption = #22870#21169#24773#20917#21015#34920
  end
  object Label9: TLabel
    Left = 480
    Top = 184
    Width = 72
    Height = 13
    Caption = #22788#32602#24773#20917#21015#34920
  end
  object i_stud_id_4: TMaskEdit
    Left = 289
    Top = 24
    Width = 72
    Height = 21
    EditMask = '000000;1;_'
    MaxLength = 6
    TabOrder = 0
    Text = '      '
    OnChange = i_stud_id_4Change
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 64
    Width = 633
    Height = 105
    Caption = #23398#29983#22522#26412#24773#20917
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 36
      Height = 13
      Caption = #22995#21517#65306
    end
    object Label5: TLabel
      Left = 160
      Top = 24
      Width = 36
      Height = 13
      Caption = #31821#36143#65306
    end
    object Label6: TLabel
      Left = 360
      Top = 24
      Width = 36
      Height = 13
      Caption = #29677#32423#65306
    end
    object Label7: TLabel
      Left = 360
      Top = 72
      Width = 36
      Height = 13
      Caption = #38498#31995#65306
    end
    object DBEdit1: TDBEdit
      Left = 56
      Top = 16
      Width = 73
      Height = 21
      DataField = 'NAME'
      DataSource = DS_stud_info_4
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 200
      Top = 16
      Width = 121
      Height = 21
      DataField = 'NATIVE_PLACE'
      DataSource = DS_stud_info_4
      TabOrder = 1
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 400
      Top = 16
      Width = 145
      Height = 21
      DataField = 'CLASS'
      DataSource = DS_stud_info_4
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = DS_class_info_4
      TabOrder = 2
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 400
      Top = 64
      Width = 145
      Height = 21
      DataField = 'DEPARTMENT'
      DataSource = DS_stud_info_4
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = DS_depart_info_4
      TabOrder = 3
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 48
      Top = 48
      Width = 217
      Height = 41
      Caption = #24615#21035
      Columns = 2
      DataField = 'SEX'
      DataSource = DS_stud_info_4
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 4
      Values.Strings = (
        #30007
        #22899)
    end
    object Button4: TButton
      Left = 560
      Top = 16
      Width = 65
      Height = 25
      Caption = #20462#25913
      TabOrder = 5
      OnClick = Button4Click
    end
    object Button8: TButton
      Left = 560
      Top = 64
      Width = 65
      Height = 25
      Caption = #21462#28040
      TabOrder = 6
      OnClick = Button8Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 208
    Width = 193
    Height = 89
    DataSource = DS_change_4
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        ReadOnly = True
        Title.Caption = #35760#24405#32534#21495
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 216
    Top = 208
    Width = 201
    Height = 89
    DataSource = DS_reward_4
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        ReadOnly = True
        Title.Caption = #35760#24405#32534#21495
        Visible = True
      end>
  end
  object DBGrid3: TDBGrid
    Left = 432
    Top = 208
    Width = 201
    Height = 89
    DataSource = DS_punish_4
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        ReadOnly = True
        Title.Caption = #35760#24405#32534#21495
        Visible = True
      end>
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 312
    Width = 185
    Height = 185
    Caption = #23398#31821#21464#26356#24773#20917
    TabOrder = 5
    object Label10: TLabel
      Left = 8
      Top = 24
      Width = 36
      Height = 13
      Caption = #21464#26356#65306
    end
    object Label13: TLabel
      Left = 8
      Top = 48
      Width = 36
      Height = 13
      Caption = #25551#36848#65306
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 48
      Top = 24
      Width = 113
      Height = 21
      DataField = 'CHANGE'
      DataSource = DS_change_4
      KeyField = 'CODE'
      ListField = 'DESCRIPTION'
      ListSource = DS_change_code_4
      TabOrder = 0
    end
    object DBMemo1: TDBMemo
      Left = 16
      Top = 64
      Width = 153
      Height = 73
      DataField = 'DESCRIPTION'
      DataSource = DS_change_4
      TabOrder = 1
    end
    object Button1: TButton
      Left = 16
      Top = 152
      Width = 65
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 104
      Top = 152
      Width = 65
      Height = 25
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 232
    Top = 312
    Width = 185
    Height = 185
    Caption = #22870#21169#24773#20917
    TabOrder = 6
    object Label11: TLabel
      Left = 8
      Top = 24
      Width = 36
      Height = 13
      Caption = #31561#32423#65306
    end
    object Label14: TLabel
      Left = 16
      Top = 48
      Width = 36
      Height = 13
      Caption = #25551#36848#65306
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 48
      Top = 24
      Width = 113
      Height = 21
      DataField = 'LEVELS'
      DataSource = DS_reward_4
      KeyField = 'CODE'
      ListField = 'DESCRIPTION'
      ListSource = DS_reward_level_4
      TabOrder = 0
    end
    object DBMemo2: TDBMemo
      Left = 16
      Top = 64
      Width = 153
      Height = 73
      DataField = 'DESCRIPTION'
      DataSource = DS_reward_4
      TabOrder = 1
    end
    object Button3: TButton
      Left = 16
      Top = 152
      Width = 65
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button5: TButton
      Left = 104
      Top = 152
      Width = 65
      Height = 25
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button5Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 448
    Top = 312
    Width = 185
    Height = 185
    Caption = #22788#32602#24773#20917
    TabOrder = 7
    object Label12: TLabel
      Left = 8
      Top = 24
      Width = 36
      Height = 13
      Caption = #31561#32423#65306
    end
    object Label15: TLabel
      Left = 8
      Top = 48
      Width = 36
      Height = 13
      Caption = #25551#36848#65306
    end
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 48
      Top = 24
      Width = 121
      Height = 21
      DataField = 'LEVELS'
      DataSource = DS_punish_4
      KeyField = 'CODE'
      ListField = 'DESCRIPTION'
      ListSource = DS_punish_level_4
      TabOrder = 0
    end
    object DBMemo3: TDBMemo
      Left = 16
      Top = 64
      Width = 153
      Height = 73
      DataField = 'DESCRIPTION'
      DataSource = DS_punish_4
      TabOrder = 1
    end
    object Button6: TButton
      Left = 104
      Top = 152
      Width = 65
      Height = 25
      Caption = #21462#28040
      TabOrder = 2
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 16
      Top = 152
      Width = 65
      Height = 25
      Caption = #20462#25913
      TabOrder = 3
      OnClick = Button7Click
    end
  end
  object DS_stud_info_4: TDataSource
    DataSet = T_stud_info_4
    Left = 416
    Top = 40
  end
  object DS_class_info_4: TDataSource
    DataSet = T_class_info_4
    Left = 512
    Top = 40
  end
  object DS_depart_info_4: TDataSource
    DataSet = T_depart_info_4
    Left = 608
    Top = 40
  end
  object T_stud_info_4: TTable
    DatabaseName = 'mydb1'
    Filter = 'ID='#39#39
    Filtered = True
    TableName = 'STUDENT'
    Left = 384
    Top = 40
  end
  object T_class_info_4: TTable
    DatabaseName = 'mydb1'
    MasterSource = DS_stud_info_4
    TableName = 'CLASS'
    Left = 480
    Top = 40
  end
  object T_depart_info_4: TTable
    DatabaseName = 'mydb1'
    MasterSource = DS_stud_info_4
    TableName = 'DEPARTMENT'
    Left = 576
    Top = 40
  end
  object T_change_4: TTable
    DatabaseName = 'mydb1'
    TableName = 'CHANGE'
    Left = 168
    Top = 176
  end
  object T_reward_4: TTable
    DatabaseName = 'mydb1'
    TableName = 'REWARD'
    Left = 376
    Top = 176
  end
  object T_punish_4: TTable
    DatabaseName = 'mydb1'
    MasterSource = DS_stud_info_4
    TableName = 'PUNISHMENT'
    Left = 576
    Top = 176
  end
  object DS_change_4: TDataSource
    DataSet = T_change_4
    Left = 200
    Top = 176
  end
  object DS_reward_4: TDataSource
    DataSet = T_reward_4
    Left = 408
    Top = 176
  end
  object DS_punish_4: TDataSource
    DataSet = T_punish_4
    Left = 608
    Top = 176
  end
  object T_change_code_4: TTable
    DatabaseName = 'mydb1'
    TableName = 'CHANGE_CODE'
    Left = 136
    Top = 304
  end
  object T_reward_level_4: TTable
    DatabaseName = 'mydb1'
    TableName = 'REWARD_LEVELS'
    Left = 360
    Top = 304
  end
  object T_punish_level_4: TTable
    DatabaseName = 'mydb1'
    TableName = 'PUNISH_LEVELES'
    Left = 568
    Top = 304
  end
  object DS_change_code_4: TDataSource
    DataSet = T_change_code_4
    Left = 168
    Top = 304
  end
  object DS_reward_level_4: TDataSource
    DataSet = T_reward_level_4
    Left = 392
    Top = 304
  end
  object DS_punish_level_4: TDataSource
    DataSet = T_punish_level_4
    Left = 600
    Top = 304
  end
end