yaojiangunit.dfm

过年过节公司或单位都会举行抽奖的活动。 我这个程序就是用来电脑自动随机抽奖的。

object Form1: TForm1
  Left = 0
  Top = 16
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25277#22870
  ClientHeight = 721
  ClientWidth = 1024
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Shape34: TShape
    Left = 288
    Top = 119
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape35: TShape
    Left = 469
    Top = 119
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape36: TShape
    Left = 107
    Top = 119
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape37: TShape
    Left = 296
    Top = 127
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape38: TShape
    Left = 477
    Top = 127
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape39: TShape
    Left = 115
    Top = 127
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape1: TShape
    Left = 360
    Top = 119
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape7: TShape
    Left = 360
    Top = 87
    Width = 182
    Height = 33
    Brush.Color = clMoneyGreen
  end
  object Shape99: TShape
    Left = 638
    Top = 211
    Width = 271
    Height = 49
    Brush.Color = clMoneyGreen
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1024
    Height = 81
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 60
      Top = 22
      Width = 884
      Height = 48
      Caption = '2007'#24180#26149#33410#24247#28304#30005#23376#21378#26377#38480#20844#21496#25277#22870#31243#24207
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -48
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 56
      Top = 22
      Width = 884
      Height = 48
      Caption = '2007'#24180#26149#33410#24247#28304#30005#23376#21378#26377#38480#20844#21496#25277#22870#31243#24207
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -48
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 1024
    Height = 640
    Align = alClient
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 1022
      Height = 638
      ActivePage = TabSheet9
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabIndex = 9
      TabOrder = 0
      OnChange = PageControl1Change
      OnChanging = PageControl1Changing
      object TabSheet1: TTabSheet
        Caption = ' '#29305#31561#22870' '
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        object Shape130: TShape
          Left = 12
          Top = 100
          Width = 213
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape131: TShape
          Left = 12
          Top = 21
          Width = 213
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape3: TShape
          Left = 605
          Top = 21
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape2: TShape
          Left = 224
          Top = 21
          Width = 382
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Label3: TLabel
          Left = 31
          Top = 38
          Width = 172
          Height = 56
          Caption = #24037'  '#21495
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label4: TLabel
          Left = 336
          Top = 35
          Width = 172
          Height = 56
          Caption = #22995'  '#21517
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label5: TLabel
          Left = 728
          Top = 38
          Width = 172
          Height = 56
          Caption = #22870'  '#21697
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Shape8: TShape
          Left = 224
          Top = 100
          Width = 382
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape9: TShape
          Left = 605
          Top = 100
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Label6: TLabel
          Left = 29
          Top = 110
          Width = 180
          Height = 56
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label7: TLabel
          Left = 243
          Top = 110
          Width = 334
          Height = 56
          Alignment = taCenter
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label8: TLabel
          Left = 624
          Top = 110
          Width = 29
          Height = 56
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label32: TLabel
          Left = 244
          Top = 286
          Width = 371
          Height = 56
          Caption = #29305#31561#22870#24635#25968#37327':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label35: TLabel
          Left = 244
          Top = 358
          Width = 371
          Height = 56
          Caption = #29305#31561#22870#24050#20013#25968':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label27: TLabel
          Left = 187
          Top = 424
          Width = 428
          Height = 56
          Caption = #29305#31561#22870#26410#20013#22870#25968':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label22: TLabel
          Left = 632
          Top = 286
          Width = 86
          Height = 56
          Caption = '1'#21517
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label69: TLabel
          Left = 637
          Top = 357
          Width = 86
          Height = 56
          Caption = '0'#21517
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label70: TLabel
          Left = 643
          Top = 429
          Width = 86
          Height = 56
          Caption = '1'#21517
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Button1: TButton
          Left = 280
          Top = 192
          Width = 105
          Height = 41
          Caption = #24320#22987
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 407
          Top = 192
          Width = 105
          Height = 41
          Caption = #20572#27490
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 534
          Top = 192
          Width = 105
          Height = 41
          Caption = #36864#20986
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          OnClick = Button3Click
        end
        object Button31: TButton
          Left = 662
          Top = 192
          Width = 105
          Height = 41
          Caption = #20316#24223
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnClick = Button31Click
        end
      end
      object TabSheet2: TTabSheet
        Caption = ' '#19968#31561#22870' '
        ImageIndex = 1
        object Shape12: TShape
          Left = 605
          Top = 100
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape11: TShape
          Left = 605
          Top = 21
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape10: TShape
          Left = 231
          Top = 100
          Width = 375
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape6: TShape
          Left = 231
          Top = 21
          Width = 375
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape5: TShape
          Left = 12
          Top = 100
          Width = 220
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape4: TShape
          Left = 12
          Top = 21
          Width = 220
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Label9: TLabel
          Left = 24
          Top = 32
          Width = 172
          Height = 56