unit5.dfm

用DELPHI做的一个歌手评分系统

object Form5: TForm5
  Left = 176
  Top = 147
  Width = 689
  Height = 496
  Caption = #35780#22996#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 288
    Top = 232
    Width = 369
    Height = 177
    Pen.Color = clTeal
    Pen.Mode = pmMask
    Shape = stRoundRect
  end
  object Label1: TLabel
    Left = 312
    Top = 248
    Width = 48
    Height = 12
    Caption = #35831#36873#25321#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 576
    Top = 352
    Width = 65
    Height = 38
    Caption = #36820#22238
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 681
    Height = 169
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 420
    Width = 681
    Height = 26
    Panels = <
      item
        Width = 250
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 184
    Width = 249
    Height = 233
    Caption = #35780#22996#20010#20154#31616#20171
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object DBText1: TDBText
      Left = 72
      Top = 24
      Width = 121
      Height = 17
      DataField = 'tname'
      DataSource = DataSource1
    end
    object DBMemo1: TDBMemo
      Left = 8
      Top = 56
      Width = 233
      Height = 169
      DataField = 'memo'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = True
      ParentFont = False
      TabOrder = 0
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 432
    Top = 184
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 3
  end
  object RadioButton1: TRadioButton
    Left = 368
    Top = 248
    Width = 113
    Height = 17
    Caption = #35780#22996#32534#21495
    TabOrder = 4
  end
  object RadioButton2: TRadioButton
    Left = 368
    Top = 304
    Width = 113
    Height = 17
    Caption = #35780#22996#22995#21517
    TabOrder = 5
  end
  object Edit1: TEdit
    Left = 504
    Top = 248
    Width = 121
    Height = 21
    TabOrder = 6
  end
  object Edit2: TEdit
    Left = 504
    Top = 304
    Width = 121
    Height = 21
    TabOrder = 7
  end
  object Button1: TButton
    Left = 312
    Top = 344
    Width = 97
    Height = 25
    Caption = #26597#35810#35780#22996#20449#24687
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 272
    Top = 184
    Width = 153
    Height = 30
    Caption = #26174#31034#25152#26377#35780#22996#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = Button3Click
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#35780#22996#20449#24687';')
    Left = 536
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 336
    Top = 16
  end
  object Timer1: TTimer
    Interval = 300
    OnTimer = Timer1Timer
    Left = 488
    Top = 120
  end
  object XPManifest1: TXPManifest
    Left = 632
    Top = 112
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 8
    object R1: TMenuItem
      Caption = #30331#24405'(&R)'
      ShortCut = 16466
      object N1: TMenuItem
        Caption = #29992#25143#30331#24405
        OnClick = N1Click
      end
      object N4: TMenuItem
        Caption = #29992#25143#20449#24687
        OnClick = N4Click
      end
      object N2: TMenuItem
        Caption = #36864#20986#30331#24405
        OnClick = N2Click
      end
    end
    object S1: TMenuItem
      Caption = #27468#25163#20449#24687'(&S)'
      ShortCut = 16467
      OnClick = S1Click
    end
    object T1: TMenuItem
      Caption = #35780#22996#20449#24687'(&T)'
      ShortCut = 16468
    end
    object O1: TMenuItem
      Caption = #35780#22996#25171#20998#21450#25104#32489#26597#35810'(&O)'
      ShortCut = 16463
      OnClick = O1Click
    end
    object H1: TMenuItem
      AutoCheck = True
      Caption = #24110#21161'(&H)'
      ShortCut = 16456
      object N3: TMenuItem
        Caption = #20851#20110
        OnClick = N3Click
      end
    end
  end
end