yaojiangunit.dfm

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

          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 Label10: TLabel
          Left = 312
          Top = 37
          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 Label11: TLabel
          Left = 720
          Top = 32
          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 Label163: TLabel
          Left = 18
          Top = 113
          Width = 203
          Height = 56
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label164: TLabel
          Left = 240
          Top = 113
          Width = 361
          Height = 56
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label165: TLabel
          Left = 637
          Top = 113
          Width = 203
          Height = 56
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label25: TLabel
          Left = 253
          Top = 281
          Width = 314
          Height = 56
          Caption = #19968#31561#22870#24635#25968':'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label74: TLabel
          Left = 139
          Top = 348
          Width = 428
          Height = 56
          Caption = #19968#31561#22870#24050#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 Label76: TLabel
          Left = 139
          Top = 416
          Width = 428
          Height = 56
          Caption = #19968#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 Button4: TButton
          Left = 296
          Top = 192
          Width = 105
          Height = 41
          Caption = #24320#22987
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 416
          Top = 192
          Width = 105
          Height = 41
          Caption = #20572#27490
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 536
          Top = 192
          Width = 105
          Height = 41
          Caption = #36864#20986
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          OnClick = Button3Click
        end
        object Edit1: TEdit
          Left = 565
          Top = 279
          Width = 158
          Height = 63
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          Text = '4'#21517
        end
        object Edit2: TEdit
          Left = 573
          Top = 351
          Width = 158
          Height = 63
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 4
          Text = 'Edit1'
        end
        object Edit3: TEdit
          Left = 573
          Top = 419
          Width = 158
          Height = 63
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          Text = 'Edit1'
        end
        object Button32: 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 = 6
          OnClick = Button32Click
        end
      end
      object TabSheet3: TTabSheet
        Caption = ' '#20108#31561#22870' '
        ImageIndex = 2
        object Shape18: TShape
          Left = 605
          Top = 100
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape17: TShape
          Left = 605
          Top = 21
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape16: TShape
          Left = 235
          Top = 100
          Width = 371
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape15: TShape
          Left = 235
          Top = 21
          Width = 371
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape14: TShape
          Left = 12
          Top = 100
          Width = 224
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape13: TShape
          Left = 12
          Top = 21
          Width = 224
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Label12: TLabel
          Left = 35
          Top = 32
          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 Label13: TLabel
          Left = 328
          Top = 29
          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 Label14: TLabel
          Left = 720
          Top = 32
          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 Label166: TLabel
          Left = 21
          Top = 113
          Width = 203
          Height = 56
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label167: TLabel
          Left = 240
          Top = 113
          Width = 361
          Height = 56
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label168: TLabel
          Left = 644
          Top = 112
          Width = 203
          Height = 56
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Button7: TButton
          Left = 280
          Top = 192
          Width = 105
          Height = 41
          Caption = #24320#22987
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnClick = Button7Click
        end
        object Button8: TButton
          Left = 400
          Top = 192
          Width = 105
          Height = 41
          Caption = #20572#27490
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = Button8Click
        end
        object Button9: TButton
          Left = 520
          Top = 192
          Width = 105
          Height = 41
          Caption = #36864#20986
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          OnClick = Button3Click
        end
        object Edit4: TEdit
          Left = 99
          Top = 435
          Width = 420
          Height = 69
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          Text = #20108#31561#22870#26410#20013#22870#25968':'
        end
        object Edit5: TEdit
          Left = 100
          Top = 359
          Width = 419
          Height = 69
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 4
          Text = #20108#31561#22870#24050#20013#22870#25968':'
        end
        object Edit6: TEdit
          Left = 214
          Top = 289
          Width = 305
          Height = 69
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          Text = #20108#31561#22870#24635#25968':'
        end
        object Edit7: TEdit
          Left = 532
          Top = 439
          Width = 248
          Height = 69
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -56
          Font.Name = #23435#20307