yaojiangunit.dfm

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

          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 6
          Text = 'Edit1'
        end
        object Edit8: TEdit
          Left = 526
          Top = 359
          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
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 7
          Text = 'Edit1'
        end
        object Edit9: TEdit
          Left = 526
          Top = 287
          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
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 8
          Text = '15'#21517
        end
        object Button33: TButton
          Left = 647
          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 = 9
          OnClick = Button33Click
        end
      end
      object TabSheet4: TTabSheet
        Caption = ' '#19977#31561#22870' '
        ImageIndex = 3
        object Shape24: TShape
          Left = 605
          Top = 100
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape23: TShape
          Left = 605
          Top = 21
          Width = 399
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape22: TShape
          Left = 224
          Top = 100
          Width = 382
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape21: TShape
          Left = 224
          Top = 21
          Width = 382
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape20: TShape
          Left = 12
          Top = 100
          Width = 213
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Shape19: TShape
          Left = 12
          Top = 21
          Width = 213
          Height = 80
          Brush.Color = clMoneyGreen
        end
        object Label15: TLabel
          Left = 27
          Top = 39
          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 Label16: TLabel
          Left = 324
          Top = 39
          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 Label17: TLabel
          Left = 739
          Top = 39
          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 Label160: TLabel
          Left = 16
          Top = 118
          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 Label161: TLabel
          Left = 232
          Top = 117
          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 Label162: TLabel
          Left = 645
          Top = 117
          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 Button10: 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 = Button10Click
        end
        object Button11: TButton
          Left = 408
          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 = Button11Click
        end
        object Button12: 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 Edit10: TEdit
          Left = 243
          Top = 287
          Width = 308
          Height = 68
          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 = #19977#31561#22870#24635#25968':'
        end
        object Edit11: TEdit
          Left = 128
          Top = 357
          Width = 422
          Height = 68
          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 = #19977#31561#22870#24050#20013#22870#25968':'
        end
        object Edit12: TEdit
          Left = 128
          Top = 437
          Width = 422
          Height = 68
          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 = #19977#31561#22870#26410#20013#22870#25968':'
        end
        object Edit13: TEdit
          Left = 571
          Top = 439
          Width = 261
          Height = 68
          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 = 6
          Text = 'Edit1'
        end
        object Edit14: TEdit
          Left = 571
          Top = 359
          Width = 261
          Height = 68
          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 = 7
          Text = 'Edit1'
        end
        object Edit15: TEdit
          Left = 571
          Top = 287
          Width = 261
          Height = 68
          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 = 8
          Text = '20'#21517
        end
        object Button34: TButton
          Left = 663
          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 = 9
          OnClick = Button34Click
        end
      end
      object TabSheet5: TTabSheet
        Caption = ' '#22235#31561#22870' '
        ImageIndex = 4
        object Shape25: TShape
          Left = 175
          Top = 19
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape26: TShape
          Left = 445
          Top = 19
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape27: TShape
          Left = 715
          Top = 19
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape28: TShape
          Left = 175
          Top = 67
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape29: TShape
          Left = 445
          Top = 67
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape30: TShape
          Left = 715
          Top = 67
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape31: TShape
          Left = 175
          Top = 115
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape32: TShape
          Left = 445
          Top = 115
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape33: TShape
          Left = 715
          Top = 115
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape40: TShape
          Left = 175
          Top = 163
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape41: TShape
          Left = 445
          Top = 163
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape42: TShape
          Left = 715
          Top = 163
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape43: TShape
          Left = 175
          Top = 211
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape44: TShape
          Left = 445
          Top = 211
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape45: TShape
          Left = 715
          Top = 211
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape46: TShape
          Left = 175
          Top = 258
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape47: TShape
          Left = 445
          Top = 258
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end