unit3.dfm

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

object Form3: TForm3
  Left = 95
  Top = 156
  Width = 573
  Height = 474
  Caption = #23398#31821#21464#26356#36755#20837
  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 Label1: TLabel
    Left = 96
    Top = 16
    Width = 329
    Height = 37
    Alignment = taCenter
    AutoSize = False
    Caption = #23398#31821#21464#26356#36755#20837
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 32
    Top = 64
    Width = 401
    Height = 137
    BevelInner = bvLowered
    BevelWidth = 2
    TabOrder = 0
    object Label2: TLabel
      Left = 24
      Top = 64
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36755#20837#23398#21495':'
    end
    object i_stud_id_1: TMaskEdit
      Left = 89
      Top = 56
      Width = 72
      Height = 21
      EditMask = '000000;1;_'
      MaxLength = 6
      TabOrder = 0
      Text = '      '
      OnChange = i_stud_id_1Change
    end
    object GroupBox1: TGroupBox
      Left = 200
      Top = 16
      Width = 185
      Height = 105
      Caption = #35813#29983#22522#26412#24773#20917
      TabOrder = 1
      object Label3: TLabel
        Left = 24
        Top = 32
        Width = 33
        Height = 13
        AutoSize = False
        Caption = #22995#21517':'
      end
      object Label4: TLabel
        Left = 24
        Top = 56
        Width = 33
        Height = 13
        AutoSize = False
        Caption = #29677#32423':'
      end
      object Label5: TLabel
        Left = 24
        Top = 80
        Width = 33
        Height = 13
        AutoSize = False
        Caption = #38498#31995':'
      end
      object DBText1: TDBText
        Left = 72
        Top = 32
        Width = 65
        Height = 17
        DataField = 'NAME'
        DataSource = DS_stud_info_1
      end
      object DBText2: TDBText
        Left = 72
        Top = 56
        Width = 65
        Height = 17
        DataField = 'NAME'
        DataSource = DS_class_info_1
      end
      object DBText3: TDBText
        Left = 72
        Top = 80
        Width = 65
        Height = 17
        DataField = 'NAME'
        DataSource = DS_depart_info_1
      end
    end
  end
  object Panel2: TPanel
    Left = 32
    Top = 208
    Width = 401
    Height = 217
    BevelInner = bvLowered
    BevelWidth = 2
    TabOrder = 1
    object Label6: TLabel
      Left = 32
      Top = 88
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #20855#20307#25551#36848
    end
    object i_change: TRadioGroup
      Left = 24
      Top = 16
      Width = 345
      Height = 57
      Caption = #23398#31821#21464#26356#24773#20917
      Columns = 5
      ItemIndex = 0
      Items.Strings = (
        #36716#31995
        #27605#19994
        #22797#23398
        #36864#23398
        #27605#19994)
      TabOrder = 0
    end
    object i_descrip_1: TMemo
      Left = 16
      Top = 112
      Width = 369
      Height = 89
      ImeMode = imOpen
      ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
      Lines.Strings = (
        '')
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 464
    Top = 384
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 464
    Top = 344
    Width = 75
    Height = 25
    Caption = #28155#21152
    TabOrder = 3
    OnClick = Button2Click
  end
  object DS_depart_info_1: TDataSource
    DataSet = T_depart_info_1
    Left = 488
    Top = 104
  end
  object T_depart_info_1: TTable
    DatabaseName = 'mydb1'
    MasterSource = DS_stud_info_1
    TableName = 'DEPARTMENT'
    Left = 440
    Top = 104
  end
  object DS_class_info_1: TDataSource
    DataSet = T_class_info_1
    Left = 488
    Top = 56
  end
  object T_class_info_1: TTable
    DatabaseName = 'mydb1'
    MasterSource = DS_stud_info_1
    TableName = 'CLASS'
    Left = 440
    Top = 56
  end
  object DS_stud_info_1: TDataSource
    DataSet = T_stud_info_1
    Left = 488
    Top = 152
  end
  object T_stud_info_1: TTable
    DatabaseName = 'mydb1'
    Filter = 'ID='#39#39
    Filtered = True
    TableName = 'STUDENT'
    Left = 440
    Top = 152
  end
  object T_counter_c: TTable
    DatabaseName = 'mydb1'
    Filter = 'ID='#39'C'#39
    Filtered = True
    TableName = 'COUNTER'
    Left = 480
    Top = 256
  end
  object T_change: TTable
    DatabaseName = 'mydb1'
    TableName = 'CHANGE'
    Left = 480
    Top = 304
  end
end