main.dfm

这是一个手机归属地查询程序

object FrmMain: TFrmMain
  Left = 319
  Top = 233
  Width = 303
  Height = 335
  BorderIcons = [biSystemMenu]
  Caption = #25163#26426#12289#21306#21495#12289#36523#20221#35777#21495#26597#35810#24037#20855
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCanResize = FormCanResize
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 295
    Height = 308
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #37038#25919#32534#30721
      object Label1: TLabel
        Left = 9
        Top = 221
        Width = 66
        Height = 13
        Caption = #26597#25214#26041#24335'(&M):'
        FocusControl = DBComboBoxEh1
      end
      object Label2: TLabel
        Left = 11
        Top = 248
        Width = 64
        Height = 13
        Caption = #26597#25214#20869#23481'(&T):'
        FocusControl = DBEditEh2
      end
      object DBEditEh2: TDBEditEh
        Left = 87
        Top = 245
        Width = 116
        Height = 19
        AlwaysShowBorder = True
        Ctl3D = True
        EditButtons = <>
        Flat = True
        ParentCtl3D = False
        TabOrder = 0
        Visible = True
      end
      object DBGridEh1: TDBGridEh
        Left = 7
        Top = 6
        Width = 266
        Height = 203
        AutoFitColWidths = True
        DataSource = DataSource1
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        RowHeight = 18
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        TitleHeight = 16
        Columns = <
          item
            EditButtons = <>
            FieldName = #21306#21495
            Footers = <>
            Title.TitleButton = True
            Width = 46
          end
          item
            EditButtons = <>
            FieldName = #37038#32534
            Footers = <>
            Title.TitleButton = True
            Width = 49
          end
          item
            EditButtons = <>
            FieldName = #30465#21517
            Footers = <>
            Title.Caption = #30465#20221
            Title.TitleButton = True
            Width = 63
          end
          item
            EditButtons = <>
            FieldName = #21439#24066#21517
            Footers = <>
            Title.Caption = #21439'/'#24066#21517
            Title.TitleButton = True
            Width = 72
          end>
      end
      object BitBtn1: TBitBtn
        Left = 217
        Top = 220
        Width = 54
        Height = 42
        Caption = #26597#25214'(&S)'
        TabOrder = 2
        OnClick = BitBtn1Click
      end
      object DBComboBoxEh1: TDBComboBoxEh
        Left = 87
        Top = 218
        Width = 117
        Height = 19
        AlwaysShowBorder = True
        EditButton.Width = 14
        EditButtons = <>
        Flat = True
        Items.Strings = (
          #21306#21495
          #37038#32534
          #30465#20221
          #21439'/'#24066#21517)
        TabOrder = 3
        Text = #21306#21495
        Visible = True
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25163#26426
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 287
        Height = 280
        Align = alClient
        Color = clWhite
        TabOrder = 0
        object Label4: TLabel
          Left = 11
          Top = 14
          Width = 66
          Height = 13
          Caption = #25163#26426#21495#30721'(&M):'
          FocusControl = DBEditEh1
        end
        object DBEditEh1: TDBEditEh
          Left = 87
          Top = 11
          Width = 116
          Height = 19
          AlwaysShowBorder = True
          Ctl3D = True
          EditButtons = <>
          Flat = True
          ParentCtl3D = False
          TabOrder = 0
          Visible = True
        end
        object BitBtn2: TBitBtn
          Left = 217
          Top = 8
          Width = 54
          Height = 25
          Caption = #26597#25214'(&S)'
          TabOrder = 1
          OnClick = BitBtn2Click
        end
        object Memo1: TMemo
          Left = 16
          Top = 40
          Width = 257
          Height = 225
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #36523#20221#35777
      ImageIndex = 2
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 287
        Height = 280
        Align = alClient
        Color = clWhite
        TabOrder = 0
        object Label5: TLabel
          Left = 11
          Top = 13
          Width = 94
          Height = 13
          Caption = #36523#20221#35777#21495#21069'6'#20301'(&C):'
          FocusControl = DBEditEh3
        end
        object DBEditEh3: TDBEditEh
          Left = 111
          Top = 10
          Width = 95
          Height = 19
          AlwaysShowBorder = True
          Ctl3D = True
          EditButtons = <>
          Flat = True
          ParentCtl3D = False
          TabOrder = 0
          Visible = True
        end
        object BitBtn3: TBitBtn
          Left = 217
          Top = 6
          Width = 54
          Height = 25
          Caption = #26597#25214'(&S)'
          TabOrder = 1
          OnClick = BitBtn3Click
        end
        object Memo2: TMemo
          Left = 16
          Top = 40
          Width = 257
          Height = 225
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #20851#20110
      ImageIndex = 3
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 287
        Height = 280
        Align = alClient
        Color = clWhite
        TabOrder = 0
        object Label6: TLabel
          Left = 24
          Top = 33
          Width = 156
          Height = 13
          Caption = #26412#24037#20855#20813#36153#20351#29992#65292#27426#36814#20256#25773#65281
        end
        object Label8: TLabel
          Left = 40
          Top = 64
          Width = 80
          Height = 39
          Caption = #30456#20851#25991#20214':'#13#10'   ETopCode.exe'#13#10'   Code.BM'
        end
      end
    end
  end
  object DataSource1: TDataSource
    Left = 184
    Top = 96
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Left = 80
    Top = 176
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from AreaData')
    Left = 128
    Top = 136
  end
end