subjectset_unit.dfm

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

inherited frmSubjectSet: TfrmSubjectSet
  Left = 274
  Top = 159
  Caption = #25945#23398#31185#30446#32500#25252
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    inherited DBGrid: TDBGrid
      DataSource = DataSubject
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'SubjectID'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'SubName'
          Title.Alignment = taCenter
          Title.Caption = #31185#30446
          Width = 150
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'CreditHour'
          Title.Alignment = taCenter
          Title.Caption = #23398#20998
          Width = 50
          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
    inherited Label2: TLabel
      Left = 152
    end
    object Label4: TLabel [3]
      Left = 312
      Top = 12
      Width = 48
      Height = 12
      Caption = #23398'  '#20998#65306
    end
    inherited txtID: TDBText
      Width = 74
      DataField = 'SubjectID'
      DataSource = DataSubject
    end
    inherited edtName: TDBEdit
      Left = 192
      Width = 113
      DataField = 'SubName'
      DataSource = DataSubject
    end
    inherited edtRemark: TDBMemo
      DataField = 'Remark'
      DataSource = DataSubject
    end
    inherited btnAdd: TBitBtn
      Caption = #28155#21152'(&A)'
      OnClick = btnAddClick
    end
    inherited btnModify: TBitBtn
      Caption = #20462#25913'(&M)'
    end
    inherited btnDel: TBitBtn
      Caption = #21024#38500'(&D)'
      OnClick = btnDelClick
    end
    inherited btnSave: TBitBtn
      Caption = #20445#23384'(&S)'
      OnClick = btnSaveClick
    end
    inherited btnCancel: TBitBtn
      Caption = #21462#28040'(&C)'
      OnClick = btnCancelClick
    end
    object edtSorce: TDBEdit
      Left = 360
      Top = 8
      Width = 89
      Height = 20
      DataField = 'CreditHour'
      DataSource = DataSubject
      TabOrder = 7
    end
  end
  object DataSubject: TDataSource
    Left = 48
    Top = 176
  end
end