studentset_unit.dfm

学校班级教学管理系统 DELPHI7下的

inherited frmStudentSet: TfrmStudentSet
  Left = 228
  Top = 125
  Caption = #23398#29983#20449#24687#32500#25252
  ClientHeight = 473
  ClientWidth = 591
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 575
    inherited DBGrid: TDBGrid
      Width = 571
      DataSource = DataStudent
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StudentID'
          Title.Alignment = taCenter
          Title.Caption = #23398#22909
          Width = 60
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StuName'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StuSex'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StuAge'
          Title.Alignment = taCenter
          Title.Caption = #24180#40836
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ClassID'
          Title.Alignment = taCenter
          Title.Caption = #29677#32423#32534#21495
          Width = 150
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'InSchoolDate'
          Title.Alignment = taCenter
          Title.Caption = #20837#23398#26102#38388
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'OutSchoolDate'
          Title.Alignment = taCenter
          Title.Caption = #27605#19994#26102#38388
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StuContact'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#26041#24335
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Remark'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 200
          Visible = True
        end>
    end
  end
  inherited Panel2: TPanel
    Top = 257
    Width = 575
    Height = 209
    inherited Label2: TLabel
      Left = 152
    end
    inherited Label3: TLabel
      Top = 104
    end
    object Label4: TLabel [3]
      Left = 312
      Top = 12
      Width = 48
      Height = 12
      Caption = #24615'  '#21035#65306
    end
    object Label5: TLabel [4]
      Left = 432
      Top = 12
      Width = 48
      Height = 12
      Caption = #24180'  '#40836#65306
    end
    object Label6: TLabel [5]
      Left = 16
      Top = 42
      Width = 48
      Height = 12
      Caption = #29677'  '#32423#65306
    end
    object Label7: TLabel [6]
      Left = 208
      Top = 42
      Width = 60
      Height = 12
      Caption = #20837#23398#26102#38388#65306
    end
    object Label8: TLabel [7]
      Left = 391
      Top = 42
      Width = 60
      Height = 12
      Caption = #27605#19994#26102#38388#65306
    end
    object Label9: TLabel [8]
      Left = 8
      Top = 71
      Width = 60
      Height = 12
      Caption = #32852#31995#26041#24335#65306
    end
    object btnInDate: TSpeedButton [9]
      Left = 360
      Top = 37
      Width = 23
      Height = 22
      Caption = #8230
      OnClick = btnInDateClick
    end
    object btnOutDate: TSpeedButton [10]
      Left = 535
      Top = 36
      Width = 23
      Height = 22
      Caption = #8230
      OnClick = btnOutDateClick
    end
    inherited txtID: TDBText
      Width = 74
      DataField = 'StudentID'
      DataSource = DataStudent
    end
    inherited edtName: TDBEdit
      Left = 200
      Width = 105
      DataField = 'StuName'
      DataSource = DataStudent
    end
    inherited edtRemark: TDBMemo
      Top = 97
      Width = 486
      DataField = 'Remark'
      DataSource = DataStudent
    end
    inherited btnAdd: TBitBtn
      Left = 51
      Top = 176
      Caption = #28155#21152'(&A)'
      OnClick = btnAddClick
    end
    inherited btnModify: TBitBtn
      Left = 147
      Top = 176
      Caption = #20462#25913'(&M)'
    end
    inherited btnDel: TBitBtn
      Left = 243
      Top = 176
      Caption = #21024#38500'(&D)'
      OnClick = btnDelClick
    end
    inherited btnSave: TBitBtn
      Left = 339
      Top = 176
      Caption = #20445#23384'(&S)'
      OnClick = btnSaveClick
    end
    inherited btnCancel: TBitBtn
      Left = 435
      Top = 176
      Caption = #21462#28040'(&C)'
      OnClick = btnCancelClick
    end
    object edtAge: TDBEdit
      Left = 480
      Top = 8
      Width = 78
      Height = 20
      DataField = 'StuAge'
      DataSource = DataStudent
      TabOrder = 7
    end
    object cmbxSex: TDBComboBox
      Left = 360
      Top = 8
      Width = 65
      Height = 20
      DataField = 'StuSex'
      DataSource = DataStudent
      ItemHeight = 12
      Items.Strings = (
        #30007
        #22899)
      TabOrder = 8
    end
    object cmbxClass: TDBLookupComboBox
      Left = 72
      Top = 38
      Width = 129
      Height = 20
      DataField = 'ClassID'
      DataSource = DataStudent
      DropDownWidth = 200
      KeyField = 'ClassID'
      ListField = 'ClassID;ClaName'
      ListSource = DataClassName
      TabOrder = 9
    end
    object edtInDate: TDBEdit
      Left = 272
      Top = 38
      Width = 85
      Height = 20
      DataField = 'InSchoolDate'
      DataSource = DataStudent
      ReadOnly = True
      TabOrder = 10
    end
    object edtOutDate: TDBEdit
      Left = 447
      Top = 38
      Width = 85
      Height = 20
      DataField = 'OutSchoolDate'
      DataSource = DataStudent
      ReadOnly = True
      TabOrder = 12
    end
    object edtAddress: TDBEdit
      Left = 72
      Top = 67
      Width = 486
      Height = 20
      DataField = 'StuContact'
      DataSource = DataStudent
      TabOrder = 11
    end
  end
  object DataStudent: TDataSource
    Left = 40
    Top = 200
  end
  object DataClassName: TDataSource
    Left = 80
    Top = 200
  end
end