unit4.dfm

delphi写的抽奖程序

object Form4: TForm4
  Left = 55
  Top = 179
  Align = alClient
  AutoSize = True
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #24320#22870
  ClientHeight = 741
  ClientWidth = 1240
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 57
    Width = 1240
    Height = 264
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Panel1: TPanel
      Left = 2
      Top = 26
      Width = 1236
      Height = 223
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvSpace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -80
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label2: TLabel
        Left = 2
        Top = 2
        Width = 1232
        Height = 219
        Align = alClient
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -200
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 321
    Width = 1240
    Height = 162
    Align = alTop
    Caption = #24320#21551#22870#39033
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Panel2: TPanel
      Left = 2
      Top = 26
      Width = 1236
      Height = 129
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 218
        Top = 20
        Width = 110
        Height = 24
        AutoSize = False
        Caption = #22870#39033#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ComboBox1: TComboBox
        Left = 338
        Top = 16
        Width = 815
        Height = 32
        AutoCloseUp = True
        BevelInner = bvLowered
        BevelOuter = bvNone
        Color = clSilver
        ItemHeight = 24
        TabOrder = 0
        OnChange = ComboBox1Change
      end
      object BitBtn1: TBitBtn
        Left = 376
        Top = 56
        Width = 617
        Height = 49
        Caption = #24320'    '#22987
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -33
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn1Click
      end
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 483
    Width = 1240
    Height = 258
    Align = alClient
    Caption = #20013#22870#21592#24037
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 1236
      Height = 241
      Align = alClient
      DataSource = ds1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlue
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Nav_User'
          Title.Alignment = taCenter
          Title.Caption = #20013#22870#21592#24037#22995#21517
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nav_Dept'
          Title.Alignment = taCenter
          Title.Caption = #20013#22870#21592#24037#37096#38376
          Width = 300
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nav_ZJname'
          Title.Alignment = taCenter
          Title.Caption = #25152#20013#22870#39033
          Width = 200
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 1240
    Height = 57
    Align = alTop
    BevelInner = bvLowered
    Caption = #21271#20140#21271#26007#26143#36890#23548#33322#25216#26415#32929#20221#26377#38480#20844#21496'2008'#24180#24180#20250#25277#22870
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -36
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object mp1: TMediaPlayer
      Left = 72
      Top = 16
      Width = 253
      Height = 30
      AutoOpen = True
      FileName = 'D:\Musics\cjbj.mp3'
      Visible = False
      TabOrder = 0
      OnNotify = mp1Notify
    end
    object mp2: TMediaPlayer
      Left = 344
      Top = 16
      Width = 253
      Height = 30
      AutoOpen = True
      FileName = 'D:\Musics\qd.mp3'
      Visible = False
      TabOrder = 1
    end
    object mp3: TMediaPlayer
      Left = 616
      Top = 16
      Width = 253
      Height = 30
      AutoOpen = True
      AutoRewind = False
      FileName = 'D:\Musics\zj.mp3'
      Visible = False
      TabOrder = 2
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 30
    OnTimer = Timer1Timer
    Left = 88
    Top = 187
  end
  object ds1: TDataSource
    DataSet = dm.ADOQ7
    Left = 192
    Top = 128
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer2Timer
    Left = 16
    Top = 80
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 50
    OnTimer = Timer3Timer
    Left = 58
    Top = 131
  end
end