ustudent.dfm

一.录入学生信息（预计有81个学生

object frmStudent: TfrmStudent
  Left = 169
  Top = 74
  Width = 640
  Height = 441
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #23398#29983#22522#26412#36164#26009#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 209
    Height = 414
    Align = alLeft
    Caption = #29677#32423#21015#20030
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 14
      Width = 205
      Height = 398
      Align = alClient
      DataSource = DataSource1
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
          Title.Alignment = taCenter
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ClassCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29677#32423#31616#30721
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = 'ClassName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #29677#32423#21517#31216
          Width = 120
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 209
    Top = 0
    Width = 423
    Height = 414
    Align = alClient
    Caption = #29677#32423'XX'#30340#23398#29983#20449#24687#21015#34920
    TabOrder = 1
    object Panel2: TPanel
      Left = 2
      Top = 371
      Width = 419
      Height = 41
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      DesignSize = (
        419
        41)
      object cmdAppend: TBitBtn
        Left = 30
        Top = 9
        Width = 72
        Height = 22
        Anchors = [akTop, akRight]
        Caption = #28155#21152'(&A)'
        TabOrder = 0
        OnClick = cmdAppendClick
      end
      object cmdEdit: TBitBtn
        Left = 110
        Top = 9
        Width = 72
        Height = 22
        Anchors = [akTop, akRight]
        Caption = #20462#25913'(&E)'
        TabOrder = 1
        OnClick = cmdEditClick
      end
      object cmdDelete: TBitBtn
        Left = 190
        Top = 9
        Width = 72
        Height = 22
        Anchors = [akTop, akRight]
        Caption = #21024#38500'(&D)'
        TabOrder = 2
        OnClick = cmdDeleteClick
      end
      object cmdClose: TBitBtn
        Left = 278
        Top = 9
        Width = 72
        Height = 22
        Anchors = [akTop, akRight]
        Caption = #20851#38381'(&X)'
        TabOrder = 3
        OnClick = cmdCloseClick
      end
    end
    object DBGridEh2: TDBGridEh
      Left = 2
      Top = 14
      Width = 419
      Height = 357
      Align = alClient
      DataSource = DataSource2
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      OnDblClick = DBGridEh2DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'ClassCode'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'SName'
          Footers = <>
          Title.Caption = #22995#21517
          Width = 56
        end
        item
          EditButtons = <>
          FieldName = 'SNumber'
          Footers = <>
          Title.Caption = #23398#21495
          Width = 32
        end
        item
          EditButtons = <>
          FieldName = 'Room'
          Footers = <>
          Title.Caption = #23517#23460
          Width = 52
        end
        item
          EditButtons = <>
          FieldName = 'Address'
          Footers = <>
          Title.Caption = #23478#24237#22320#22336
          Width = 242
        end
        item
          EditButtons = <>
          FieldName = 'PostCode'
          Footers = <>
          Title.Caption = #37038#32534
          Width = 42
        end
        item
          EditButtons = <>
          FieldName = 'Patriarchy'
          Footers = <>
          Title.Caption = #23478#38271
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = 'HomeTel'
          Footers = <>
          Title.Caption = #23478#24237#30005#35805
          Width = 98
        end
        item
          EditButtons = <>
          FieldName = 'IsTY'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#22242#21592
          Width = 28
        end
        item
          EditButtons = <>
          FieldName = 'HasWJ'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #26080
            #26377)
          Title.Caption = #26377#21542#36829#32426#35760#24405
          Width = 46
        end
        item
          EditButtons = <>
          FieldName = 'WJContent'
          Footers = <>
          Title.Caption = #36829#32426#35828#26126
          Width = 119
        end
        item
          EditButtons = <>
          FieldName = 'IsActive'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #22312#26657)
          Title.Caption = #26159#21542#22312#26657
          Width = 33
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = dsQuery
    Left = 48
    Top = 128
  end
  object dsQuery: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    AfterScroll = dsQueryAfterScroll
    CommandText = 'select * from TClass'
    Parameters = <>
    Left = 80
    Top = 128
  end
  object dsStudent: TADODataSet
    Connection = DM.ADOLocal
    CursorType = ctStatic
    CommandText = 'select * from TStudent'
    Parameters = <>
    Left = 361
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = dsStudent
    Left = 393
    Top = 104
  end
end