mainunit.dfm

一个非常实用的号码魔方工具

object frmMain: TfrmMain
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21019#24494#21495#30721#39764#26041
  ClientHeight = 481
  ClientWidth = 744
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 6
    Top = 8
    Width = 730
    Height = 209
    Caption = #28304#22987#21495#30721
    TabOrder = 0
    object bitFileCleanUp: TBitBtn
      Left = 84
      Top = 16
      Width = 75
      Height = 25
      Caption = #25991#20214#25972#29702
      TabOrder = 0
      OnClick = bitFileCleanUpClick
    end
    object bitLoadFile: TBitBtn
      Left = 232
      Top = 16
      Width = 75
      Height = 25
      Caption = #25991#20214#23548#20837
      TabOrder = 1
      OnClick = bitLoadFileClick
    end
    object bitClearErrorMobile: TBitBtn
      Left = 392
      Top = 16
      Width = 75
      Height = 25
      Caption = #28165#38500#38169#21495
      TabOrder = 2
      OnClick = bitClearErrorMobileClick
    end
    object bitClearOldMobile: TBitBtn
      Left = 573
      Top = 16
      Width = 75
      Height = 25
      Caption = #28165#31354#21495#30721
      TabOrder = 3
      OnClick = bitClearOldMobileClick
    end
    object lstOldMobile: TListBox
      Left = 3
      Top = 47
      Width = 710
      Height = 132
      Columns = 7
      ItemHeight = 13
      TabOrder = 4
    end
    object Edit1: TEdit
      Left = 11
      Top = 185
      Width = 511
      Height = 21
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clBtnFace
      TabOrder = 5
      Text = #21407#22987#21495#30721#21015#34920#20013#20849#26377' 0 '#20010#21495#30721
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 274
    Width = 728
    Height = 199
    Caption = #30446#26631#21495#30721
    TabOrder = 1
    object lstNewMobile: TListBox
      Left = 15
      Top = 16
      Width = 710
      Height = 129
      Columns = 7
      ItemHeight = 13
      TabOrder = 0
    end
    object bitMobileSort: TBitBtn
      Left = 40
      Top = 171
      Width = 75
      Height = 25
      Caption = #21495#30721#25490#24207
      TabOrder = 1
      OnClick = bitMobileSortClick
    end
    object bitUnSortMobile: TBitBtn
      Left = 121
      Top = 171
      Width = 75
      Height = 25
      Caption = #21495#30721#20081#24207
      TabOrder = 2
      OnClick = bitUnSortMobileClick
    end
    object bitSieveNum: TBitBtn
      Tag = 1
      Left = 202
      Top = 171
      Width = 75
      Height = 25
      Caption = #28388#38500#21495#30721
      TabOrder = 3
      OnClick = bitSieveNumClick
    end
    object bitFilterNumber: TBitBtn
      Left = 283
      Top = 171
      Width = 75
      Height = 25
      Caption = #36807#28388#21495#30721
      TabOrder = 4
      OnClick = bitSieveNumClick
    end
    object bitClearRepeat: TBitBtn
      Tag = 1
      Left = 364
      Top = 171
      Width = 75
      Height = 25
      Caption = #28165#38500#37325#21495
      TabOrder = 5
      OnClick = bitClearRepeatClick
    end
    object bitFilterRepeat: TBitBtn
      Left = 445
      Top = 171
      Width = 75
      Height = 25
      Caption = #36807#28388#37325#21495
      TabOrder = 6
      OnClick = bitClearRepeatClick
    end
    object bitClearNewMobile: TBitBtn
      Left = 526
      Top = 171
      Width = 75
      Height = 25
      Caption = #28165#31354#21495#30721
      TabOrder = 7
      OnClick = bitClearNewMobileClick
    end
    object bitExportMobile: TBitBtn
      Left = 607
      Top = 171
      Width = 75
      Height = 25
      Caption = #23548#20986#21495#30721
      TabOrder = 8
      OnClick = bitExportMobileClick
    end
    object Edit2: TEdit
      Left = 9
      Top = 151
      Width = 517
      Height = 14
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clBtnFace
      TabOrder = 9
      Text = #30446#26631#21495#30721#21015#34920#20013#20849#26377' 0 '#20010#21495#30721
    end
  end
  object bitDownNumber: TBitBtn
    Left = 90
    Top = 246
    Width = 87
    Height = 25
    Caption = #21495#30721#25968#23383
    TabOrder = 2
    OnClick = bitDownNumberClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
  end
  object bitDownMobileType: TBitBtn
    Left = 312
    Top = 246
    Width = 89
    Height = 25
    Caption = #21495#30721#31867#22411
    TabOrder = 3
    OnClick = bitDownMobileTypeClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
  end
  object bitUpAllMobileNumber: TBitBtn
    Left = 568
    Top = 220
    Width = 86
    Height = 25
    Caption = #20840#37096#21495#30721
    TabOrder = 4
    OnClick = bitUpAllMobileNumberClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    NumGlyphs = 2
  end
  object bitDownAllMobileNumber: TBitBtn
    Left = 568
    Top = 246
    Width = 86
    Height = 25
    Caption = #20840#37096#21495#30721
    TabOrder = 5
    OnClick = bitDownAllMobileNumberClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
  end
  object bitUpNumber: TBitBtn
    Left = 90
    Top = 220
    Width = 87
    Height = 25
    Caption = #21495#30721#25968#23383
    TabOrder = 6
    OnClick = bitUpNumberClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    NumGlyphs = 2
  end
  object bitUpMobileType: TBitBtn
    Left = 312
    Top = 220
    Width = 89
    Height = 25
    Caption = #21495#30721#31867#22411
    TabOrder = 7
    OnClick = bitUpMobileTypeClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    NumGlyphs = 2
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.txt'
    Filter = #25152#25903#25345#30340#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Left = 464
    Top = 237
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.TXT'
    Filter = #25152#25903#25345#30340#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 496
    Top = 237
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AreaDB.db;Persist S' +
      'ecurity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 192
    Top = 221
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from Area'
    Parameters = <>
    Left = 224
    Top = 221
  end
  object MainMenu1: TMainMenu
    Left = 520
    Top = 24
    object N1: TMenuItem
      Caption = #24110#21161'(&H)'
      object H1: TMenuItem
        Caption = #24110#21161'(&H)'
        OnClick = H1Click
      end
      object N3: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = N3Click
      end
    end
  end
end