d5.~dfm

delphi编写的彩票分析程序

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 716
  Height = 517
  Caption = #25490#21015#19977#26432#21495#29579
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 708
    Height = 33
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 46
      Top = 11
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25490#21015'5'#21495#30721
    end
    object Label2: TLabel
      Left = 288
      Top = 8
      Width = 417
      Height = 17
      AutoSize = False
      Caption = #31069#24744#22909#36816'!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 448
    Width = 708
    Height = 35
    Align = alBottom
    TabOrder = 1
    object add: TSpeedButton
      Left = 8
      Top = 6
      Width = 80
      Height = 25
      Caption = #22686#21152#21495#30721
      OnClick = addClick
    end
    object del: TSpeedButton
      Left = 120
      Top = 6
      Width = 80
      Height = 25
      Caption = #21024#38500#21495#30721
      OnClick = delClick
    end
    object run: TSpeedButton
      Left = 384
      Top = 6
      Width = 80
      Height = 25
      Caption = #24320#22987#36816#34892
      OnClick = runClick
    end
    object save: TSpeedButton
      Left = 604
      Top = 6
      Width = 80
      Height = 25
      Caption = #20445#23384#32467#26524
      OnClick = saveClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 195
    Height = 415
    Align = alLeft
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Qi'
        Title.Alignment = taCenter
        Title.Caption = #26399#25968
        Width = 30
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'D1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Title.Alignment = taCenter
        Title.Caption = '1'
        Width = 25
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'D2'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Title.Alignment = taCenter
        Title.Caption = '2'
        Width = 25
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'D3'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Title.Alignment = taCenter
        Title.Caption = '3'
        Width = 25
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'D4'
        Title.Alignment = taCenter
        Title.Caption = '4'
        Width = 25
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'D5'
        Title.Alignment = taCenter
        Title.Caption = '5'
        Width = 25
        Visible = True
      end>
  end
  object PageControl1: TPageControl
    Left = 195
    Top = 33
    Width = 513
    Height = 415
    ActivePage = TabSheet1
    Align = alClient
    MultiLine = True
    TabIndex = 0
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = '   One  '
      object Memo1: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = '   Two   '
      ImageIndex = 1
      object Memo2: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = '   Three   '
      ImageIndex = 2
      object Memo3: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = '   Four   '
      ImageIndex = 3
      object Memo4: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet5: TTabSheet
      Caption = '   Five   '
      ImageIndex = 4
      object Memo5: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet6: TTabSheet
      Caption = '   Six   '
      ImageIndex = 5
      object Memo6: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet7: TTabSheet
      Caption = '   Seven   '
      ImageIndex = 6
      object Memo7: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet8: TTabSheet
      Caption = '   Eight   '
      ImageIndex = 7
      object Memo8: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet9: TTabSheet
      Caption = '   Nine   '
      ImageIndex = 8
      object Memo9: TMemo
        Tag = 1
        Left = 0
        Top = 0
        Width = 505
        Height = 387
        Align = alClient
        Color = clNavy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 184
  end
  object Table1: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'E:\D5\'
    TableName = 'number.db'
    Left = 144
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.txt|('#25991#26412#25991#20214')'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 544
    Top = 8
  end
end