formquery.dfm

Delphi数据库编程

object frmQuery: TfrmQuery
  Left = 328
  Top = 151
  Width = 540
  Height = 450
  Caption = #23398#29983#20449#24687#26597#35810
  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 = 8
    Top = 8
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #35831#36755#20837#23398#21495#65306
  end
  object grpStudentInfo: TGroupBox
    Left = 120
    Top = 8
    Width = 401
    Height = 97
    Caption = #23398#29983#22522#26412#20449#24687
    TabOrder = 2
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #22995#21517
    end
    object dbtName: TDBText
      Left = 72
      Top = 24
      Width = 81
      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 Label3: TLabel
      Left = 8
      Top = 48
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #24615#21035
    end
    object dbtSex: TDBText
      Left = 72
      Top = 48
      Width = 81
      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 Label4: TLabel
      Left = 8
      Top = 72
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #20986#29983#26085#26399
    end
    object dbtBirthday: TDBText
      Left = 72
      Top = 72
      Width = 81
      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 = 224
      Top = 24
      Width = 161
      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 Label6: TLabel
      Left = 160
      Top = 24
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #25152#22312#29677#32423
    end
    object Label7: TLabel
      Left = 160
      Top = 44
      Width = 56
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #29677#20027#20219
    end
    object dbtMaster: TDBText
      Left = 224
      Top = 48
      Width = 161
      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 btnQuit: TButton
    Left = 24
    Top = 56
    Width = 75
    Height = 25
    Caption = #36864#20986'(&Q)'
    TabOrder = 1
    OnClick = btnQuitClick
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 112
    Width = 521
    Height = 305
    ActivePage = TabSheet3
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = #23398#31821#21464#26356
      object dbgChange: TDBGrid
        Left = 0
        Top = 0
        Width = 240
        Height = 277
        Align = alLeft
        DataSource = dsChange
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Change'
            Title.Alignment = taCenter
            Title.Caption = #21464#26356
            Width = 126
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RecDate'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#26085#26399
            Width = 75
            Visible = True
          end>
      end
      object dbmChange: TDBMemo
        Left = 240
        Top = 0
        Width = 273
        Height = 277
        Align = alClient
        DataField = 'Description'
        DataSource = dsChange
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21463#22870#21169#24773#20917
      ImageIndex = 1
      object dbgReward: TDBGrid
        Left = 0
        Top = 0
        Width = 240
        Height = 277
        Align = alLeft
        DataSource = dsReward
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Reward'
            Title.Alignment = taCenter
            Title.Caption = #22870#21169
            Width = 111
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RecDate'
            Title.Caption = #35760#24405#26085#26399
            Width = 91
            Visible = True
          end>
      end
      object dbmReward: TDBMemo
        Left = 240
        Top = 0
        Width = 273
        Height = 277
        Align = alClient
        DataField = 'Description'
        DataSource = dsReward
        TabOrder = 1
      end
    end
    object TabSheet3: TTabSheet
      Caption = #21463#22788#32602#24773#20917
      ImageIndex = 2
      object dbgPunish: TDBGrid
        Left = 0
        Top = 0
        Width = 240
        Height = 277
        Align = alLeft
        DataSource = dsPunish
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'Punish'
            Title.Alignment = taCenter
            Title.Caption = #22788#32602
            Width = 94
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RecDate'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#26085#26399
            Width = 85
            Visible = True
          end>
      end
      object dbmPunish: TDBMemo
        Left = 240
        Top = 0
        Width = 273
        Height = 277
        Align = alClient
        DataField = 'Description'
        DataSource = dsPunish
        TabOrder = 1
      end
    end
  end
  object edtStudentID: TEdit
    Left = 8
    Top = 24
    Width = 105
    Height = 21
    MaxLength = 8
    TabOrder = 0
    OnChange = edtStudentIDChange
  end
  object tblStudent: TTable
    DatabaseName = 'StudentDB'
    TableName = 'Student'
    Left = 48
    Top = 176
  end
  object dsStudent: TDataSource
    DataSet = tblStudent
    Left = 48
    Top = 208
  end
  object tblChange: TTable
    DatabaseName = 'StudentDB'
    IndexFieldNames = 'StudentID'
    MasterFields = 'StudentID'
    MasterSource = dsStudent
    TableName = 'Change'
    Left = 48
    Top = 256
  end
  object dsChange: TDataSource
    DataSet = tblChange
    Left = 48
    Top = 288
  end
  object tblReward: TTable
    DatabaseName = 'StudentDB'
    IndexFieldNames = 'StudentID'
    MasterFields = 'StudentID'
    MasterSource = dsStudent
    TableName = 'Reward'
    Left = 48
    Top = 328
  end
  object dsReward: TDataSource
    DataSet = tblReward
    Left = 48
    Top = 360
  end
  object tblPunish: TTable
    DatabaseName = 'StudentDB'
    IndexFieldNames = 'StudentID'
    MasterFields = 'StudentID'
    MasterSource = dsStudent
    TableName = 'Punish'
    Left = 448
    Top = 320
  end
  object dsPunish: TDataSource
    DataSet = tblPunish
    Left = 448
    Top = 352
  end
  object tblClass: TTable
    AutoRefresh = True
    DatabaseName = 'StudentDB'
    IndexFieldNames = 'ClassID'
    MasterFields = 'ClassID'
    MasterSource = dsStudent
    TableName = 'Class'
    Left = 448
    Top = 240
  end
  object dsClass: TDataSource
    DataSet = tblClass
    Left = 448
    Top = 272
  end
end