yaojiangunit.dfm

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

          Left = 750
          Top = 408
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label154: TLabel
          Left = 258
          Top = 458
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label155: TLabel
          Left = 517
          Top = 458
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label156: TLabel
          Left = 750
          Top = 456
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label157: TLabel
          Left = 258
          Top = 506
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label158: TLabel
          Left = 517
          Top = 506
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label159: TLabel
          Left = 750
          Top = 505
          Width = 133
          Height = 35
          Caption = 'Label39'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -35
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Button13: TButton
          Left = 407
          Top = 553
          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 = Button13Click
        end
        object Button14: TButton
          Left = 531
          Top = 553
          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 = Button14Click
        end
        object Button15: TButton
          Left = 655
          Top = 553
          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 Edit19: TEdit
          Left = 72
          Top = 104
          Width = 41
          Height = 24
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 6
          Text = '50'#21517
        end
        object Edit20: TEdit
          Left = 64
          Top = 157
          Width = 57
          Height = 24
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 7
          Text = 'Edit1'
        end
        object Edit21: TEdit
          Left = 62
          Top = 205
          Width = 67
          Height = 24
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 8
          Text = 'Edit1'
        end
        object Edit18: TEdit
          Left = 15
          Top = 181
          Width = 153
          Height = 24
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          Text = #22235#31561#22870#26410#20013#22870#25968
        end
        object Edit17: TEdit
          Left = 16
          Top = 134
          Width = 152
          Height = 24
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 4
          Text = #22235#31561#22870#24050#20013#22870#25968
        end
        object Edit16: TEdit
          Left = 42
          Top = 74
          Width = 121
          Height = 24
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderStyle = bsNone
          Color = clScrollBar
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          Text = #22235#31561#22870#24635#25968
        end
      end
      object TabSheet6: TTabSheet
        Caption = ' '#20116#31561#22870' '
        ImageIndex = 5
        object Shape64: TShape
          Left = 172
          Top = 402
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape68: TShape
          Left = 442
          Top = 450
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape80: TShape
          Left = 712
          Top = 67
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape76: TShape
          Left = 442
          Top = 67
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape89: TShape
          Left = 712
          Top = 497
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape88: TShape
          Left = 712
          Top = 449
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape87: TShape
          Left = 712
          Top = 402
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape86: TShape
          Left = 712
          Top = 354
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape85: TShape
          Left = 712
          Top = 306
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape84: TShape
          Left = 712
          Top = 258
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape83: TShape
          Left = 712
          Top = 211
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape82: TShape
          Left = 712
          Top = 163
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape81: TShape
          Left = 712
          Top = 115
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape75: TShape
          Left = 442
          Top = 115
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape74: TShape
          Left = 442
          Top = 163
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape73: TShape
          Left = 442
          Top = 211
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape72: TShape
          Left = 442
          Top = 258
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape71: TShape
          Left = 442
          Top = 306
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape70: TShape
          Left = 442
          Top = 354
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape69: TShape
          Left = 442
          Top = 402
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape67: TShape
          Left = 442
          Top = 497
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape91: TShape
          Left = 172
          Top = 354
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape90: TShape
          Left = 172
          Top = 306
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape92: TShape
          Left = 172
          Top = 258
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape93: TShape
          Left = 172
          Top = 211
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape94: TShape
          Left = 172
          Top = 163
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape95: TShape
          Left = 172
          Top = 115
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape96: TShape
          Left = 172
          Top = 67
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape79: TShape
          Left = 712
          Top = 19
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape77: TShape
          Left = 442
          Top = 19
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Shape78: TShape
          Left = 172
          Top = 19
          Width = 271
          Height = 49
          Brush.Color = clMoneyGreen
        end
        object Label33: TLabel
          Left = 166
          Top = 361
          Width