idn_main.dfm

基本功能：1. 从身份证号码中取信息 2. 判断身份证号码的有效性 3. 将15位号码转换成18位号码

object fIDNMain: TfIDNMain
  Left = 271
  Top = 188
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #36523#20221#35777#21495#30721#20449#24687#25552#21462
  ClientHeight = 374
  ClientWidth = 297
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 0
    Top = 266
    Width = 297
    Height = 108
    Align = alBottom
    Shape = bsTopLine
  end
  object lRemark: TLabel
    Left = 16
    Top = 280
    Width = 252
    Height = 12
    Caption = #36523#20221#35777#21495#30721#30456#20851#22788#29702#21333#20803'ascidnum.pas'#28436#31034#31243#24207
  end
  object lAuthor: TLabel
    Left = 16
    Top = 304
    Width = 60
    Height = 12
    Caption = #20316#32773#65306#27744#40857
  end
  object lEmailMark: TLabel
    Left = 16
    Top = 328
    Width = 36
    Height = 12
    Caption = #37038#31665#65306
  end
  object lHomepageMark: TLabel
    Left = 16
    Top = 352
    Width = 36
    Height = 12
    Caption = #20027#39029#65306
  end
  object lEmail: TLabel
    Left = 52
    Top = 328
    Width = 138
    Height = 12
    Cursor = crHandPoint
    Caption = '[e-mail]'
    OnClick = lEmailClick
    OnMouseEnter = lEmailMouseEnter
    OnMouseLeave = lEmailMouseLeave
  end
  object lHomepage: TLabel
    Left = 52
    Top = 352
    Width = 156
    Height = 12
    Cursor = crHandPoint
    Caption = 'http://www.2ndhometown.net'
    OnClick = lHomepageClick
    OnMouseEnter = lHomepageMouseEnter
    OnMouseLeave = lHomepageMouseLeave
  end
  object leIDNum: TLabeledEdit
    Left = 16
    Top = 32
    Width = 265
    Height = 20
    CharCase = ecUpperCase
    EditLabel.Width = 168
    EditLabel.Height = 12
    EditLabel.Caption = #35831#22312#27492#36755#20837'15'#25110'18'#20301#36523#20221#35777#21495#30721
    LabelPosition = lpAbove
    LabelSpacing = 8
    MaxLength = 18
    TabOrder = 0
  end
  object bCheck: TButton
    Left = 112
    Top = 227
    Width = 75
    Height = 25
    Caption = #25552#21462
    TabOrder = 1
    OnClick = bCheckClick
  end
  object bClose: TButton
    Left = 200
    Top = 227
    Width = 75
    Height = 25
    Cancel = True
    Caption = #20851#38381
    TabOrder = 2
    OnClick = bCloseClick
  end
  object gbInfo: TGroupBox
    Left = 16
    Top = 64
    Width = 265
    Height = 153
    Caption = #36523#20221#35777#21495#30721#20449#24687
    TabOrder = 3
    object leRegionCode: TLabeledEdit
      Left = 72
      Top = 48
      Width = 177
      Height = 20
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #22320#21306#20195#30721
      LabelPosition = lpLeft
      LabelSpacing = 12
      ReadOnly = True
      TabOrder = 1
    end
    object leRegionStr: TLabeledEdit
      Left = 72
      Top = 72
      Width = 177
      Height = 20
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #22320#21306#21517#31216
      LabelPosition = lpLeft
      LabelSpacing = 12
      ReadOnly = True
      TabOrder = 2
    end
    object leBirthday: TLabeledEdit
      Left = 72
      Top = 96
      Width = 177
      Height = 20
      EditLabel.Width = 24
      EditLabel.Height = 12
      EditLabel.Caption = #29983#26085
      LabelPosition = lpLeft
      LabelSpacing = 12
      ReadOnly = True
      TabOrder = 3
    end
    object leSex: TLabeledEdit
      Left = 72
      Top = 120
      Width = 57
      Height = 20
      EditLabel.Width = 24
      EditLabel.Height = 12
      EditLabel.Caption = #24615#21035
      LabelPosition = lpLeft
      LabelSpacing = 12
      ReadOnly = True
      TabOrder = 4
    end
    object leChecksum: TLabeledEdit
      Left = 192
      Top = 120
      Width = 57
      Height = 20
      EditLabel.Width = 24
      EditLabel.Height = 12
      EditLabel.Caption = #26657#39564
      LabelPosition = lpLeft
      LabelSpacing = 12
      ReadOnly = True
      TabOrder = 5
    end
    object leIDNumType: TLabeledEdit
      Left = 72
      Top = 24
      Width = 177
      Height = 20
      EditLabel.Width = 24
      EditLabel.Height = 12
      EditLabel.Caption = #31867#22411
      LabelPosition = lpLeft
      LabelSpacing = 12
      ReadOnly = True
      TabOrder = 0
    end
  end
end