moralset_unit.dfm

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

inherited frmMoralSet: TfrmMoralSet
  Left = 241
  Top = 142
  Caption = #24605#24819#21697#24503#31649#29702
  ClientHeight = 474
  ClientWidth = 626
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel [0]
    Left = 8
    Top = 8
    Width = 609
    Height = 129
    BevelInner = bvLowered
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 605
      Height = 125
      Align = alClient
      Caption = #24605#24819#21697#24503#20869#23481
      TabOrder = 0
      object trvwMoralName: TTreeView
        Left = 2
        Top = 14
        Width = 601
        Height = 109
        Align = alClient
        Indent = 19
        ReadOnly = True
        TabOrder = 0
        OnDblClick = trvwMoralNameDblClick
        Items.Data = {
          03000000230000000000000000000000FFFFFFFFFFFFFFFF0000000003000000
          0A312EBBF9B1BEB9E6D5C22A0000000000000000000000FFFFFFFFFFFFFFFF00
          0000000000000011313030312EB9D8D0C4B9FABCD2B4F3CAC230000000000000
          0000000000FFFFFFFFFFFFFFFF000000000000000017313030322EC8C8B0AEBC
          AFCCE5A1A2B9D8D0C4BCAFCCE5260000000000000000000000FFFFFFFFFFFFFF
          FF00000000000000000D313030332ED7F0C0CFB0AED3D7230000000000000000
          000000FFFFFFFFFFFFFFFF00000000020000000A322EB5C0B5C2C6B7D6CA2A00
          00000000000000000000FFFFFFFFFFFFFFFF000000000000000011323030312E
          B2BBB4F2BCDCB2BBB6B7C5B9300000000000000000000000FFFFFFFFFFFFFFFF
          000000000000000017323030322ED7F0D6D8C0CFCAA6A1A2CDC5BDE1CDACD1A7
          230000000000000000000000FFFFFFFFFFFFFFFF00000000020000000A332EBC
          CDC2C9B9E6B7B62A0000000000000000000000FFFFFFFFFFFFFFFF0000000000
          00000011333030312ED7F1CAD8D1A7D0A3BCCDC2C92A00000000000000000000
          00FFFFFFFFFFFFFFFF000000000000000011333030322EBBFDBCABB2CEBCD3C0
          CDB6AF}
      end
    end
  end
  object Panel2: TPanel [1]
    Left = 8
    Top = 320
    Width = 609
    Height = 149
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 17
      Width = 48
      Height = 12
      Caption = #23398'  '#21495#65306
    end
    object Label2: TLabel
      Left = 160
      Top = 17
      Width = 60
      Height = 12
      Caption = #29677#32423#32534#21495#65306
    end
    object Label3: TLabel
      Left = 320
      Top = 17
      Width = 60
      Height = 12
      Caption = #21697#24503#32534#21495#65306
    end
    object Label4: TLabel
      Left = 456
      Top = 17
      Width = 60
      Height = 12
      Caption = #21697#24503#25104#32489#65306
    end
    object Label5: TLabel
      Left = 16
      Top = 56
      Width = 48
      Height = 12
      Caption = #22791'  '#27880#65306
    end
    object cmbxStudentID: TDBLookupComboBox
      Left = 64
      Top = 13
      Width = 90
      Height = 20
      DataField = 'StudentID'
      DataSource = DataMoral
      DropDownWidth = 150
      KeyField = 'StudentID'
      ListField = 'StudentID;StuName'
      ListSource = DataStudentID
      TabOrder = 0
    end
    object cmbxClassID: TDBLookupComboBox
      Left = 216
      Top = 13
      Width = 90
      Height = 20
      DataField = 'ClassID'
      DataSource = DataMoral
      DropDownWidth = 150
      KeyField = 'ClassID'
      ListField = 'ClassID;ClaName'
      ListSource = DataClassID
      TabOrder = 1
    end
    object edtMoralResult: TDBEdit
      Left = 520
      Top = 13
      Width = 73
      Height = 20
      DataField = 'MoralResult'
      DataSource = DataMoral
      TabOrder = 2
    end
    object edtRemark: TDBMemo
      Left = 64
      Top = 40
      Width = 529
      Height = 65
      DataField = 'Remark'
      DataSource = DataMoral
      TabOrder = 3
    end
    object btnCancel: TBitBtn
      Left = 491
      Top = 114
      Width = 75
      Height = 25
      Caption = #21462#28040'(&C)'
      TabOrder = 4
      OnClick = btnCancelClick
    end
    object btnSave: TBitBtn
      Left = 379
      Top = 114
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      TabOrder = 5
      OnClick = btnSaveClick
    end
    object btnDel: TBitBtn
      Left = 267
      Top = 114
      Width = 75
      Height = 25
      Caption = #21024#38500'(&D)'
      TabOrder = 6
      OnClick = btnDelClick
    end
    object btnModify: TBitBtn
      Left = 150
      Top = 114
      Width = 75
      Height = 25
      Caption = #20462#25913'(&M)'
      TabOrder = 7
      OnClick = btnModifyClick
    end
    object btnAdd: TBitBtn
      Left = 35
      Top = 114
      Width = 75
      Height = 25
      Caption = #28155#21152'(&A)'
      TabOrder = 8
      OnClick = btnAddClick
    end
    object edtMoralID: TDBEdit
      Left = 377
      Top = 13
      Width = 74
      Height = 20
      DataField = 'MoralID'
      DataSource = DataMoral
      TabOrder = 9
    end
  end
  object Panel3: TPanel [2]
    Left = 8
    Top = 144
    Width = 609
    Height = 169
    BevelInner = bvLowered
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 605
      Height = 165
      Align = alClient
      DataSource = DataMoral
      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 = 'ClassID'
          Title.Alignment = taCenter
          Title.Caption = #29677#32423#32534#21495
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MoralID'
          Title.Alignment = taCenter
          Title.Caption = #21697#24503#26465#30446#32534#21495
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MoralResult'
          Title.Alignment = taCenter
          Title.Caption = #21697#24503#25104#32489
          Width = 80
          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 ActionList1: TActionList
    Left = 32
    Top = 208
  end
  inherited PopupMenu1: TPopupMenu
    Left = 72
    Top = 208
  end
  object DataMoral: TDataSource
    Left = 104
    Top = 208
  end
  object DataStudentID: TDataSource
    Left = 136
    Top = 208
  end
  object DataClassID: TDataSource
    Left = 168
    Top = 208
  end
end