unit6.dfm

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

      end
      object Label16: TLabel
        Left = 40
        Top = 104
        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 Label17: TLabel
        Left = 40
        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 Label18: TLabel
        Left = 40
        Top = 184
        Width = 48
        Height = 12
        Caption = #21442#36187#26354#30446
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 288
        Top = 96
        Width = 48
        Height = 12
        Caption = #20010#20154#31616#20171
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Shape2: TShape
        Left = 360
        Top = 80
        Width = 241
        Height = 137
        Pen.Color = clTeal
        Pen.Mode = pmMask
      end
      object SpeedButton6: TSpeedButton
        Left = 544
        Top = 400
        Width = 70
        Height = 35
        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 = SpeedButton6Click
      end
      object Edit10: TEdit
        Left = 120
        Top = 16
        Width = 121
        Height = 22
        TabOrder = 0
      end
      object Button2: TButton
        Left = 280
        Top = 16
        Width = 75
        Height = 25
        Caption = #30830#23450
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = Button2Click
      end
      object Edit11: TEdit
        Left = 104
        Top = 96
        Width = 121
        Height = 22
        TabOrder = 2
      end
      object Edit12: TEdit
        Left = 104
        Top = 136
        Width = 121
        Height = 22
        TabOrder = 3
      end
      object Edit13: TEdit
        Left = 104
        Top = 176
        Width = 121
        Height = 22
        TabOrder = 4
      end
      object DBMemo1: TDBMemo
        Left = 384
        Top = 88
        Width = 201
        Height = 121
        Cursor = crDrag
        BevelInner = bvNone
        BevelOuter = bvNone
        BorderStyle = bsNone
        DataField = 'memo'
        DataSource = DataSource3
        ParentColor = True
        TabOrder = 5
        Visible = False
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 232
        Width = 609
        Height = 161
        DataSource = DataSource2
        TabOrder = 6
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Button4: TButton
        Left = 8
        Top = 400
        Width = 249
        Height = 33
        Caption = #26174#31034#27468#25163#25490#21517#24773#20917
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = Button4Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 300
    OnTimer = Timer1Timer
    Left = 372
    Top = 420
  end
  object XPManifest1: TXPManifest
    Left = 548
    Top = 12
  end
  object ADOQuery4: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#20449#24687';')
    Left = 300
    Top = 140
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery4
    Left = 308
    Top = 180
  end
  object ADOQuery5: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sno'
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'tno'
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'grade'
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      'select * from '#27468#25163#25104#32489';')
    Left = 112
    Top = 164
  end
  object ADOQuery6: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#25104#32489';')
    Left = 524
    Top = 36
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#25104#32489';')
    Left = 52
    Top = 76
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 20
    Top = 76
  end
  object ActionList1: TActionList
    Left = 420
    Top = 76
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = 'DataSetFirst1'
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = 'DataSetPrior1'
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = 'DataSetNext1'
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = 'DataSetLast1'
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = 'DataSetInsert1'
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = 'DataSetDelete1'
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = 'DataSetRefresh1'
    end
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select '#27468#25163#20449#24687'.sno as '#27468#25163#21495',sname as '#27468#25163#21517',song as '#21442#36187#26354#30446',grade as '#26368#21518#24471#20998' f' +
        'rom '#27468#25163#20449#24687','#27468#25163#26368#21518#25104#32489' where '#27468#25163#20449#24687'.sno='#27468#25163#26368#21518#25104#32489'.sno order by grade desc;')
    Left = 156
    Top = 332
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 116
    Top = 332
  end
  object ADOQuery7: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#20449#24687';')
    Left = 84
    Top = 44
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#25104#32489';')
    Left = 508
    Top = 140
  end
  object ADOQuery8: TADOQuery
    Active = True
    Connection = Form1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#25163#26368#21518#25104#32489';')
    Left = 532
    Top = 140
  end
  object MainMenu1: TMainMenu
    Left = 256
    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
      OnClick = S1Click
    end
    object T1: TMenuItem
      Caption = #35780#22996#20449#24687'(&T)'
      ShortCut = 16468
      OnClick = T1Click
    end
    object R1: TMenuItem
      Caption = #35780#22996#35780#20998#21450#25104#32489#26597#35810'(&O)'
      ShortCut = 16463
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      ShortCut = 16456
      object N4: TMenuItem
        Caption = #20851#20110
        OnClick = N4Click
      end
    end
  end
end