main.~dfm

再上传小程序：区号身份证手机号码归属地查询 V1.0

object Form1: TForm1
  Left = 215
  Top = 200
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26597#35810#21306#21495#12289#36523#20221#35777#12289#25163#26426#21495
  ClientHeight = 331
  ClientWidth = 358
  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
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 359
    Height = 298
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #22320#21306#21306#21495
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 16
        Top = 237
        Width = 60
        Height = 13
        Caption = #22320#21306#21306#21495#65306
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 24
        Width = 339
        Height = 193
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Edt_Post: TEdit
        Left = 79
        Top = 232
        Width = 121
        Height = 21
        TabOrder = 1
        OnKeyPress = Edt_PostKeyPress
      end
      object Btn_SearchP: TButton
        Left = 242
        Top = 231
        Width = 89
        Height = 29
        Caption = #26597#35810
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Btn_SearchPClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36523#20221#35777
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label2: TLabel
        Left = 16
        Top = 18
        Width = 57
        Height = 16
        AutoSize = False
        Caption = #36523#20221#35777':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Edt_ID: TEdit
        Left = 83
        Top = 13
        Width = 157
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnKeyPress = Edt_IDKeyPress
      end
      object Mem_ID: TMemo
        Left = 16
        Top = 48
        Width = 313
        Height = 193
        ReadOnly = True
        TabOrder = 1
      end
      object Btn_SearchID: TButton
        Left = 248
        Top = 9
        Width = 81
        Height = 29
        Caption = #25628#32034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = Btn_SearchIDClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #25163#26426#21495#30721
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Label3: TLabel
        Left = 16
        Top = 18
        Width = 57
        Height = 16
        AutoSize = False
        Caption = #25163#26426#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Edt_Mobile: TEdit
        Left = 82
        Top = 13
        Width = 149
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnKeyPress = Edt_MobileKeyPress
      end
      object Btn_SearchM: TButton
        Left = 248
        Top = 9
        Width = 81
        Height = 29
        Caption = #25628#32034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = Btn_SearchMClick
      end
      object Mem_Mobile: TMemo
        Left = 16
        Top = 48
        Width = 313
        Height = 193
        ReadOnly = True
        TabOrder = 2
      end
    end
  end
  object Button1: TButton
    Left = 208
    Top = 304
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 64
    Top = 304
    Width = 75
    Height = 25
    Caption = #20851#20110
    TabOrder = 2
    OnClick = Button2Click
  end
  object ADOCN: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\document\'#31295#20214'\'#21046#20316#20013'\' +
      #29983#27963#32534#31243'\'#26597#35810#25152#22312#22320'\data.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 120
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 120
    Top = 152
  end
  object ADOQuery1: TADOQuery
    Connection = ADOCN
    Parameters = <>
    SQL.Strings = (
      'Select * from Data')
    Left = 120
    Top = 120
  end
  object ADOQuery2: TADOQuery
    Connection = ADOCN
    Parameters = <>
    Left = 156
    Top = 120
  end
  object ADOQuery3: TADOQuery
    Connection = ADOCN
    Parameters = <>
    Left = 190
    Top = 120
  end
end