uinit.~dfm

来自「商场活动抽奖系统,无需控件,可以正常使用.」· ~DFM 代码 · 共 570 行 · 第 1/2 页

      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #32048#26126#39636
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      NumGlyphs = 2
      ParentFont = False
      ParentBiDiMode = False
      OnClick = btn_priorClick
    end
    object btn_Next: TSpeedButton
      Left = 412
      Top = 59
      Width = 55
      Height = 30
      BiDiMode = bdLeftToRight
      Caption = #21518#19968
      Enabled = False
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #32048#26126#39636
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentBiDiMode = False
      OnClick = btn_NextClick
    end
    object btn_Last: TSpeedButton
      Left = 469
      Top = 59
      Width = 55
      Height = 30
      BiDiMode = bdLeftToRight
      Caption = #23614#39029
      Enabled = False
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #32048#26126#39636
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33443FF3333333333377447333333333334477FFF33333333377744473333333
        334437773FF3333333773444447333333344373F773FF3333377334444447333
        33443373F3773FF3337733744444447333443337F333773FF377333444444444
        734433373F3333773F7733334444444444443FFF7FFFFFFF7777999999999999
        994477777777777733773333CCCCCCCCCC4433337333333F7777333CCCCCCCCC
        33443337F3333F773377333CCCCCCC3333443337333F7733337733CCCCCC3333
        334433733F77333333773CCCCC333333334437FF7733333333773CCC33333333
        33443777333333333377CC333333333333447733333333333377}
      NumGlyphs = 2
      ParentFont = False
      ParentBiDiMode = False
      OnClick = btn_LastClick
    end
    object btnExit: TSpeedButton
      Left = 432
      Top = 107
      Width = 78
      Height = 46
      BiDiMode = bdLeftToRight
      Caption = #36864#20986
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
      NumGlyphs = 2
      ParentFont = False
      ParentBiDiMode = False
      OnClick = btnExitClick
    end
    object btnInit: TSpeedButton
      Left = 372
      Top = 379
      Width = 85
      Height = 30
      BiDiMode = bdLeftToRight
      Caption = #21021#22987#21270
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #32048#26126#39636
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
      ParentFont = False
      ParentBiDiMode = False
      OnClick = btnInitClick
    end
    object Label1: TLabel
      Left = 22
      Top = 384
      Width = 72
      Height = 16
      Caption = #24320#22987#21495#30721':'
    end
    object edt_count: TEdit
      Left = 296
      Top = 381
      Width = 65
      Height = 22
      MaxLength = 5
      TabOrder = 4
      Text = '1'
      OnKeyPress = edt_countKeyPress
    end
    object dbg: TDBGrid
      Left = 22
      Top = 168
      Width = 491
      Height = 201
      DataSource = DataSource
      FixedColor = clInfoBk
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 5
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = #32048#26126#39636
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'aw_id'
          Title.Caption = #20195#30721
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'aw_name'
          Title.Caption = #21517#31216
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'aw_count'
          Title.Caption = #25968#37327
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'aw_remark'
          Title.Caption = #22870#21697
          Width = 164
          Visible = True
        end>
    end
    object DBT_id: TDBEdit
      Left = 104
      Top = 101
      Width = 81
      Height = 22
      DataField = 'aw_id'
      DataSource = DataSource
      TabOrder = 0
    end
    object DBT_count: TDBEdit
      Left = 104
      Top = 133
      Width = 81
      Height = 22
      DataField = 'aw_count'
      DataSource = DataSource
      TabOrder = 2
    end
    object DBT_name: TDBEdit
      Left = 280
      Top = 101
      Width = 121
      Height = 22
      DataField = 'aw_name'
      DataSource = DataSource
      TabOrder = 1
    end
    object DBT_remark: TDBEdit
      Left = 280
      Top = 133
      Width = 121
      Height = 22
      DataField = 'aw_remark'
      DataSource = DataSource
      TabOrder = 3
    end
    object lb: TListBox
      Left = 472
      Top = 328
      Width = 41
      Height = 97
      ItemHeight = 16
      TabOrder = 6
    end
    object edt_Start: TEdit
      Left = 96
      Top = 381
      Width = 65
      Height = 22
      MaxLength = 5
      TabOrder = 7
      Text = '10000'
      OnKeyPress = edt_StartKeyPress
    end
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    Left = 8
    Top = 8
  end
  object DataSource: TDataSource
    DataSet = ADOQuery
    Left = 8
    Top = 32
  end
  object TimerMsg: TTimer
    Enabled = False
    Interval = 50
    OnTimer = TimerMsgTimer
    Left = 424
    Top = 160
  end
end