demo9.dfm

《Delphi百例》源码?禗elphi百例》源码

object Form1: TForm1
  Left = 260
  Top = 132
  Width = 503
  Height = 400
  Caption = #21033#29992#24377#20986#33756#21333#21046#20316#19979#25289#21015#34920#65292#24555#36895#36755#20837#25968#25454
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 168
    Width = 465
    Height = 160
    DataSource = DataSource1
    PopupMenu = PopupMenu1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyDown = DBGrid1KeyDown
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 32
    object N1: TMenuItem
      Caption = #20449#24687#24037#31243#23398#38498
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #28023#27915#29615#22659#23398#38498
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #28023#27915#29983#21629#23398#38498
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #21270#23398#21270#24037#23398#38498
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #27700#20135#23398#38498
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #28023#27915#22320#29699#31185#23398#23398#38498
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #32463#36152#23398#38498
      OnClick = N7Click
    end
    object N8: TMenuItem
      Caption = #24037#31243#23398#38498
      OnClick = N8Click
    end
  end
  object Table1: TTable
    DatabaseName = 'picture'
    TableName = 'student.db'
    Left = 296
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 352
    Top = 40
  end
  object PopupMenu2: TPopupMenu
    Left = 168
    Top = 32
    object N9: TMenuItem
      Caption = #30007
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = #22899
      OnClick = N10Click
    end
  end
end