unit3.dfm

来自「delphi写的抽奖程序」· DFM 代码 · 共 159 行

object Form3: TForm3
  Left = 235
  Top = 168
  BorderStyle = bsNone
  Caption = #21592#24037#23548#20837
  ClientHeight = 530
  ClientWidth = 971
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 689
    Height = 530
    Align = alLeft
    BevelInner = bvLowered
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 16
      Top = 40
      Width = 649
      Height = 465
      DataSource = ds2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Nav_User'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#22995#21517
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nav_Dept'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#37096#38376
          Width = 240
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 689
    Top = 0
    Width = 282
    Height = 530
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 84
      Height = 13
      Caption = #23548#20837#25991#20214#36335#24452#65306
    end
    object Label2: TLabel
      Left = 10
      Top = 96
      Width = 112
      Height = 13
      Caption = #23548#20837#25991#20214'Sheet'#21517#31216#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 233
      Top = 62
      Width = 23
      Height = 22
      Caption = '...'
      OnClick = SpeedButton1Click
    end
    object Edit1: TEdit
      Left = 8
      Top = 64
      Width = 225
      Height = 21
      TabOrder = 0
    end
    object ComboBox1: TComboBox
      Left = 12
      Top = 118
      Width = 85
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = ComboBox1Change
      Items.Strings = (
        'Sheet1'
        'Sheet2'
        'Sheet3'
        'Sheet4'
        'Sheet5'
        #20854#20182#21517#31216)
    end
    object Edit2: TEdit
      Left = 104
      Top = 117
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 2
    end
    object BitBtn1: TBitBtn
      Left = 13
      Top = 153
      Width = 108
      Height = 25
      Caption = #32487#32493#23548#20837#21592#24037
      TabOrder = 3
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 136
      Top = 152
      Width = 113
      Height = 25
      Caption = #37325#26032#23548#20837#21592#24037
      TabOrder = 4
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 11
      Top = 448
      Width = 86
      Height = 25
      Caption = #23548#20837#23436#27605
      TabOrder = 5
      OnClick = BitBtn3Click
    end
  end
  object Open1: TOpenDialog
    DefaultExt = 'xls'
    Left = 801
    Top = 208
  end
  object ds2: TDataSource
    DataSet = dm.ADOQ4
    Left = 112
    Top = 16
  end
end