ࡱ;  T8\p Administrator Ba= ThisWorkbook=ZKx-8X@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1[SO1h>[SO1,>[SO1>[SO1@[SO1[SO1[SO1[SO1[SO1Arial1Q[SO10[SO1[SO1[SO1[SO1[SO1 [SO1 [SO1 [SO1[SO1@[SO1[SO1[SO1 [SO10[SO10[SO1 [SO1[SO1@[SO1[SO1 [SO1>[SO1[SO1 [SO1[SO1[SO14[SO1 [SO1[SO1 [SO14[SO1<[SO1?[SO1>[SO1[SO1@[SO1[SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)0_);[Red]\(0\)0.00_);[Red]\(0.00\)0_  0.0_                 ' ' ' ' ' ' ' ' ' ' ' ' ( ( ( ( ( (      P )P      * '  ' ' ' '     + , -a   .  /ff 0 1 2`   3 4 5  6 ( ( ( ( ( (    @ @  @ @  ""@ @ @ @ @ @ @ @ !@ @ ""@ @   x@ @  1 1 1 1 1@ @ 1 1 1@ @ 1 x7 1@  1@  1@  1@ @  1|7 1 @ @ '1 1 1 1@  1 1@ @  '1 '1 '1@  '1 1|7 1 @ @ 1@ @  1@ @ 1  "1@  1 1@ @ x '1 $1 %1|@  1 1 &1|@ @ 7 1<@ @ 1@ @ 787 88 ||uY}-} 00_)}-} 00_)}-} 00_)}-} 00_)}-} 00_)}-} 00_)}A} 00_)ef[$ -}A} 00_)ef [$ -}-} 00_)}A} 00_)L[$ -}-} 00_)}-} 00_)}A} 00_)L[$ -}-} 00_)}-} 00_)}A} 00_)23[$ -}-} 00_)}-} 00_)}A}  00_)23[$ -}-}! 00_)}-}%?_)}A}( ?_)[$ -}-}) ?_)}-}+ ?_)}-}, ?_)}-}- ?_)}-}. ?_)}(}2  ?_)}A}3 a?_)[$ -}-}4 ?_)}}}7 }?_)[$ -##0.  }}8 ?_)[$ -???##0.??? ??? ???}-}9 ?_)}-}: ?_)}A}; }?_)[$ -}A}> e?_)[$ -}}}? ????_)???[$ -???##0. ??? ???}}@ ??v?_)̙[$ -##0.  }(}A  ?_)}-}B ?_)}A}C ?_)[$ -}A}D ?_)[$ -}-}E ?_)}A}F ?_)[$ -}A}G ?_) [$ -}x}H?_) [$##  }-}J ?_)}-}L ?_)}-}S ?_)}-}T ?_)}-}U ?_)}-}V ?_)}-}W ?_)}-}\ ?_)}-}^ ?_)}-}` ?_)}-}a ?_)}-}c ?_)}-}e ?_)}-}g ?_)}-}h ?_)}-}i ?_)}-}k ?_)}-}l ?_)}-}m ?_)}-}n ?_)}-}o ?_)}-}p ?_)}-}r ?_)}-}u ?_)}(}|?_)}-}} ?_)}-} ?_)}-} ?_) 20% - @wr 1; 20% - @wr 1 % 20% - @wr 2;" 20% - @wr 2 % 20% - @wr 3;& 20% - @wr 3 % 20% - @wr 4;* 20% - @wr 4 % 20% - @wr 5G. 20% - @wr 5 ef % 20% - @wr 6G2 20% - @wr 6  ef % 40% - @wr 1; 40% - @wr 1 % 40% - @wr 2G# 40% - @wr 2 L渷 % 40% - @wr 3;' 40% - @wr 3 % 40% - @wr 4;+ 40% - @wr 4 % 40% - @wr 5G/ 40% - @wr 5 L % 40% - @wr 6;3 40% - @wr 6 % 60% - @wr 1; 60% - @wr 1 % 60% - @wr 2G$ 60% - @wr 2 23ږ % 60% - @wr 3;( 60% - @wr 3 % 60% - @wr 4;, 60% - @wr 4 % 60% - @wr 5G0 60% - @wr 5 23 %! 60% - @wr 6;4 60% - @wr 6 %"~vRk #hh $h 1h 1 %h 21h 2%? &h 3h 3 'h 4h 4(]5]  %+8^ĉ %)8^ĉ 1218^ĉ 12 % *8^ĉ 2+8^ĉ 2 238^ĉ 2 2 %,8^ĉ 2 338^ĉ 2 3 %-8^ĉ 2 438^ĉ 2 4 % .8^ĉ 3/8^ĉ 3 % /8^ĉ 408^ĉ 4 21 8^ĉ_hQVL?e:SRNx2(c  3}Y5}Y  a% 4Gl;`+Gl;` %5'^6 '^[0] 7{c{ }% 8hgUSCQ-N7-N  e% ?QcQ ???%????????? ??? @eQoeQ ̙ ??v% A 0 ]vc   B@wr 1/@wr 1 % C@wr 2;!@wr 2 PM % D@wr 3;%@wr 3 Y % E@wr 4/)@wr 4 % F@wr 5;-@wr 5 K % G@wr 6;1@wr 6  F % Hlʑ^ lʑ  XTableStyleMedium9PivotStyleLight1683ffff̙̙3f3fff3f3f33333f33333\` M ؚ!h,gNyV[Rf[ё TUS^NxhqOo`VV!  =- KmՋ@b g!hĉRv^SbpSOo`ffpP)(@NF|MOS AA@A@  /y1 7sfzjh 7 checkDiffNameV[V~+R TycheckIDCardTypeNN{|W7usYE\lNel T^S/f Ty{|W checkYesNo/f&T checkGender'`+RsY'`+R7uN,V NVQ[XuQeLr^yO /nyr:Sbgq/Nf oyr:Sbgq/Nf S~nE\leg_'YFLXY8lENE\OOAbgqB7bSvQN checkName 71 7Y T 7C 7applyListEntry checkSfzjh 71 71yr+RV 7f[gDRhQ 7zzbz 7 checkTerm%fc[f[gyc[f[g^Sё 7yfje 7[Sё 7sfje 7S>eeg createDate 7 sqlym 7 checkSQLY 7 7xm 7 checkNum1,6,0 7 checkNum1,6,0 3ut1u 7A 7B 7D 7E 7F 7G 7H 7sqly 7  ؚ!h,gNyV[Rf[ё TUS"# 7 4161013681Ylf 7 bzsm 7P kXQDRDёvS>eeg eKNMRveS+TS_e lV[Rf[ё cgS>e S>eekXQ:N,gf[gёS>e[e0_kXyM! 7checkDateNecessary 7 checkBZSM 7[^mS6q~p[ [^mSzSaYNN[^bXTVku t^ȏ RRR1_`Q [^1\f[P[sYY[^bXT1YN[^ k:P( _{:NIlW[SNS+T ^'YNI{N1 N NǏ20*NIlW[ OY _ N _kXy% 7 kXQ^Sё Y 3000 _kXy 7 kXQ[Sё Y 3000 _kXy 7GYg3ut1ukXQ&^ H vQN vt1u kXQYlf SKNR NkXQYlf0SeQIlW[TW[&{,NW[&{^gY:N100MO ^_kXy 7 checkZjlx 7NN{|W 7; kXQf[uNN{|W SNxh-NvNN{|WۏLkXQ Y E\lN 0 Q[ I{w` Nxh _kXy8 74 kXQf[uNN{|W@b[^NS OY:kXQE\lN, 140602199907061024 _kXy /03 7 checkZjlx 7E\lN 7 checkZjlxQ[ 7XuQ 7eLr^ 7yO 7 /nyr:Sbgq/Nf 7 oyr:Sbgq/Nf 7 S~nE\leg_'YFL 7XY8lENE\OO 7A 7bgq 7B 77bS 7Z 7vQN 7zjlx 7NNS 7 kXQDRhQ(kf[g/CQ) Y 3000 _kXy 7I 7и^chzaS[^ 7J 7۸NOO 73ut1u 75 kXQ3ut1u,wQSOSgqNxh-NvNy OY A SkXQW[k('Y\QGWS),SY , NS͑ YeQ _kXy2 7FAILURE 7P 4144010578> U???#k@@6AZBSCEDEGKkI J lK L&ccB~-z4nA_)k:~yw T8 VY  dMbP?_*+%{&ffffff?'ffffff?(?)?MFoxit PhantomPDF Printer_ 4dA4C:\Users\lenovo\AppData\Roaming\Foxit Software\Foxit PDF Creator\1480492208_Phantom_foxittemp.xmlC:\Users\lenovo\AppData\Roaming\Foxit Software\Foxit PDF Creator\1480492208_Plugin_foxittemp.xml" d333333?333333?&<3cAU} `\} } \} @\} @\} @h} @\} \}  h} \} \} 3 \} 4k \} ll \} mp \} qq\} ru \} v \}  \vmV V` V VrW YmD[ ]# }Y c( l= i< i< {L N9 NM xlU~ ggm ii ab yG jjo ggm ii W$  W V) i* i* n* V i i ^; ^ e. k3 k5 p7 wF zJ w iknlX qr8 _% Z do _- d2 d4 q6 _> _I | ZU [ Z\ Zp ZV ZW vK Zv ZXl\(.(ryZ(   Lq NɰX?]4L9@ 狦FC ClEcs5 <kXQf[uvY T<~~  <°CC@],@E9 $< _Yhg<~~  <pCC@],@E9 $<_ Y h g< ~~ i <°CC@F],5@/E9 $<_ Y h g<L9admin>@dinjn7 Sheet1ggDh8he:SW2_1 T8 5 jp  dMbP?_*+%&ffffff?'ffffff?(?)?MFoxit Reader PDF Printer_ 4dXXA4" dXX333333?333333?&<3U} @K} I} I} !I}  J}  J}  J}  J5@ ,,,,,,, , , , , ,,,,,,,,,,,,,,, R M M R S J'LLLL Tw NP?O? N Jx NP@P NLPPL NP@ O N NP? O NPLPPQ N P? O+ Q N P@ P Q N P@ P Q N P@ P Q LPPQ NP? O Q NP@ P Q NP@ P Q NP@ P Q NP@ P Q NP@ P Q NP@ P Q NP @ P Q NP"@ P Q N P P Q N P P! Q N P& P" QLPPQ N/N? f0 N, N/N@ f1 N,NPNN s9 u N? sN s9 u N@ sODlP N@<< <<<<<<<<<<<<<888<<8 !"#$%&T'(,T),*,+,,,-,.,/,0,1,2,3,4, s9 u N& sP !s9 !u !NA !sQ !u: "s9 "u "NB "sR #s9 #u #NC #sS $s9 $u $ND $sT %s9 %u %NE %s" &s9 &u &Nq &Nr 's9 'u 'Ns 'Nt(stNN )N])N? )O^ )Q *N_*N@ *O` *Q +N_+N@ +Pa +Q ,N_,N@ ,Pb ,Q -N_-N@ -Pc -Q .N_.N@ .Pd .Q /N_/N@ /Pe /Q 0N_0N @ 0Pf 0Q 1N]1N"@ 1Pg 1Q 2N_ 2Nh 2Pi 2Q 3N_ 3Nj 3Pk 3Q 4N_ 4Nl 4Pm 4Q.H8F888888<<<<<<<<<88PH  0(   >@ 7 Sheet5ggD T8  s  dMbP?_*+%&ffffff?'ffffff?(?)?"333333?333333?&<3U LLLLLLLLL PH00(  >@ 7 Sheet6ggD rU@@@~x  q-!!'4 Q A# &a'A-:*A)! 1 1 q! 111A=1!>QRAA2&A4Pa4Q6667a778Q888!9A999!:::1;;<q<<1===>a>>t))> d1?q?@@@QAABBACDD1EaEE!FaFF1GGCHHIAIIIqJJ1KqK;LLLMaMM1NqNOQOOPqPPPqQlQRKGTQTUQUUUVV`CAW\[]]^Q^ q ^x^^!___%Y1 WS``Q```aooqgQaqqhHiggn @q` Zpg  g@ Hi(ggz(x Z00g ZH0H0g ZH0H0g0@,H0Vggn Zxxg@`C HCx70l<g Zxxgg Zxxgg(L&H`2x0ggt Zxg(@,x8gglFg (Zx&xg00( (:gg*(  g00( (ggg*(  gtgJ O`Ox(HO0O"!OO"!OpOX` P8 Px0X8zgggg8@ChPx0X8XG Fggf (Zxgj`(Zx0g0)Kdgj`(Zx0g" Kg~(x`Z0gg*+g&,xlg<x  `+xg-<g&.xlg<x  `+xg/<g&0xlg<x  `+xg1<g&2xlg<x  `+xg3<g&4xlg<x  `+xg5<g&6xlg7+g8<g&9xl g7+g:<g&;xlng7+g<<g&=xlg7+g><g&?xl g7+g?<g&@xlXg7+gA<g&Bxlg7+gC<g&Dxlg7+gE<g&Fxl<g7+gGgg>gHKg6( x xIxgI Hg`J Ox`KO0OHLO`MxgNgMx xggBM@( I @x0xgOFgPK g*( x xgt (Zxxg*xxIxgI J g`J Ox`KO0OHQO`MxgNgMx xg$0x0ggBM@( I @x0xgOFg-KRg6+@xxIxgI gHRIxx+(pxgdpx`Cpqn?[H7lxHV gJ Ox`KO0OHSOpXO@TO(`MxX@(gdpx`Cpqn?[H7lxH gJ Ox`KO0OHUOpXO@VO(pOTO`MxX@(gdpx`Cpqn?[H7lxHgJ Ox`KO0OHWOpXO@TO(`MxX@(gdpx`Cpqn?[H7lxHgJ Ox`KO0OHXOpXO@VO(pOTO`MxX@(ggNgMx xggBM@( I @x0xgOFg/Kg6+@xxIxgI BgHRIxx+(pxg6px`Kx gJ Ox`KO0OHYOpXO@ZO(pOTO`MxX@(g6px`KxgJ Ox`KO0OH[OpXO@ZO(pOTO`MxX@(ggNgMx xggBM@( I @x0xgOFg1Kg6+@xxIxgI gHRIxx+(pxg6px`KxXgJ Ox`KO0OHYOpXO@ZO(pOTO`MxX@(^g6px`Kx^gJ Ox`KO0OH[OpXO@ZO(pOTO`MxX@(ggNgMx xggBM@( I @x0xgOFg3Kg6+@xxIxgI gHRIxx+(pxgJ Ox`KO0OH\OpXO@]O(pO^O`MxX@(gNgMx xggBM@( I @x0xgOFg5K:g6+@xxIxgI gHRIxx+(pxg6px`KxgJ Ox`KO0OH_OpXO@`O(pOTO`MxX@(g6px`KxgJ Ox`KO0OHaOpXO@`O(pOTO`MxX@(ggNgMx xggBM@( I @x0xgOFgbKg8x  xg)K>g`J Ox`KO0OHcO`MxgNgMx x>ggdKfg8(apaxIxpgI Zg`J Ox`KO0OHeO`MxgNgMx xg$0x0g8gg*xxIxgI 2g`J Ox`KO0OHfO`MxgNgMx xggggBM@( I @x0xgOFggK\!g\7IgIxx IxgI  g`J Ox`KO0OHhO`MxgNgMx x!ggD( gIxx(xggBM@( I @x0xgOFgiK"gDjIxxIxgI Z"g`J Ox`KO0OHkO`MxgNgMx xggBM@( I @x0xgOFglKf$g*xxIxgI  $gJ Ox`KO0OH\OpXO@]O(pO^O`MxX@(gNgMx xggBM@( I @x0xgOFgEK%g6+@xxIxgI V%g`J Ox`KO0OHmO`MxgNgMx xggBM@( I @x0xgOFgnK&g*xxIxgI &g`J Ox`KO0OHoO`MxgNgMx xggBM@( I @x0xgOFgpK2(g*xxIxgI 'g`J Ox`KO0OHqO`MxgNgMx xggBM@( I @x0xgOFgrK)g*x xIxgI )gJ Ox`KO0OHsO"X!XO@tO("!OuO`MxX@(gNgMx xggBM@( I @x0xgOFgvK+g*x"xIxgI 6+gJ Ox`KO0OHsO"X!XO@wO("!OxO`MxX@(gNgMx xggBM@( I @x0xgOFgyKB-g*x xIxgI ,gJ Ox`KO0OHsO"X!XO@wO("!OzO`MxX@(gNgMx xggBM@( I @x0xgOFg{K.g*x#xIxgI .gJ Ox`KO0OHsO"X!XO@|O("!O}O`MxX@(gNgMx xggBM@( I @x0xgOFg~K@0g8xB$IxgI /g`J Ox`KO0OHO`MxgNgMx xggBM@( I @x0xgOFg<K1gP+@<Ixx IxgI P1g`J Ox`KO0OHhO`MxgNgMx x1ggD( <Ixx(xggBM@( I @x0xgOFgGK3gP+@GIxx IxgI 3g`J Ox`KO0OHhO`MxgNgMx xP3ggD( GIxx(xggBM@( I @x0xgOFgAKb5gP+@AIxx IxgI 4g`J Ox`KO0OHhO`MxgNgMx x5ggD( AIxx(xggBM@( I @x0xgOFgK27g\7IIxx IxgI 6gg`J Ox`KO0OHhO`MxgNgMx x6ggD( Ixx(xggBM@( I @x0xgOFg:K8gP+@:Ixx IxgI B8g`J Ox`KO0OHhO`MxgNgMx x8ggD( :Ixx(xggBM@( I @x0xgOFg?K;g0Xx%xIxgI h:gXK9g`J Ox`KO0OHO`Mx2:gg`J Ox`KO0OHhO`MxggNgMx x:ggD( ?Ixx(xggBM@( I @x0xgOFgKj>g8x  @xg@Kx(g)g$(R<gR@x&x xgK6<ggg;gK<gg0x'xIxl=ggg0x'xIxgj ` )ZpggI >g`J Ox`KO0OHO`MxgNgMx xggBM@( I @x0xgOFgCK @gP+@CIxx IxgI z?g`J Ox`KO0OHhO`MxgNgMx x?ggD( CIxx(xggBM@( I @x0xgOFgKjBg (x`ZK"AgDIxxIxlAggDIxxIxggI Bg`J Ox`KO0OHO`MxgNgMx xggBM@( I @x0xgOFg8KCgX+@8Ixx lxjCg`J Ox`KO0OHhO`MxgNgMx xggx+@8Ixx M`@( 0xgOFgKFgxgHx(xT7lxEgxg(hghPKDg8x8Egh K*EgxEghKhEgxEghKEgxgEggxg.0xxggOgg8X FhP@X0(8p hxpxX@(gg.)gggg"gg D gg`Zp00g^ Zpg g( kgn @xZp0g2 0Xgn @xZp0@g@Kg\JO0OOO(`M0(gM0 0gggXg.gpJ pX@80(lg& 8gg @HZ g& ^gD0g"Xgg"gggp@HlP,22gg" *Kg6)Kzgg gggXgHPZpPHPHgg28kpg"p^g~ @0HPZpPHKPH0g XXBgg ^gggBpppX@tgp @0HPZpPHg8g0D80PHXgg tggp@g(tP X@Xpp>80PHHiHi8 (Hi Jgg^Zgv(x ZHHg0@&H gg (`Zp`H0q`H0ggh`Zp`H0`H0g2h8kg"XNg~ @`Zp`HK`H g H2gg NggX|gB@H0Hg@ @`Zp`H0q`H0g*qHKHfgz@ @`Zp`H0`Hgq0 (hhH`Zp``H0g gg) (hhH`Zp`0`H0gg@g08 b pX(@2`H0Dggg| Zx``x`gLgp>g g&NgpOg2)0gxqH Zxxggg!(D ,x` a $h  "a  "a  *~  &o  &o  .  .  $h   "a   0   &o   $h   *~  $h  *~ ! *~ $ &oV  &xRRME(@n06 <nhP0hpt0Hx`@ʀ @8 @ꀎh @| x @%Ϣ%ꀦ  @  @ꀢ @ꘂB @@ꀐp @`@ꀆ@ʘBꀈ0 !@ꘊ`B#˵%hBrB^HpHvxHʘBʀ @ʀP @z8ph @ꀠP @0 @,  @~  @ꘀ B&PB‘@ʀ @@ꀨ @P@B dphB"ꘌB$PP00p @x`@H` p8lP%`x:Z*\R1*#278$*\Rffff*D85b193b5e(*\Rffff*D85b193b5e\066    08  @ ` Dp 8 0 P0pD084P. ..(8(`>"$$(@h>R^ F `*X$    0^^0p@һṹҳ]$H=Public Const sheetNameValueTJ As String = "2ʵͳ"]$Ϣ2Public Const IntroSheetName As String = "˵"]$H]$˵0] x ¼ܵУ]$`¼ͷ] "ִ һǿУ ĵԪĿ] 6ִ һǿУ ĵԪΪϹĿ] ÿһкϼеֵ] "һǿУʱ¼Ԫ] Ϣ] %---ģУ¼ĸԪ] 8---ģУ¼ĵԪ]   Уʱ洢ַ] P¼ʱرհť]  ¼ܵУǷвϹ]  ¼ܵУǷظ] #¼ܵУǷظ] %/¼ЧǰǷдϢ ״̬] #У鷽ķֵ]$)¼ʼк]$ )ѧѧſʼλ]$)ѧ֤ſʼλ]DP¼ΪյĿ]@"/ǷΪЧ ͳ 5ֶΪյĸ] "C¼ȥոִнȥ˿ո򷵻true򷵻false] pPcellԭʼĵݣϵͳûнԶûĴ֮ǰcell] 7ϴдϢʱڵ,ӦĿʼʱʼֵһ] ] ] RڸݱʶòͬķʱжǷforѭ Cell_SelectionChangeҪõñ]$¼ʡصȼ¼ڵ]$+sheet±Ƿ] @]$h0)е]$p) Ա]$`+յAttribute VB_Name = "" Public TypalueCo8lum8p 'c@nIndex As I@ntegerTø P'SngEndn _ 'һṹ0ҳ"Const sheet{V1 p1 '/ATJD2`ͳƀ m8sgS8 bϢ8 ro ˵ 3Area3Kdme0totalCountJu¼ܵУ  $startTitl7 ' ͷ atLeaOneNNulD 'ִ tǿA ĵԪĿ\Ϲ`J;Money;Varia>'ÿһкϼֵK Err or@ -ʱ/A>A{C/ e Ms>gAD rgoldRang@e '---AԀģЄ ĸFTargen Vqfuncti@onArgsh'0">@ַfisSaveButton}CAʱرťhas(}Boolean{'L0Щ7 TheSa@_ĮIdN\um]n idaै_Чǰ>\״̬checkMethodXQAA1A0ķRaRowSq0= `r+пʼx!xbabyID"J8= 2 'ѧɀѧ0λæccard3 ֤)Dim isA1(Ϊev%.AFΠЧ! a 5ֶc fremoveSpaceFlatEBȥո@πa$ˡ2tr@uefalse ceࡌ2!2a@|ûнԶûwG֮AKsc ur`@*)Long 'ϴxдO!a@,ӦĿʼʱsֵһ&rna%'`g`cQbisF0SI2ڸݱʶòͬP-CE жϱ?forѭ C_Sele bJChQҪõwb)headdI= 0(/ʀصȱ& Susv9r0v±0 nottinu~eQ$Aq0NӑP luBW:104 @'gHwge rC:Ա w birthd$ay= @ڵ rU@@@@~xHq  1 a'A Q 1 -!Q!QdQ0 !!"`%$1%%%!&&&`& pl'A'a)))))1****1+,,h,,!-ggD08 Z8`0l@8g@\gLpI(pg\h8 Z8h8hg{gg\h8 Z8h8hg\h8 Z8h8hg\h8 Z8h8hg^h8 Zp8h8hgg pg4p 8 Z888gPg8g^h8 Zp8h8hgh8 Z8h8hg8Z  8V!hh"8hgV#Ipp( pgg$?gg %Ipp&O'O(? p gg\h8 Z8h8hg{gggdh8 Z8h()8hgx>JgLp*I(pg p$g\h8 Z8h8hg{gg pgh8 Z8h+,O` 8hgxg( kg-g.g/g01g02gpg3g p4g(X"k(PgzX @h8 Z8h58hg p6g0\gV7Ia (gV8Ia (g"qnP gFqmlqnl gv @8Ia (g$gKl gv9Ia (g>qmlqnll gj @ExppXp 0xg gg g6p> gv9Ia (g>qmlqnl@ gj @ExppXp 0xg@P gg"qnP|g$gKpgv9Ia (g>qmlqnlpgj @ExppXp 0xggggv9Ia (g>qmlqnlgj @ExppXp 0xg6gggx @X @h8 Z8h:8hgX(g6.T.-C7l0gZ;O<O2O=Op`1pgg1g ppRgg/ggpg`Ag g>lplgxlph8 Zp8h>?8hgg"lpg3gg gg2h8gh`!ghKxg4@ ggNkhp pggh8gdg^p@OAO( pgg~gLpBI(pgdh8 Z8h()8hgNh8 Zp8hC8hgg pDg& gD gLpEI(pgdh8 Z8h()8hgVFIpp( pggLpGI(pgdh8 Z8h()8hgNh8 Zp8hC8hggg\h8 Z8h8hg\h8 Z8h8hg\h8 Z8h8hg{X4%@(X@(P8X8@hpP`P x8hpHi@ aS SrU@@@@~x!!Y &[a4cQeeAaaa'f[kQm!imQR!opqHi Pgg6KXgg ggpg2plgggggL&p Hi`HiHiggL@`g(rAD2gpgpggLPgpgN@  (gpg Jgpgq`fgT IH HHgp>gzgrk@ k0Hg`fg g@Hqp I KHggpD 2HHi@HiHi`HiHiHi0HiHiPHiHip Hi Hi HiH Hi Hix Hi TggZ Ia (hgg"Kg6hPKggg gg g \g6b \g gg$h8g$h g0OgggKg$b gZKhEb mgg gggtOP gnOP gKhEb eKp8PhEXPb P8e 7lX8~gg ggg d>8h 0\ PpX8 Hi@HiHiHHiHihHi Hi8gggbIppX(X`pXg&@qgg gg2lg&ggggg8X2&pX&gg6KXgg ggg2lXggKpg$@XpRgRX g<Xp<gR hghK ggg gggXpgggg \ (Xhp&@ggZ Ia (hg6hPKgg gg8g28lg.gggg @L&8h& a&o "a $h "a  "a  "a   "a "a "a  "a  $h  "a  "a  "a "a  "a !$h $$h %$h ($h )$h ,$h -$h 0"a 1"a 4"a 5"a 8"a 9&o <$h ="a @$h  A$h$K*   rU@@@~~~~~~~~~ ~~~2~~ ~~~ ~ ~~~~~~~~~~~~~n"Q*zJKky  aA  a A aA  q @ a q pa"""#A###1q$A$q$!aPQaq !.../A////+'0A0q000+111Q11112A2q222313a3334qaq  A aA Q!  VBAProject ThisWorkbookSheet1Sheet6ӡԤߺУ麯ShowFormSheet5 PrintFormF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A qPF  E:\office2013\Office15\EXCEL.EXEExcel 1p0FC:\Windows\System32\stdole2.tlbstdole aL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOfficeMSForms A.E .`M C:\WINDOWS\system32\FM20.DLL e*'@|G2:2C:\Users\lenovo\AppData\Local\Temp\VBE\MSForms.exd  У򲢴ӡϢ checkTheSame  Browse_PrintFnC{L3yF*)BnS̓DFWorkbookWorkbook_BeforeSave x .`/f&Tnx\OX[excel YOX[ pQVBE7.DLL`  a nx[ , &|~\ۏLhg!h Y NOX[ pQ Sm ?S Q(~ Oo` Nxh f , deleteRow setCellNumXQdeleteRowNoPro JJ  8PhpxFF&mFUnprotect CellsClearContentsFGetRowOrColIndex&m 0]\Ohpev Ncknx N}ge!jgT QۏLdk!h 1qaz.PasswordProtectEnd&t  A65530 RangeRow IV5F G41@$mۛ F V w@]ysDF WorksheetcallFunctionXQStart regCheckFunccheckTheSameXQNewcheckDMB:FF FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartgetCellValueCountXQbeginCheck_commentsetCellValueXQ setDMBCode removeSpaceXQ 4`nx[_YhgT hgǏ z-N RsQexcel &TRS[penc"N1Ybhg1Y% )nc:yTabColorIndex "l gg~b0Rf[uOo` elۏL!hName -NOo`Y N  value - ( checkRXDate(~ : ; Locked ,{ Lvpency -N\ gN*NkXQcknxhgRows Delete dk!k!h-N RdN :LeHepencY T0NNSR!h1Y%sS9eL:NeHepenc  checkFamTypecheckXn * gOo` g w Oo` h ۏLOck Select !hǏ! SUCCESS * g͑ Ypenc g w Oo` h ۏLOckiYtGh"{88@Dh'1ܷ]9keE\N< Jhٵ checkRequired checkStuName checkName checkBirthdaycheckBirthdayNecessary IsIDNumber checkSFZJLX checkSchCode checkYear checkMonthcheckXJH checkPhoneNum checkBank checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLink checkNLencheckNowNecessary checkSqly checkBZSM 0 checkLen*x !5$o checkLen checkNum* checkNum checkNLen* checkNLen checkVal* checkVal checkInt* checkInt checkTerm1 1 checkTerm checkYesNo1 checkYesNo checkDiffName1 checkDiffName checkDiffCode1 checkDiffCode checkSQLY checkMonth checkIDCardType1 checkIDCardType checkSqyyName1 checkSqyyName checkYear1 checkYear checkXXSHZT1 checkXXSHZT checkNull  N:Nzzhg checkName >kXQ Ncknx_{:NIlW[ ^'YN1 NǏ20*NW[&{ hg .kXQ Ncknx ySN:Nzz0kXQ R^_{:N MOhg 4kXQ Ncknx ySN:Nzz0kXQ R^_{'YNI{N MO N NǏ &kXQ Ncknx y N:Nzz N^_{:N ,kXQ Ncknx y N:Nzz N^_{'YNI{N LkXQ Ncknx ySN:Nzz kXQ R_{:NpeW[ 'YNI{N0 tepeMO^ NǏ MO N\peMO NǏ *kXQ Ncknx y_{:Nf[uNShg   DkXQ Ncknx y N:Nzz N_{:NpeW[ 'YNI{N0 tepeMO^ NǏ $kXQ Ncknx y_{:NpeW[ 'YNI{N N NǏ hg 8kXQ Ncknx ySN:Nzz kXQ R_{:Ntepe 'YNI{N  N^ NǏ 0kXQ Ncknx y N:Nzz N_{:Ntepe 'YNI{N checkSfzjh &kXQ Ncknx VNN{|W:Nzzhg E\lN 1,1,100 HkXQ Ncknx y N:Nzz N^_{'YNI{N1MO N NǏ18MOhg checkZjlx kXQ Ncknxhg checkXJH 1, 1, 50 HkXQ Ncknx y N:Nzz N^_{'YNI{N1MO N NǏ50MOhg checkBank 2kXQ Ncknx y-`othersMoneyColumnߥ`othersMoneySumH`(atLeaOneNullCount` (atLeaError~` (regCheckFuncE`reg`regEX*` CreateObject`Patterni` IgnoreCase0`Test4`(checkTheSameXQNew` sheetIndex2n`(rnaO`Range `xlUp`Row` ClearContents{`cardID1[?` (cardIDColumn-h`ja`cardID2\?` (hasTheSame`(GetRowOrColIndexf`keyWordF`kbn1`cZ`Findn`WhatC`LookInP`xlValueso`LookAtO`xlWhole`Columni`value1`flag`Trim@`rowData1`Count0v`rowNummR`(AreasheetIndexH` (deleteRow` Unprotect?`Password`RowsU`Deletex` (setCellNumXQ`(deleteRowNoPro`(setCellValueXQ` codeValue` (columnPlus`length1S`length2T`Replacef` i`(!ValueColumType` columnNamew`(sheetIndexValue1` (AreaSheetName`(readmeSheetName` (totalCount-`(rgold`(TargetF`(hasErrorInValidateU` (dataRowStart` (babyIDColumn` isNullRowNum8`(cna`(notContinueBoolt` (genderColumn~`(birthdayColumn0` У麯&` heckStuName~"` (checkNameO`(checkBirthdayNecessary`IDNumber4 `Wm`UCase5 `Tk` IsNumeric$*`Right ` (checkSchCode` (checkFamType` (checkRXDate*`regcheckNowNecessary2`(checkXJHF`years`value2` (compareDecN` maxIntLen1` maxDoubleLen` intLength`intValue`douValue` (checkIsIntR` (checkIsNumberG` (checkMoneyTJC`(checkPersonNum `(checkIdNumLinkUz`IdNum>` isGenderRight ` isBirthRight` genderValue` genderValue11` birthValue` birthValue1~`year6n`year1w`month`month1`day`day1;`arr u`st(_`timeNowy` timePrint`Now%` ` rowDataNumn` typeValue`bsTypet` valEntity܏`val`typeRow` isNullRowArr/` sheetCountB`Protectf` Application*`ScreenUpdating! `sysDifficultyGradeNameFlag`indentifyDateFlag `xlToLeftWY`rowType`Locked ` totalMoneySumZ`pg`qh` (checkTheSameg`myDico`myKey`varData`idNumDick` idNumDicData`cardNum\`Exists]`Addr`Keysq`Resize@4`WorksheetFunction&` Transpose` ShowForm`CancelButton_Click`Hide9z`ConformButton_Clickwf`Flasep` Sheet5` PrintForm`Workbookk` Worksheet` BeforeSave` _B_var_Chr\;`_Defaultj`!_B_var_sysDifficultyGradeNameFlag_`_B_var_indentifyDateFlagE`_B_var_isNullRowNum;r`_B_var_i `_B_var_isValidateCount"`_B_var_j `_B_var_rowType`_B_var_m `_B_var_n`_B_var_totalMoneySumY`_B_var_p`_B_var_q` _B_var_value`_B_var_titleMsg` _B_var_Midp`_B_var_functionArgsArrOj`_B_var_resZjlx`_B_var_a` _B_var_result`_B_var_s` _B_var_LCase'` _B_var_a1` _B_var_A2`_B_var_baojiaoMoneyColumn<`_B_var_baojiaoMoneySum`_B_var_huoshiMoneyColumn`_B_var_huoshiMoneySum`_B_var_zhusuMoneyColumn`_B_var_zhusuMoneySum`_B_var_othersMoneyColumnk`_B_var_othersMoneySum{` _B_var_TrimmT`_B_var_heckStuName`_B_var_sheet2RecordNum`_B_var_ffTotalNumColumn}#` _B_var_Count:` _B_var_rowNum` _B_var_value1J` _B_var_UCasea` _B_var_Right9`_B_var_maxIntLen`_B_var_maxDoubleLen`_B_var_intLength `_B_var_intValue\`_B_var_douValue` _B_var_Format`_B_var_cardID1^3`_B_var_cardID2_3` "$' =?AK-7 m9 "@ `0(P7q YX J   ( -UxMEx6 LL L"L <` :@`@8kP@ @ @ @ @X ` @@ ` ` ` `4 ` @8%pXX@p@x@(XD2^\`@8 @0 @X @p @ @ @ @ @0 @`p @h @P @(8 @ <`084@ @ H6X@ @ @ @ 01@ 1@p ~R,@(X @@ :@( :@ @ @0 HB@p 0B@ @ pH@ H@x @p J(0L@8X PP@p@ `8P8R@( pY@ Y[@ _@p _0ae@  @ @ ps@ su y@h @ P 8 {@8 H { @Z$*\Rffff*D55b193aaa*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*D85b193b5e*\R1*#11c*\R1*#42$*\Rffff*D95b193b60*\R1*#129*\R1*#278$*\Rffff*D:5b193b60*\R0*#2*\R0*#f*\R0*#1 h"hp:x.6" "H.p D  :L \8@\H\h\>^":  4P,`$>^, ( ~@$PV 8X x   \ @ HP.dX ,L \ * *8h(%0%D%%%0 %P%,p%&  (#6z$J  $"h (,V (PV (`" (,LFp 4Jv <($ <? 8 D6vH D0> HBj D @ ,  ,0  48v( 40>` 8 j 4 0 )"( <($ <<0 H6v@ H0>x PBj H < (" ,8v(,0>`0 j,($$x  < 68(LZP(&( (   )$  > ,`, p (,>40x, ,",   (8(2@h x*4 +$N  `^` h4LpdN   &4 $(LPdhPV 4LdN(8 @ \H \h \ x"(0@2P$@6 (*8 :h   ,08@ Pa--------------------------------------------ʼУ-----------------------------------------]X]p+ijһ͵ıʶкź͸ʽ3:1;2] ʶ(ĬϱʶԶʶ)](ijһ͵ıʶ飨кź͸ʽ] ijһͱʶľֵ]Զʶ]%Ѽ¼ΪյкŷŽ]( D!L'"ȡĿ 0ĿȷģٽдУA@21qazV$DB@|k1qazV$DB@T1qazV$DB@T1qazV$DB@T ^$\!VB@"-$ÿοʼʱѴϢsheet,'`Ϣ¼ʼ'.ôУУ¼Ƿд֣׶ϢУ ('#Ĭ϶ѼδͨУ'Ĭ϶δͨУ ^$\!VB@"-$ÿοʼʱѴϢsheet, A65530$D%%! ' ȡxcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column IV5 <%%!B'FAILUREA@`&+ȡǷУɹ־Ԫ񣬲ֵʼΪ0'ռ¼ʼΪ0 0 8" ʱִd ʼУ鰴ť¼ʱִ.ȷʼ Уرexcel $4ܵݶʧʧ 6ܰʾ$2 8d1qazV$DB@|kk.$D!b(j)ҳǩΪɫ   "ûвҵѧϢ޷У飡A@2'01qazV$DB@|k'ôУУ¼Ƿд$D!дϢ£A@X      '<"ִ һǿУ ĵԪĿ';6ִ һǿУ ĵԪΪϹĿ'''5"һǿУʱ¼Ԫ'9ǷΪЧ¼ '~C¼УǰǷд';¼ԱǷд (  ($D%V!'Oһбʶֵ'2=жforѭǷcallFunctionXQStart ûִĬϷ <ʶΪ -$'Gʽ14-3:25 :$'H6ʽ3:25ȡıʶвֳ֣кź͹ DJҪּϵҪУ飨ĬУ͵ԶУ   Y&+1ΪеһԪΪĬУ $:$'V*ȡıʶвֳ֣кź͹$'SԶʶ  $;$'cԶʶ͵ľֵ   gԱʶб $  ( A@}ݱʶֵöӦķk  $;$'Pȡıʶв   WԱʶб $  ( A@Hk@ eJ ʽ3:25$'QԶʶ  Pʶеڵǰ$;$'eԶʶ͵ľֵ   kԱʶб $  ( A@ݱʶֵöӦķkd-ֻĬУʽ14$;$'Hȡıʶв   OԱʶб $  ( A@Hk@k8  ($D%V(  ( 6ִ һǿУ ĵԪΪϹĿ     е һдȷ''8УʱдϢ A@X  'd   ' Tÿһкϼеֵk  <,һؼֶȫ򽫸ɾ  +  ',"ϢеĸдϢɾ  `  ` `  ^$\%XB@Zr Ѹɾ  `  '` ~'k k   6 ɾЧ $'  A@RB ѸɾdP   A@RH Ѹɾk    ˴Уɾ :Чݣ֤У鶼ʧܼΪЧݣA@2k *дϢ鿴ϢA@2$D!b(j ^$\B@Hd( ',A@ ,'%ִУظݷ,ûظǷҪɾЧ Уͨ!A@2.$D!b(jSUCCESSA@`:+ȡǷУɹ־Ԫ񣬲ֵʼΪ0d( *ظݣ鿴ϢA@2$D!b(j ^$\B@Hk k 1qazV$DB@1qazV$DB@1qazV$DB@oP q-------------------------------------------------ظijһ------------------------------------------------@]] A65535 T%%! '2Scripting.Dictionary$.O8O  T%!'>ȡѧ  %"ѧ໤֤ݽб   % -֤Ų  B@"&#addһΪkeyڶΪvaluekP kH @ !$'Sheet2$DG:G7B@"  !(%* !LG17,&q.oAttribute VB_Name = "" '-( У&l Sub :򲢴ӡϢ() Dim rowDataNum%typeValue 'ijһıʶкʽ3:1;2?bsT '(Ĭ0CvalEntity8?: 7,@ֵhR0ow '>_isNullArr(500) As Integer 'Ѽ¼ յā0ÁP sheetCountWorks. 'ʈĿ If H <> 3 Thenm MsgBox "GȷԀٽдˁ@"(1).Protect Password:="1qaz DExit #End IfKUnpH 2).h 3_ Sas(m sgB).Cell]learCotnts 'ؼʱɂ` ,C7cur]= 1 'G A hasError=Fals`hôB/У Ƿ!֣׶r hApplication.ScreenUdpdng sysDifficultyGradeFla0b o϶Ѽδͨ!!cindeofy eOM?,?,-, rnaHRange("A65530").N(xlUp)..@1h/DcW 1:1F(What ]*", After:=[a1], S`DchOrBdAxlBy` s1Dir e2:=xlPreviousKolumtb$1.$IV5ToLeftks T®XQ 2,A8, "FAILURE"aG!7ɹԪֵʼΪ0 ƙ +AP `x isSaveButtonvbOK ฀ʱִEEZ^`Ӱť¼) ("ȷm cرexcel" & Chr(1`& "ܵݶʧ0ʧ7Can`@&ܰʾ") c"Ř@ kO TQKTab`PlorIP8x -4142fҳΪ8ɫ b2startTitle\ +PIlb cвҵ ѧ1G0޷!bQ%_Q!%ee`9QhU>ÏUUQ1writeLog + 3S`'"ֲY£?->  {Fbi2 ToaP atLea0OneNQ= P>: Ҁǿձ BOPHΪ᧵?totalMoney&ewF "? z"URzSis`\izeH[Ϊ015/InE 'ǰQC0w??9dcbTԱ~A}-j 1,pW=9(1, j ).qɵһ㾥_$is = $forѭ callFuncXQSV S5̗Zw p&QZ ' !/= SY t(o-o'C14-3:25cۿ ":c˵Ad0P?c?UBId(S) 00s"ҪּϵQQ0͵SUO ?For m = LBound(bsType) + 1 To U '+1ΪеԪĬУ 0valEntitySplit(m), ":") 'ȡıʶ@֣кź7ŅZtRowDJ(0?Զ=3v4"0If iSXThen)'@>bGA1b;bBľ`ֵFpor n@)#H'ǀ=callFunctionXQStart (n>1, i, j@sValidateC΀t 'C$ֵӦķ &&NextEnd If! me aAYsA?= False YM5WCw"W? U U rSoSQ MKE=?row<> 0?kʽ3:25_eǺ v `W) 'еڵa3E?_ʶo?__4__?6_ i_____9:X'ֻЅ)B914'YY//O$O$O$O"O"M" ?oWorksheets(1).Cells().Lock|edJz = j}'ִ ŷq ĵԪΪϱUatLeaOneNullsfA0= 6?merrorMsgP"" && "0\6ArE"дȷ"GhasC= True 'ʱeд8ϢOOwriteLog /=S=^T+ ?/~!OntotalMoneyLSu+ 'ÿһ@ϼO4?Q},c>1 'Aؼֶ򽫸ɾ is+Arr(Num) )iK %isNullRowNum = 8+ 1 &P'Ϣ@ĸ +PFor pcurM$sg -ValidateCount To ,oSheets(msgNamHe).8s(=).Delete 'Ѹq+pNext peH=|is +h asErr[= InEnd If :i5q0| - 1 '_Ч Л!@|rowDataArr(Dq)If D!hen^ ŗdŠ1, )Else -V;3;qw&j6> 8>(~Box "˴Уbl" &k & "?ݣ֤@СʧܼauΪ"-feTeF鿴 Worksc1).Tab.ColorIndex`b672S`Qct7J `S` FaAOcheckXQNew (1hq'NotE n0 'ִA;ظ7,û'ǷҪဵą;3Cͨ!/!ı/-41427 setCellueXQ 2,A8, "SUCCESS" ' ȡAɹ־Ԫ񣬲ֵʼΪ0 g(o(o(?o(o(o(?vm(^7Protect Password:=`"1qaz2).73 Sub '-g!/һT  7(7Dim myDic As Obj",KeyVarian?B4`, varq|rna@Active.Range("A65535").P(xlUpB '*Set idv = CreS ("Scri@pting.tionary"Ce" = "O8"4O`@ ).valu4ѧɂq` qEach cara In# 'Ա3ddIZG 0V<> "" 1M1Oe `.ExisP) 'Ne81Add, a 'add#Ϊkey*GO{sSmy"=5C$.srWith 4"!2W!G:G!ClearConten.tc0 &1Resize(+`m@)&pplicaE1!.Fun@(on.Transposa #1 S'c0= `hP&  !: 1(%3xME`> LL  `&  X xB h $**( tX*xj`& ($8HBPp `x $6 H Hd (xh Hj(( Hj(p Hj( ` &h B n $@6Ph Hp 86( 8<( p &x B n $P6h H 86( 8<(  & B b ` $6H&P  x ,  B  f P! $p!6!! H! 86!(! 8<"(" p# &x# ##B## f# $H$(8`$ $ T`$ &$ % (%0% $8H% &p%$X`%$&%$ &$$(& 8& @& *H& X&$t``&$&&$ ' ' $' ' B('H' ^P' $'"\''@`'&8( `( p( Dx((B(( b( $0)D@)`) t`h) &) * *B *@* bH* * $****+&+ + ++B++ ^+ X, $x,6,,X`,&- 0-@-BH-h- ^p- - $-*..X`.&p. . ..B.. ^. @/ $`/*x//T`/&/ 0  0(0B00P0 nX0 0 $0*1"181&1 1 22B202 j82 2 $2*2"2 3&3 33B4 4 n(4 4 $4*4"45&5 5 5B55 P6$P6*h6x66&7 87 H7P7BX7x7 R7$7878X`8&h8 8 88B88 b8 $@9$PX99@`9&9 9 :$D:0:B8:X: ^`: $:"P:;@`;&H; p; ;"D;;B;; ^; $@<&PX< <@`<&< < =&D=0=B8=X= |`= $=$\= >((>@`P>&> >  >"D>>B? ? |(? $? P??@`?&(@ P@ `@ Dh@@B@@  j@ $(A0@AXA `AF`pA A@`AB&B 0B @B0DHBxBBBB pB$C(80C XChC$pCRCC CC C CC0C DD0(Dj@D`DhDn`pD&D E EB E@E tHE $E$PEF@`F&HF pF F$DFFBFF NF$0G.HGDxG GDGG G`G&XH H HHBHH dH $0I XHI@`hI&I II2xI J x(J $J6J.HJ(K8K( @K2PK( `K1pK( K2K( K1KK KJK.0LHLPLXL `L fhLB L L<.L M @MXM$xM$"MM M M \N B N,O 00O@^`O"O ^O 6(P(`PnxP2PnP0PH\QPQpQxQQQ Q Q "8R `R .RB &R R$RBR 8S HS "XS  hS "pS SSS S 0T HT `T TB T""T 6TT T TTU U8(U`U22hU"U ~U  U U  UU VBV F0VxV V V V *V V V xW WB WW*W 4X8X p@XB XX XX Y Y YB Y*YZ ZB Z^Z vZ Z ZB [ [ "[ [8\22@\"x\ ~\ \  \ \ \ \B\"]0*0] z`](] ] ]&]] ] ] ^B ^^V^_ 80_ |h_ _: _4&_$`28`"xP`x`` ``-----------------------------------------УУдϢʾ ע----------------------------------------------------------- Ԫ] N P T%V'R R'Ld('Lki--------------------------------------------д־ ¼ϢʾһϢ-------------------------------------------- Z ` ^$\,V ` '`iX--------------------------------------------д־ ¼ϢúɫʾϢ--------------------------------------------( Z'd Z ` ^$\,V d ` ^$\%V%f!h(j ` '`ipi--------------------------------------------עʼУ飩-------------------------------------errorInfoע 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p N P n$D%VB@r N P n$D%V!t(vW ӻɫ N P n$D%V!x(Fii--------------------------------------------ɾעʼУ飩-------------------------------------x1Worksheets(sheetIndex).Unprotect Password:="1qaz" N P n$D%VB@| N ~ P  N P n$D%V!t(jd`  N P n$D%V!t(jk0i(------------------------------------------------------ ȡָcellֵ-------------------------------------------------------------0 N  n$D%V!'ihr---------------------------------------------ʼУ Ƿӻɾעõķ----------------------------  Уʧ N P n$D%V!xd жעΪ n N P A@lV עd"Ϊգȥǰע n N PA@zN ע n N P A@lk1 MsgBox "" & rowIndex & "" & errorMsgd :УɹжǷעУʧʱעȥ n N PA@z ,#ȥո,ʾ NУ PУַ"$4 "$4"а˿ոϵͳԶΪA@Xd`kXkPiH----------------------------------------------------------------------------------------------------------------------------------y--------------------------------------------ݱʶöӦķ(ʼУ)-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ѴϢдб N P n$D%V'  P n$D%V'Iȡбͷ Ϊϲеıͷ  P n$D%V' N e  P n$D%V'k0'  checkLen*)ΪУ  $'checkLen'  checkNum*e-ΪNumberУ  $'checkNum'  checkNLen*e.ΪNumberУ  $' checkNLen'  checkVal*e-ΪֵУ  $'checkVal'  checkInt*e-ΪֵУ  $'checkInt'  checkTerm1e-"ǡ"Ϊ1' checkTerm'  checkYesNo1e/"ǡ"Ϊ1' checkYesNo' checkDiffName1e2ѼΪ1' checkDiffName' checkDiffCode1e2ѼΪ1' checkDiffCode'  checkSQLYe-Ϊ1' checkSQLY' checkIDCardType1e4֤Ϊ1'checkIDCardType' checkSqyyName1e2ԭΪ1' checkSqyyName'  checkYear1e. У1' checkYear'  checkXXSHZT1e0ѧУ״̬У1' checkXXSHZT'k _=================================1 ִеķǿУ==========================================ѴϢдб checkNullKTx n N P$'  N е Ϊգ'')УʱдϢ A@XRMsgBox "" & rgold.Row & "е" & Chr(10) & titleMsg & "Ϊգ"k n  N P A@'a=================================2 ִѧУ========================================== checkNameKT n N PA@@ȥոķ N P n$D%V!' $'  N е ;дȷΪ֣ȴ1ܳ20ַ''%УʱдϢ A@X  'k n  N P A@'Z================================= ִеijУ==========================================checkLenKT  $'  ,$'$ ` ΪDZΪ̶ȹ N е .дȷΪաд򳤶ȱΪ$ λ'$ ed ΪDZΪȷΧ N е 4дȷΪաд򳤶ȱڵ$ λҲ$ λ'$ ed ΪDZΪ̶ȹ N е &дȷΪգҳȱΪ$ λ'$ ed ΪDZΪȷΧ N е ,дȷΪգҳȱڵ$ λҲ$ λ'k '0УʱдϢ A@XkX n  N P A@'h================================= ִеijУ飨Numberͣ==========================================checkNumKT  $'  ,$'$@ ΪDZΪ̶ȹ N е KдȷΪգдΪ֣ڵ0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е CдȷΪգұΪ֣ڵ0λȲ$λСλ$ λ'k'0УʱдϢ A@XkH n  N P A@'h================================= ִеijУ飨Numberͣ========================================== checkNLenKT  $'  ,$'$@ ΪDZΪ̶ȹ N е KдȷΪգдΪ֣ڵ0λȲ$λСλ$ λ'$eD ΪDZΪ̶ȹ N е CдȷΪգұΪ֣ڵ0λȲ$λСλ$ λ'kp'0УʱдϢ A@Xk0 n  N P A@'[=================================ִֵΧУ==========================================ѴϢдбcheckValKT  $'  ,$' N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@X& isValidateCount = isValidateCount + 1k@ n  N P A@'_=================================ִеΪֵУ==========================================ѴϢдбcheckIntKT  $'  ,$'$@ ΪDZΪ̶ȹ N е 8дȷΪգдΪڵ$ҳȲ$ λ'$eD ΪDZΪ̶ȹ N е 0дȷΪգұΪڵ$ҳȲ$ λ'k"'0УʱдϢ A@XkH" n  N P A@'`================================= ִе֤У========================================== checkSfzjhKT n N$'S ȡд  N е &дȷ֤Ϊգ''0УʱдϢ A@Xd  ֤  P$'O ֤У :֤У N е *дȷΪѧ֤ţ''4УʱдϢ A@X  'kd $'  N е EдȷΪգҳȱڵ1λҲ18λ''4УʱдϢ A@Xkkk n  N P A@'X================================= ִ֤У================================== checkZjlxKT checkZjlx 1$'  N е дȷ''(УʱдϢ A@Xd checkZjlx n N PA@k` n  N P A@'\================================= ִѧŵУ==========================================checkXJHKT 1, 1, 50$'  N е EдȷΪգҳȱڵ1λҲ50λ''0УʱдϢ A@Xk n  N P A@'[=================================ִпУ==========================================ѴϢдб checkBankKT $'  N е $дȷΪ֣ڵ$ Ҳ$''-УʱдϢ A@Xk0 n  N P A@'W=================================ִУ==========================================ѴϢдб checkYearKT  $'  N е *дȷʽ20122002ȣ''-УʱдϢ A@Xk n  N P A@'W=================================ִѧУ==========================================ѴϢдбcheckXnKT $'  N е )дȷʽ2012-2013ȣ''-УʱдϢ A@XkH n  N P A@'W=================================ִ·У==========================================ѴϢдб checkMonthKT $'  N е &дȷʽ0112ȣ''-УʱдϢ A@Xk n  N P A@'g=================================3 ִеУ(DZ)==========================================ѴϢдб checkDateKT $' 2Уʧ N е дȷдʽΪ"$4 xxxx-xx-xx"$4 2013-02-21''-УʱдϢ A@Xk n  N P A@'c=================================ִеУ飨==========================================ѴϢдбcheckDateNecessaryKT& $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4- 20131221ֻϵͳʱ֮ǰ''-УʱдϢ A@Xk n  N P A@'g=================================ִеijУ飨==========================================ѴϢдб checkBirthdayKT! $' 2Уʧ N е дȷдʽΪ"$4xxxxxxxx"$4 20131221''-УʱдϢ A@Xk( n  N P A@'J=================================10 У绰====================== checkPhoneKT $'  N е дȷдʽΪ"$4-̶绰 ֻ"$4 ''%УʱдϢ A@Xk n  N P A@'L=================================checkOption У鱸ע ====================== checkOptionKT B$'  N е )дȷȲܳ200ַ''%УʱдϢ A@XkP n  N P A@'\================================= ִ϶ѼУ================================== checkDiffNameKT checkDiffName  $'  N е дȷ''(УʱдϢ A@Xd checkDiffName n N PA@k n  N P A@'X================================= ִѧУ״̬У================================== checkXXSHZTKT checkXXSHZT  $'  N е дȷ''(УʱдϢ A@Xdx checkXXSHZT n N PA@kH n  N P A@'X================================= ִ֤У==================================checkIDCardTypeKTcheckIDCardType  $'  N е дȷ''(УʱдϢ A@XdcheckIDCardType n N PA@k n  N P A@'v=================================14 checkGender ִǷΪСŮУ--================================== checkGenderKT checkGender 1$' '-ԱдУ֤Ź N е дȷ''(УʱдϢ A@Xd0 checkGender n N PA@k n  N P A@'u=================================14 checkYesNo ִǷΪǡУ--================================== checkYesNoKT checkYesNo  $'  N е дȷ''(УʱдϢ A@Xd checkYesNo n N PA@kp n  N P A@'d=================================14 checkSQLY ɵУ--================================== checkSQLYKT  $'   N е дظ¼룡'd@ N е дȷ'k'(УʱдϢ A@Xd checkSQLY n N PA@R У'k n  N P A@'i=================================15 checkSqyyName ִбע˵У--================================== checkBZSMKT n N$'L ȡд ''   $ $' h'k8  1,1,100'  $'d0,1,100'  $' N n$\,Vk  N е ?дȷ,ֻ뺺ֺͲַ,ַΪ100λ''(УʱдϢ A@Xk n  N P A@'n=================================14 checkSqyyName ִУ--================================== checkSqyyNameKT checkSqyyName  $'  N е дȷ''(УʱдϢ A@XdxE checkSqyyName n N PA@kHE n  N P A@'G=================================У====================== checkSqyyDescKT N P n$D%V! 1, 1, 60$'d`D 0, 1, 60$'k8D  N е VдȷΪʱдȲܳ60ַ''%УʱдϢ A@Xk`C n  N P A@']=================================checkTerm ִѧУ--================================== checkTermKT checkTerm  $ N е дȷ''(УʱдϢ A@XkB n checkTerm  $ N P A@'r=================================checkAtLeastOneNNull ִһΪǿ--==================================checkAtLeastOneNNullKT  'A"ִ һǿУ ĵԪĿ $ =Ϲ   ' P KTF   ' KTF   ' KTF   ' KTF   'n8@dϹ  'F6ִ һǿУ ĵԪΪϹĿ    'k?'n?i?_--------------------------------------------ʽ-------------------------------------]pVBSCRIPT.REGEXP$. 7RegExΪʽ (4 ȫֿvba\ת  (.ʽ (5ǷִСд  %'3 ִ. i(>-----------------------------------------------------------° Уظ˵Ѿûиʽ------------------------------------------------------------V-----------------------------------------------------------1ѧ׶ڱڲ(sheetѧ׶ A65535 $\%%! '*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@"1&ÿУظʱʱѴϢsheet,'`Ϣ¼ʼX==============================ѧ׶ڱڲ==================================0ðÿԪغ֮ǰнбȽ     & $\%V'$ (   ( & $\%V'* $ *.ѧͬ˵ظݹ ( еݺ͵ ֤ظ!!!!' A@X*ѴϢ',k:x:p:ih:-----------------------------------------------------------һ ֵȡֵ------------------------------------------------------------ֵҵֵڵлkeyWord ҵĹؼ'kbn л ֵΪ rowrow'.]the find result object 08 <: @> A1:A65535 n$D%%6.4 4 2row 4! '.d8 4!B'.kx8kp8ih8------------------------------------------------------ ִڹУ(Ϊ)-------------------------------------------------------------value value1 cellУ鲻ȷfalseУȷtrue F0˵ΪDZ D$H'z7k7k7]'Lijһļ¼ A65535 P$\%%! 'NB' P row$.'J=ȡ  J N  P$\%V  L 'Ld6y6k6  ( J J L  ( P$\%VX DX LжϹǷcell'yx5kp5 (#ʱcountĿΪùеĿi(5------------------------------------------------------ ִɾijһвexcelܱģ-------------------------------------------------------------sheetIndex rowNum к1qazV n$DB@T N n$D%XB@Z/ Ѹɾ- Worksheets(sheetIndex).Protect Password:=123i3j--------------------------------------------------------------------------Уʽ˵--------------------8 1qazV n$DB@T  N  n$D%V(i3------------------------------------------------------ ִɾijһвexcelûб-------------------------------------------------------------sheetIndex rowNum к N n$D%XB@Z/ Ѹɾi1------------------------------------------------------ ָcellֵ------------------------------------------------------------- 1qazV n$DB@T  N  n$D%V(i1------------------------------------------------------ ݴеֵǰʱѾͨУ飩------------------------------------------------------------- ]X p  N  n$\%V!X 'R'Lijһļ¼ A65535 P$\%%! 'NF P row$.'JAȡ  J N  P$\%V  L 'Ld8/y0/k(/  ( J J L  ( P$\%V!X 'D D RX 1жϹǷcell ( P$\%V!'b bX N  d n$\%V(yP.dH. N  d n$\%V(k. (i.------------------------------------------------------ ȥcellеĿո------------------------------------------------------------- ]X Ԫ]p  3Blength1ʾcellԭijȣlength2ʾִȥոַ'ĬΪûȥո2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N  n$D%V!'D D'f fGzj*"ԪΪգȥո D 'h%length2Ϊոһγֵλ hַո D $j'D DX N  n$D%V('kx+ip+h+|Attribute VB_Name = "ߺ"  '-%УдϢʾ &( Function checkedRequiredStart(rowIndex, c olumn )  { 'Ԫ@Dim cellValue As rSng= A;veShePet.Cs6If-" Then*F_Fal4seETrund If < E)[д־ ooһkqmwriteLog(content]iX`s(msgB)[curMsgRow, 1)JCK + 1?D DúɫCE ERedVFnLen7@LZ.Characters(1, ).F7.Colorl=31*SS  ʼG` errafoaddCHommQXQ#s|", ,  0t'Work s().Unprotect Password:="1qazOey.A N( ..Itrior#=<65535 '1૱>%  d/.VisiblĠ_?ɾElearsCk΅"BB ?+0+ 5`&[!*2Recp)Nu8m A:HtffTotal`?um u\4&UE15l lqXOO .ExlNondu(u?%- ȡָȨAֵ?*getBBCountXQXHLKQs.v}w^ Y^ Ƿ2Gu=õpob eginCQ_c^zMetho~d_r _ `NotÜR1 'iʧ ,%+H Is hing!$жOΪܿ/Tn 'j| _AOA9ȥqס$ cWt_ Z '_ aw/ !uA<' "Box "" &V& "B{'tt$ɹf!0гQѕ&ʱߑ rԇq+remo0рpaceFla(!/Q,ʾ:%)j@УַChr(34)KVCt& w"а ϵͳԶΪa%< A ]!q?Lb- '`%0ݱʶöӦķ(ʼУ)",%+'BѴϢдб Functio@n callXQStart(typeVal, sheetIndex, row@columnisidateCount) value = Work$s(').Cells(*"titleMsg#s\T, O) 'ȡA=ͷ Ƈ(If "" Then 'ϲеıͷ 7/%0 - 1 &GElse"EB@:headW#!HW@End Iff!DArgs!"0"JÅ Like "checkLen*MGĄD Mid9& #EH%O 1H&Num, bernm =&N&k310?'ck zL'ֵ:aF&&Ǡ IntAM?9eM- '7MTerm1`""Ϊ`"1 _ YesNo  2 ? DiffNameѼA?%$ xB Cod O =% kSQLY%/ / \- R %^IDC0ardTP`֤͟ a o(Sqyy&ԭ&"G_ _ ] e? A? kYearZ/Vf _ _ _ 0  kXXSHZT6 ѧУ״̬  :6= ̈Select CaseU4'=(1 ´AǿQ ?ϳó pNull URMethodXQ`Require>d(/2} Nxot /! error"X" &"!ʀ& "Ϊգ0/F hasE`Trп 'qʱ䣬aȿ fwriteLog. E ' Box 5 gold.RowO & Chr( TmbeginCa_comment,?isFor. o+.2.ѧ/_Ky-{O removeSpacep-'ݟ 'AȥոOOO).$ checkMethodXQ = xStuName(value) (If NotVvThenT^errorMsg"" & rowIndex "еtitle-& "дȷΪ֣ȴ1ܳ20ַ"0hasEGFTrue 'Уʱд@Ϣ writeLog kisValidateCounFt8+ 1E nd If beginC_comme(sheejt,, o0lumnYisForE '= ִAnAbAO K6Case "LenmM C, functionArgsЬ IArJSplit(, ","#!(0)@_0 AUBd 1 'AΪ¢Ϊ̶dϏ_EBs saΪ ա!w oQϵϵaw!zĵ h`{{A>0λSg?С_@5 VsQR___ ooooϦyT}rUAOL OVOVOVOV  dOVOVOVOVOVQOVOVAIVOԙ SV&ethodXQ = checkNLen(value, functionArgs) If Not|MThend Arr@Split( , ","~K NH(0)Q0  'ΪDZΪ̶ W5errorMsg."" & rowIndex" title& "дȷEΪ գ Ϊ֣ڵ0λT- x1)@λXС2"?ElseY1YWCYY܃YҿWWM:End IfahasEATrue 'У ʱ@д@ϢwriteLog ZWbeginC_comment sheet5"c, ,FfolumnisFoAa '=ִֵΧġ$ E)дaбk$Case "§Valh"& D o*lF C 1p@a=B?g?gc#f' is >idateCou c=.+ 1o nckEOn>~636Ϊjֵ66`L66Int65775p777`5X>&>"?|r(Ì?Oe@(,s򢏌> 6ϣsT WW dSS_[_TP cT֤>oRSf8zjhRe rre sZjlx?getCell`ku3kXQ(5,, 8 'ȡ*<ݟ)LG""r?4?4?4=4E"._,_,_,_,_,KOp? checkMethodXQ = IsIDNumber(value, columnIndex) '֤У  If Not Then ' RPTherrorMsg"" `& row "еtitle-& "дȷΪѧm첄"#EhasEFETrue 'fʱrдϢ#(writ`eLog r#isValidateCountG+ 1%End If Else_SFZJLX}Ö)Ϊգҳȁڵ1λ18@k>)c{/?  beginC_comme]sheet-I,*,k isForz '= ִЃ́=Case "BeZjlxt!DMB((, "1"4mk>$ #ۙset +Cod2, INjLXY_[g[Z+B-ѧŵ----XJH+-% ̂=LeBn"1, 50_-6l OG.a?c?c0c50?cm 1O2#?-.j4jM.]oO.*[пOpaб X]Bank/0g.q.\o `֣-AfunctionArgsArr(0)12?r(13 000 b%j'/0//}//t///+!//]?...Year..PE^#ϋ@//^/^/^/^20122002ύ++++g)e)ϳ beginCheck_comment sheetIndex, cdMethodXQ, row0olumnerrorMsgisFor = True '=ִрУ, YѴϢд! б Case "iXn"VuY(value)If Not Then4"" &" title дȷʽ 2012-3ȣq-hasEn h '^ʱ0EU2 writeLog 'End |If'q(·ZMonth$ *5E'UUU0112UUUc UeUߪߪߪaU3 ځV(DZ)+߬%ȬDate" 'rBir`thday?Y5 B'xw\&Ϊ`Chr(34)x-xx@  a-01aar[T[[oo0yo 0,00v_0\0NecessaryO1& =Now1/XQ"11 6}_q-111o1B3122@1ֻϵͳʀ֮ǰ2 2/*c_00000?0O,0R111 1e^0b Cbb00p0>b0<& 00& xcas0a~ ... a1j0000000,10 !绰H-Phone?]Num\pЯ`**" & ti@tleMsgP"дȷ,ΪChr(34)-̶ ֻ N " hasError = True 'УʱдϢAwriteLog\ eG''E nd If beginCheck_comment sheetIn@dex, c MethodXQ, row olumnFisFw0 '=7Op tion ע eCase "B2_H (value, 66)GIf NotA Then B|B"'LAУȲܳ200ַCC"˗ߘ ִ϶ѼfƁMS==>NDiffName4aODMB(V,B dQfunc`ArgsR?SjS{ߜQ? ElsFeTqset,Cod(-ɜ ck9 X]ѧУ״̬]k]XXSHZT\XQ\d\a)c\g$\O.πO.O.||LO. O.yN.v/.2}{/./././.sg/.+-".֤/.\6IDCardTyp\s\g..\3 05Eq0/ٰ߰09000L00!00*_0_0_0G_0_0_0_0|or/T_0O,14)GerqǷΪСŮ2--;)h`3o`P ̲=11"1"///GU)IdNum h!sԱգC74444/ 444* 44$6b6F555?G55555m isFor = True '=14checkYesNoִǷǡУ--=yH@Case "b" ( MethodXQDMB( :, value, functionArgs)(If Not a+ThenCerrorMsg?"" & rowIndex"е  title& "д첆s3hasE43 'ʱдϢUwrit`eLog - ElsBsetXCodKh, sPheetB>,@, columnATnd Ifb eginCA_commentJi,; <%'!SQLYɵAiSqly(]a!ca@O1 abbրظ¼b> [Uss EXww wcwBwBLwx '!Z'uy ?yck%?y"+yv15 #Sqy`yName ٱע˵w#!BZSMֹ@resultigetCellVaCountXQ(Ө8) 'ȡ!30 s Len(C azm" 2Ai0 ?o snpMid(L, i, 1_ "h"Ea (Next iO QONE? ja1p"1,00=C'"ZoNfA20IgA26S%}s)).Q+s(ᕎ, 9)?3 /_f }!//]/ȷ,ֺͲַ,aΪ100λh]l]N +qOQ3WWʛWHWM/XOhX]) 1p1??@C--q/???ğ?*?*?*?*?*KS>Ęoexo/'////7/*.Q.÷<-DescTpWork"[[wIndex, @column - 4).value = "" Then checkMethodXQ`Len(@, "1, 60")Else4V0Vnd IfXIf Not bv errorMsg"` & ro"е title& "дȷΪҁȲܳ60ַ"iahasEUSTr'1дϢTwriteXLog< 'OE_beginCA_comment sheetEɑ,U,#isFor; '=!|TermKִ@ѧH- -= =Case "dIDMB( , functionArgs)܁xA[ III 5GGck**_KҜ K KAAtLeastOneNNullAMһΪǿ՟Nn=N OaAC$ouo= + 1 ' !Ac ĵԪĿ4\MoneyC) A "\ <>d 0Z ' Ϲ a atotal @|+CgSelect tݛ%"baojiaoC:?cSum- huoshilH   zhusu G  others H  Oc*?% '2첻3 =pG>6>>>ΪA@K'E%+ F+ " Jb`XFt-ʽ#o-  reg(}DimaEX A`s ObjISet= Create("VBSCRIPT.REGEXP")a'RegExΪpG EX.GlobalpFn'ȫֿ''vba\תPatter.n RʽIgnoreB8= Fa`ǷִСд<3TestgGB.hing #$O ° 4ظѾ(ptA 1ѧ׶ڱڲ -B}pSameXQNew(2) 'Sw(naSs:.Range("A65535").P(xlUp ).Row'cgetT1wM9Vah6ms gNP ).Cells.Clea rConts 'ÿ ѕB r,cu P 1 '¼ʼ/ocJ'ðԪغ֮нбȽϧi =r startTitle + 2 To rna  cardID1 = Sheets(sIndex2).Cel@ls(i, LC@olumn)F0or ji - 10S2zjzIIfVThen 'ѧͬ˵ظ0L)er@rorMsgN" " &o& "е  i ֤Ł+@!"0writeLog 4'ѴϢDhasnSameNTrueEnd IfpNextGC Function  '-7һ ֵȡֵ-% ҵ@лЀkeyWord Ĺؼցbn Ϊ row @ GetR0owOrB(B yVal , CD@As String) Integer[ @o-Dim c Object 'the fi@qresult FonSet = =k&I).Range("A1:A65535").F (What:=FLook@In:=xl`uPes, !A@xlWhole}mDNoIs h] lgqk !=t "*"!c..K Els[r'I`Eb]?U- ִڹ(Ϊ)8V@value 1 c `'Aȷpfa%et[checkDHMB( , 1, flag<@<`S"0c7 'ΪDZ K,Trim# 1)U>`Exit 798GHfLDatCount 0 '@ijһa(ļ¼c 1Num`DArCi % ow1V|2O9v s+Y{_8oτMI1e i p C@T( `U3)& ,)r ' aq2Ƿq3a 5) ^j'c(ĿΈB P ._w/BCcHɾ.вexܱģoG1 C14кňsd`eleteP\h, Ej2UnprotaoPassw`|:="1qaz$obs(.D p6!'r).P123_ -ZʽT- setQ; XQ"pol/A)//Dp).Irou--û1--o--n -No"o-ɪdow))/@  ָlֵ>?,et_((U?2̴ 1ր[̣ǰʱ1Ѿͨ>?)?Co|de%RU  Dim rowData, cod@eValuePeDllP cL = CStr(Sheets(s Index).CFs(*l2v)Count0 'һļ¼&JNum'lArea pRange("A65535").End(xlUp).Row 'G NOGet!O(rCoP(,, X, "@") 'ȡQRFor i)y.To[I f bi, 1)#< Then!+ 1 ElseExi t Rnd IfNext iA5jN58+ -(/1 mC=&&z~xME8P6  <# ` X In xIN IP `R ``pk( I @ p `  "I I @  ` h 3I @  0`   CI @  +@`(k Pii`PH`4hH``` `   iI @  `` (  uI @  `   I @   ` H I @ 0 `  I I @   `  I @  P `  I @   `  I @  p ` 8  I @   ` I @  @  ` p ID  I  DH `   ID ( I   `  ID  I  x ` 8 I X I   ` (I  I   ` h EI  I  @`k &&WI  Ih  `   }I @  H` (  I  `   I @  h` 0  I @  `   I @  ` P ##I pIN I ` ` `h````@ ` @ ` @ ` @ ` X --I xI  p`@k I ``h`@   `0hk I I @   `!8kx 7I I @ 8 ` p P` @H  x p 0@ h0H%( x(Hx@ xH@ @ @ @ ((x` `@`(79058421637905842 10X98765432H@ @ @@ @Xp @h 0@` @H @p0 @ @ @ ` 0xh@ h4@ @ @H @ @ @h @ P @8 @ @ @ @ @h @ @8 @ @Pp @X @P @8 @ @ @X(h@ h@ @ @p @X @@ 0!!!h  8  @  H@P @ @! @p @X @@ @ ( @H! `! @ @ @( @p! !H! @! !p! @ !! @h !! "x`##0#""""@ ""@# @ @x# @H# @ @h @P  !! 2Z$*\Rffff*D=5b193b61*\R0*#f$*\Rffff*D:5b193b60$*\Rffff*D85b193b5e*\R0*#14*\R0*#10*\R0*#13E  B       (  B 6     "(2P` hpx    0B HPh &p" B     D8 B @HP  n(  B ,$ "L0 X H(p      $ "V " 0 TH $` "rx   4  x  B   *       (   B    8 H P X ` h p  B (068p | ( HB `h0p x P pB   (08@H xP  B 0@HPX` |h  B  ($0Xhpx |  0B HPfX | x B    B :0@X x   P pB        .B      .B   (08@ HB  &08@HDP4 (08@H PB  &8@HP X x( " D40h px B p x         " ! ! < !`!h! p!x! !B 0"Z8"P" "X"&6h""" "" "  ""<"  ## $$# "$8# 0`# p# x# #$#Z## ##  #>t$ n@$4`$ $  $$ $ $ $ H% h%B %%%%%%%%% % p& &B && & &&& & p' 'B '' '''''(( ( ( (B ((()) )()0)8) @) ) )B ** *@*P*X*`*h*p* x* (+ H+B `+ &h+ $+ + +&+*,"@,$h,,(,,,-8-H-P- h- 2--"-. .  (.@.X.8p... .B h/p// /&//$/0000 0 (0 H0"P0 x00 $0 "0 0 0 0 01(1H1$X11111 1>1 142P2$`2 2 2 22 22 2B P3X3`3h3p3x3b4 &84H4 P4X42`4p4 x444 4 4  5 @5B X56`5 x5  5555255 5$5R5<6R(6 H6X6`6 h6p6 x6 6 666 6 6 @7 `7B x7Z7&67 7  777D72(888 @8H8P8 X8h8-----------------------------------------1 ,дϢʾ Ϣsheet--------------------------------------- ʱ0 Ϊʱ1 Ԫ] N P n$D%V'R R'd'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue $H'zk]H^[\u4e00-\ue863]{1,20}$'   $'d'ki-----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue` ,$''$/ΪDZ'zxkp]^[\u4e00-\ue863]{1,100}$'   $'d 'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)--------------------------------------- $H'zpkh]reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"reg = "^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$";^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$'   $'d'ki|-----------------------------------------3 УڸʽΪ2012-05-09(Ϊ)---------------------------------------]^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$'   $'d0'k ih-----------------------------------------4 У֤---------------------------------------Ϲ򷵻trueϹ򷵻false0]790584216379058420Ȩ] 10X987654320У $H$''ȥո](   6)׶֤Ϊ,ΪͨУ'zk Gzj $$Gzj *[0-9X]Gzj   $' G 'j   $  '  ' $ 4  $G'jiz-----------------------------------------У֤ -------------------------------------------------------------ʽȷfalseʽȷtrue@]"^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$'   $'dp'k`iX----------------------------------------5 -УѧУѧУʶ 42λһλΪֻx-------------------------------------------------------------ʽȷfalseʽȷtrue]H^[1-9]\d{40}[\dx]$'   $'d('kiz----------------------------------------6 -У黧 -------------------------------------------------------------ʽȷfalseʽȷtrue`].^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'   $'d'kiu-----------------------------------------7 Уѧʱ-------------------------------------------------------------ʽȷfalseʽȷtrue]h'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'   $'d'kiq-----------------------------------------7 У-------------------------------------------------------------ʽȷfalseʽȷtrue  ,ΪDZ'd0'k zk]^((19\d{2})|(2\d{3}))$'   $'d'kiq-----------------------------------------7 У·-------------------------------------------------------------ʽȷfalseʽȷtrue0]^((0[0-9])|(1[0-2]))$'   $'d'kiv-----------------------------------------9 Уѧ-------------------------------------------------------------ʽȷfalseʽȷtrue]8^\d{4}[0-7]\d{3}[0-3]\d{7}$'   $'d 'kx ip v-----------------------------------------10 У绰-------------------------------------------------------------ʽȷfalseʽȷtrueP]^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b'   $'d 'k i v-----------------------------------------11 Уп-------------------------------------------------------------ʽȷfalseʽȷtrue]X ^[1-9]\d{14,20}$'   $'d 'k i -----------------------------------------checkXn Уѧ磨2012-2013-------------------------------------------------------------ʽȷfalseʽȷtruep ] ] 1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'   $ -$'$$ 'dx 'kh d` 'kP iH -----------------------------------------checkOption У鱸ע磨Сvalue2-------------------------------------------------------------ȲС200false 򷵻true D'zPkH D  'd('ki------------------------------------------------------ȽϴС(Сڵڷtrue)----------------------------------------------------------------'value1value2false 򷵻true DX'D X' D  'Dd'Dki------------------------------------------------------ȽϴС(Сڵڷtrue)-dec---------------------------------------------------------------'value1value2false 򷵻trueH D$4'D $4' D  'd'ki}------------------------------------------------------У鳤--------------------------------------------------------------- ,$'' $/ΪDZ'kzk ,-±0ʼֵΪָάõ± $$4 $$4'z kd ˵У̶ $$4'zkki}------------------------------------------------------У---------------------------------------------------------------x ,$'' $/ΪDZ'kzk $& Ϊz .e+СzP $4e% С0z k ,-±0ʼֵΪָάõ± $$4 $$4'zkd ˵У̶ $$4'z0k(k i------------------------------------------------------УֵΧ--------------------------------------------------------------- ,$'' 'zHk@ $) Ϊz $4e) С0z k $4$$4 $4$$4'z k i ------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ'k`zXkP $% Ϊz( $4 e$ С0zk$'+󳤶$'.Сλ .''' "˵ûС $4' $$4'z kd С  . $'DԪֵλ  . $' $$4 $$4'zXkPkHi@-----------------------------------------checkIsInt У鲻С0-------------------------------------------------------------ʽȷfalseʽȷtrue@] ^0|[1-9]\d*$'   $'d8'k(i -----------------------------------------checkIsNumber УΪNumber-------------------------------------------------------------ʽȷfalseʽȷtrue' $'k(i -----------------------------------------checkMoney У0-9999-------------------------------------------------------------ʽȷfalseʽȷtrueH]^(([1-9](\d{0,3})|0)|0)$'   $'d'ki-----------------------------------------checkMoneyTJ У0-9999Сһλ-------------------------------------------------------------ʽȷfalseʽȷtrue]P^([1-9]\d{0,7})$'   $'d'ki-----------------------------------------checkPersonNum У׶԰һ------------------------------------------------------------ʽȷfalseʽȷtrueh]^(([1-9]\d{0,3}))$'   $'d'ki-----------------------------------------checkIdNumLink У֤ԱͳûдǷһ------------------------------------------------------------ʽȷfalseʽȷtrue If colIndex = jhrIDColumn Then checkIdNumLink = True Exit Function End If]%Ա֤ǷӦ]$ں֤ǷӦ]ڵһγֵ±]"Ա,Ԫ֮ڵ]$ݺŽȡ](!,Ԫ֮ڵ]@"ݺŽȡ]Xp#]%·]] $' $'  (ڶλΪΪ N  r$\,VdڶλΪżΪŮŮ N  r$\,Vk $' $' $' -  -  N  r$\,V'iH------------------------------------------------------Уֳ(Number,ΪҲΪСС0)--------------------------------------------------------------- ,$'' $/ΪDZ checkLen0,1,33A@\'kkzk $% Ϊz $4 e$ С0zkx$'+󳤶$'.Сλ .''' "˵ûС $4' $$4 checkLen1,1,33A@\'kpzhk`d С  . $'DԪֵλ  . $' $$4 $$4 checkLen1,1,33A@\'khz`kXkPiH-----------------------------------------3 УڸʽΪ2012-05-09δʱ(Ϊ)---------------------------------------]](]@]X^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$'  yyyymmdd$'   'z k  $'d 'kp ih -----------------------------------------2 У ҪΪĸ-------------------------------------------------------------ʽȷfalseʽȷtruep $H'zx kp ]^[a-jA-J]{1,10}$'   $' '   $ $' (   $ ($'  ''z k  ( d` 'kP iH -----------------------------------------2 Уѧ ҪΪ-------------------------------------------------------------ʽȷfalseʽȷtrue  ,$'$'ΪDZ'z0 k( ]<^[\u4e00-\ue863():.,''"%&',;=?$\x22]{1,100}$'   $'d 'k i Attribute VB_Name = "У麯" '-%1 ,дϢ ʾ sh`eet$ʱ0! Ϊ1 Function checkRequired(bIndex, row coluDmn ) 'ԪDim cellValu@e As Sng= Work5s8).C s(;If2" Then0K gFalseE{Trund If E-2"ѧ ҪΪ8& !ʽȷuf7'At1wStu(vg@p@QTrim?"Q0DR7 Exit H}D MO_reà ^[\u4e00-\ue863]{1,20}$A[)@ C!(, 0}s*r|4-4'>??2>G{q>>, f}A8rgsx+Arr@2Split(, ","h"-a LB= e8l ((0)07 'ΪC :% P& OO10Oue)O"zO'OB3"!ځΪ2012-05-09(a); BirthdayƇA@;_o/F 77' "^((19)|(20))\d{2}-(0?[1 3578] 1[`02]))-9a[12][0ac3[01 (( 46"11Yc 0?2s)|))K p[61 [| |(>3e S /H 19|-2]|m- ||` -ZkZJz"=X!/3! #|?zPZ//o3n3>o3o3c3Necessar3I /-#-""+"*,O "'x"?"xP0;y fRoq4PR֤Ϲ#w'I IsIDNumber(By͐ ,  )Bool ea Const W'qP7905842163" 'ȨSuc10X98765432C ' x& = UC0ase(b_U)) `|ո-sInteger, iT%= b@abyIDC" >Aq>4s e:,Ϊͨ1  1h Len( <> 18 Not eric(Mid, 1 7P7a f5Li ke "*fX]_ For= 1 To 17CqTqW1 11sps + ; i! * T0Nexts Mod 1 Rightc, TCq@5?; "- 'ʽȷfalsetruHFunction checkSFZJLX(value) Dim reg = "^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$"/If;CZh(?, ] Then%f~aTE  %FEnd pIf Ҁw- $5!-Уѧ 42λһλΪxx.ưchCode 1c\d{40}[\dx]5e^e eL6dp RS%v]F amTyp`](\u519c\u6 751)|3bf\u95477cee02)td"]d?2'$7 dѧ81@є`RXDatr1NowNecessary#(((19020)) c2})((0[E12])2e)22+$d281!1Year, fArgsArr¾#""']| ෍0 'ΪDZ?a'))iH3diaExit EgA "^QP|(23}O'sk'_sO"'' '؏@ckMoxnthpO>O>ck!B1r%S @_9WppOXJH,4}T7]"-37O/-ck@[#?10cn绰OPhoneNum?<\bD(([ 38l4[57j]p55Pn8} 00p2 Qn-[2B*["3{2}g)\b2 x_11п2O?Ba,nk 3[t14,2`4oo2Q XnIAѧ磨2012-@3_Xn_+Uxys20J/t019t99 00cLL2Split , "-"]@R(1) - 0)01 = he checkXn = FalsEnd IfE dd\Function0 '-%TOp6У鱸ע磨Сvalue2&R('(200 f|'trub L(A1, E) If 1"" Thecu= T7Exit   ?LenQ) >RDA #  A2*2iqȽϴС(ol)Q{$CwŚ ՆompareׅCIntׅf22HGsc!MJnO5x,X5decO_3:5C N Dec6 C(266ЀG66*6$_,1AA:.A&, f0ArgsH+Arr"Split(, ","h@ (Eg v`(0)0B 'ΪDZFi2ej`UBound #2±0ʼֵΪάõ ! 7p&c=/1)X) A<s (2/px8 oq^]1l '˵.̶A./" n q/Gv[;- @o@ &@@ૠo Z@0.@@b++R@@ Not IsNumerik)8JвΪ>, InStrcp0.") <> OСoO 6`Ws= 0 -p?P!8?P?P?PRkr@pM>o?f??P$?P|O$]?P?PI?P3P_2  ?Pp?PJ1PֵΧq}PVale7"ntLPPpPPzP en checkVal = TrueExit Functio~End If \If Not IsNumeric(value) Then 'Ϊ0&fElDseZCDeQ<= 0VС>0S)^ 1>= f}ArgsArr(0)) AG1~wB bŇЄ'-2Уf (pber,Ϊ@ҲЀB\)sF E- B@, I])O cSplit(, ","  |FaGB@""^ @ ΪDZH ~( mm?bmaxIhntL@= eTcC?@ʽȷf]'Q5tfC%bDim regp'"^0|[1-9]\d*$"7C(, SlC)/OntXi?1{BΪ__???ckЄj = 8h,{+? Money 0-9E___  ++((+(\d{0,3})|0!_,k_,*H_,6_,_, TJ=#tһλ?TJDD7})??j__0ڟ0_--Personp6׶԰һ˿ooo`v oO101ckߗ] IdLink֤Աͳûдһ--7 'ȷfalse#*&tru$Function checkIdNu@mLink(, rowInde@x, col ) ' If = jhrIDColumn Then( '1; d3T'Ex8it M#End:,Dim isGeQrRight As Boolean 'Ա֤ʀǷӦ Birth@!l@ength2>Integer 'һγֵ± u`E˵ûГ r@`(%) <= BS oaA?2s?2SO 2 212o3?/%->o*uE nSB% -%#!8.λ/!%+J  Q! TU@hen checkNowNecessary = FalseExit Fu nctioEnd IfBIf regCH(, value) T TruiE s+P '-%2 Ҫĸ&"Bʽȷfv' t{\vSqly(, a) Trim )"" apށ ODstdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE15\MSO.0DLL#M 1@5.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4 SINDOWS\sSFM20L'B _&/;"1jIqAHq00}#:0Bq# 50 A122AF265-4027-477C-B7E4-C100DD323ADC6Users\lenovo\AppData\Local\Tem`p\VBEb7.xexdcec ec eo dm k  G;Xf"a2fo $o &У!hOeeo zo ~k !LGbQ;N zl^b2o -o U2Show1axG`6\onw3e2rowS4nO( l5^5^5^5^zh^ PrintCrin %bj2odb>ʘrU@@@ xbrU@@@ P `OO@ `P@1 `P` `1OOOOXq ` OOOX! ` aOOOhQ `OOOOOhA `OOOOOP `AaOO@1 `OX1 ` X1 ` aOOOPQ `1OO` `aaOOOOPq `1OO` `aaOOOO`q! `aaOOOOXA# ` aOOObrU@@@8-q-`ADrU@@@8 Aq`ADZH#p G41@$mۛ F V w@]ysx V w@]ys G41@$mۛME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0atel%@p%<%Hx@x8Z$*\Rffff*D95b193b60`xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU@@@xblzV zL#pnC{L3yF*)BnS̓x*)BnS̓nC{L3yMEPSLSS6"  %Hx@x8Z$*\Rffff*D<5b193b60`xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Zh#piYtGh"{8 F8@Dh'1ܷx8@Dh'1ܷiYtGh"{8ME(SLSS6"N0{00020820-0000-0000-C000-000000000046} 0atel%@p%6%Hx@x8Z$*\Rffff*D;5b193b60`xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2LqnxME(SPSSS0{368D897F-4E5D-474D-94E2-C04176822638}{C2EF62AE-A509-43BD-8336-DA8464B5E8F1}8 .X 2 %%XX Z " 0 8"HP Xh xȡ?' B@0oHȷ'X 4' B@0oRAttribute VB_Name = "ShowForm"  Bas|0{368D897F-4E5D-474D-94E2-C04176822638}{C2EF62AE-A509-43BD-8336-DA8464B5E8F1} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD'ȡ` P Sub CancelButton_Click() notContinueBoolT Me.HidZEnd! 'ȷĶ ,onfՏ,9-Fl;/^LeʘxME(SPSSS0{DB2162E8-544E-48D9-8907-E729F706E5F8}{0BA93AE5-C180-4D18-8C28-52A3D965ADB3}x8 0a\%h8et%8pZxAttribute VB_Name = "PrintForm" " Bas0{DB2162E8-544E-48D9-8907-E729F706E5F8}{0BA93AE5-C180-4D18-8C2h2A3D965ADB3} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDrU@@@8`8a`brU@@@@~x aS4rU@@@8`brU@@@xbrU@@@8@!.qQ.`ADrU@@@~~v    Q SaveAsUICancel Q0rowIndex columnIndexcontent sheetIndex errorInfocolIndex checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbnvalue1flagrowNum functionArgsIDNumberfunctionArgsArrvalue2IdNumaXrU@@8p 1 ` A q /`   `ihggZ""p ""PxOOpOX@O(OOOOhPO8 O( $xpX(hP8g ?g gggg8pX(hP8x`$h $h XrU@@@xP`p8!CbrU@@@@~x brU@@@%1brU@@@X` OOO@`aOP1`aQOO@`aO@1 `aOP `a@1 `aO@`aO@1`aO@ `aOP1 `aOO@ `aO@1 `aO@ `aO@1`aO@`aOP1!`OOP"`OOPA%`OOP&`aQOOPA)`aQOOP*`aQOOPA-`aQOO@.`aO@11`aO@2`aO@15`aO@6`aOX19` aOOOP:`aQOO@A=`aOP>`a!OOPAA `aQOObxME(6 <<< B`@%``XZ$*\Rffff*D65b193ae0"  ( HhxѧϢӡģ$D(FѧϢӡģ$DB@HѧϢӡģ$D(FoAttribute VB_Name = "Ԥ" Sub Browse_Print () Worksheets("ѧϢlģ").VisiblaTrue"d^P@review2cEnd ThisWorkbookThisWorkbookSheet1Sheet1ߺ]wQQpeXfУ麯!hQpe;N z^ShowFormShowFormӡԤSbpSȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6 FMicrosoft Excel 2003 Biff8Excel.Sheet.89q Oh+'0@HTd | lenovoMicrosoft Excel@&@ ՜.+,0HP X`hp x  Уרƹѧ Ϣ  !"#$%&'()*+,-./01356789:;<=>?@ABCDEFGHIJKLMNOQRSTUVXYZ[\]_`abcdefghijklmnoprtuvwxyz{|}~     !"#$%&'()*+,-./0134689;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrsuvwy{|}  !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz{|}~