cjiang.~dfm

这是一个抽奖小程序 这是一个抽奖小程序 这是一个抽奖小程序

object Form1: TForm1
  Left = 211
  Top = 91
  BorderStyle = bsNone
  Caption = #19996#27915#26106#21644#20013#31179#26202#20250#25277#22870#20202#24335
  ClientHeight = 445
  ClientWidth = 753
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 753
    Height = 81
    Align = alTop
    BevelInner = bvRaised
    Color = clCream
    TabOrder = 0
    object Label1: TLabel
      Left = 1
      Top = 22
      Width = 504
      Height = 36
      Caption = #28145#22323#19996#27915#26106#21644#20013#31179#26202#20250#25277#22870#20202#24335
      FocusControl = Panel1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -35
      Font.Name = #21326#25991#24425#20113
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
    object Label7: TLabel
      Left = -423
      Top = 22
      Width = 504
      Height = 36
      Caption = #28145#22323#19996#27915#26106#21644#20013#31179#26202#20250#25277#22870#20202#24335
      FocusControl = Panel1
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -35
      Font.Name = #21326#25991#24425#20113
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 753
    Height = 364
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Color = 16777192
    TabOrder = 1
    object Label3: TLabel
      Left = 143
      Top = 155
      Width = 776
      Height = 97
      Caption = #20013#31179#26202#20250#25277#22870#20202#24335
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -96
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object label4: TLabel
      Left = 264
      Top = 168
      Width = 105
      Height = 67
      Caption = '   '
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -67
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 288
      Top = 97
      Width = 48
      Height = 93
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -93
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Label6: TLabel
      Left = 264
      Top = 152
      Width = 25
      Height = 48
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -48
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 2
      Top = 328
      Width = 749
      Height = 34
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      object Label2: TLabel
        Left = 4
        Top = 9
        Width = 42
        Height = 14
        Caption = #25277#20960#20010
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Button1: TButton
        Left = 681
        Top = 7
        Width = 62
        Height = 22
        Caption = #20851#38381'(&X)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 610
        Top = 7
        Width = 62
        Height = 22
        Caption = #32467#26524'(&R)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 281
        Top = 7
        Width = 62
        Height = 22
        Caption = #25171#21360'(&P)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 192
        Top = 7
        Width = 84
        Height = 22
        Caption = #21021#22987#21270'(&I)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = Button4Click
      end
      object Edit1: TEdit
        Left = 49
        Top = 6
        Width = 41
        Height = 22
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ParentFont = False
        TabOrder = 4
        Text = '10'
        OnKeyDown = Edit1KeyDown
      end
      object UpDown1: TUpDown
        Left = 90
        Top = 6
        Width = 16
        Height = 22
        Associate = Edit1
        Max = 50
        Position = 10
        TabOrder = 5
      end
      object ComboBox1: TComboBox
        Left = 108
        Top = 7
        Width = 74
        Height = 22
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 14
        ParentFont = False
        TabOrder = 6
        Text = #19977#31561#22870
        OnChange = ComboBox1Change
        Items.Strings = (
          #19977#31561#22870
          #20108#31561#22870
          #19968#31561#22870
          #29305#31561#22870
          #24184#36816#22870
          #29305#21035#22870
          #34917#25277
          '')
      end
      object SpeedButton2: TButton
        Left = 440
        Top = 7
        Width = 60
        Height = 22
        Caption = #24320#22987
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = SpeedButton2Click
      end
      object Button5: TButton
        Left = 508
        Top = 7
        Width = 88
        Height = 22
        Caption = #28165#38500#19978#27425#25171#21360
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = Button5Click
      end
    end
    object ListBox1: TListBox
      Left = 2
      Top = 2
      Width = 749
      Height = 326
      Align = alClient
      Color = 16777204
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 33
      ParentFont = False
      TabOrder = 1
    end
    object ListBox2: TListBox
      Left = 3
      Top = 397
      Width = 183
      Height = 212
      Color = 10931700
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 14
      ParentFont = False
      TabOrder = 2
    end
    object ListBox3: TListBox
      Left = 33
      Top = 64
      Width = 121
      Height = 233
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 3
      Visible = False
    end
    object Panel4: TPanel
      Left = -196
      Top = 120
      Width = 185
      Height = 41
      Caption = 'Panel4'
      TabOrder = 4
    end
    object ListBox4: TListBox
      Left = -131
      Top = 160
      Width = 121
      Height = 97
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 5
    end
  end
  object ADOC: TADOConnection
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 72
    Top = 120
  end
  object aqWork: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 208
    Top = 120
  end
  object aqZj: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 136
    Top = 128
  end
  object aqprt: TADOQuery
    Connection = ADOC
    Parameters = <>
    SQL.Strings = (
      '                                            '
      ' ')
    Left = 424
    Top = 40
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 312
    Top = 48
  end
  object atWork: TADOTable
    Connection = ADOC
    Left = 320
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    Left = 408
    Top = 184
    object N1: TMenuItem
      Caption = #25171#21360#26412#27425#25277#22870#32467#26524
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #25171#21360#25152#26377#25277#22870#32467#26524
      OnClick = N2Click
    end
  end
end