studentscore_unit.dfm

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

inherited frmStudentScore: TfrmStudentScore
  Left = 220
  Top = 146
  Caption = #23398#29983#25104#32489
  ClientHeight = 442
  ClientWidth = 585
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel [0]
    Left = 8
    Top = 8
    Width = 569
    Height = 425
    BevelInner = bvLowered
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 2
      Top = 2
      Width = 565
      Height = 421
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #25104#32489#24405#20837
        object Panel2: TPanel
          Left = 0
          Top = 216
          Width = 557
          Height = 178
          Align = alBottom
          BevelInner = bvLowered
          TabOrder = 0
          object Label1: TLabel
            Left = 16
            Top = 16
            Width = 48
            Height = 12
            Caption = #23398'  '#21495#65306
          end
          object Label2: TLabel
            Left = 176
            Top = 16
            Width = 48
            Height = 12
            Caption = #26102'  '#38388#65306
          end
          object Label3: TLabel
            Left = 352
            Top = 16
            Width = 48
            Height = 12
            Caption = #23398'  '#26399#65306
          end
          object Label4: TLabel
            Left = 248
            Top = 44
            Width = 60
            Height = 12
            Caption = #31185#30446#21517#31216#65306
          end
          object Label5: TLabel
            Left = 16
            Top = 44
            Width = 48
            Height = 12
            Caption = #29677'  '#32423#65306
          end
          object Label6: TLabel
            Left = 16
            Top = 74
            Width = 48
            Height = 12
            Caption = #25104'  '#32489#65306
          end
          object Label7: TLabel
            Left = 256
            Top = 74
            Width = 48
            Height = 12
            Caption = #23398'  '#20998#65306
          end
          object Label8: TLabel
            Left = 16
            Top = 104
            Width = 48
            Height = 12
            Caption = #22791'  '#27880#65306
          end
          object SpeedButton1: TSpeedButton
            Left = 315
            Top = 11
            Width = 23
            Height = 22
            Caption = #8230
            OnClick = SpeedButton1Click
          end
          object txtCreditHour: TDBText
            Left = 312
            Top = 72
            Width = 233
            Height = 17
            DataField = 'CreditHour'
            DataSource = DataStudentScore
          end
          object cmbxStudentID: TDBLookupComboBox
            Left = 64
            Top = 12
            Width = 97
            Height = 20
            DataField = 'StudentID'
            DataSource = DataStudentScore
            DropDownWidth = 150
            KeyField = 'StudentID'
            ListField = 'StudentID;StuName'
            ListSource = DataStudentID
            TabOrder = 0
          end
          object edtScoreDateTime: TDBEdit
            Left = 232
            Top = 12
            Width = 81
            Height = 20
            DataField = 'ScoreDateTime'
            DataSource = DataStudentScore
            TabOrder = 1
          end
          object cmbxTerm: TDBComboBox
            Left = 400
            Top = 12
            Width = 145
            Height = 20
            DataField = 'Term'
            DataSource = DataStudentScore
            ItemHeight = 12
            Items.Strings = (
              #31532#19968#23398#26399
              #31532#20108#23398#26399
              #31532#19977#23398#26399
              #31532#22235#23398#26399)
            TabOrder = 2
          end
          object cmbxClassName: TDBLookupComboBox
            Left = 64
            Top = 40
            Width = 169
            Height = 20
            DataField = 'ClassID'
            DataSource = DataStudentScore
            DropDownWidth = 150
            KeyField = 'ClassID'
            ListField = 'ClassID;ClaName'
            ListSource = DataClassName
            TabOrder = 3
          end
          object cmbxSubjectName: TDBLookupComboBox
            Left = 312
            Top = 40
            Width = 233
            Height = 20
            DataField = 'SubjectID'
            DataSource = DataStudentScore
            DropDownWidth = 150
            KeyField = 'SubjectID'
            ListField = 'SubjectID;SubName'
            ListSource = DataSubjectName
            TabOrder = 4
            OnClick = cmbxSubjectNameClick
          end
          object edtScore: TDBEdit
            Left = 64
            Top = 70
            Width = 169
            Height = 20
            DataField = 'Score'
            DataSource = DataStudentScore
            TabOrder = 5
          end
          object edtRemark: TDBMemo
            Left = 64
            Top = 96
            Width = 481
            Height = 41
            DataField = 'Remark'
            DataSource = DataStudentScore
            TabOrder = 6
          end
          object btnCancel: TBitBtn
            Left = 435
            Top = 145
            Width = 75
            Height = 25
            Caption = #21462#28040'(&C)'
            TabOrder = 7
            OnClick = btnCancelClick
          end
          object btnSave: TBitBtn
            Left = 339
            Top = 145
            Width = 75
            Height = 25
            Caption = #20445#23384'(&S)'
            TabOrder = 8
            OnClick = btnSaveClick
          end
          object btnDel: TBitBtn
            Left = 243
            Top = 145
            Width = 75
            Height = 25
            Caption = #21024#38500'(&D)'
            TabOrder = 9
            OnClick = btnDelClick
          end
          object btnModify: TBitBtn
            Left = 147
            Top = 145
            Width = 75
            Height = 25
            Caption = #20462#25913'(&M)'
            TabOrder = 10
            OnClick = btnModifyClick
          end
          object btnAdd: TBitBtn
            Left = 51
            Top = 145
            Width = 75
            Height = 25
            Caption = #28155#21152'(&A)'
            TabOrder = 11
            OnClick = btnAddClick
          end
        end
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 557
          Height = 216
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 1
          object DBGrid1: TDBGrid
            Left = 2
            Top = 2
            Width = 553
            Height = 212
            Align = alClient
            DataSource = DataStudentScore
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'StudentID'
                Title.Alignment = taCenter
                Title.Caption = #23398#21495
                Width = 80
                Visible = True
              end
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'ScoreDateTime'