formreward.dfm

Delphi数据库编程

object frmReward: TfrmReward
  Left = 376
  Top = 103
  Width = 540
  Height = 450
  Caption = #22870#21169#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 240
    Top = 8
    Width = 38
    Height = 13
    AutoSize = False
    Caption = #23398#21495
  end
  object Label5: TLabel
    Left = 240
    Top = 64
    Width = 70
    Height = 13
    AutoSize = False
    Caption = #35760#24405#26085#26399
  end
  object dbgReward: TDBGrid
    Left = 8
    Top = 8
    Width = 225
    Height = 409
    DataSource = dsReward
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'StudentID'
        Title.Alignment = taCenter
        Title.Caption = #23398#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Reward'
        Title.Alignment = taCenter
        Title.Caption = #22870#21169
        Width = 94
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RecDate'
        Title.Caption = #35760#24405#26085#26399
        Visible = True
      end>
  end
  object btnQuit: TButton
    Left = 240
    Top = 120
    Width = 81
    Height = 25
    Caption = #36864#20986'(&Q)'
    TabOrder = 3
    OnClick = btnQuitClick
  end
  object dbeStudentID: TDBEdit
    Left = 240
    Top = 24
    Width = 81
    Height = 21
    DataField = 'StudentID'
    DataSource = dsReward
    TabOrder = 0
  end
  object dbnReward: TDBNavigator
    Left = 240
    Top = 160
    Width = 290
    Height = 25
    DataSource = dsReward
    ParentShowHint = False
    ConfirmDelete = False
    ShowHint = True
    TabOrder = 2
    OnClick = dbnRewardClick
  end
  object dbeRecDate: TDBEdit
    Left = 240
    Top = 80
    Width = 81
    Height = 21
    DataField = 'RecDate'
    DataSource = dsReward
    TabOrder = 1
  end
  object dbrgReward: TDBRadioGroup
    Left = 240
    Top = 192
    Width = 289
    Height = 73
    Caption = #22870#21169#24773#20917
    Columns = 3
    DataField = 'Reward'
    DataSource = dsReward
    Items.Strings = (
      #20248#31168#23398#29983#24178#37096
      #20248#31168#22242#24178#37096
      #20248#31168#22242#21592
      #29305#31561#22870#23398#37329
      #19968#31561#22870#23398#37329
      #20108#31561#22870#23398#37329
      #19977#31561#22870#23398#37329)
    TabOrder = 4
  end
  object dbmDesc: TDBMemo
    Left = 240
    Top = 272
    Width = 289
    Height = 145
    DataField = 'Description'
    DataSource = dsReward
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 328
    Top = 8
    Width = 201
    Height = 145
    Caption = #23398#29983#22522#26412#20449#24687
    TabOrder = 7
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #24615#21035
    end
    object Label4: TLabel
      Left = 8
      Top = 72
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #20986#29983#26085#26399
    end
    object Label6: TLabel
      Left = 8
      Top = 96
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #25152#22312#29677#32423
    end
    object Label7: TLabel
      Left = 8
      Top = 120
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #29677#20027#20219
    end
    object dbtName: TDBText
      Left = 72
      Top = 24
      Width = 121
      Height = 17
      Color = clCream
      DataField = 'Name'
      DataSource = dsStudent
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtSex: TDBText
      Left = 72
      Top = 48
      Width = 121
      Height = 17
      Color = clCream
      DataField = 'Sex'
      DataSource = dsStudent
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtBirthday: TDBText
      Left = 72
      Top = 72
      Width = 121
      Height = 17
      Color = clCream
      DataField = 'Birthday'
      DataSource = dsStudent
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtClass: TDBText
      Left = 72
      Top = 96
      Width = 121
      Height = 17
      Color = clCream
      DataField = 'ClassName'
      DataSource = dsClass
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object dbtMaster: TDBText
      Left = 72
      Top = 120
      Width = 121
      Height = 17
      Color = clCream
      DataField = 'Master'
      DataSource = dsClass
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
  end
  object dsReward: TDataSource
    DataSet = tblReward
    Left = 16
    Top = 280
  end
  object tblReward: TTable
    BeforePost = tblRewardBeforePost
    BeforeDelete = tblRewardBeforeDelete
    AfterScroll = tblRewardAfterScroll
    AutoRefresh = True
    DatabaseName = 'StudentDB'
    TableName = 'Reward'
    Left = 16
    Top = 248
  end
  object tblStudent: TTable
    AutoRefresh = True
    DatabaseName = 'StudentDB'
    IndexFieldNames = 'StudentID'
    MasterFields = 'StudentID'
    MasterSource = dsReward
    TableName = 'Student'
    Left = 88
    Top = 248
  end
  object dsStudent: TDataSource
    DataSet = tblStudent
    Left = 88
    Top = 280
  end
  object tblClass: TTable
    AutoRefresh = True
    DatabaseName = 'StudentDB'
    IndexFieldNames = 'ClassID'
    MasterFields = 'ClassID'
    MasterSource = dsStudent
    TableName = 'Class'
    Left = 160
    Top = 248
  end
  object dsClass: TDataSource
    DataSet = tblClass
    Left = 160
    Top = 280
  end
end