unit4.dfm

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

object Form4: TForm4
  Left = 211
  Top = 91
  Width = 673
  Height = 532
  Caption = #27468#25163#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 Panel1: TPanel
    Left = 0
    Top = 176
    Width = 424
    Height = 273
    TabOrder = 0
    object Shape1: TShape
      Left = 232
      Top = 40
      Width = 185
      Height = 201
      Pen.Color = clTeal
      Pen.Mode = pmMask
    end
    object DBText1: TDBText
      Left = 280
      Top = 48
      Width = 113
      Height = 25
      DataField = 'sname'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 36
      Height = 12
      Caption = #27468#25163#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 64
      Width = 24
      Height = 12
      Caption = #22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 104
      Width = 24
      Height = 12
      Caption = #24615#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 144
      Width = 24
      Height = 12
      Caption = #24180#40836
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 24
      Top = 184
      Width = 24
      Height = 12
      Caption = #26354#30446
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 232
      Top = 16
      Width = 84
      Height = 14
      Caption = #27468#25163#20010#20154#31616#20171
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      DataField = 'sno'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 80
      Top = 56
      Width = 121
      Height = 21
      DataField = 'sname'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 80
      Top = 96
      Width = 121
      Height = 21
      DataField = 'ssex'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 80
      Top = 136
      Width = 121
      Height = 21
      DataField = 'sage'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBMemo1: TDBMemo
      Left = 240
      Top = 80
      Width = 169
      Height = 153
      BevelInner = bvLowered
      BevelOuter = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'memo'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      TabOrder = 4
    end
    object DBNavigator1: TDBNavigator
      Left = 0
      Top = 224
      Width = 230
      Height = 25
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBEdit5: TDBEdit
      Left = 80
      Top = 176
      Width = 121
      Height = 21
      DataField = 'song'
      DataSource = DataSource1
      TabOrder = 6
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 665
    Height = 177
    Align = alTop
    Caption = 'Panel3'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 663
      Height = 175
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 448
    Width = 665
    Height = 33
    Align = alNone
    Panels = <
      item
        Width = 250
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object Panel2: TPanel
    Left = 424
    Top = 176
    Width = 241
    Height = 273
    TabOrder = 3
    object GroupBox1: TGroupBox
      Left = 1
      Top = 48
      Width = 240
      Height = 225
      Caption = #27468#25163#20449#24687#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label5: TLabel
        Left = 8
        Top = 24
        Width = 96
        Height = 12
        Caption = #35831#36873#25321#26597#35810#26465#20214#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 8
        Top = 152
        Width = 72
        Height = 12
        Caption = #35831#36873#25321#26354#30446#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 144
        Top = 176
        Width = 65
        Height = 38
        Caption = #36820#22238
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object ComboBox1: TComboBox
        Left = 8
        Top = 48
        Width = 137
        Height = 22
        ItemHeight = 14
        TabOrder = 0
        Items.Strings = (
          'sno'
          'sname'
          'ssex'
          'sage')
      end
      object Edit1: TEdit
        Left = 8
        Top = 80
        Width = 121
        Height = 22
        TabOrder = 1
      end
      object Edit2: TEdit
        Left = 88
        Top = 144
        Width = 121
        Height = 22
        TabOrder = 2
      end
      object BitBtn2: TBitBtn
        Left = 8
        Top = 112
        Width = 75
        Height = 25
        TabOrder = 3
        OnClick = BitBtn2Click
        Kind = bkOK
      end
      object BitBtn3: TBitBtn
        Left = 8
        Top = 184
        Width = 75
        Height = 25
        TabOrder = 4
        OnClick = BitBtn3Click
        Kind = bkOK
      end
    end
    object Button2: TButton
      Left = 24
      Top = 8
      Width = 193
      Height = 33
      Caption = #26174#31034#25152#26377#27468#25163#20449#24687
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#20449#24687';')
    Left = 536
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 440
    Top = 80
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 88
    Top = 432
  end
  object XPManifest1: TXPManifest
    Left = 633
    Top = 169
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 24
    object N1: TMenuItem
      Caption = #30331#24405'(&R)'
      ShortCut = 16466
      object N2: TMenuItem
        Caption = #29992#25143#30331#24405
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = #29992#25143#20449#24687
        OnClick = N5Click
      end
      object N3: TMenuItem
        Caption = #36864#20986#30331#24405
        OnClick = N3Click
      end
    end
    object S1: TMenuItem
      Caption = #27468#25163#20449#24687'(&S)'
      ShortCut = 16467
    end
    object T1: TMenuItem
      Caption = #35780#22996#20449#24687'(&T)'
      ShortCut = 16468
      OnClick = T1Click
    end
    object O1: TMenuItem
      Caption = #35780#22996#25171#20998#21450#25104#32489#26597#35810'(&O)'
      OnClick = O1Click
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object N4: TMenuItem
        Caption = #20851#20110
        OnClick = N4Click
      end
    end
  end
end