practiceset_unit.dfm

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

inherited frmPracticeSet: TfrmPracticeSet
  Left = 266
  Top = 135
  Caption = #31038#20250#23454#36341#31649#29702
  ClientHeight = 496
  ClientWidth = 475
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel [0]
    Left = 8
    Top = 8
    Width = 457
    Height = 217
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 453
      Height = 213
      Align = alClient
      DataSource = DataPractice
      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 = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PracticeDateTime'
          Title.Alignment = taCenter
          Title.Caption = #26102#38388
          Width = 80
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PracticeName'
          Title.Alignment = taCenter
          Title.Caption = #23454#36341#20869#23481
          Width = 200
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PracticeResult'
          Title.Alignment = taCenter
          Title.Caption = #23454#36341#32467#26524
          Width = 200
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Remark'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 200
          Visible = True
        end>
    end
  end
  object Panel2: TPanel [1]
    Left = 8
    Top = 237
    Width = 457
    Height = 252
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 29
      Top = 19
      Width = 36
      Height = 12
      Caption = #23398#21495#65306
    end
    object Label2: TLabel
      Left = 160
      Top = 19
      Width = 36
      Height = 12
      Caption = #29677#32423#65306
    end
    object Label3: TLabel
      Left = 17
      Top = 65
      Width = 60
      Height = 12
      Caption = #23454#36341#20869#23481#65306
    end
    object Label4: TLabel
      Left = 17
      Top = 130
      Width = 60
      Height = 12
      Caption = #23454#36341#32467#26524#65306
    end
    object Label5: TLabel
      Left = 29
      Top = 186
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
    end
    object Label6: TLabel
      Left = 296
      Top = 19
      Width = 36
      Height = 12
      Caption = #26102#38388#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 416
      Top = 14
      Width = 23
      Height = 22
      Caption = #8230
      OnClick = SpeedButton1Click
    end
    object cmbxStudentID: TDBLookupComboBox
      Left = 80
      Top = 15
      Width = 73
      Height = 20
      DataField = 'StudentID'
      DataSource = DataPractice
      DropDownWidth = 150
      KeyField = 'StudentID'
      ListField = 'StudentID;StuName'
      ListSource = DataStudentID
      TabOrder = 0
    end
    object cmbxClassName: TDBLookupComboBox
      Left = 200
      Top = 15
      Width = 89
      Height = 20
      DataField = 'ClassID'
      DataSource = DataPractice
      DropDownWidth = 150
      KeyField = 'ClassID'
      ListField = 'ClassID;ClaName'
      ListSource = DataClassName
      TabOrder = 1
    end
    object memRemark: TDBMemo
      Left = 80
      Top = 172
      Width = 360
      Height = 40
      DataField = 'Remark'
      DataSource = DataPractice
      TabOrder = 2
    end
    object memPracticeName: TDBMemo
      Left = 80
      Top = 41
      Width = 360
      Height = 60
      DataField = 'PracticeName'
      DataSource = DataPractice
      TabOrder = 3
    end
    object memPracticeResult: TDBMemo
      Left = 80
      Top = 106
      Width = 361
      Height = 60
      DataField = 'PracticeResult'
      DataSource = DataPractice
      TabOrder = 4
    end
    object btnAdd: TBitBtn
      Left = 29
      Top = 219
      Width = 75
      Height = 25
      Caption = #28155#21152'(&A)'
      TabOrder = 5
      OnClick = btnAddClick
    end
    object btnModify: TBitBtn
      Left = 109
      Top = 219
      Width = 75
      Height = 25
      Caption = #20462#25913'(&M)'
      TabOrder = 6
      OnClick = btnModifyClick
    end
    object btnDel: TBitBtn
      Left = 189
      Top = 219
      Width = 75
      Height = 25
      Caption = #21024#38500'(&D)'
      TabOrder = 7
      OnClick = btnDelClick
    end
    object btnSave: TBitBtn
      Left = 269
      Top = 219
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      TabOrder = 8
      OnClick = btnSaveClick
    end
    object btnCancel: TBitBtn
      Left = 349
      Top = 219
      Width = 75
      Height = 25
      Caption = #21462#28040'(&C)'
      TabOrder = 9
      OnClick = btnCancelClick
    end
    object edtPracticeDateTime: TDBEdit
      Left = 333
      Top = 15
      Width = 80
      Height = 20
      DataField = 'PracticeDateTime'
      DataSource = DataPractice
      TabOrder = 10
    end
  end
  inherited ActionList1: TActionList
    Left = 72
    Top = 168
  end
  inherited PopupMenu1: TPopupMenu
    Left = 104
    Top = 168
  end
  object DataPractice: TDataSource
    Left = 136
    Top = 168
  end
  object DataStudentID: TDataSource
    Left = 168
    Top = 168
  end
  object DataClassName: TDataSource
    Left = 200
    Top = 168
  end
end