main.dfm

用delphi做的,里面的数据库是ACCESS.可以查全国的地区,对初学者很有用,直接下载后就可以用到了,不用去添加全国各地的地名记录!

object Form1: TForm1
  Left = 213
  Top = 273
  Anchors = [akLeft, akTop, akBottom]
  AutoScroll = False
  BorderIcons = [biMinimize]
  Caption = #22320#21306#26597#35810
  ClientHeight = 241
  ClientWidth = 530
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  DesignSize = (
    530
    241)
  PixelsPerInch = 96
  TextHeight = 13
  object TeThemeLabel1: TTeThemeLabel
    Left = 9
    Top = 50
    Width = 51
    Height = 13
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #30465','#30452#36758#24066
    Color = clBtnFace
    FocusControl = ListBox
    ParentColor = False
    ThemeEngine = TeThemeEngine1
  end
  object TeThemeLabel2: TTeThemeLabel
    Left = 193
    Top = 50
    Width = 24
    Height = 13
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #22320#21306
    Color = clBtnFace
    FocusControl = ListBox1
    ParentColor = False
    ThemeEngine = TeThemeEngine1
  end
  object TeThemeLabel3: TTeThemeLabel
    Left = 386
    Top = 53
    Width = 12
    Height = 13
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #21439
    Color = clBtnFace
    FocusControl = ListBox2
    ParentColor = False
    ThemeEngine = TeThemeEngine1
  end
  object ListBox1: TTeThemeListBox
    Left = 200
    Top = 71
    Width = 177
    Height = 164
    Performance = kspDoubleBuffer
    Transparent = False
    OnClick = ListBox1Click
    AllowGrayed = False
    AlwaysShowScrlBar = False
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = clWhite
    Columns = 0
    Flat = True
    ItemHeight = 16
    MultiSelect = False
    ShowCheckBoxes = False
    ListStyle = lbStandard
    TabOrder = 0
    WordWrap = False
    ThemeEngine = TeThemeEngine1
  end
  object ListBox: TTeThemeListBox
    Left = 8
    Top = 71
    Width = 177
    Height = 164
    Performance = kspDoubleBuffer
    Transparent = False
    OnClick = ListBoxClick
    AllowGrayed = False
    AlwaysShowScrlBar = False
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = clWhite
    Columns = 0
    Flat = True
    ItemHeight = 16
    MultiSelect = False
    ShowCheckBoxes = False
    ListStyle = lbStandard
    TabOrder = 1
    WordWrap = False
    ThemeEngine = TeThemeEngine1
  end
  object ListBox2: TTeThemeListBox
    Left = 384
    Top = 71
    Width = 136
    Height = 166
    Performance = kspDoubleBuffer
    Transparent = False
    AllowGrayed = False
    AlwaysShowScrlBar = False
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
    BevelInner = kbvLowered
    BevelOuter = kbvLowered
    BevelKind = kbkSingle
    BevelWidth = 1
    BorderWidth = 0
    Color = clWhite
    Columns = 0
    Flat = True
    ItemHeight = 18
    MultiSelect = False
    ShowCheckBoxes = False
    Sorted = True
    ListStyle = lbStandard
    TabOrder = 2
    WordWrap = False
    ThemeEngine = TeThemeEngine1
  end
  object TeThemePanel1: TTeThemePanel
    Left = 408
    Top = 7
    Width = 121
    Height = 22
    Performance = kspNoBuffer
    Transparent = True
    Anchors = [akLeft, akTop, akBottom]
    AnimateRoll = False
    BevelWidth = 1
    BorderWidth = 3
    ButtonKind = pbkRoll
    Color = clWhite
    Caption = #30028' '#38754' '#39118' '#26684
    Rolled = True
    ParentRoll = False
    ShowBevel = True
    ShowButton = True
    ShowCaption = True
    ThemeEngine = TeThemeEngine1
    NormalHeight = {3A000000}
    object TeSwitcherComboBox1: TTeSwitcherComboBox
      Left = 8
      Top = 28
      Width = 106
      Height = 23
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      Transparent = False
      AutoSize = True
      BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
      BevelInner = kbvLowered
      BevelOuter = kbvLowered
      BevelKind = kbkSingle
      BevelWidth = 1
      BorderWidth = 3
      PasswordKind = pkNone
      ReadOnly = True
      TabOrder = 0
      Text = '<Theme'#39's Switcher>'
      AutoComplete = False
      ComboStyle = kcsDropDownList
      DropDownCount = 8
      ItemHeight = 15
      Items.Strings = (
        '<Theme'#39's Switcher>')
      Flat = True
      ItemIndex = 0
      ListStyle = lbStandard
      ShowCheckBoxes = False
      WordWrap = False
      ThemeEngine = TeThemeEngine1
    end
  end
  object TeThemePanel2: TTeThemePanel
    Left = 8
    Top = 7
    Width = 393
    Height = 22
    Performance = kspNoBuffer
    Transparent = False
    Anchors = [akLeft, akTop, akBottom]
    AnimateRoll = False
    BevelWidth = 1
    BorderWidth = 3
    ButtonKind = pbkRoll
    Caption = #26597' '#35810
    Rolled = True
    ParentRoll = False
    ShowBevel = True
    ShowButton = True
    ShowCaption = True
    ThemeEngine = TeThemeEngine1
    NormalHeight = {3B000000}
    object TeThemeLabel4: TTeThemeLabel
      Left = 11
      Top = 32
      Width = 24
      Height = 13
      Performance = kspNoBuffer
      Transparent = True
      Caption = #22320#21517
      Color = clBtnFace
      ParentColor = False
    end
    object Edit1: TTeThemeEdit
      Left = 42
      Top = 29
      Width = 121
      Height = 23
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      Transparent = False
      AutoSize = True
      BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
      BevelInner = kbvLowered
      BevelOuter = kbvLowered
      BevelKind = kbkSingle
      BevelWidth = 1
      BorderWidth = 3
      PasswordKind = pkNone
      TabOrder = 0
      ThemeEngine = TeThemeEngine1
    end
    object TeThemeButton1: TTeThemeButton
      Left = 179
      Top = 28
      Width = 75
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      OnClick = TeThemeButton1Click
      BlackAndWhiteGlyph = False
      Caption = #26597' '#35810
      State = kbsNormal
      TabOrder = 1
      WordWrap = False
      ThemeEngine = TeThemeEngine1
    end
    object TeThemeButton2: TTeThemeButton
      Left = 274
      Top = 28
      Width = 75
      Height = 25
      Performance = kspDoubleBuffer
      Transparent = False
      OnClick = TeThemeButton2Click
      BlackAndWhiteGlyph = False
      Caption = #25918' '#24323
      State = kbsNormal
      TabOrder = 2
      WordWrap = False
      ThemeEngine = TeThemeEngine1
    end
  end
  object TeThemeForm1: TTeThemeForm
    Animation.Direction = kdNoRotate
    BorderIcons = [kbiClose, kbiSystemMenu, kbiMinimize, kbiMaximize, kbiRollup, kbiTray]
    BorderStyle = kbsToolWindow
    Caption = #22320#21306#26597#35810
    Performance = ksfpNoBuffer
    StayOnTop = False
    StretchBackground = False
    WindowState = kwsNormal
    ThemeEngine = TeThemeEngine1
    Version = '3.3.1'
    Top = 65520
  end
  object TeThemeEngine1: TTeThemeEngine
    ColorAutoChanging = True
    DeltaBrightness = 0
    DeltaHue = 0
    Version = '3.3.1'
    Left = 32
    Top = 65520
    ThemeClass = {09000000436F6F6C20466C6174}
  end
end