main.dfm

《参透Delphi Kylix》通过131个事例

object FormMain: TFormMain
  Left = 78
  Top = 102
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'China Sports Lottery Analysis System'
  ClientHeight = 565
  ClientWidth = 907
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 907
    Height = 546
    ActivePage = TabSheetStakes
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HotTrack = True
    Images = ImageList
    ParentFont = False
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 0
    object TabSheetStakes: TTabSheet
      Caption = 'Stakes'
      ImageIndex = 3
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 862
        Height = 50
        Caption = 'China Sports Lottery Analysis System'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -43
        Font.Name = 'Bookman Old Style'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 899
        Height = 2
        Align = alTop
      end
      object Bevel2: TBevel
        Left = 0
        Top = 72
        Width = 899
        Height = 2
      end
      object Label2: TLabel
        Left = 20
        Top = 152
        Width = 59
        Height = 32
        Caption = '&Date'
        FocusControl = EditDate
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 24
        Top = 96
        Width = 28
        Height = 32
        Caption = '&ID'
        FocusControl = EditID
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 20
        Top = 208
        Width = 72
        Height = 32
        Caption = '&Stake'
        FocusControl = EditStake
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EditID: TEdit
        Left = 100
        Top = 94
        Width = 149
        Height = 40
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        Text = 'EditID'
      end
      object EditStake: TEdit
        Left = 100
        Top = 206
        Width = 457
        Height = 40
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        Text = 'Edit1'
      end
      object EditDate: TEdit
        Left = 100
        Top = 150
        Width = 149
        Height = 40
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        Text = 'EditID'
      end
      object ButtonAppend: TButton
        Left = 816
        Top = 88
        Width = 75
        Height = 25
        Caption = '&Append'
        TabOrder = 8
        OnClick = ButtonAppendClick
      end
      object ButtonModify: TButton
        Left = 816
        Top = 152
        Width = 75
        Height = 25
        Caption = '&Modify'
        TabOrder = 10
        OnClick = ButtonModifyClick
      end
      object ButtonDelete: TButton
        Left = 816
        Top = 184
        Width = 75
        Height = 25
        Caption = 'D&elete'
        TabOrder = 11
        OnClick = ButtonDeleteClick
      end
      object ButtonFirst: TButton
        Left = 728
        Top = 88
        Width = 75
        Height = 25
        Caption = '&First'
        TabOrder = 3
        OnClick = ButtonFirstClick
      end
      object ButtonLast: TButton
        Left = 728
        Top = 120
        Width = 75
        Height = 25
        Caption = '&Last'
        TabOrder = 4
        OnClick = ButtonLastClick
      end
      object ButtonPrev: TButton
        Left = 728
        Top = 152
        Width = 75
        Height = 25
        Caption = '&Prev'
        TabOrder = 5
        OnClick = ButtonPrevClick
      end
      object ButtonNext: TButton
        Left = 728
        Top = 184
        Width = 75
        Height = 25
        Caption = '&Next'
        TabOrder = 6
        OnClick = ButtonNextClick
      end
      object ButtonClear: TButton
        Left = 728
        Top = 216
        Width = 75
        Height = 25
        Caption = '&Clear'
        TabOrder = 7
        OnClick = ButtonClearClick
      end
      object ButtonInsert: TButton
        Left = 816
        Top = 120
        Width = 75
        Height = 25
        Caption = 'Inser&t'
        TabOrder = 9
        OnClick = ButtonInsertClick
      end
    end
    object TabSheetFrequency: TTabSheet
      Caption = 'Frequency'
      ImageIndex = 4
      object PaintBox: TPaintBox
        Left = 0
        Top = 0
        Width = 899
        Height = 514
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnPaint = PaintBoxPaint
      end
    end
    object TabSheetDistribution: TTabSheet
      Caption = 'Distribution'
      ImageIndex = 5
      object DrawGrid: TDrawGrid
        Left = 0