deletecourseunit.dfm

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

object deletecourseForm: TdeletecourseForm
  Left = 245
  Top = 111
  Width = 430
  Height = 361
  Caption = #21024#38500#35838#31243#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 422
    Height = 121
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object Label3: TLabel
      Left = 12
      Top = 88
      Width = 77
      Height = 16
      AutoSize = False
      Caption = #31867#22411#20195#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 12
      Top = 10
      Width = 85
      Height = 16
      AutoSize = False
      Caption = #35838#31243#21517#31216#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 36
      Width = 76
      Height = 16
      AutoSize = False
      Caption = #23398'           '#26102#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 12
      Top = 62
      Width = 77
      Height = 16
      AutoSize = False
      Caption = #23398'           '#20998#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 88
      Top = 10
      Width = 129
      Height = 21
      Ctl3D = True
      DropDownRows = 15
      KeyField = 'cname'
      ListField = 'cname'
      ListSource = DataModule1.DScourse
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit1: TDBEdit
      Left = 88
      Top = 36
      Width = 129
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'studytime'
      DataSource = DataModule1.DScourse
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 88
      Top = 62
      Width = 129
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'credit'
      DataSource = DataModule1.DScourse
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 88
      Top = 88
      Width = 129
      Height = 19
      Hint = #21482#35835#30340
      DataField = 'typeNO'
      DataSource = DataModule1.DScourse
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
    end
    object GroupBox1: TGroupBox
      Left = 225
      Top = 5
      Width = 189
      Height = 107
      Align = alCustom
      Anchors = [akLeft, akTop, akRight]
      Caption = #35838#31243#31867#22411#20195#30721']'#27880#37322
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 4
      object Label5: TLabel
        Left = 9
        Top = 16
        Width = 54
        Height = 13
        Caption = '1'#65306#24517#20462#35838
      end
      object Label6: TLabel
        Left = 9
        Top = 34
        Width = 78
        Height = 13
        Caption = '2'#65306#31995#23450#36873#20462#35838
      end
      object Label7: TLabel
        Left = 9
        Top = 70
        Width = 54
        Height = 13
        Caption = '4'#65306#23454#36341#35838
      end
      object Label8: TLabel
        Left = 9
        Top = 88
        Width = 42
        Height = 13
        Caption = '5'#65306#20854#23427
      end
      object Label9: TLabel
        Left = 9
        Top = 52
        Width = 78
        Height = 13
        Caption = '3'#65306#26657#23450#36873#20462#35838
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 121
    Width = 422
    Height = 26
    Align = alTop
    AutoSize = True
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 2
      Top = 2
      Width = 418
      Height = 22
      DataSource = DataModule1.DScourse
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbDelete, nbRefresh]
      Align = alClient
      Flat = True
      Hints.Strings = (
        #31532#19968#26465#35760#24405
        #21069#19968#26465#35760#24405
        #19979#19968#26465#35760#24405
        #26368#21518#19968#26465#35760#24405
        'Insert record'
        #21024#38500#35760#24405
        'Edit record'
        'Post edit'
        'Cancel edit'
        #21047#26032#25968#25454)
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 147
    Width = 422
    Height = 187
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 418
      Height = 183
      Align = alClient
      DataSource = DataModule1.DScourse
      FixedColor = clSkyBlue
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'cname'
          Title.Caption = #35838#31243#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'studytime'
          Title.Caption = #23398#26102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'credit'
          Title.Caption = #23398#20998
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'typeNO'
          Title.Caption = #35838#31243#31867#22411#20195#30721
          Visible = True
        end>
    end
  end
end