ࡱ F>  E"gxME P<<<<<<:<<8VM|+pXirxit+z@ i|@`~PP`` itoiih % %`ex =@ @ ` % `iB@8i Pi@i+ i|j A@%+  i@i x% ) %ii0i``` %  @ `` ` ``  x8i"Xi$ 2  4% 2 ##i68)8X%@< ``>`@@B `D`F N H iPh iR iT bH iP iR( iT d iP iR iT  % f H ih i`@h + i6`p`r`t`v`x+z` i| i~ i``  +  )% X@ x%` @) %i  + @ ` %n  H `` x @ @ @(  H `` x @ @ @8  H `` x @ @ @  H `` x @ @ @x  H `` x @ @ @  H `` x @ @ @  H `` x @ @ @X  H `` x @ @ @&[jek B "8 B @`hpx  "  (08HPXp  $   ( 8@$H p   "  B D"X B  B D(("Px "    8H h$p   " 4( @Xh4    8H "P X4h8 ( 0 H 6h    "        " @  P p x            <  F`         "  \ X ` 0h   B   4     " ( 0 8 H P X ` h         FX` h x &  "  H Xh p  B ( L>HXN dNXNNH B P LXNJJH NNN8 NJJ(x B 0  & @ `px B &* 8PX p   B   0H@2 B   0H` hx "     B  (08@Xh "  " B (08 @`hp       @0P ]  r t $x$v'p"i@8TrueΪϸ]]]( |$zpdh |$'~ |$'  GzjA@@ |$v'  ~$p'zkki@]]] ]8P]h] ;$'ܲ ;$' The $(;   7!.һ  ! !7!E  $A@  ''  $(|k  ! !7! $ !!(0  'XqP $(o8 $'  $'o`]   %!!  %!! %!  $$;'x< MarkName = Replace(MarkName, "", "ӢϢ") ReadFieldsInMark = ReadFieldsInMark & DelChr63(thisdocument.Bookmarks(MarkName).Range.FormFields(1).Range.Text) & ";" & DelChr63(thisdocument.Bookmarks(MarkName).Range.FormFields(2).Range.Text) & ";"   $'i0]`   %!!  %!! %!  !!!d$;'  !!!0;'   $'iX]X]p]] !'   !    %!%5lF   %$9d   %$5!(0k`qX o@ $( !! !! %B@H l B@ l B@  !! ( !(  !! ( !! !! %B@H  !! ( !( B@ҳ B@  !! (1  %( $(o $( !! !! %B@H ! !  %B@Bk(  !! !l  !! !l   !! (lk  !! (   B@$йҽ׶d B@  !! ( $(o0@]]]]] $(   %!0G|j 5%  %!$'k 5%  %!$' kP 5%  %!$' k 5%  %!$'k         doc_end %!! !! %B@0  %(A@k0q( $(o " ThisDocument $!&!(%*!,%.~жϹǷ|d $ ThisDocument $!&!(%*!,B@0k`oXx] !! !! %.4  %!0A@ki]`]x]]]] 8!0$H 8!0'Fkh 6,$'< <$<;$'B B'@k @ 8! ?MsgBox "бԴάȲһ£", vbCritical, "ʾ"|k 8B@8  < Debug.Print UBound(cobListArray) $<;$'B 8B@J 8!L 'D > B >$B D @ > 8, >  F 8(0 ZB@8oh ˴Ҫ޷⡣EThisDocument.Tables(TableID).Range.FormFields(1).Range.FormFields.Add Zl\ P %!%!VB@X_ R_ P %!%( P %!%!^ T R$` P %!%(^]ThisDocument.Tables(TableID).Range.FormFields(2).TextInput.EditType Type:=wdFieldFormCheckBox P %!%!G P %!%!!B@^_ R _ P %!%( P %!%!^ T R$` P %!%(^i  EThisDocument.Tables(TableID).Range.FormFields(1).Range.FormFields.Add P %!%!F P %!%!!B@^ר_ R_ P %!%(ר_ R_ P %!%(^ P %!%!F P %!%!!B@^ר_ R _֤ P %!%(ר_ R _֤ P %!%(^ P %!%!F P %!%!!B@^ר_ R_绰 P %!%(ר_ R_绰 P %!%(^i H Z#recordidָǰ¼ıţ2]  P %!!On Error Resume Next Zl\ !VB@X ! T R$` ( !^ T R$` (^ Err.Clear i  I] ] ;$'h h  %!!!R ַ lʾA@jzk  %!$h7(7!lG$h7!n(0dh$h7(kH ZB@8q0i( ?ȡ˵] ]0 ]H ]` ]x Total='r;'t 6'p9thisdocument.FormFields("һ_").HelpText p r'v v p t'x p v r x v r $$'i ]0 H  |a  '  ~ ' Gxj   'kx 'z '|i`` n n !% n %B@H'n|kk ! (o ](]`]  ! @ $ +  'h 'iX  !!!(  G'jo@18msA@  !(A@o]]] t = timeGetTime()A@  5!R 75.Select'5'5!d'+ .Result5 $B@A@kqq MsgBox timeGetTime - t ɫ lʾA@j''khi`XAttribute VB_Name = "CopyToEachDoc" Public PreFldAs Sng = 12! s3= @A<=NM7Fg}_>uIfxzSub FillSQRCent(Field@y]ing, cobL Mark #DN|fldFormC"AShpAInlineShapdiCG arr, @CobTextG8EngK!fRangeAMSpli;, "|;"1 C@ Apcaax.ScreenUpd$ngFaMWi$thBisum ,A8SetcH= .jkm*s(+).H!a* ,In c(.Start) ~mp.@?). 1s Evalf{/y#1, #NeStr~Opa[al c  7BD=sInrX?@yb "S!;aij By@0 K)?'a3DjThukJg:et:7B=`9+M%DelChr63(&pturnMixResult( )) &1M;''ePReplace(%M"ӢϢQ  tdocO.Q5s(15^D 0! (2p#lweft^, Len^) - 1*/*, 62E0W/-ЕM,uF-O:)Ma(o*o*geO-nte%B-OTg'ad& V#@ ߿V C-A=v|& _[1 Lߵ W 7 o ZList2Table(LstcaABox, a!(!2}Col v#N4) 'xcߖQCurIndexh'0ETxtP)ba;S4.?)q To .@ umnCount 62#A Δ(F(D .Typ70a0rT0Trim$2 ( , iADEƕ,~t^17 '^ iS:t AddFuYe(@K?CCFP,sq).S wd!Noneen.s(2)0.CloEAAIf A yNIbalOr _ OutlidneTh+PrintA0 e^e@ Key Unit:=wd`e, Exten~d#eaR:="ҽ׶ݠ_f>A^%^Removej!^Dim ,FMRCount As Intege&rSQDLYXQ BIOZrWith*?c^v_"0f"l@ita .Bookmarks.ExistMRInfo)aI,= GetRenM ! = 04Q(0)`;e*= dUi :tE 'Msgp "бԴάһ£", vbCri tl ʾĨ! @H lea`[ io%'Debug.yayq,(i AdPdItem CurCobL@ist = HObj.4Coun t - 1FoHr jUB6d(TmpArray) To 0 Step -\(, arrDemensio2ndj)VO(j)sNext j  i On ErrResume rValueUtmp 3.Clear End Sub Public FunctHReNameFMRFields(TableID As IntePger,8wOldbT '˴Ҫ޷ ⡣V'T@hisDocon t.BE).RaPnge.mR1a .Add%.%T^Input.EditType :=wdRegularA, Default:="", A#atn]m"_" &\& "_ "St0atus/Replace(GG<, ~D}n2).$[wVCheckBoxq>MC ?iL, 7$}_<@="_໹=sa=_j).=!e׈DL߈ Ԉ?J}DP)?G G0 W.%GרR_߃e_s(@F"_ 'ihdrn#+ؓer9W/j 4q^?q=q3o@uU on绰?OOo2 NeQtoLߐmeB?܏cL) 'recordidָǰ¼ıţ2SDim fldorA EachIn_He?or4#偩'oxty0m%σ0H'!!FillMarkStrin>g@A7iW?@C@Split(, ";"ԔIf 4) >Bookm a ?.cr0Then3MsgP "ַvbEpxcla00 ʾ$:ExitCqIfWith  KAIxPl(0,, b=P U.%918Else .^ 0uL,a۩GetRen(DataSource) (,)d*'ȡcH -PHelpRMFlag1w2m posN2Pos= "TotXal='Q2Qt;Y = 'td䏴t.FormFields("һ_").HelpText  pos1 = InStr(1 , tmp@, @Flag1)PPos2PjV2+GetRenCount2Val(0Mid( Zw+ Len(e, aT- -)UEnd Function P`ublicN (N Asteger, By=` str1 piTng 2 )InwDim i , po Until= Nzp + 1 p,HIf0= 0 Then Exit Do   i5i 5JIf LoopCN&#i USub test(t@PreFldName <> "")/ThisDocument.Bookmarks.2sts(})HH .Selec 6""#Q2GF.StarG IBReadInRange(SouxrceBStrUarrpTmp(H+fldFCG C @ Each I!\A@Z $(0oijAttribute VB_Name = "FMR" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz E Public Sub UeFaMingRen(NewComPonentID As Integer, FieldStr ) B Dim Ta3MarkCmpPara /p/AppHation.ScreenUpd\ng4"=JitU%(This Docum/.Form,s(BKM_Info).HelpText) 'ʼ@!IFf1?>= .ACount Then $.FirstCellTxt@-"" &GL= 3(D, -½,bookm^ReAFilmXsIne ,6S`ourceH=  - 1 'øFUGlZ'0݇ByeT@otal "=L,\u Eq2a.2[End If TTruSub lEngm m 'mme;mmvmtm ?n*?nW?n&B?na?n?nld?n?n?n ?n?n?A;#+n!ӀϢ|;5otРoDelet(nnjl?>h$PoRowRemoveFuYAQO 7wzL ( ng ?> "  ~ 'P'ƣ@Init0gboboxSlear(OcxContainebObjectCValue fPՎ.Fr1/`] AxME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}x @))i`!biWri`$ stBo %`` Hihi`  %  i8/ x `  i  ``0%x x 8x `x x x x x (xP[jeR"  ( 00@p.62 8X`x Z .h . . . ( DH    0@&Hp x "  ,6 8H2$08 @P " X p  "0H` B hpx(V]]] $(  %!$'R(Դ)ID ! x(  !( ) (@  $'=½,¶bookmarkA@  !  A@XFormField  !  A@]  %!' country=$'   %(  A@0  A@,  %! TInitCob1 .InlineShapes(1).OLEFormat.Object, Mid(thisdocument.txtProsperType.Text, 9) !!d $7!!A@ !2!d $7!!A@! !4!d $7!!A@! !2!d $7!!A@ Debug.Print!> Debug.Print .InlineShapes(4).OLEFormat.Object.name7!!!0$H!'d@7!!!0'k 7!!A@qTotal=   %A@^Td  A@=k $( op]] $(B@j  %!$'U ʼ$  !  (  $'=½,¶bookmark2 Debug.Print NewTableMark & ";NewTableMark"  !  A@XFormFieldP!  A@0Total=   %A@^dӢϢ  A@Ek $(!B@o.IJ.Table $(ID).Ce A@IJ" $(0) + "oP ]`  %!'ia country=$'P!  province=$' city=$' type=$'   %(ox]]  %!'B@ country=$'ment.R )type_ type=$;country_ ; province_  province=$;city_ city=$;country_ $ X '!i`XAttribute VB_Name = "SQR" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz EPublic Sub Te(NewComPonentID As Integer, FieldStr ing, cob) 'Ā PDim (T= T 0.FirstC@ellTxt@9"(" & & ")"aAdJd=k CC(!,<½,@bookmv-_ek;sReFil@sIn I",@SourcM# - 1 'FkM@ , Get@@ !] [}`SD`|CS6 =`:WMTotalM SetFlagbAdd(, "cMry=")g\K  =8lcd29B'̀KaWith5'BdOsF).pRang /e'Init1 .InlineShapes(1).OLEAHat.Object, Mi)dtxtProsperType.a, 9* ! Reg wb-t,'' . nryM 2o_ hV#vincG!em 3 it%5 Q 'A$5Debug.PriQWe4_.nPf IsNull(S$ot.9)+enKa 5""\P qE;,End If;+_City  m :CaF "b=j,=]kxl+^Iq،qb }1Tru0FSu b ߔQREnggc4Eos T#zo dU?!3_y0ʼ nt1d  nBC(Ew;<k3ldOyew& /Oy!e::o # 9#9ӢϢO e_:_:7DeleteFaM`5(@2 ϳ6p!ć,/5/5(pBRowFEEpc92rs(XC [ng s{MopoAe = provyHd(tmpDataSource, "city="0) = SetFlagValueAdtypexThisDocument.FormFields(BKM_TotalCobs).Help0Text^ n End Sub Private Function GetSQRAMarkStr(Dim CF As i ngCoun8try = [.,=OD_? b"_8" &!";_?֊"c5% N& provinceX!@2`"@l4T((6) + 1 :^  )L (timeGetTimexR@RME(@D << <+& D XhF phH x+//`J `L `N  T P iX piZ i\ i^  f && h X j    V X@@i 8====i<+P  %+6`pL`r`t;`v8`xX@XXX@XXX@XX@XX@XHX@XX@XX@X8 @@[je(*\Rffff*0[658ae0f9\0H BX( $$$(P X $h  0  8(X * ( B "h  B$* 6@xZ X  p B 8"$8@`h2  "    ( 08@ P X `hp          0@HPX`hp "x& "  " " @ X $h     Z 8 4P     "    `8   \ 0 P ,h $  $    ( "8 ` `p $  $ @P`"pb $8$P x"X $8"`&l $0&Xx $ \8 $T08 B&@h  2 t ` h Bx *(X h@^X^ppX1L²ек,˵ı'˹Ҫġ˲㡯]]] &' x!| 'N 1doc_ ˲ %B@HOtherShenQingRen !%OtherShenQingRen %B@H$ OtherShenQingRen !B@^d N  OtherShenQingRen !B@^ N e`3 !B@^(k8k0 P !F  'L ²ек P !F 'J  B@R  ! ( ˲ !B@^ J   %%lB@H$ Selection.MoveUp wdLine, 6, True Selection.Cells.Merge J   %%lB@H  B@ !vB@x<==========================궨λе˵Ԫ L  %%lB@H ! (<==========================궨λе˵Ԫ%( N ) B@Total= N ;  %(ng80debug.Print "ӿܺʱ" & timeGetTime - t L HzG?A@T  L  ףp= @A@T ƣ L  Q@A@T me L  Q@A@T  L   %%l!! L   %%l!!A@p ǰIJֻ²ڿؼ L N  A@V $ iP}&Ԫֳмķָ߲ɼ X Z  %%lB@H` ^ b d !vB@ѡA@f R B@ A@h R B@coun  ^ P !H R  B@G !vB@xA@j ʹi !vλ l 7  9 n 9 p 9 q r 7  9 n 9 p 9 q t 7  9 n 9 p 9 q` v 7 ͬ 9 n 9 p 9 q0 x 7  9 n 9 z 9 q ~ | 7 ( ldName ~ 7 ( "5 ( '$ q 9 n 9 z 9 qo  !%v( @HzG?$  !%v( o0X B@  ! ( !v( o R  B@> 'n ! ( !vB@x ` b d !vB@" B@  !v( Q @$  !v( o(SPublic Sub FillShenQingRenInfo(strShenQingInfo As String, ShenQingRenID As Integer) Dim tmpArray֤- tmpArray = Split(strshenqingreninfo, ";")$  With thisdocument End WithGEnd SubFԪ  7%lB@H B@ B < __ < _A@H 7%lB@Hû B@ B < _û_ < _ûA@H 7%lB@H B@ < _A@  7%lB@Hxܲڵ B@  7%lB@H$ B@ $ $ ! ( !v( R  B@ p !vB@x_ <_ܲڵA@T ˺ʹܹ֮ԡ  7%lB@H$ ʡֱϽ B@  7%lB@H B@ ! ( !v( R  B@ !vB@x_ <_ʡֱϽA@V ˺ʹܹ֮ԡ  7%lB@H4  B@  7%lB@Hݣ B@ ʾ ! ( !v( R  B@ !vB@x_ < _A@L ˺ʹܹ֮ԡ  7%lB@H2.IX R  B@LDOMNo !vB@x磩ֵƺ B@On B <_ֵƺ_ <_ֵƺA@H  7%lB@H ػӪҵڵ B@ B <_ӪڵػӪҵڵ_ <_ӪڵػӪҵڵA@H  7%lB@H  B@ B < __ < _A@H//  7%lB@H绰 B@de B <_绰_ <_绰A@Hxml"q o X$ȡǰԪкźк.I %&  P (F %&  P (H i` Sub test()+ Selection.TypeText ""Onn NewDocOcx DOC_TXT, "" & 4 - 1 & "_", , "_" & 4 - 1 & "_"End Sub1ȡ˵ B@]]]](]@Total='r;'t/$`  %!'p  p r'v  v p t'x' p v r x v $$'6 i DAttribute VB_Name = "ShenQingRen_New" PrivaDeclare Function ti@meGetT Lib "winmm.dll" () As Longublic Type CellPos Row%IntegerCol End9 HAddFrwQ '²е,˵ı'˹ҪġC㡯ODim Cur] StartTotalX~t8= frm#.Count + 1hisDocument.Bookmarks("l").S elect If TR .ExistOther")@ enu\("J.@z ElseG0 Z> 4(6=Cb3")0IfƖ=A@.z׹ī >`y.InseWsBelr6 = -LfLB6LC CTables(1).(+ 6, `1 'a.g MoveUp wdLine,aTru@! s.MergC?g 2 b85, '=`λcB`Ԫ&B, 7B# _^$Text ? (" & & ")a' 3FormFields(BKM_SQRInfo).Help Ԃ = ; 'debug.A@"Сܺʱh - Spl4it8 '+@=1.58, 3%oa@.48243XRan|geg@4).B.@U:5`# 'ǰIJrcB¡ ڿؼFill DA*}~t5 F(Kv,˃3WidtTh1vS`lCOpalsEB=p4 '7ֳмķָ߲໿ɼCE(M? E”Os.!" Num s:=1,P umn' , rMBeforeb:=FafpHideMiQ ;LLeft Unit:=wdCharacter, c:=23AdjustOveRigh_^O5+W09an , Extend1 ] Q! _BottomA(lig'Uʹ0 '3Sub (TzWit~hpLЖrders(wdB^oAH~.lStyll*0050pKaorb Auatica O A _ ne_ e_ %_ h_ ._ om_ _ Top? ? p? ? @? ? ? s*o o o eo o olor" "A o VPical -# SWhitĝO !DiagonalDown)",eNonX?4UpT@ɀad= ZK RjD .DefaultD)_ 7O rAGW\idth050pt .DefaultBorderColor = wd$WhiteEnd @With Sub Pr@ivate  AdjustW()fSelection.Range.Cells(1).Pref erred.Ty pes Poin ts*IECentimetersToB(1.58JBottomAlign^c FParagraphFormatz. m@gJ1ify !+s.Vertical S Test0[MoveRight Unit:=h,cF, coun3, Exte(Ks@qreni@`, ";" thisdocuAT '@ :C{'A Jm{Fields(Star0tPos 'ԪCG"T D&a.TableB2, 3|).JcLText ""New@ Ocx DOC_TXT$@" &0& "_ , c_'4û_XD@$"_l, 5!+addOLEInlineSha@"/ + KKڵ5; ;X]g[_nSKdftPDayfmn.e>Ce]e s.xcO"C76V) '˺ʹܹ֮xԡg?$O+6 0 ?" WHʡֱϽ_"GU_"Q _"2 ?_"_"2E!k_"_"_"d n_"A_"o]`]ʡrb""% """"j?Do0D0!!}ç Ӫe??5/__QB` Selection.TypeText ""  NewDocOcx DOC_TXT, "" & ShenQingRen$ID"_, ;ZR_&h{ .Tables(1).Cell(StartPos + 5, 5).0ݵ绰<!j9End With Sub Publ@ic Fun Curk() A s tq'ǰкpźx.@Row = |I@nforma(wd:OfRangeNumber)Col xumnF3/A4'@6 test('d@fF 4 - 1Hf '/cGetTotalHCfInt`eger Bf TDim tmpHelprStrȇ`Flag1y2pos G = "0=˄A2y";@= This}u@ment.F`GFields(BK M_SQRI).= In(1,, Lp2d.Val(Mid( h, + Len( , " -") SSyXT0x (n timeGetTime(p^Ie`%Q18G0;QL̘?(x7_һ_, 1, 196, MSForms, ComboBox8_1_, 0, 197, MSForms, ComboBoxME$ @S"SS"<$(1Normal.ThisDocument*O*#8H@%%%% %+&p *` :`h  >P`  B`$ D`( F`, H`0,, Jh%`N,V`  K)K%i  dP`4 T j `8 \ l `< ` n `@ d pP `D h r `Hl x`Lt z`Px |P`T| ~`X `\ `` P`d `h `l `p P`t `x `| `  P` ` `  `  P `!  !` "i  "` #i p #`P $i  $` %i 0 %` &i p &`'  '`(@  %  %  (`@@)`z`x`t`r  )`*  H *`( +&i $ +`,. & ,`\D-3 (-`\D. 8 *.`H/C)-hp%i0 2/`PD0J)- %i0 40`PDX1Q)- x%i0 61`\D2X 8 2`3 ] @`3`\D4g B4`5l D5`\D6s F 6`\D7x H`7`8 } P8`9 R9`: T :`; V`;`< X<`= Z=`> \ >`? ^`?`@ `@`A bA`B d B`C f`C`D hD` E jE`F l F`G n`G`H pH`I rI` J t J`$K v`K`(L xL`,M zM`0N | N`4O `O`\D8P9 P`PD<Q>)- %i0 (Q`@RE hR`\DDSJ S`PDHTO)- B@8%i0( xT`PD0LUV)- PX@%i0@ U`PDPV])- @%i0 @V`TWd W`PDXXi)- %i0 PX`PD\Yp)- (0{F4}%i0{F4} Y``Zw)-h%i0CN Z`d[~ X[`h\ \`l] ]`p^ ^`t_ X_`x` ``|a a`b b`c Xc`d d`e e`f f`g Xg`h h`i i`j  j`k X k`l  l`m  m`n !n`o "o`pRR !p! !! != ti! H"p`@"qG)-`"h"%i0! J#q`"rN)-""0%i0 LP#r`\DsU N#s`PD#tZ)- ##gBox%i0 P$t`\Dua R$u`PDX$vf)- x$$%i0 T$v`\Dwm Vh%w`PD %xr)- @%H%%i0 X%x`\Dyy Z0&y`PD%z~)- &&%i0 \p&z`\D{ ^&{`PD&|)- &&%i0 `8'|`} b'}`x'~)-''%i0 d(~`\D f(`PD@()- `(h(%i0 h(` j`))-()0)%i0x)P)%j)4 @j 6 @ %**) %* ( -x(%% -x0 -x0*%%%+% -x8@ -x* -x8***@+ -xx* -xp*+@* P@+@++ -x+ %+ -x+ %111*H2H` H20P H2@*  L-@*  <@-@ -x@ -x*X,$8'0 (,8+ P+ X$PXx* P"# hx   *P +!`  #P#p&`P (H-(`,) PX "+X,,)'`  p `X Pp @$(PH**H &+ `%(P *h+0&P) ` ` x-)-h%p1$%1$%`3Ph((+,p+`3H%*+(+`3P  -x3% -x83(% -xX3%3P 3pP 3XP 3@P 3(P (3\ %4%F -x(4 % -x3 -x4 X,$8'0 (,8+ P+ X$PXx* P"# hx   *P +!`  #P#p&`P (H-(`,) PX "+X,,)'`  p `X Pp @$(PH**H &+ `%(P *h+0&P) ` ` x-)-h%00X,$8'0 (,8+ P+ X$PXx* P"# hx   *P +!`  #P#p&`P (H-(`,) PX "+X,,)'`  p `X Pp @$(PH**H &+ `%(P *h+0&P) ` ` x-)-h%h4X,$8'0 (,8+ P+ X$PXx* P"# hx   *P +!`  #P#p&`P (H-(`,) PX "+X,,)'`  p `X Pp @$(PH**H &+ `%(P *h+0&P) ` ` x-)-h%8 P P+) H-*#`)X` P# +`P p&P X( -@xx*H*`+P#8'X' P`&, PH  "p `"X   0&$PP((,h+,(h%h )X,`P p ! *`+ $$ %)0 X *8+(, P P8+) )X,#`)X` P# +`P p&P X( )@x,,`h+P#8'X' P`& * PH  "p `"X   0&$PP((H*+x*(h%h H-*`P p !,`+ $$ %(,0 X -+*x?L304HHHOXOHt @p PO E P P+) H-*#`)X` P# +`P p&P X( -@xx*H*`+P#8'X' P`&, PH  "p `"X   0&$PP((,h+,(h%h )X,`P p ! *`+ $$ %)0 X *8+(,D P#PP$P `h(PXp !'P `h% 8'P $( ``# ))x0  " X($` H   @p `")`& PX  %0&PX p&P`P#  (Xh`XPH@80( OxHOPP))(P)*x1H1` *\R8004*#63H" (8 Pp x" " " " (" 08@P" X `x    08 @ P`h     0@H` hx  B  2  (0 8H" PXh  " " "  (8" @HP`" hp  " " (" 08@P" X`hx"   " " (0@" HPXh" px"   "  0 " 8@HX" `hp"      "   (  @ `  h x  "    "    "    "    \(  "      "    " & ( 0  8 " , X   " D   ` p                 ( 0  H P  ` p x "   "     T 0HTP  "  (0,8APhpx   " &   "  (0HX` h "  "  "  : "@ h   "   "  .(0 "  8.@X`px "  "     ( " 08@P " X `px "  "  "  8 @ P`h " px "  "  "    " ( 0@HX` " h p "   "    " ( 0@HX` " h p "   "    " ( 0@HX` " h p "   "    " ( 0@HX` " h p "   "    " ( 0@HX` " h p "   B B L`  L B X :h 6  8 :8 x : :  (8H `    "  "  .(0 " 8@Pp " x "  . "  . ( "  0.8PXhp " x "  . "  .   0 8 "  @ H ` h x  "    "    " !!(! " 0!8!H!`! " h!p!!! " !!!! " !!!" " ""("@" " H"P"`"x" " """" " """" " """# " ###(# " 0#8#@#P# " X#`#h#x# " #### " ### # ###" $$$ $ 0$H$P$" X$`$p$ x$ $$$" $$$ $ $$%" %% % (% 8%P%X% " `%h%p%%% %,%%%& & &0&@&P&`&p&& &&&&&&&'' '0'@'P' `'p'''''''''(( (0(@( .P(( ( ( (((((())()8)H)X)h)x)))))))))* * (*8* "  @*H*`*h*x** "  ****** " **** "  *.++ +0+8+ " @+H+P+`+ "  h+.p+++++ " ++++ "  +.++,,, " ,(,0,@, "  H,.P,h,p,,, " ,,,, "  ,.,,,,, " --- - "  (-0-H-P-`-h- " p-x--- "  -.----- " ---. "  ..(.0.@.H. X.] )] )] P ,G|j .!0CNms~ !4!d $ 6A@2d 6B@8:xkpoh !$.<CoH8{F4}A@@o P{F4}A@@o{F4}A@@o{F4}A@@o MsgBox "test"]P]p #2.' |PkH <!P!R 2\ J <!Plb# J!T'Nto N !T J$VG|j JB@BA@'  " ."k N:\  "(X N "!P%.J Z!\ ."A@ "(X N "!P%.Jkd "!P%^.J Z!\ ."8A@ "!P%^.Jk "(Xkkxp "%PB@`kP ZB@8o8( IsTemplate J%b!0 gwssiTemplateFxS Z!\'Vkk ZB@8i ,G|j f!0CN !4!d $ hA@2dX hB@8k@o8P({F4}A@@o{F4}A@@o{F4}A@@o{F4}A@@oP ,G|j t!0CN !4!d $ vA@2d@ vB@8k(o {F4}A@@o{F4}A@@o{F4}A@@oP{F4}A@@o ,G|j !0CN !4!d $ A@2d( B@8ko{F4}A@@o{F4}A@@oP{F4}A@@o{F4}A@@oh ,G|j !0CN !4!d $ A@2d B@8ko{F4}A@@oP{F4}A@@o{F4}A@@ox ,G|j !0CN !4!d $ A@2d  B@8 B@8ko ,G|j !0CN !4!d $ A@2d B@8koxPh{F4}A@@oP@{F4}A@@o({F4}A@@o {F4}A@@oV----------------------------------ʵֵĺ---------------------------------- P 'oH 'Уļݿļַ 'o /ļ嵥Ȳַ 'oʹµӵĺp ⲿIJѡ,ļ嵥༭,༭,༭,༭Ȩ,༭ļ嵥,༭Ʒ,ļ嵥,,,뷢,½DZ'o *8ѡIJidִӦIJĿɾĿ $ ༭KTA@ ༭KTA@ ༭KTA@ ༭ȨKTA@ ༭ļ嵥KTA@༭ƷKTA@ ļ嵥KTA@½DZKT B@no0 A@ohp ] ] ]  t = timeGetTime  !!R %!! !!R %!! %!Field (  !!R %!! !!R %!! %!combo !!(d0 MsgBox timeGetTime - to ݳʼ]H ]` ]x ] $!$ % ! (kA@:A@' MsgBox 3 / 0A@'1' !B@Ho( Document Recovery %(X ZB@8o $ \ \'k '" InitDocCoboxH h{F4}A@@oP @{F4}A@@o( {F4}A@@o3Private Sub _һ__GotFocus() If cobDrop = False Then SendKeys ("{F4}") End IfEnd Sub ,  ,'0{F4}A@@ko ,  ,' {F4}A@@k o  ,  ,' {F4}A@@k o p {F4}A@@oX  ,G|j :!0CN !4!d $ <A@2d <B@8 >B@8k o   {F4}A@@o `  {F4}A@@kp oh X {F4}A@@o@ 0 {F4}A@@o   ,G|j J!0CN !4!d $ LA@2d LB@8 NB@8k o ` {F4}A@@oh X {F4}A@@o@ 0 {F4}A@@o    {F4}A@@k o `  {F4}A@@k o  x {F4}A@@k` oX  8 {F4}A@@k o    {F4}A@@k o `  {F4}A@@k o  x {F4}A@@k` oX  8 {F4}A@@k o   {F4}A@@ko` {F4}A@@ko x{F4}A@@k`oX 8{F4}A@@k o  {F4}A@@ko` {F4}A@@ko x{F4}A@@k`oX 8{F4}A@@k o  {F4}A@@ko` {F4}A@@ko x{F4}A@@k`oX Dim i As Integer; If _һ_ܲڵ.Value = "CN" Then; setCombBoder _һ_, wdColorRedE setCombBoder _һ_ʡֱϽ, wdColorRed ElseE setCombBoder _һ_ʡֱϽ, &H80000005; setCombBoder _һ_, &H80000005 End If4 If _һ_.ListCount > 1 Then0 i = _һ_.ListIndex If i > 0 Then1 _һ_.Value = ""4 _һ_.ListIndex = i Else4 _һ_.ListIndex = 14 _һ_.ListIndex = i End If End If ,G|j ~!0CN !4!d $ A@2dx B@8 B@8kP $B@o8 ({F4}A@@o` ,  ,'{F4}A@@ko ,G|j !!0 !A@o(x{F4}A@@o`h ,  ,'8{F4}A@@k o ,  ,'{F4}A@@kox ,  ,'{F4}A@@ko ,G|j <!0 !>A@oP@ ,  ,'({F4}A@@ko ,  ,'{F4}A@@koP ,  ,'{F4}A@@kox ,G|j L!0 !NA@o@ ,G|j !0 !A@oX ,G|j !0 !A@o ,G|j !0 !A@o ,G|j !0 !A@o` ,G|j v!0 !A@o(X ,G|j h!0 !A@o ,G|j 6!0 !A@o ,G|j !0 !A@o ,G|j !0 !A@oHX8{F4}A@@o {F4}A@@o{F4}A@@o{F4}A@@oX{F4}A@@op{F4}A@@oX ,G|jA@ !0 !0 A@ko ,G|jA@ !0 !0 A@koX ,G|jA@ !0 !0 A@kXoP ,G|jA@ !0 !0 A@ko ,G|jA@ !0 !0 A@ko!]X!]!]!1' 2'_һ_ ~2 :2 J2 2 2 2 2 2  2  2  2  2  2 2 2 t2 f2 .2 2 2 2 2 2 2 2 <2 L2 2 2 2 2 2 v2 h 2 6 2  2  2  2 2'CountryInit ca ' _һ_A@ A@ProvinceInit ca2 A@8 2 2 2 "2 $2 &2 (2 *2 ,2 . 2 0 2 2 2 4 2 6 2 82 :2 <2 >2 @2 B2 D2 A@F ZB@8o" ,  ,'{F4}A@@kox" ,  ,'P{F4}A@@k8o0# {F4}A@@oP# ,  ,'{F4}A@@ko#{F4}A@@o$ ,  ,'p{F4}A@@kXoP$@{F4}A@@o($ ,  ,'{F4}A@@koh%{F4}A@@o% ,  ,'{F4}A@@kxop0&`{F4}A@@oHp& ,  ,' {F4}A@@ko&{F4}A@@o8' ,  ,'{F4}A@@ko'{F4}A@@oh( ,  ,'@{F4}A@@k(o ({F4}A@@o( ,  ,'{F4}A@@koAttribute VB_Name = "ThisDocument" Bas1Normal.VGlobal!SpaclFalse CreatablPre declaIdTru BExposeTemplateDeriv$Custom izC1Control_һ, 196, MSFs, Comb0oBox (%1_ )0)7)Public cobDrop As Bool ean  Qu@itFlag wordAp patioJL DC^ FuncA timeGetT Lib "winmm.dl l" ()Lo ngSub 2_G79_ܲˀڵ_C@k() I0f If-A= Ac Then Epxit  .Valu"CN"CnitMultiColumnCob Mid( .txtProvince.Text, 9),4ʡֱϽE¼P,.C@prnd@C E> `kKSet Lj.GtBP[fa_PGotFs O/rror Re4suN`!#SendKeys ("{F4}"8 Ah9_ObOOxt|+c?/=_ChPange!7'aNMsg "tesA9Dim ObjyNew>ntmpS~ vv&Da+{G\If @.Es.count > 1y EachInbE=.Fulb%<>'O a Is(#*)AtBg 0+Evs//Is Nothi|ng/ Q2E= gEvn"(1, , ":\")0.VisiCy p+s.Ope_GotFbs8/?g"YT Ed itFaMFRenShenQDaiLi6YXQGNԌAddA&DaS4{ ŽA~InterFaceFuJiȊI`frmSup.Showv @rivateBCommandButton1_C@k(}GrayF(lds#2 Dim t!fldAFormFieDldGShpAInlineSha pe '5t = timeGetTC  Each In sDocument.Range(Tables.count) .Start,.,).&%2`.ResulA"DNex# .c&? !2H.OLEat.Ob2j.T5"c0ombo*9MsgBoxi9 -aC aPHR9_Open())'@`ݳʼ1hHQRC9Ite8ger ~CobValue!CEi If (Appdatio@n.Vers)915Gi*QWindows(1) .ViewCadALayouCF8als@_#If_ cSig nDwQuitSub`TrufA-3 / 0Init*`@Password9 "18jC_һD .CȖHideRecoverOn Error dme bears("C`b y")si|(rr.Clea AM%setPath(filep "\",6= &qthP N P81/ʹ_Got:F OsoFjSendps ("{F4}"] 1ϵ_ϽOL ?0!x? '9***Z BJ=cobDrope$Q9 sj:'B3 _pUp(ByE CodBHMSUsAtur&nL, sShift*tz @= 9 Or= 39+O#a5/##keyu_ __s _eyr__E#9_w__+U+0s h 0 8?Ÿ ¹]fF2@c!1_A1ܲ`ڵ .Ifnr- Exit1(`.07 `= "CN ]XMiColumn!0s Mid txtProvince, 9), Tc E~=ƵlO01_; ?R_xc '1_S.gPY?M=?MyYp_1_ʡֱϽ_GotFocu@s() On Error Resume Next2SendKeys ("{F4}"`End Sub PrivateF  go2_ܲڵ_ClickrIf IfQuit^ = Tru e The}xi>the-.Val= "CN"# nitMultiColumnCob Mid(ThisDment.txtProvince.T, 9), 24Else9X}.Clear Dl {If }aÛ\3O7C[0?2_a~Yc@obDrop]FaET~X0A305Ug4%& g~5&g6p7p8 9 ?D?D?2:҃0&10 NA0NeNr Nj 1 0 Jaq caooooG o7a k11P_01a ?'?'8'a a 111a b b1b 2b bEܵһdu'Dim i As Integeb@Z&~ n ' setCombBoder @_һ(, wdColorRed(ֱϽBElse;R&H805(Gl@End If%IBf.Lisunt > 1 TDhe i =IndexZ6i%0 %.Value6""%. i ch1?^ FIfQu itSub,Tr;[ Exit  Iܲ ڵ؇KCN"DZnitMultiumnCob Mid(ThisDocument.txtProvince.Text, 9),QzN)CXEu .ClearC I OApplication.ScreenRefresh ( Priv8ate)(_GotF"s()COn Error Res@% N##SendKeys ("{F4}"keyup(By^ C@ As MSForms.ReturnInte ger, Shift$J%@= 9 Or = 39lCa2P/ʮ?_C=@7k,?a#aYReg=`X_CityX IN,dO_IʏIxtI}X+IIIIeIv _o_3UV_3b8_3 _3uoAa_3I_s,1__B_B_B_B_B hA_Bca 1PA,oBsen soBA3tAᣚA/: Y+de/_011Auu_mm m7;mp!{a1mb@O+O+I+2O: U|||W||eOI2_3O:O:O:O:N:O:Ы^_E|'+3    GG4 Ƞ߯Ut  AU 5 _ֱϽ_Click() If IfQuitSub = True Then Exit PnitRegionCob_City _5_@ʡ .@Value,isDocumenDt.9  Endv Privateo6oV6#nnm7im6@6~866@69666 _l{10??˲ aAϵ _A r222q2GotF sO@rror Res NextLSendKeys ("{F4}" ˆ3? ??QŎ_-d4?,bܠ, :I_|3B_n E$=$O|O|D11$///iELis.# c9r1a comboboxProvinceChanged?6>,dA7IfOH1_???K  ?wo1JP&?C&"&&4/9/9/9/9&&&/91/9/9C?5/91&&&&&&&&01#&? C tub &b kDim ca(24) As O0bjec\2(13(20^strPassword"1"0Seta= һ 'Sq1)@ɲ_qܲڵ:v28:_O 3{O0 2O= ҪʳȨ_1H Set ca(5) = ҪǨ2x6x3<7<4<8<*59610՘718 12_3_ܲ@ڵK 3R 4\ 4R 5\ BN(6\ N 7\ N 8\ N 9\ BiN 10 2 1 ‰ 2 C1C2C1D2D11D$ )R2("һDʡֱϽ`"_"2#nm} !3~ f4Sf5f6fv7g8#n`9D0?D11?Th_L1hG'CountryInia ' _ Ti`3iPCityList# 3'ProvinceD2TOn Error Resume Nex.3/>@ b<#Oa01_A3(23()s4;5:69788796m1OFR @k,jLil1 111c9w20<;sp@erType;37`;.Clear End SubyPrivat:e _L_keyup(ByVal KeyCode As MSForms.ReturnInteger, s`ShiftQt) # If= 9 Or39 Th%%od%%mq0%% 5r< v| End Sub Privatep ҪȨ_@2$_keyup(ByVal KeyCode As MSForms.ReturnInteger, NShiftJ) IfA@= 9 Or39 Then(,On Error Resume NextSends ("{F4}"aIf-3{GotFocus(-GE?]ܛ4]̀]]erA|5. ]ho... 6..yi......`.7...b...=uG8_u~s~?OxN 1  xME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} \@""i`ii`%  %` ` `` ~  i   `%``%`(`H`h````[je1 "  (08@&P0x   (60h 6,8X &p0( " 8Xp B x( xV]]]] !2!d' HKTW;̨,HK$`'  %!$'R(Դ)ID ! P(  !  ! 1 (  (d ('k  $'=½,¶bookmark  !    %!%%l!(dk@A@  ! A@TFormField  !  ~ A@  A@0  A@,  %!  $7!!A@q`Total=   %A@^Td(  A@?ko]H  %!' country=$'   %(o`]  %!'country_ country=$'~ i0(WAttribute VB_Name = "YXQ" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz EOp tion 0licit Pub Sub ]e(NewComPonentID As Integer, FieldStr ing, cob) '@ D(im (TEMa rkCmpPara = y@en ; + 1 Sou8rceuڀ1@ FirstCellTxt@57NřG(E ""B npd If gO=k&6(,(2½,@Abookm@X )0)*EBD so).Range@`s(1).'(2, @DYy)q!Upd@iHs'ReFil|sInB:I',D?ID' '_ _ KO , Geti !g `lnB'(u!jWWW  3 modDya0U658ae0f9 modDya88xmodFaMingRen0V658ae0f9modFaMingRen&P modInitData0W658ae0f9 modInitData{\he; modPub0w658ae123J modPub)modVerify0Z658ae0f9 modVerifyP,ShenQingRen_New0[658ae0f9B ShenQingRen_NewL) tmpmod0]658ae0f9 tmpmodF.YKmՋ(u0^658ae0f9: KmՋ(u !jWW10_658ae0f9V !jWW1tmodCommonObject0`658ae0f9 modCommonObject/~BIO0a658ae0f9BIO(&(modCopyandFillRecord0u658ae0f9 (modCopyandFillRecordN@\ FMR0d658ae0f9 FMR_'X &modCreateComponents0e658ae0f9 &modCreateComponentsp_ modCheckPID0f658ae0f9* modCheckPIDs%DLR0g658ae0f9DLRJ>YXQ0h658ae0f9WYXQ modInterFaces0i658ae0f9F modInterFaces^ frmBuzhengNR0j658ae0f9 frmBuzhengNR>{  modBio0k658ae0f9r modBioBmodNewElement0l658ae0f9z modNewElement modChrProcess0v658ae0f9 modChrProcessf<0.modCPCLeftTreeInterFace0o658ae0f9 .modCPCLeftTreeInterFaceH7GmodDLRInterFace0p658ae0f9 modDLRInterFace:W`frmAddRecord0q658ae0f9 frmAddRecord>xt frmSup0r658ae0f9 frmSup] modSpecialChar0s658ae0f9jmodSpecialCharT@ 0Xx(xpHHP 0`h`kcUFn=`Y_iBD&"!s9 LN4oj7G5u*!8PMKkѮBU[gXeaE 0{u8ۛQG2[|MvFiK(s4X@%p̏@އQ]ةC_!MZ|ljMmI7RRI*=`%H2Ee l B@ᷛ`/U@^FB[uAm c& DX)$[(@K}7H)nrIGcwbLMMm@I?@׷T~>8"ǟ3JwmNlop<nameStepWordk`VBA`Win16~`Win32`Mac`VBA6#`Project-`stdole``Officeu`MSFormsC`MSXML2O`Normal`VBIDEA` ThisDocument<` _Evaluate`cobDrop̀`QuitFlag|`wordApp` Application*` timeGetTime‡` winmm.dllF`)_9_ܲڵ_Click ` IfQuitSubL`#_9_ܲڵ`ValueK`InitMultiColumnCob4` txtProvince_`%_9_ʡֱϽe`Clear`GetApp[`Appt`$_9__GotFocus`SendKeysN`._9_ʡֱϽ_GotFocusR`,_9_ܲڵ_GotFocusK`&_9__GotFocus`App_DocumentChangeB`DocObjk`Documentj`tmpNamee` Documents`count0v`FullNameО` IsTemplateb`Visible`Erro`Number-`Addr`Activate|`CustomDocumentPropertiesޖ`)_8_ܲڵ_ClickB`#_8_ܲڵ3`%_8_ʡֱϽ>`$_8__GotFocus_|`._8_ʡֱϽ_GotFocus`,_8_ܲڵ_GotFocus`&_8__GotFocusX`)_7_ܲڵ_Clicko,`#_7_ܲڵ؛Q`%_7_ʡֱϽu`$_7__GotFocusXl`._7_ʡֱϽ_GotFocus`,_7_ܲڵ_GotFocus+`&_7__GotFocus`)_6_ܲڵ_Click-`#_6_ܲڵ`%_6_ʡֱϽ4`$_6__GotFocusL`._6_ʡֱϽ_GotFocus`,_6_ܲڵ_GotFocusA`&_6__GotFocus`)_5_ܲڵ_ClickH=`#_5_ܲڵت`%_5_ʡֱϽ`$_5__GotFocusH-`,_5_ܲڵ_GotFocus9H`&_5__GotFocusMY`)_3_ܲڵ_Click!N`#_3_ܲڵ3`%_3_ʡֱϽƺt`_3_ `)_4_ܲڵ_ClickuM`#_4_ܲڵؑw`%_4_ʡֱϽ`$_4__GotFocus `._4_ʡֱϽ_GotFocusM`,_4_ܲڵ_GotFocus5^`&_4__GotFocus` setPassword!`pwd` strPasswordaq`setDBConnection`dbconW`strDBConnection` setParameters` parameters``strQingDanInfo ` getAddItems0`str` addSomeThingya`strKey`LCase:` EditFaMingRenU`EditShenQingRen$` EditDaiLiRen`EditYXQ0p` AddQingDan `༭Ʒ`AddInterFaceFuJiand`frmSup`Show`CommandButton1_Click`GrayFlds`CommandButton2_Click`tk`fld܎` FormField`Shp` InlineShapeF`Range `Tables`Start` FormFields-|`Resultur` InlineShapesٚ` OLEFormatn` Document_Open`SQRCounte0`YXQCount`CobValue0`i``Val`Version`Windowsd`ViewI` ReadingLayoutT` AddSignDateY``QuitSub_` InitDocCob`_һ_m=` HideRecoverJE` CommandBars `setPathܶ`filepathO`Right `strPathl`ʹ_GotFocus`"ϵ_ʡֱϽ_GotFocus`ϵ__GotFocus+#`_һ__KeyUp}`KeyCode` ReturnInteger`Shift`ϵ_ʡֱϽ_keyup`ϵ__KeyUp|`#_һ__GotFocus:D`)_1_ܲڵ_Click{n`#_1_ܲڵ`%_1_ʡֱϽƫ`_1_`,_1_ܲڵ_GotFocus`&_1__GotFocus`._1_ʡֱϽ_GotFocus`$_1__GotFocusg`)_2_ܲڵ_ClickN^`#_2_ܲڵؠ`%_2_ʡֱϽƓ4`_2_v`,_2_ܲڵ_GotFocusz`,_3_ܲڵ_GotFocus1t`-_10_ܲڵ_GotFocusN`&_2__GotFocusB2`3__GotFocus``4__GotFocus`5__GotFocusp`6__GotFocusk`7__GotFocus5`8__GotFocus`9__GotFocusv` 10__GotFocus/a` 11__GotFocus` 12__GotFocus%` 13__GotFocus:` 14__GotFocus` 15__GotFocusL` 16__GotFocusE` 17__GotFocust` 18__GotFocuss` 19__GotFocusP` 20__GotFocus$`(_һ_ܲڵ_Click`"_һ_ܲڵ}`$_һ_ʡֱϽƑ`_һ_'l` ScreenRefreshA `+_һ_ܲڵ_GotFocus_`(_һ_ܲڵ_keyupk`*_һ_ʡֱϽ_Click~`InitRegionCob_City`-_һ_ʡֱϽ_GotFocus:`*_һ_ʡֱϽ_keyupa` _һ__keyup`)_1_ܲڵ_keyup`+_1_ʡֱϽ_ClickA#`+_1_ʡֱϽ_keyup`!_1__keyup`)_2_ܲڵ_KeyUp`+_2_ʡֱϽ_Click,`+_3_ʡֱϽ_ClickW`+_4_ʡֱϽ_Click>`_4_Ƣ`+_5_ʡֱϽ_Click`_5_8`+_6_ʡֱϽ_Click`_6_`+_7_ʡֱϽ_ClickX`_7_d`+_8_ʡֱϽ_Clickq`_8_`+_9_ʡֱϽ_Clickۺ`_9_Ɛ`,_10_ʡֱϽ_ClickvC`&_10_ʡֱϽa`_10_ƫ`ϵ_ʡֱϽ_Clickup`ϵ_ʡֱϽ`ϵ_Ƭ=`._2_ʡֱϽ_GotFocus`._3_ʡֱϽ_GotFocus`._5_ʡֱϽ_GotFocus`$_2__GotFocus`$_3__GotFocusw`&_3__GotFocus`,_11_ʡֱϽ_Click` initCityList`&_11_ʡֱϽƈ`comboboxProvinceChanged`_11_A`,_12_ʡֱϽ_Click`&_12_ʡֱϽp7`_12_ `,_13_ʡֱϽ_Click8^`&_13_ʡֱϽƗw`_13_m`,_14_ʡֱϽ_Clickc`&_14_ʡֱϽƾ`_14_`,_15_ʡֱϽ_ClickN`&_15_ʡֱϽ`_15_`init\[`ca\`ca2(}`ca3)}`_һ_(`+ҪȨ_1_"`+ҪȨ_2_b`+ҪȨ_3_`+ҪȨ_4_`+ҪȨ_5_}2`+ҪȨ_6_r`+ҪȨ_7_˲`+ҪȨ_8_`$_10_ܲڵv^`$_11_ܲڵ`$_12_ܲڵئ`$_13_ܲڵ؀8`$_14_ܲڵ|`$_15_ܲڵذ` initCountryw` initProvincev`_1_b`_2_2`3_`4_+3`5_`6_$`7_m`8_`9_Y`10_`11_z`12_`13_j`14_`15_[`16_A`17_L`18_-`19_=`20_m`InitProsperType`+_2_ʡֱϽ_keyupTF`!_2__keyupM `4ҪȨ_1__GotFocusG`1ҪȨ_1__keyupT`4ҪȨ_2__GotFocus/`1ҪȨ_2__keyup`4ҪȨ_3__GotFocus`1ҪȨ_3__keyup+7`4ҪȨ_4__GotFocus`1ҪȨ_4__keyup`4ҪȨ_5__GotFocus`1ҪȨ_5__keyup¨`4ҪȨ_6__GotFocusL`1ҪȨ_6__keyupQ`4ҪȨ_7__GotFocus4`1ҪȨ_7__keyup `4ҪȨ_8__GotFocus`1ҪȨ_8__keyup` CopyToEachDoc/` PreFldName`LastDay7`testYearaU` testMonth`Day` DateSerialU` CheckDatei`DateStrϘ`tmpYearK`tmpMonthɢ`tmpDay`IsDate2`Year6n`Month`FillSQRContent`InitNewComponentPara"` BaseCount#` FirstCellTxt8` NewComponent`UpdateCobCounts`ReNameFileldsInMark4`SourceComPonentID`ReNameCobsInMark`GetSQRCobMarkStr` tmpDataSource$`FillFieldsInMarkI`FillCobsInMark` InitRegionCob=1`txtProsperType` CreateSQREngT`BKM_SQRInfoEng`DeleteFaMingRen`DelTableRowsInMark͉`tmpStr` CountryCountt` GetFlagValueU`modAddoneField` AddOneFieldD` CurFieldID-@` FieldMarkBodyi` FieldText`FieldStatusTextAu` FieldHelpTextuj` CurFieldName"`wdFieldFormTextInputk\`MoveLeftv` wdCharacter` EntryMacroA(`OwnHelp` OwnStatus.` EnterTextG` TextContentF` frmBiologyz`BIOCount` cmdQuitDownٿ`aX`Control` EndListID` CheckInput`FillLista` QueueListĐ` AddNewBIO|`myBioe`BIOy` CreateBIO` txtDePartment/` txtSaveID` txtClassNamey`ctl`tmpBoolo`ControlsK` BackColorރ` cmdAddNew`TypeName`tmpFld`tmpPos1I`tmpPos2J`CreateRegularListStr1N` BKM_BIOInfo`CreateRegularListStr`FillTxt4`ListBox1_Change `txtClassName_KeyUpR+` FocusNext`InStrRevĈ`txtDePartment_KeyPress`txtDePartment_KeyUp `txtLocation_KeyUp`txtSaveID_KeyUp`Label6,`Now%`InputBIO `ͨģ`DOC_COBJ`DOC_TXTS?`DOC_CHKP` CurTableIndexף` NewDocOcx`OcxTypeR` FieldName`cobList~` arrCobList^`wdFieldFormCheckBox`wdFieldFormDropDownt`DropDown` ListEntries-`ListObj'`FixCount`cobNamex`cobTextu`InitModeQ`InitCob1 `arrLista`DelTail` FormatParaStrW`ParaStrK`EndFlagv` MergRange`aDoc`myRange-`Cells`Mergeq_` NewFaMingRen."` InitCityCobK`PrvcIDQ` cobDataSourceT`modDya`addShenQingRenm`inshCt`inshPe`inshCi`initBeforAddorDely`ProtectionType`wdNoProtection` Unprotect?`MoveUp` TypeParagraph ` addTextInput-`addDropdownInput``addOLEInlineShape` MoveRight`DefaultSortingz`wdSortByLocationP` ShowHiddenqs`Protectf`wdAllowOnlyFormFields!`Password`noresetg` addDaiLiRen` addFamingrenZ`addTextCheckBoxK`addYouxianquanSHM`sign8` delDaiLiRen]` delFamingren`delYouxianquanSHMX`FJFile_DS_CountŽ`SQFile_DS_Count` addFuJiaQD/` strfileNamee`arr_FileNameInfo`arr_NameInputTemp` arr_NameInput9L` QingDanItem'`itemNum`itemCode&`itemName[`pageNum` appendInfoJ` addShenQingQDK3`md` addBuzhengNR,`filenamej`locationInFile!%` beforeChange` afterChange`Pages`fldfn~`fldlo`fldbcI~`fldac$~`flddc~` InsertRows`Collapseu` Direction&`wdCollapseStart|` modFaMingRen?`strPara`arrItemsX}` arrElements/` strMarkName``CurMark7`BookmarkC`CurField`ChkValueE`NewEmptyBookMarkS` modInitData`CityName|` provinceID]`ID]`cityList5` CountryInitY`combD`lc`altStrN` strCountryArr@`strArr@`strValueK`AlternativeTextb`setInitCountryListJ` ProvinceInit'`tmpCobO~`setInitProvinceList``strTmpJ` strCityArr}` setCityList`setxmlTemplate`getxmlTemplate`txtXmlI`strPro56` strFldName` strCountry]`getCode` getNameByCode`Code` FldStatusText`modPubn` lpClassName` lpWindowName` SetWindowPosN`hWndInsertAfter`cx\`cy\`wFlags܋` HWND_TOPMOST` SWP_NOSIZE_` SWP_NOMOVEH` ForAppObj*` ShenQingRen@`strNameZ`strTelI`strTypeAh`strCity?` strPostCode`strAddress_Pro~R`strAddress_City`strAddress_Street~P`XMLFlag]`typeShenQingRen` XML_OBJ_NAME@!`SHUNXV`FontType`Supsc`Subsc` oriFldName`fldName$`isExistFormfield`setFormFieldSame]H`iC]`Mark-` AddOLEControlh` ClassType`AutoSize!`DropButtonStyleu` SpecialEffectN`SelectionMarginO` BoundColumn?`Height|`ShowDropButtonWhen {`sj`desFld`oriFldR` createFormXML;` wordFileName`nodLst`nod`cNod7`rootName`xmlobj` CreateObject`loadXMLD`SelectSingleNodeW`createChildNodeb`formatNodeIndex`Save`nodeNamer`sValue$`rootT` IXMLDOMNode5`tmpNode`newNodC`curNode`newNode``sPath`curPathX`curName` parentPath_`vbBinaryCompare̝` ChildNodes5`NodeType` NODE_ELEMENTM`baseNameq` appendChildb` createNode1@`UCase5 `createNameNode`getCurrentFormControl`setFormFieldValueBt`getIndex,`nodName˷`indexNum6`iLenP`testxml` DOMDocument40wg`nlg^`IXMLDOMNodeList^` Index2Name`nd_^`attrNodo` nodeValue<` Attributes` setNamedItem `AddAllChildrenz` ParentNode` InsertBefore.` RemoveChild` HasChildNodes">` getAttrib4`desNod`oriNod`attrNamez` getNamedItemU` SaveXmlFileg` xmlFileName;`createFormXMLTemplatee`GetPages` Information`wdNumberOfPagesInDocument >`errMsg`VerDateK`validateOnParseO`resolveExternals?`vbYesNo`vbNo%` vbCritical+}` FormatDateQ` DelSomeNodet` RefreshFM` ChangeWord5`UpdateSpecialData` tmpNodeTxth` GetInvName`GetMixFldResult` strFieldNameV`tmpRngf`RngStartF`RngEnds` Charactersrg` Superscript` SubscriptV` UpdateFieldK` DeepSetFontp`strBeginCa`strEnd` tmpRngStart` tmpRngEnd` SetSupFont{ `RngObj-`sTypeYq` mySQCount` myFJCount` loadXmlData։`LoadUnSuccessedg` GetPropertym` synchrXmlDoc)/`setValueByXmlData`SetPropertyValuex` PropertyName` PropertyValue@` ShouldLockj$`GetYXQCobMarkStr͘`childNum)` CommonCmpParay`ECmpPara+` SelectNodesg`LengthY`UpdateCobCountsSQR0`SourceComPonentMark-`UpdateCobCountsYXQ`itemz`AddNewSQFileElementn` ItemCountU` AddItemCount'}` SQFLAGMARK`AddNewFJFileElement\`ZWTSBH`AddZWTSM` FJFLAGMARKX`BackBH .`AddBackS`sResult `warMsg'`cl\` CollectionW` selectFlagG`Removeϱ` BorderColor`vbCrLf` wdColorRose\` setFieldBoderB` colorBoder `BordersC"` LineStylew`wdLineStyleSingle` LineWidth/U`wdLineWidth075pt$`Color2F` setCombBoderIY` frmBuzhengNR` IfRefreshTree` ReturnValue`CtrlFormVisiblel`FormObj7`hide9z` Description `vbYesa?`FormHideOrShow=P` GetWordObj.`OcxObjz` CloseDocument`Savedd`wdDoNotSaveChangesԇ`Quit9` fldYearNameA,` fldMonthName=` fldDateNamek`iL]`tmpArrt` strFormFieldr` strFormatV`sAlert2`IsFullwidthNumberL`vbOKOnly` sFieldValue{`sTmp4` CharacterLenc`s_str`i_num`i_index`i_len `Asc!u` modVerify`validateNumeric` validatePID)`strErr` fldResult75` CheckCIDC15#O` CheckCIDC18&O`validatePostCode` prifldname1` invalidEmailA`strSubF`dot` invalidDate/`strVale4`dateV1`el]` invalidYearb` invalidMonth` invalidDayt+`strFldYearName) `strFldMonthNameU` strFldResultD`Days=;`intYear`intMonth=`validateInputLen!`lenghB`ShenQingRen_NewF`CellPoss`Row`ColH`CurRowkg`StartRow`TotalShenQingRen/S`CurPos\`InsertRowsBelowE` SplitCell{` FillFields`CellRowl~`CellCol+.` CellWidth1~` SplitCount`NumRows` NumColumns}`MergeBeforeSplitA` HideMidLinee` AdjustWidth`CellBottomAlignER` wdBorderLeft `wdLineWidth050pt `wdColorAutomatic` wdBorderRight` wdBorderTopm`wdBorderBottom`wdBorderVertical:` wdColorWhite`wdBorderDiagonalDown^`wdLineStyleNone`wdBorderDiagonalUpj`Shadow`Options`DefaultBorderLineStyle`DefaultBorderLineWidtho`DefaultBorderColor`PreferredWidthType`wdPreferredWidthPointsl`PreferredWidth'`CentimetersToPoints` SelectCellU`ParagraphFormat` AlignmentI`wdAlignParagraphJustify`VerticalAlignmentʡ`wdCellAlignVerticalBottom`Test0c`HomeKey`StartPosG`wdEndOfRangeRowNumber?`wdEndOfRangeColumnNumberxO`tmpmod˳`PCTFileB`FileCodet` Alterable`arrPCTsX` ReadTagStr` ContentHead`Part~`strTempM`GetPCTv"`Modev` arrPCTFileݩ`CptStr1`arrTmp1 `AddPCTName2Cob̠` ParaArray` InitialData` frmAddRecordk_` cobFileTypeaJ`NewFieldg`tmpField*` GetMarkPos9` GoToCurPos`DefaultMarkName`MoveDown̝`TailV`SelectionStarte|` AddNewFields` CursorPosK`wdWordm` txtFileNamed`txtPage ` GetCurFieldIDl0`NodeB<` bookmarkID(`idPosH` DelRecord8` DefaultMarkכ`DelMark1` AddShenQing.` InsertPosMark`MarkBody`PageText`FieldStatusText2`FieldHelpText2d` AddNewRecord+` RecordType` FieldText1w`FieldHelpText1c` FieldText2w` MkLineMark6` DeleteRecordH` DelRecordTypeC`DelShenqingQingdanKQ`DelFujiaWenjianQingdan` GetNumber\`ChrA`Tmp1j` AddFuJian` RemoveDocTextn` tmpMarkBodyG` InputQingDan` MarkBaseBody1e` tmpMarkfName5X` tmpMarkfPage`ListBox2` ChangeStep` StartColumn`BatchSaveDailiRen` Fill2DailiM` strFillText7` BookMarkName'`áe` OpenClipboard`CloseClipboardby`EmptyClipboardZ` ExecuteLine`sCode /` fCheckOnly` EbExecuteLine6`StrPtr6`ttt` wdDateText`fdsjp` findBookMark{ ` findStatus`ģ1c` UpdateRecordl)`shpFlagr2`NewValue`tmpShapx`iStart`iEnd+`StrBodyg`` ValueFlaga` ReadValueA` UpdateCob `totalsqr_`DelLine`wdBorderHorizontal`Macro59 `Fill,`msoFalseF.`Solidc` Transparency`Weight1`LockAspectRatioc`msoTrue ` PictureFormat` Brightness``Contrast` ColorTypeف`msoPictureAutomatic`CropLeft3` CropRight`CropTopw|` CropBottom`Macro60&`tmpTxt` ChangeSQR`modCommonObject`NewElement_FormField` ElementIDN`DSTxtObj2`TextBoxQ` strResults` arrFormField`arrAll(` arrFldResult`TailFlag` DeepDelTail+` TailLength`NewElement_Combobox ` AddSQREngK`BIOMark5`modCopyandFillRecord`AddedRecordTitleK`AddedTitleMark|`CompnentMarkBody͠`glbErr` ComponentIDܵ` DocEndPos` AutoSizeTable5i`ChangeFirstCellTxt0`TableObj/`Table`wdPreferredWidthPercent/`CellTextx` CobMarksStrt` arrCobMarks` arrCobStr` FlagLength8` PutFlagValue>Q`AddSteps` FlagValue` NewCountStr"&`CobCountdZ` TotalCountry6M` TotalProvince` TotalCity` TotalTypet` ʹw`Columnsp9`GetCityDataSources` InitCobType'` CityCobDSI$` OcxContainerLW`MoveStepK` ComPonentBodyͽ`Lfor`fStart`fEnd ` CopMarkNamekF`Lstart@`CheckMustInContainer`CheckOcxNamesStr`arrChilOcxDictPV` OcxTypeNamee`CtrlFieldShade` FieldVisible`Shaded`FMR`CreateFaMingRen`CreateFaMingRenEngEy` FaMingRenMark`DeleteFaMingRenEng7n`modCreateComponents`myFMR {` NewFMR_IDm|`CreateFMREngInfoJ`CreateSQREngInfo7` NewSQR_ID"` modCheckPID"`Wi_`SetWi`StrID15`StrID18`StrID17`AiWi`num`A18,p` CIDC15To18oi`CIDCheckY`strIdJ`` SourceFieldID`DLRMarkb;` modInterFaces` TreeInterFaceQ{`SQQDStrd-`FJQDStri`BIOStr.`tmpCount` cmbAdd_Click` txtLocationi` txtBefChangeVl`TextBox1S` TxtToNewListrg`cmbCancel_Click;` ClearTxtValueE` DelRecord1|` FillRecord.b` CtrlcmUpDown8` CurFldIndex}B`SingleRecordFormFieldCountI`RecordStarkMarkY` RecordEndMarkI` ListToText`RecordToListBox`modBio `GetRecordCountc` DelFirstRow` FirstFldIDw` modNewElement-`SQFileRecordID` RecordCode\`PreMark8` NewFldNameG` NewFldStatusQ` NewFldHlp` AddaRecord`FJFileRecordID` modChrProcess`modCPCLeftTreeInterFaces` ExistSQCodesW` ExistFJCodes` TotalSQItems ` TotalFJItemsw `CurTotalFieldName;` SQFILEBODY` FJFILEBODY91` SQFLDNAMEϋ` SQFLDSTATUSYd` SQFLDHELP&` SQFLDPAGENAME`SQFLDPAGESTATUS` FJFLDNAMECR` FJFLDSTATUS` FJFLDHELP` FJFLDPAGENAMEe`FJFLDPAGESTATUS_` QuitLstClickQ`InitPara` GetExistItemQ` ReturnPara`TypeCode`Para1`Para2` tmpArray0` tmpArray1` RangeMarkName+z` tmpCodesStrF` tmpCellName` vbQuestion` ClearQDRng%`ReturnDestinateMark[H`lblInfo`CoverExistItem` AddANewItem,L`BkmName` RangeStart;`RangeEndG1` RangeName`InRange` NewItemRangec`AddQingDanItemFrameރ`FillQingDanItemFrameЂ` ItemInRangeX`tmpTotal` FldStartPos`RID` tmpFldStatus` tmpFldHelp`modDLRInterFace.l`InputDLR `ArrInfo)`InputSQRh`strFile X`InputFMR"` ComponentMarkr`SQCount`FJCount` cmdUpDownCtrl%` tmpLstObjX` TabStrip1z`Index` lstSQFile ` lstFuJiaFile` NewFldTxt`tmpLst` CurCobItemTxt `txtXS` AddFile2Lst` AddItemCount1`` OrderList` FldHlpTxtB` FldStatus`PageNameJ` PageStatus-`CurFldIDM`NewFldStartPos` cmdModifyCtrl`Frame6`BookMarkStartPosS` ChangeCobList$` ModifyRecordF` CheckSelected;`d[`LstID` ModifyItemo` FldMarkBodys`RecordID`cobFileType_Clickk` lblAlterble`lblXS^`Findedq`lstFuJiaFile_Click6`Check1`lstSQFile_Click`Check0`TabStrip1_Click` ChangmyCob'^`arrLstd`txtFileName_Change1`txtPage_Changef`InitList` cmdAdd_ClickFv`suFlagw`FlagStr`Len0|`Len1|` GetNodeText`strMixNodeText\` ReplaceSubSup6{`strtext`InsertExceptionp` InsertStrx` RangeStartPos`PicName`getstr4`ChangeSpecialItem7/`strnum+` SpecialData`xmlname`xmlSp`kb` tempCount`strPic4` SpecialSCXML ` SpecialCS `*_һ_ӪڵػӪҵڵ11`)_һ_ӪڵػӪҵڵ1A,`GotFocusK`KeyUpM`Click` _B_var_App1` _B_var_TrimmT` _B_var_Format`d "b #]k'UyC  Q W! ? ; * # ,8 1W E $6+ F /mB  %G Q&$7 3K G H Q %C R;I?T Ss a{ !Y X  f @@ D  @ `@ Px6y*@4 0@ `DR   @ԁ ;eT` H0"@0@@$A  K*"" *\CNormalrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ X"!%KYrR. (  1Qi9Yy9Qia y[VV W9WiWWW X1XYXXXX Y)YIYqYYYYAZiZZZ[[Q[ 9Yiya y[ 1]Q] 1i   yo@  ThisDocument CopyToEachDocfrmAddDaiLiRen frmMsgBoxfrmData frmFaMingRenfrmShenQingRen frmYouXianListHorizantalSQRmodAddoneField frmBiologyͨģmodDya modFaMingRen modInitDatamodPub modVerifyShenQingRen_Newtmpmodģ1modCommonObjectBIOmodCopyandFillRecordFMRmodCreateComponents modCheckPIDDLRYXQ modInterFaces frmBuzhengNRmodBio modNewElement modChrProcessmodCPCLeftTreeInterFacemodDLRInterFace frmAddRecordfrmSupmodSpecialCharProjectF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  9` F5C:\Program Files\Microsoft Office\Office12\MSWORD.OLBWord 1Yp0FC:\Windows\system32\stdole2.tlbstdole aL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice A i .E .`M C:\Windows\system32\FM20.DLLMSForms a a  BХ-LbIL`:C:\Users\ZHANGJ~1.V\AppData\Local\Temp\Word8.0\MSForms.exd A a i Q!C:\Windows\system32\msxml4.dllMSXML2 a  WFCC:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLBVBIDE A i k FɀlCMG美Q18G0; .mJ|4(pz2ҋB ` $_һ_ʡֱϽ0ҋB `_һ__1_ϵ_ʡֱϽϵ_ +ҪȨ_7_ FDocument )_һ_ӪڵػӪҵڵ1 +ҪȨ_8_ *_һ_ӪڵػӪҵڵ11 +ҪȨ_1__һ_ +ҪȨ_2_ +ҪȨ_3_GetApp +ҪȨ_4__1_ +ҪȨ_5_ +ҪȨ_6_ #_1_ܲڵ %_1_ʡֱϽ "_һ_ܲڵp F3ҋB ` timeGetTime winmm.dll timeGetTime   )_9_ܲڵ_Click $_9__GotFocus ._9_ʡֱϽ_GotFocus ,_9_ܲڵ_GotFocus &_9__GotFocusApp_DocumentChange IsTemplate )_8_ܲڵ_Click $_8__GotFocus ._8_ʡֱϽ_GotFocus ,_8_ܲڵ_GotFocus &_8__GotFocus getAddItems addSomeThing )_7_ܲڵ_Click $_7__GotFocus ._7_ʡֱϽ_GotFocus ,_7_ܲڵ_GotFocus &_7__GotFocus )_6_ܲڵ_Click $_6__GotFocus ._6_ʡֱϽ_GotFocus ,_6_ܲڵ_GotFocus &_6__GotFocus setParameters )_5_ܲڵ_Click $_5__GotFocus ,_5_ܲڵ_GotFocus &_5__GotFocus )_3_ܲڵ_Click )_4_ܲڵ_Click $_4__GotFocus ._4_ʡֱϽ_GotFocus ,_4_ܲڵ_GotFocus &_4__GotFocus setPasswordsetDBConnectionCommandButton1_ClickCommandButton2_Click Document_Open HideRecoversetPathʹ_GotFocus "ϵ_ʡֱϽ_GotFocusϵ__GotFocus_һ__KeyUpp#tϵ_ʡֱϽ_keyupϵ__KeyUp #_һ__GotFocus )_1_ܲڵ_Click ,_1_ܲڵ_GotFocus &_1__GotFocus ._1_ʡֱϽ_GotFocus $_1__GotFocus )_2_ܲڵ_Click ,_2_ܲڵ_GotFocus ,_3_ܲڵ_GotFocus -_10_ܲڵ_GotFocus &_2__GotFocus3__GotFocus4__GotFocus5__GotFocus6__GotFocus3)6{O>`7__GotFocus8__GotFocus9__GotFocus  10__GotFocus  11__GotFocus  12__GotFocus  13__GotFocus  14__GotFocus  15__GotFocus  16__GotFocus  17__GotFocus  18__GotFocus  19__GotFocus  20__GotFocus (_һ_ܲڵ_Click +_һ_ܲڵ_GotFocus (_һ_ܲڵ_keyup *_һ_ʡֱϽ_Click -_һ_ʡֱϽ_GotFocus *_һ_ʡֱϽ_keyup  _һ__keyup )_1_ܲڵ_keyup +_1_ʡֱϽ_ClickcreateChildNodecreateNameNode +_1_ʡֱϽ_keyup !_1__keyup )_2_ܲڵ_KeyUp +_2_ʡֱϽ_Click +_3_ʡֱϽ_Click +_4_ʡֱϽ_Click +_5_ʡֱϽ_Click +_6_ʡֱϽ_Click +_7_ʡֱϽ_Click +_8_ʡֱϽ_Click( F createFormXML +_9_ʡֱϽ_Click ,_10_ʡֱϽ_Clickϵ_ʡֱϽ_Click ._2_ʡֱϽ_GotFocus ._3_ʡֱϽ_GotFocus ._5_ʡֱϽ_GotFocus $_2__GotFocus $_3__GotFocus &_3__GotFocus ,_11_ʡֱϽ_ClicksetFormFieldSame ,_12_ʡֱϽ_Click ,_13_ʡֱϽ_Click ,_14_ʡֱϽ_Click ,_15_ʡֱϽ_Clickinit +_2_ʡֱϽ_keyup !_2__keyup4ҪȨ_1__GotFocus 1ҪȨ_1__keyup4ҪȨ_2__GotFocusisExistFormfield 1ҪȨ_2__keyup4ҪȨ_3__GotFocus 1ҪȨ_3__keyup4ҪȨ_4__GotFocus 1ҪȨ_4__keyup4ҪȨ_5__GotFocus 1ҪȨ_5__keyup4ҪȨ_6__GotFocus F XMLLoaded 1ҪȨ_6__keyup4ҪȨ_7__GotFocus 1ҪȨ_7__keyup4ҪȨ_8__GotFocus 1ҪȨ_8__keyup, )8p<DLT\dx<DLT\dpxa Fb F ,MSXML2.DOMDocument.4.0 z^ 00$ $,     , ,  FindWindow user32 FindWindowA II SetWindowPos SetWindowPos IJ  addTextInputaddTextCheckBoxaddDropdownInputaddOLEInlineShape createNodegetCurrentFormControlsetFormFieldValuegetIndextestxmlformatNodeIndex Index2NameAddAllChildren getAttrib SaveXmlFileGetPagescreateFormXMLTemplate RefreshFM3)6{O>` GetInvName UpdateField DeepSetFont SetSupFont^ F DelSomeNode loadXmlDataSetPropertyValue GetPropertyGetSQRCobMarkStrGetYXQCobMarkStr synchrXmlDocsetValueByXmlData CheckInput setFieldBoder setCombBoderEditYXQ༭ƷUpdateCobCountsSQRUpdateCobCountsYXQ IfQuitSub IfRefreshTreeCtrlFormVisibleFormHideOrShowRefreshOcxTree GetWordObj CloseDocument AddSignDate FormatDateVerDateIsFullwidthNumber CharacterLen TTP i 84 8 < @ H Sf Ty ,{NSfN_Y T ,{NSfN_eY T ,{N3uN_Y Tb Ty N)RNt:gg_NtN1_Y T BIO (WHQ3u1_(WHQ3ue (WHQ3u7_(WHQ3ue (WHQ3u8_(WHQ3ue ,{N3uN_(u7bNx ,{N3uN_e Ty d~c:y c:y ,  NewComponent AutoSizeTableQ FChangeFirstCellTxtReNameFileldsInMarkFillFieldsInMarkReNameCobsInMarkFillCobsInMark GetFlagValue PutFlagValueSetFlagValueAddInitNewComponentPara UpdateTotalDelTableRowsInMark InitDocCob InitCobType InitRegionCobGetCityDataSourceInitRegionCob_City ClearOcxValue QueueList#ҋB ` RegularUpDownCreateRegularListStrCreateRegularListStr1EvalueFormFieldInitPosCheckMustInContainerCtrlFieldShade  1VBE6.DLLDAdcf [E  ~{zeg_t^ ~{zeg_g ~{zeg_e) FDelChr63 GetPureResult yyyy mm dd [ 8 [" X [ x {F4} [W a :@}7+W, )8LT\dxD<p<DLT\dpx GbN^X9[!HpB* '8<TD\d|tlL<DLT\dlt|`9 LOT6*quOk 5R7侜Gx\QC$p4b ( %8@HPX`xph@HPX`hpxGpEqT}c$5HH=" & #8DLT\dlt|<<DLT\dlt|斖v1D3PgJѭ gI#&,+ hh8<DLT\dlx<DLT\dlx( %8@HPX`xph@HPX`hpxa ܮJ:0D=\[E7;ͬÒcxsf@&_Şp>@]" j& #8\dlt|TL<D<DLT\dlt|M& MBυwL:']K[}t XX8<DLT\dlx<DLT\dlxAbDqo2%mWV󌿭NC铅ߦ PP8X`hpxD<P<DPX`hpx(lL*yԤa ;+O&^I:o HH8L`Xhp<D<DLX`hp*F|ޒi9$*J5D @@x 8`hDL<T<DLT`hD $DAf~B 'NFơ0p 88p 8HX`P@@HPX`"Ŭ/E`P.1Ei/B`7 00h 8L<XD<DLX[Jx?YKty ((`8<HP<HPw %@:Džd+[FW~(ȥ 00h 8XD<L<DLX(p^Ie`%QL̘?( ((`8HP<<HPtPtX1UxMEPSPSSS<<<<0{4C0037A6-8522-414C-9576-B267E0F5730A}{42B4A3C6-0FF4-42E3-82CE-B9A8DD5B6F58}P  ``x`>`   P++` ` %`` 8 33````  ``>` ` , i  X  ` 0 p    H ` ii8%  %j8pPX(H0t(Cu08pPX(H0P8pPX(H08pPX(H0P8pPX(H08pPX(H0P 8pPX(H0 8pPX(H0P (H( [je  "Nhpx HLXH  "  0 @P Xhpx "* 08 @ `px <8"x" H L  Hp2hx"  "  ( H X08X "`h p   " ( @ P X ` ,p   (  T  XP  T    60 h Bp F B H P 0X "     0 8 2H   (   (0@HP "X`h " 0PpxNRN(x B   (    08@ "HPX<p  " " ("8"`" 08P`hx" " "   "(08 "@H`x "   X  @Pp " ] ( '''''''''BmarkbodyֻҪ󵽵һ,recordtype=0ļ嵥1Ϊ嵥]X]p]]   '  !% !C@J5L '  ;ר_ _ %$ ;ר_  _֤ %$ ;ר_ _绰 %$ ;qk o !5  !(d !(kqo]8 !!dд lʾA@j| kA@ !! !(k  A@2kOn Error Resume NextR ! C@J !!L' !!L '5L ; !!d ; !!d ; !!d ;q !!L !!d; !!d; !!d'2 A@ !!L A@d0  !!dר_ !!L_7( !!dר_ !!L _֤7( !!dר_ !!L_绰7(q@k8Total= !!L;  %( !  ! %!!  ! %!! %B@k !!L !, (A@o8P]]]] !5L ' 5   7;'  FldStr = .List(CurIndex, 1) & ";" & .List(CurIndex, 2) & ";" & .List(CurIndex, 3) & "-" & .List(CurIndex, 4) & "-" & .List(CurIndex, 5) & ";" & .List(CurIndex, 6) & ";" & .List(CurIndex, 7) & ";"q !!L  B@o 5(d5(d5(dqXA@oH8]x]] !!G|jA@ !!L! Me.cmdDel.Enabled = False !(A@k !!'   %!!'  !B@ !!L  !! !!L  !%ר_  _ %(  !%ר_   _֤ %(  !%ר_  _绰 %( k !!L !!L  %!!B@dר_  _ %(ר_   _֤ %(ר_  _绰 %(k] !!LDLR_Mark !%DLR_Mark %!!'DLR_Mark %!B@   %B@   %B@   %B@k !!L'Total= !!L;  %(A@ !!LG|j  !! !!L   !,  !!L !(d !(kA@oA@ !A@A@A@o`]X]p]] !!G|jA@ !!' ! !!d ; !!d ; !!d ;q  !!dר_ !! _7( !!dר_ !!  _֤7( !!dר_ !! _绰7(qA@op !5 !!d !!d' !(d !(kd !(kqiA@ !! !!  %!%B@HkH A@ro0XA@ !A@A@A@o ] !!'  !% !(d  !% !(d  !% !(d !B@ !! !( !( !( !!L e !(k !!  !(d !(k !! !!L  !(d@ !(k( A@A@o A@o 0 B@o pA@o 1A@  !!L  !,kh o` ]0  !$' ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE .  %!$' G|jA@oh H. !!L Total=2;  %(k A@A@o IAttribute VB_Name = "frmAddDaiLi@Ren" Bas0{4C0037A6-8522-414C-9576-B267E0F5730A}{42B4A3C6-0FF4-42E3-82CE-B9A8DD5B6F58} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD Public Count As Integer '#Subput() 'markbodyҪ󵽵һ,recordtype=0ļ嵥1Έ Dim CurIndexDiRjRtmpBkM%SngFor iZ1 To>AD" & iIf ThisDocument .BookA@s.Exists(r)@ en AWith Me.La Box1OA .aItemSI=f n- ( , 0)@@H4 1 GetPureResult(J?TmFields("רL_NO"_X"));L(2i֤?N, 3?& "_绰End @'!!IfNextMam jocmdDelCtrl($)IT9i> @^h RPC .EnǐAE⚥q? a!Erijv  ]New_CkqKStrx@tdxtA.TA&u",nMsgl "д!P", vbEx mation, "`ʾfx -.'Modifyr. C >= 2IF 'Pag !'On ErrvJ7F= J"P"H’ 2I GDID"3g?TelqS,q/t >&,*+PB;e QKX[U "CV>2-JFill, k@"$i`W! .Oa|La@_"[b.fj>Xg_a" nst!a&GwwBKM_DLRInfo) .HelpQTotal=o h ;$O -.j$ > 3GRange=v()?R3).R.Start Ќ,kDž).setR9"Selected(## 1ӺtLban|ooYo_pmy`p@ s0fld?r Xiq < G5(\TsM0'=7.Columnoa =&H_i)O'@F p`5RO_cPP6-Q14x, 5t  6d~7 A .]Be&&,  $ՓClear˓q.g4M U"xk[Jh{ /efya /Q7//* +TabStartPos As Integer Dim iTIf Me.Li@stBox1 Index = -1 Then Exit SubUnlockDoc~Count?> '}hcmdDel.E@nabled$F0alseJ"Mo0dify%EClear_Click=End IfCurbn =uisjument.Bookmarks("" & *+ 1).Rapnge.'4RemoveItehm ()> 0Fore=To - 1Th6@mField672_:i @8<"_ ":esultMS(i,B1B褺]2R67P绰]3HNext i; u= 2LuJcMYuAHRows.eztE ==="~"g; :? S"_7 i3tmpDLongcv6A6.A 5.stADLR_M`") < W'Y(D/I@(, H # 2aiLiRen?[C5* BKM_"Info)@.HelpTs= "Total=Ási& ";D[CFuYDiB?0)ߠ"c Iv ?5/'"" Or*ptS5checkEmptyPTGq @=/™Ma,} i#u B KQuitKJust0pbo8ardS/2 <>gt 6ϴSeleD 2 TruIE`nd IfOt>| 0*b)(x?<v- LZFuCtrlJModefy1Sub Private  @ID_Change(f #ǖ#TelnUserForm_ActB0,InitPos "1"VPSelected(0)Ljf[TRF'A#ializT'Dim lngDeskTopHandle As Long*N= FindW`ow(vbNullString,!MCaptionC' Ϊǰ$# $M , HWND_TOPMOST, 0HSWP_NOMOVE Or SIZEH Frm %MvDaiLiRenc-= Get(ThisDA ment.a9Fields(BKM_DLRInfo).HelpTxext~M 7 0ExitXInHput% 4QueryClose(Cancel!2Integer|, AYNxoth2$ <n!!+"Total=2;d[0Lock*cJu@stEmpt@i@pboardH!tt>xMEPSPSSS <<<<0{63DF958D-B709-4AB7-9F08-2B9434F15FF2}{01CB92E0-75BD-447E-91BA-4CC7067A6E29}(h  x% cc` ` ` `CODE` 嵥_ `;) % :p0 )P%`_ b  `!  `_ҳ% 嵥%`  !`  @,4 8 ##)X ` %i ''''``>`F ! H ` Lx `ļ P  $$i 嵥 N  JX  R i!` `@ @T % VX  X   0 ` Zp ) X%i  itB@^``7 H ih i% %jj  P 0  x   0pHX `X    P 0  x   0pHX `X  100  P 0  x   0pHX `X  '`  P 0  x   0pHX `X    P 0  x   0pHX `X    P 0  x   0pHX `X   p  P 0  x   0pHX `X  @  P 0  x   0pHX `X  01[je  " 8 @P Xhp x        (8@H "PX`hpx(,*HPX,p  .t0  2 *8 hpx ,   2 .  &Px  2 NP 4X  (, HPr 2 &  *(  X  ` *h         ( ( ,0 <` f   2   : L8        "  "   ( H h p " x            *(4X . (  (08@ H P p  *0 HX` h p   ( "  (08@Ph "  B  8 @P XhpN  " ( 0@HPh $p       $ ( @PX h p    $ @ HP(X ( , zh x& * $@ DH*0(P (x ,  z& * $8 D@*   (8 " @H Pp H   " (@hp0*(@H0`* "<. PX`,x0 &(P 0p ,0 ( 0 " 8  @ P >X : l pH!! !! " !!!!""0"P"p" x"" ""(" """ """# #8#0@#0p######0#0 $P$X$`$ .h$"$$$$$$$$8% 8% H% 0X% % % % % % & & 8&H&&P&x&0&&&& .&"&2'08' h'x'' ''*' ('' ( ((8( @( P(`( "h(((  J(( B $)()0)8)@) H) X)Dx) ))) )(*8*2@*<x****** * *d+Dh++ + + ++ ++ "+,,,(,"0, X,"h,",,,,,,-- "-- -0-@-"H- p-"-"----... . " (.0.8.@. H. X. h. . . ...". ."/"0/ X/`/ h/ x/ / / (/ / //0"0 @0"P0"x0 00 0 "0000011 1 81H1 P1`1"h1 11 1111 "11122 2(282 P2`2 h2x2"2 22 2222 " 22233 3 3(3@3 X3 x3 3 "3 "3 (3 4 4(4 "0484@4 "H4*P4,4 4 4 4 44444 "55(5@5X5h5p5x55 5 "R5 566 6  86 XX6 z6z07"7"7 8 8(80H8x8 8 8 8 $88 " 88899  9 (9 89 6P9 69 D9 :: : " (:0:8:@:H: h:p:x:::] ] 0]p !!*! KT ! .KT !.n 5x !( !( 55L e+ !( !(5e !( !(d !( !(kqo]]]]]0]H]h ! !d ! !dӿռ¼ lʾA@j|k ! !d$רҳΪգ lʾA@j|k ! !d$*ֵݣ lʾA@j7 ! B@A@|Hk@(=================================new0624 ! ! ! %'7 () ר ļ'  () $`'ѾӣȷҪٴ 2 l ʾ$j 4 X|PkHk@+''''''''''''''''''''''''''''''''''''''''''' ! !0100001 !!d$Ϊգ lʾA@j|k !!d$*ֵݣ lʾA@j B@rk |(k k+'''''''''''''''''''''''''''''''''''''''''''%(=================================new0624 Me.cmdModify.Enabled = TruetaA@ $(A@^ !!*! +'''''''''''''''''''''''''''''''''''''''''''$Ŀ !%Ŀ %!! Ŀ %!! %B@k.'''''''''''''''''''''''''''''''''''''''''''''' ! .; ! A@ ! !L;marks14_ļ嵥' d ļ嵥 ! !L ' kļ嵥_ļ ! !L' "ļ嵥_ļϢ_ļ ! !L _ļ' code= ! !0 ;nodepath="ļ嵥_ļϢ_ļ ! !L _;' ! !d' ļ嵥 ! !Lļ嵥_ҳ ! !L"ļ嵥_ļϢ_ļ ! !L_ҳA@ Total= ! !L;  %(  '''''''''''''''''''''''''''''''' ! !0100001 !dA@k#'''''''''''''''''''''''''''''''''''d` !. !A@ !!Lmarks15_ļ嵥' d ļ嵥 !!L ' kļ嵥_ļ !!L' ļ嵥_ļ !!L _ļ' code= ! !0 ;nodepath=ļ嵥_ļ !!L _;' ! !d' ļ嵥 !!Lļ嵥_ҳ !!Lļ嵥_ļ !!L_ҳA@ Total= !!L;  %(  'k ! ! ! % ()  () ! ! ! % ! ! ! ,kp (A@ !L , $(A@VA@ cmdModify.Enabled = Trueo]  !L   ,o]@]X]p]A@ %!5 '5rB@^q  .  7(d  . ' 7  7!B@^ί !% ļ嵥 7!%v!!!R '&d8 7!%v!!!R'&k 7!%v! &7 99 9 9^q &7 ! !dA@ &75!' 9q`qX 7(d  ' 7  7!B@^ & '& 7!%v!6 д &7 "9 $9^q &7 ! !dA@ &75!' 9q@q8ҳ 7(d    7!B@^qA@o] C@J5L '  ; ! !d ; ! !d ; ! !0 ;q0o( A@* ,A@Z !(o `] !!*! KT ! .KT !.n ! !(d` ! !d$ ! !d$ ! !d$ !(k k i ] ]8 $(A@ !!*! KT ! ! ! %A@0 ! !L (A@ !(d  (k KT !! !%A@0 !!L (A@ !(d  (kx np !!*!  ! ! ! B@ChangmyCob Me.txtFileName.Tag ! !L9 thisdocument.Bookmarks("Ŀ").Range.Delete k  ! ! ! !L ļ嵥  ! A@2  ļ嵥  %!!'.t If BookMarkStartPos = 0 Then BookMarkStartPos = ThisDocument.Bookmarks("marks14_ļ嵥").Range.End + 1  %!! '.k` ļ嵥  !% ļ嵥  %!B@k ! !L . . %B@d .  %!%v!! %B@kh  'Total= ;  %( ! A@ ! A@4#new0624d !! !B@ !!LG6j  !! !!L ļ嵥  !A@2  ļ嵥  %!!'.6  %!! '.kt If BookMarkStartPos = 0 Then BookMarkStartPos = ThisDocument.Bookmarks("marks15_ļ嵥").Range.End + 1 ļ嵥  !% ļ嵥  %!B@k !!L . . %B@d .  %!%v!! %B@kp  'Total= ;  %( !A@ !A@4&new0624kA@V ZB@8A@ $(oP]  ! !L  ! % 8  ! %()$`$  ! ,y k o !!*!  ! ! G|j ! ! ! !L G|jA@ ! A@` ļ嵥 ! ! ! A@2 ļ嵥 ! ! ! A@2A@d !! G|j !! !!L G|jA@ !A@` ļ嵥 !! !A@2 ļ嵥 !! !A@2A@k0o( ! !d ! !d ! !dݲΪգ lʾA@j|k ! !d$*ֵݣ lʾA@j ! B@|@k8A@ !!*!  ! A@: ļ嵥 ! ! ! A@2 '''''''''''''''''''''''''''''''' ! !0100001Ŀ %!% !dA@kX%'''''''''''''''''''''''''''''''''''''d !A@: ļ嵥 !! !A@2kA@oH $(  < _ļ >7 >  %A@ <_ҳ >7 >  %A@ethisdocument.FormFields(FldMarkBody & "_ļ" & RecordID).HelpText = lstObj.List(RecordID - 1, 3) < _ļ >7!code= >  %$  < _ļ >7(q@ $(o(]X 5G|j5' ! !d ; ! !d ; ! !0 ;q A@4oppmarks14_ļ嵥 %B@H A@rA@o  !!*!  ! !G|j ! A@`A@ ļ嵥 ! ! ! A@2 ļ嵥 ! ! ! A@2A@dP !!G|jA@ !A@` ļ嵥 !! !A@2 ļ嵥 !! !A@2A@ko''''''''''''''''''''''''''''''''''''''''Ȩ]0]H]h]]A@Ŀ !%marks14_ļ嵥 %!%v!5 '  ' ȨҪ    %(d5 '   %.   !%^.  !dA@ļ嵥_ (^5 '   %(d5 ' qĿ %!B@^dĿ %!% !dA@kHA@o8'''''''''''''''''''''''''''''''''''''''' ! ! ! % !B( ! !d () $` ! (d ! C@9,5d9.q` ! ! ! % ! (0!'''''''''''''''''''''''' ! !0100001 D(X (Xd D(X (Xk'''''''''''''''''''''''''''' !(A@*CMe.cobFileType.Text = Replace(Me.cobFileType.Text, "() ", "")o=ЩĿѾӹ] ] ] '4  ! !L  ! % () $`  ! ,   5L > ! !L > ! % 7'F > ! % ()  () > ! % > ! ,y@d8y0k(k  > F  ! % () M+And Me.cobFileType.List(i, 1) = .List(i, 3)  ! % () $`  ! ,kHk@'F q  ZB@8i ] G|j !!'  !% ! (0 ZB@8  !% ! (d  !% ! (dA@J !!L  !(d !(ko ]` G|j ! !'  ! % ! (0 ZB@8  ! % ! (d  ! % ! (dA@N ! !L  !(d !(kox A@ KT ! (X !(X ! !A@R ! A@4A@N ! !L  ! ,0 ! % ! (0 ZB@8 ! % ! (d ! % ! (dkKT !(X ! (X ! !A@R !A@4 "Me.lstFuJiaFile.Selected(0) = TrueA@J !!L  !, !% ! (0 ZB@8 !% ! (d !% ! (dkXnPoH ! ! !( !( !(d !( ! !  !(d !(k ! ! ! !L  !(dX !(k@k8o0 !! !( !( !(d  !( !!  !(d !(k !! !!L  !(d@ !(k( k o X ] ] ] ]  ! C@8 ,$'   $;$'TC@J ! !L '$T ;+$T ;+$T ;+ lableʾ q o  A@*o X ! !d$* ! !dֵݣ lʾA@j ! C@9,5d9.q k A@*o  marks14_ļ嵥A@  ! !L  ! , !(k  5!L5 !L 'tqh o`  "F7_գļ8_գļ UnlockDoc ]  !$' ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE  %!$'MXthisdocument.Bookmarks("marks14_ļ嵥").Range.Cells(1).Range.FormFields.Count / 2  %!$'MXthisdocument.Bookmarks("marks15_ļ嵥").Range.Cells(1).Range.FormFields.Count / 2 !  ļ嵥 A@Z ! ļ嵥 A@ZA@P''''''''''''''Ŀ !%Ŀ %!%$ (dk''''''''''''''' . ZB@8 CheckSelected Me.lstSQFileo0 ] ]    tC@J5L '  ;  %!%$ ;  %!%$ ;  %!%!code=$ ; qo.A@ t5!L5 !L 'vkqoxpMAttribute VB_Name = "frmAddRecord" Bas0{63DF958D-B709-4AB7-9F08-2B9434F15FF2}{01CB92E0-75BD-447E-91BA-4CC7067@A6E29} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD Public SQCount As Integer FJ ub cmdUpDownCtr@l() Dim tmpLstObj+ListBoxSel ect CMe .TabSp1. edItem.IndeB 0Set= lstSQFil@QE B1a FuJiaEn d $WithIf .8B,q0 Then"&BJ.Enas)G AS Ä E Bi- 1V_P)_-UpE 5("ļ'@" & RecVe %"& "'ѾȷҪٴ'YesNo +/(%(q$vb0ߏ1C''Se.IVaDluA"101-X0XS8?0A E0O088 %?Q0xt& |0AA Go0 /4-5&4' a~Modify|UnlockDocApp eP.ScreenUpdngPMXz@\|5  This Nnt.Boo$kmfs. sts("Ŀp72Rang\e(G.b.0rrt ,\khp).Dt G_@&Ԟ` Fݰ2ϧ 3}=5}w1@4_!Q嵥9rBD:PT ۢ| h _ZgUϢ_P^=1codeN=4/U;npathR"  h ;S=!M $ac P},,''`w e$ ?FormFields(S_DS_).Help Total5lstSQFile.ListCount & ";" SQXD= $+ 1x'R If Me.cobType.Value = "101" Or txtXS.Text <> "" ThenE AddIt em Endb)-ElseSet tmppLstLXFuJiaZB>2x = 1m PreM(arkms15_嵥̋Zֈ QC-IsPNewFldN,amBi _A$8"YKCStatus7"GMHlpcode=OBn@pathB "! C8T=NB,aRe cord ",E, 8-CQ,AӖ, _V 2$C gThisDocument.FormFields(FJ!_DS_v).Help|Total6eFJ@>%iXpInStr(17%)B(bmIndex, 0)`"() ") <= 0u: TG f_stF, cmdDel.Enabled Trud@UpDownCt rl#Ú.Selected(g)Application.ScreenUpd ngRefreshOcxT`! Lock@A 'aModifynSub Private @der4@Obj As !Box) Dim iIntexgerN5o C(iA>`i IN` \ub!gx(Body!StringxIf?@z!RIDa  age P`-(%Ins@ertPosaLong(Cur*H cUnl With3ABoo k2n(k).RaLngx7 = p#d.Paragraphs.# Nc()&, )= aG.Xw=' Len(, )hRa C(apIwdRUU!TInput G0OZXf.Ex@s("ίtPMA@,ɸƆ " .Cells(1 c+ʗ/rks,"/fi If!. (QDm q1.n3T?Own1pjTqr B.7 tC#K1UEva ( rs5qD/D xbFa="¾qw?4t4aU>" >R= + 2o=ԏo=<, o=i=`jg- 3 'д7  U.gh)q*)F )))13)Er) ##="ҳ)T8k9 )MB'M &l LockDoc End Sub Pr ivatep AddFile2Lst( Obj As ListB@ox) Dim CurIndex:Integer8With. r b.Item"?= .]Count - 14((, 0) =w+*1*@Me.txtName.TextE\2Pag3cob/Type.Value0cmdClear_Clic k( ModifyCtrl$Ocx. Frd6 nNew.EnabledaFalsBub2 Funct8ionKttmpN|Select Case TabStrip1.edv.ƒ7 |B 0Set =lst "" AFɑ )9*TrŞ AIf?C7ŀ~IDe6lQ!Bi{BookMarkSt@artPosLong AppMaAM.ScreenUpdngS1aUnlEOn Error Resume NuOO ChangeCobJObCa9QE, 3s?a`?0K×= Je#,3Ke#*?~)U% GFEzls+F%si+q+?,d`X?,?,.@9#?,"?,',a/]#.wCMj0l5TRemoveZ/w'my2Nat>A 0stuU '5thisdDoc>nt.qDmpDs("Ŀ@").R!:.ettGoT\o pm*FCi:>  :Record "ļ嵥", i ,wYAK iR=isj & SQ V  3 obx14_E!bc:SPt N  k0LAGMARK T#.Ex`$OC~(/z)? !OAo%1~/(*,P)2?I|ILEBODYCells(1y #`2 0 Then^ThisDocumentf(MStartPos - 1, )ls*`D6FJFILEBODYCells(1PE =l?FormFields(@_DS_HelpText$"Total=Հ";"*Order @CheckSvcted 'ne`w0624 |RefreshOcxTreD]Err@.Clear Lock@wApplication.Sc nUpdng@2TruSub Private  ChCob2(LstID As String)CDim iAIntege +Q@=o6cobTypɦoC (i, 1)*C@ 0 Trim(Rep lace( , "()"")D6%Exit 4*Ic"NAi PcmdDown_C`k(D:Tab!)p1.@Item.Indexv|SQF|c<$| "S8e=$N 2ⅰ Unl K CDCBox `7@'ModifyRecord@ "ƞ,+7& G *fEf(˫/Ӳ/k ?0?0m)& 0jϥ##0U1 t 2DGl#KltxteName.ŷ" Or$`Pa )#gMsg@^ "ΪգvbE`xclamʾh: U} 'Not IsNzricK ):ֵݟQ= 3Z=XV_Bը$4< V1 kC(FldaB(odyqS҇, ' , POb>ja$iw?8Fa^With* 1 .() & "_aQmu ) `Ap vZt id kҾ0$OL2D'tdſo o ID).x@  , 3   /,PutFlag7>(: pOcode=Y3"O A T a) #-,D4Mѳ)Cur3j( (`I !#= -1+en v= 2(EA(M`Fs , 2Qcr3U#K51 PSaveAll"14_)t}maaKKUp _QεIndex = 0 Then  If Me.lstSQFil@e.List< Exit SubjChangeVBoxItem , -1, 1\UnlockDocModifyRecord "嵥",+ V =N2 5'L WElse FuJia- K46OPnd If E'$ P ublic AddCount1() 'Ȩ2Dim tmpPos A@s LongF ldObjFormField >RAStart3JC yThis@ument.Bookmarks.sts(" ")FaWithD("B14_J).B&.Cells<(14~$= z.-IuA=_e* Hk"( ,D).TextvbCrLf & "ȨҪ6 "%Set! B  @.As.K!, wdDInput)+ Evalue& xtX.S.+tusd#*_""h"KCB0" l !@AOg0.""E, )\`* E\ M(J edd[f.\.A%Ɛ_Ȓ@rivatebcobaType_Ck(AblAlterbCaptionoT(p, 2)dD4txt!Name%iReplaceaI, "(@) "" Pagxl.1Focus- l 0kLengthp(ag"9V2@lqt/b ӱ23 yA= "101F"`27lbl9Visi Truf0y+[-u) QDmd 4NewZaE d cmd{Ctrl3S' F?#,#z0Func-CheckSelected(Lstu$)rInteger 'BnѾQ* {iWj_@~FidBleaĬOn Error Resv Ng f-PD i o!$q r q|Q(i, 0{7? i:1L D q j vobAO4= j8K3)4= 95+pInStr(%=(0)) 'K st Q0V/Em5uAb"j;6Fb_l^> 'APot/1/! % o3?6vo mq ?  )8qmi0E.CPFrPP P(@F5;!NCurs”QQuit@?r+3&=.3P xt Me.cobFileType.Val ue = ls@tFuJial.List(CurIndex, 3)Err.Cleartxt`Name.Tex:t1Kr 0 0Then*~mdModify.E@nabledXTrueEls FaEnd If Sub PrivPate  SQ_ClickB(`Dim  As IntegeiQuitLstOd Exit,V!߃5#On or Resume NiC`{S ʀ0C1ƀ ?cЋ'Tab@Strip1By@{@~Lon>gĄB C6Select Case &@*s.Visi{J F}g(ChangmyCob!}ag"sj8k (0)Waߡe b0'I@ *())^ doLdEG$e GqBkGGcG>' >M!޵g_N _N WN(N N' ?''rRr2M3sts20rAstmp>-1/~qTDel}\Mm8dUpAown? od+K3  ? {/bl]@O E <d٧1- D {<#L ҕA qS>#)O#0O#7 #O# mO#اO x O #1/ _V  #; U#l#wOd W## 7(`XSltr`i!iQarrxTmp With6_iOSplitT , ","AF@i0`o UB@d(H`3(i); .AddItem Q( KĒ(1) 'P= '2Ѡ'lAʾg iEiiut_b#eEGcCtrlat05Not IsNric(`9b) A+L <> ""osgBox "ֵ˴ݣ", vbExclamation, "ʾ"  With Me.txtPa ge`>.Set Focus,lStart = 0!4Leng= (.Text)$End s If cmdModifyCtrl Sub Private  UserForm_Act(\InitPos "marks14_ļ嵥 xIfulstSQFile.ListCount > 0 ThenE}Selected(0)y8Tru]Del.Enabledp1Record@= .7FuJiaM+ ? Y"/Hialize() 'H7_EգEM(E8AV 'AKUnlockDoc%On Error Resume NCDim lngDeskTopHandle As LongCN= FindWow(vbNul@ring,AsCapAD' ΪǰD@C, HWND_TOPMOST, 0SWP_NOMOVE Or CSIZEA@SQqGetRenB(This@E@nt.Fields(Cs_DS_ ).HelpQ 't d@mBe BookB().Range.Cells(1 . / 2I# FJ= sX(FJQ.5_DpUs*v`T , .clgi, TabStrip1@_Clicke'; D fh:.Exs("`")XS@/PurecltD)% Dks(M%'& ~ioy{&B2? De J2&, 3FlagValueo,sK KO`:code="Hc n SρƁQueryClose(C ancel#, g(2NoXeiLom'4 .<>||ˇ!RefreshTree-;u:|= *xMEPSPSSS<<<<.0{9A10E207-ECB0-4C24-A1F6-648F6538CE99}{48400EF5-2506-4E20-AE4E-9ED69B038E4D}(` `x %` h` 0%`` i@B ,  ))i  3) `ex, pInde%`, 6)` dex,  **`CurI`atio p%``  X``  &` 0 (p   *x0),PX%i0,z i  ~` ),8@%i0 0)% ,0)(% 2p),%i0 4@ ), %i0 6 ), %i0    ` ` < ```>` @ i` i   %   %b b X00 x@ `0h p ` X00 x@ `0h p ` 0 X00 x@ `0h p `  X00 x@ `0h p `  X00 x@ `0h p ` XX00 x@ `0h p ` 1X00 x@ `0h p ` X00 x@ `0h p ` 0  +8[jej " (0@H P`hpx   08@H "PX`hp x    "   6(`  2 (@Xx B   (0 @HP X hx   J@H`    * 2@ "HP`h "px  (&@ h.p   * 0  "P  "x   B   ,  H X p       "  "   "    ( 0 8 P  p               D ` h p "x    "       > 4P  R   (0 "8@$Hpx "  08 P` hx"   " 08 "@HPX`p " x  BB8@P`x " ,  0HPX " ` hx "   "   "   "  ( "08Ph "   8 XX .$0 8H "NP    "8 `x&    "  (0@] ] 0]p]] !z|8k0 |kA@ !! !(SekX !B@J=C !!L 'к A@ !A@ooA@ ( !X!d--X !X(dkA@VA@o]]]8]P !try=5L ' 5   7;'  FldStr = .List(CurIndex, 1) & ";" & .List(CurIndex, 2) & ";" & .List(CurIndex, 3) & "-" & .List(CurIndex, 4) & "-" & .List(CurIndex, 5) & ";" & .List(CurIndex, 6) & ";" & .List(CurIndex, 7) & ";"q@ !!L  B@oh] ! !!d ;0 .List(CurIndex, 2) = Me.txtLocation.Text !X!d-$'B B !X!d---$'Bd8 ڸʽȷڣ l A@jkk$B ;$B ;$B ; ! !d ; ! !d ;q`oX]@]X]x]  !\! !must !d ('d (kk  (X !( !(d` (X !( !! !(kDMsgBox "ɫΪʵд", vbExclamation, "ʾ"k  !\! $TextBox !d'k`kXP  !(k($ CurIndex = Me.ListBox1.ListIndex+ If CurIndex = -1 Then CheckInput = Truei !\A@ZA@o](]@]X]x !!LG|jA@ !5C@.ListCount - 1 55L !!L nt.B ! $ 'e. Ʒ   A@ged  Ʒ1 %!! (`HA@8k0 !q Ʒ !!L A@ !!L!BIO_Mark !%BIO_Mark %!!'!%BIO_Mark %!!'A@   %B@%; thisdocument.Bookmarks("BIO_Mark").Range.DeletekkTotal= !!L " %A@^ A@  !!L !(dx !(k`A@VA@oHA@ ! ƷA@A@o](]@ !z|k  !\! $TextBox!% !d'kpkh`  !(8k0  |dA@! !!A@ Ʒ !!  !$$A@h'A@koX' A@r1A@o`] !!' G|j !\A@Zde 5%5(d&'7 .txtLocation.Text = .ListBox1.List(CurIndex, 2) 5% 5%˺ 5%- 5%- 5%5X(dϢk 5%5 (d 5%5 (d !qoA@ ! ƷA@A@o0 !!r !(kH !! !( !( !(d !!L  !(k !! $ !(d !(k !! !!L $ !(d@ !(k(k op !! !(d !(koA@A@&A@ !(o ,A@,ohx !X!dGzj !X!d$ X!d- X!d-$.pڱݣ lʾA@j !X(d !X(, X!d !X(.ew !XB@'zzhk`A@iP X!d- X!d-$.! X!d  X!d- X(d X!de! X!d- X(dk k o ` A@,o   r(0)` {TAB}A@@ k@ A@o0 0 ,A@,'o  ,A@,o @ ,A@,o  Ʒ1A@  !!L  !, kx !X!d-- !X(dkH !X!d$$ !X(k !!L'to  ]H  !$' Ϊǰ(QSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE磺 : yyyy-mm-dd$ !8(Pr : yyyy-mm-dd$ !X(dStriA@ " %!$'ldA@< . As Ino ` BmarkbodyֻҪ󵽵һ,recordtype=0ļ嵥1Ϊ嵥 ] ] ] ]   Ʒ '  !%& !B@J i !!L ' !!L  !,bject.  %! >5!R >7$  > !, >Lq0 k( o  .A@ t !!L'vkoAttribute VB_Name = "frmBiology"D Bas0{9A10E207-ECB0-4C24-A1F6-648F6538CE99}{48400EF5-@2506-4`-AE4E-9ED69B038E4D} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizDDim BIOCount As Int@eger  cmdQuitDown Boolean P4A8 Sub AddNew_Click() [ i ) a C@ontrolEndListIDIf Me.C heckD= H The"pExit# IfInp utW&Unlo9oc")Box1.,ndex <> -1L@ FModify.En^w,ndF)ÉSItemE=Am- 1 Fill QueueHCn@+Del+Catxt`.TexR"--"O= ͍;RefreshOcxTreLEZ/r f_LmyIR[ARfldStrAing'CurIb9`WithI/C!F= bA1A`For iNCo .ColumnAD= & ( , i) &X ";)aN0i 'aFh1d bH2W3B<4W5B;"p 6W7D+@!/:.BeU3a,$' 4Hdf@DȖTmpArxrayC?(@,=!_ePartmentBe4/`ationDE:HSplit(xIl, "-"aI uUBd(%)2 uD "Mz!aE#!iMsg "ڸʽȷ!", PvbEx@m!, glbHint%15^1,c(0-f1B, .2p/eSave 0<&@ = CReguMQStr11Bq  FillFieldsInMark "" & i + 1, Str Else "For Each tmpFld In ThisDocument. Bookmls( m1").Range.@m\`W.Result = ""'NextcmdClear_ClickGoTo ci Enaf , i WithDelTableRowMe.ListBox1`Count!IDf = 1en.ExC0BIO_") QPos1OgeStar Ub@2iL1A"B(+ 3).Wet'A tdN/E nIuUpdateTotal "=’e,VHA(BKM_ Info) c:ARemoveFuY{p%# aIGIL I.OgIa  +Ixnpu+Yce ,J! աn?' ʰGBCreAReXStr() 'We egQuitX`je9 adqaTxtpae>=4 q5= :-sg 0RtPCValue/q0.txtDeNPc-= p(? B0E6^at8ion31 , 2HA` rq5OroD,g7?0 P" # 2)0"-d3?x4 % SaveID5haClassqI6-aUp-<5a,&,,C$5O"i !_Ch0 >bf-7*@8N9vt]3{vaUp}E_A?1 t>nel;^qŒ> 0jB 13 /w? q 63<~-p 0AO #1 qE4ub@,ð"Ctrl,a. =i,go g7Ե jҪdK_KeyUPp(Byh CHodeMSs@turnInR, sShiftQtMF`s݄CKwFunch D@`()ϥVU"ÞteS4Not Is0se) PjInS_`ѠtR-=Rev(yTh MsgBox "ڱXݣ", vbExclamation, "0" Me.txtDate.Text = ":SelStarB0> LenXgthC( V)1tFocus`CheckCTrueExit` Func E`nd IfInput @ Privo Sub J_KeyUp(ByVal Code As MSForms.ReturnInteger, Shift jIf InStr(1,/1-")dRevThen`ρ% 4  IW& "-qElseT7|H`'Ec@Z ^eP!ment_PressG`Ascii`ZBNlB C{ JU13 HOn Error Resum e #oSend@s ("{TAB}"-FnMJ?c'a^'ILonceer8SaveID!UUserA_A ($InitPos "1mGList1.Count > 0 I ected(0?FC |@--"  Tri\m("8 B@ackCol_= 12632319#K Record= "N.,ialize%/Dim lngDeskTopHandlbLong= FindW`ow(vbNul`ring,qCap;C' Ϊ׈ǰ$Set# ?M , HWND_TOPMOST, 0HSWP_NOMOVE Or SIZEaN!!$abel6.$"磺" & Pat(Now y-mm-ddE #GBIOGetRen(ThXisDyZ.!FieldZKM_ Info).HelpTX1w CurFr:m M|!"Nub8licy2{@() 'markbodyֻҪ󵽵һ,rB%type=0ļ嵥1x"Index{fd| Wj0'tmpBkMSt#0 i 1 To baD :yBiG0=zBook !s.Ўsts(=S),>1#eFAddItemw8 - 1):(%,AAWith #& .Rangxa1j'.cT 5 ur2, jC -Purezlt(i,j)4+qjA+Q WUo1-rǦLQueryClose(Cancel&, MJ4pNothKyk:$IW<>_WbhkRef0hTreeogV  | u >xMEPSPSSS<<<<.0{75AFBB70-1BB0-4DAF-A6C5-121B2CE27677}{4B070E19-3C6E-4F9D-B813-2E2B6197D4F5}x R @** \    @  !d%`л b 8 i 0l% x  d  8 x 4 ),!%i0b   X`!\ iiA@j%0 %X@x8x8@;`X@x8x8@8X@x8x8@X@x8x8@X@x8x8@pX@x8x8@Cg~X@x8x8@@X@x8x8@X[je ",HP X,h *  ( D  h  D0@P` "*  8 "@ HX "`hx " " ( "08@H4` *   (0 4H  "   X(  " "08@H "P X h x           0@ H Xhpx " "   ( 8 @ H X ` " h ,p          "  (  @ X`   "     "  ( 0 8 P X ` p  !dرΪգ... l A@j|0k( T !dΪգ... l A@jlpTe|`kX V !dصλΪգ... l A@j |k" If txtAftChange.Text = "" Then> MsgBox "ַΪգ...", vbExclamation, glbHint) &  Exit SubEn End If X !d1˵ĵ_ҳ_лPCT/RO/134Ϊգ... l A@j If|k !T !d$ݣ lʾA@j !T B@ !T (, !T !d !T (.|xkp Me.cmdDel.Enabled = TrueA@A@ !d T !d V !d !X !dA@ !\ !A@Z A@VA@ Unload Meo@ A@ro !\A@^ oA@ !A@` A@A@VA@o@A@ !A@` !! A@b  !!A@b A@d A@o@]]  !\! $TextBox $ComboBox !d$Ϊգ l A@j B@|kkA@ !5'  !\! $TextBox $ComboBox !d  !;kXPqH !!A@b A@o ] !  h 'f  h  7 f  j %!! l %!! %%( qho`8A@ !A@` !!A@b  !! A@b A@d A@ox ! !\A@n A@A@A@d o !5L !( !(|`kX5 !( !(55L e !( !(5 e  !(=  !(thd !( !(kqA@ox !!% !(d@ !(k(o 8 !!L  !( !!V !(Tkd !(`kox T !d- T !d-$. T !d; T !d- T (d T !de% T !d- T (dkko]@  !$'  ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE !A@p  A@ mark_BIOStart %B@H !!L't .dStroX.A@ t !!L'vkoAttribute VB_Name = "frmBuzhengNR" Bas0{75AFBB70-1BB0-4DAF-A6C5-121B2CE27677}{4B070E19-3C6E-4F9D-B813-2E2B619@7D4F5} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomiziD P Sub cmbAdd_Click () If txtFileAv.Text" TMsgBox "رգ...", vbExvmation, gl bHint!Ex itCEnd IfC"Loc"ڿ""BefChange"λ?E E'A^CEAft" hַDg/RE1^D˵_ҳ_PCT/RO/134m$Not IsDa`](Me.`Z I)YWāIݣY"-. Set`FocusYlPStark0LthprSj7 cmdDel8.EnAUnlockDocc !#Ctrladd,!+"e, E# TxtToNewListAFr@1AaKRefreshOcxTrec"aad aA Can8celk!Cl8earBValue/o/3Record1 + 2:"6 dDownzdItemI, 31C2l).!Index - ?" McmUp  ldModify Dim ctl As Controd,qCur IntegerFor EadchIn! (.G4  Me.cmdUp.Enabled = Tru8e  DownElsh FaJ Z 'End If With ModefyCtrl Sub Private % %()DIf ListBox1.Index >= 0 Txhen}4ify~|hTf1XDeliVCount >V}= -1>?Kg xCEBptxtLocation_KeyUp(ByVal C As MSForms.ReturnInte ger, Sh8iftA InStr(1, .Text, "-")@BRev(TKVLen 4PV&A"ǢX7A12eikUsera/_InitializeVDim lngDeskTopHandlea0Long#=@ FindW`ow(vbNull! 4ing,uCap@7C' Ϊǰ$Set# Pos, HWND_TOPMOST, 0HSWP_NOMOVE Or SIZEa#RecordToć)C@@^ThisDocument.Bookmarks("_BIOStart").Selectc |=I  CurF4rmGM@=5QueryClose(Cancelhc|, $.* Noth3cskgS<>LURefreshTr``P `` X H 88```` @ ` ``>` `   b`d`  ` @`  r  @   ` iiH@%pH %j@@@XH @x@@XH @x@@XH @x@@XH @x@@XH @x @@XH @x @@XH @x @@XH @xp xxH [je1 B 08@HXp 6       " $@ Fh " 6 6 X`h 0T@0   6 8 "@PX`,x 0H<h"   "( 0 @ P `p     "(0 "8@HPXx,  @ `p( p L  p   Z 6 \8  .     0  8 H P ` x   "       ( H P ,X          "  > @ H ` xp ~ hp "x <HhXp "<@ HX "`hpx<Nh r  0@HP $h  "x " (0"@ 6h f<HXp   "  HX `px "     "0 "8@Xhp "x "   X0   "  0] x, ø˯]x]]]]- ˴Ҫ%~ @Gzjx/=================================صһ @  ! 'FC@J5L ' ; F %$ ;_һ_'F F %!n!0 !J! !L!$H ; N %$ ;q k/=================================صһ/=================================](]@  @ 'ӢϢ 'P  !% !C@J5L '  ;  %!%$ ;  %!%!n!0 !J! !L!$H ; P %!%$ ;q0k( /================================= !,iX]] !!dΪգ lʾA@j|PkHA@ !! !(k !C@J !!L'@ !!L '  ; !!d ; !L!0 !L! !J!$H ; !R!d ;q0A@T !!L !,A@VA@ UpDownCtrlo !5 !( !(55L e !( !(dP !( !(k(q o !\A@Z !! !(koH]]] !!G|jA@ !!L !( !(A@k8 !!'   %!!'  !B@  !!L   !,  !!  !! !!L     !%;  !% $HA@f FFillTableFields "ӢϢ" & i + 1, Me.ListBox1.List(i, 3) & ";" kx !!LSThisDocument.Bookmarks("" & Me.ListBox1.ListCount + 1).Range.Tables(1).Delete !!L  %!!B@Vthisdocument.Bookmarks("ӢϢ" & Me.ListBox1.ListCount + 1).Range.Rows.Deleted`  !!L !!L Gyj ;0A@f )FillTableFields "ӢϢ" & i, ";" k !!L'@ !!L]FMR_Mark !%FMR_Mark %!!'FMR_Mark %!B@   %B@   %B@   %B@kkTotal= !!L  %A@^A@ !!L !(d@ !(k(A@VA@o]( !! !! !!L G|jA@ !A@` !!' !!   !%;  !% $HA@f !!   !%;   !% $HA@fA@o@]]]] !!G|jA@ !!' ! !!d ; !L!0 !L! !J!$H ; !R!d ;q !!  !!d; !L!0$HA@fA@o(A@ !! !!  %!%B@Hk A@ro ]`]xA@ f'd d"Ҫдһڶˣ lʾA@j d !,|kA@hA@j  !%$H !%$H 7( !%$H !% $H$H_һ_7!n(0 !!L   !%$H  !%$H_ _7(  !%$H  !% $H$H_  _7!n(0 k q !$nA@l ϣ pʾA@jA@ A@roP ] !!G|jA@ !A@` !!' !!   !%;  !% $HA@f !!    !%;   !% $HA@fA@o ]( !!'  !% !(d0Me.txtEname.Text = Me.ListBox1.List(CurIndex, 3)`Me.txtEname.Text = IIf(IsNull(Me.ListBox1.List(CurIndex, 3)), "", Me.ListBox1.List(CurIndex, 3))  !% $H !L(0 !B@ !! !( !( !(dX !!L  !(k( !!  !(d !(k !! !!L  !(d !(kk !(A@o`@ !5  (d  (kqo !L!0 !J(0o !d$ !(ko1A@  !!L  !,k0 !!L'to@]  !$' ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE .  %!$'@ @G|jA@Bo .A@ t !!L'vkoAttribute VB_Name = "frmFaMingRen" Bas0{C62C715D-E753-4EF5-BBD5-11E719C9AB0C}{3BCA60B1-003F-4B63-888F-B877408@F7BD0} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD Public Count As Integerunction putF$am()Boolean 'ø Dim Marks(2Sng7 _JrenMCurInde.x+iH, jOn Error ResuNext 'Ҫ C'If F= 0 Th$Exit &FDC '=صһDH>CA4With Me.ListBox1GAJ= BKM_FMRInfoK .AddItemKR= B,- ( , ,0)@1Ge tPureAZlt(ThisDocA]nt.Foi elds(K1))+(n"c(_)_> u#e-P= HIIfngO)@.Check/.Valuyt,!2optNoGongKai.Cap_!d,3_%mFFC%;EngI%E8nd E'IfcSSIZ~tmpBkMnvbkm- A iJ2 To?n9 " 8& i$ ӢϢ nPkm`s.zsts( )} q!Sl!lbmCBmm&E@.Rangep1-oa h iion4? , 4> c#)5Q)6_2dT3a3 )^.Selected(S7gy Sub cmdA]New_C}kpy'+9'}1 E:m92pgtxt|.TQrE5"1MsgQ "WΪգ", vbExmaQ"ʾHZt@ 9Unlockb/epb)I2<>H -1] e.@Modify.En=1=̒=z t ?H| v3x}v&+iy"?gV<plj?nptloox98 E$ e 61{I At2RefreshOcxTreP1L$'UpDownCtrl aB(5'( "1)r?C)Ţ 5 `)Up()dqS +tE F% 1w, L  md 4q?e!aOClearUO# "`,FrPĪ0F%> Їg p.Da UYD|el XTabStartPosX^/ t%(=dQ ;VU-C$= _UQU@ !_iT31XSMe.ListBox1Index TabStartPos = ThisDocument.Bookmarks("" & Curz + 1).Range. RemoveItPem (6)&For io0 To Countp - 1+ "(i, 0)@i'Next i IfUZ>= 9hen-E1#O#illleFields MR,Ib1)"B;IIf(t2t"", 1'a?'F?ӢϢA!3!SEnd IfVClV2@}V'M<HTs(@DeleteG(?.Rows.'tdIT^/Els0FAStep -Ag Exit> LaED, 0";0"?K& qXGFaMingRen=nbGM<= MD@im tmpAs Longg%3E.#stFMR_M ")W% aUUnmQB(,ee__A`J IiUpdateTotal "=!Nh,0 Xm(BKM_`&0InfoDɣFuYjF'Ccmd&.Enablerd FatKuT ruIRefreshOcxTrBeLock  Sub Priv`"  own_Click(dZZIntegerC= OrNk? ڀ8vPenCC !Unl Ch1$}riIf />r3 H] .t(t_uYu ɔO   $$M odify$i m$1&j_TFlagplea/)'/)`5-1% %ť=+'With$)­BtxtName.T , BDoptG@dKai.Value >bCaptioneNoEt< , E !BA ((( YM 0Qo&n&QuitK&Jus@tEmptyLp`boardJt=<>JT*rmȿA͑5bPSP "2, Falsfi)) \@Next i E`nd IfWithBatchSaveFaMingRen 2Str, 3#1Msgo "vbInfAationgʾ"LockDocUnloada $Sub Private  cmdUp_Click(Dim CurIndex As IntegerCIfu <= 0 Th@6Exit H$ChangeItemp, -1 =SC FillTable AMx)+ ;G @= 0DQ0&2̅ -1)#'C (E4Cd4>1CCZ6/txtName.T!h]( 1<'Enexh:u3E!j`optGongKaiʑ3& %SetFocusq=hqÀ|Del.'`eNd`B MUp=DownsE Count > 25A T!>G  wT&tN!- 1!+-.a<3 !Modify'#Ctrldd&!udoy4>O #q 0&Ayoqcq<_kE No>Notw?S@D=Trim(%?Q3"|"}/eQ='q User1_ActҀInitPost1d PZ, HWND_TOPMOST, 0(SWP_NOMO@VE Or SxIZEFrm`\MeuGet`(This0umentBKM_FMR).Help&>InputFamsQueryClose(Cancel8, Hz6h : %+hARefreshTreo4f4h$s$w (timeGetTimexMEPSPSSS< <<@<.0{3D3D4343-95B1-4965-B985-5F61D5047908}{D732EC03-2E04-4457-9499-0F7E9DC73488}h@!+& j~ h~ x X CC`` P%``~``` `i`"`$ &&i`````~```  , i ` ::`` X@ @ `   ii  ``` ``   P b$$`@ 0@ `  @ `  $$i` X   `` 0  )( % p    ) %    X i  !`H` @ ;@  @  )8 ===%   ) %  `  UU`@ !@     i(i0Hihi )!% X0)P;% )%  h@)` % ) %  8)0B@8% "x)h% $)% &``( 0)d%   x``5 8 i  5``5``5R`@ @  Err,: i<i A@ > %,B`iL*%) % N% i0ixP% %jzj|@X 8 `0  p  X   `  x X0 @ h@P`X 8 `0  p  X   `  x X0 @ h@P`43X 8 `0  p  X   `  x X0 @ h@P`|HX 8 `0  p  X   `  x X0 @ h@P`X 8 `0  p  X   `  x X0 @ h@P`,4X 8 `0  p  X   `  x X0 @ h@P`,4 X 8 `0  p  X   `  x X0 @ h@P`hX 8 `0  p  X   `  x X0 @ h@P`11P@O[jeN H & "H P ` p      " 08@<H* ,(08@Xh p   4  (8@ P ` xH ( |8"Px"""(P HX  &    (@H Ph " " <*PB* D *`  : *  ^ @ "  h B` "  f H " P X ` h p x   & <  H8( (|` "@H "` " "H  ,h$  (8 "@HX `h p Bh8 "@H P ` p          0 @PX "`h p(0(8<`*0P(` P < >`:: 8Ph "   0 Ppx ,  "t(&&P(x@ P0@H  B  , <( Bh ">08@`Xf (08@ "H"Px "  0 8 `P   "   < (! 0!@! "H!P!X!`!h!p!x!!!!!!!! "! "("@" `" h" 6"  """ " "# #20# h# x#$# ## "####$#$$&8$`$>x$,$$%%40%:h%,%(%&& "&& &  (& H& X&h& " "p&&&F&D&&8' P`''0''P(P(@`((6( @(F()8p)4))) 4) (* "H* :p* ** "* + , + 2P+ + + + "+++ , , 0,H, `, x,, ,,,,, , - -0-P- p- -$---- .8.@.`. "h.p.x.......`.lH////// " / //000 " 0(000H0 `0&0000 00 000(0 101 81 H1 X1 h1x1 11 " 1 11111 "1112 2882p222 2222 22 B 22222233(3832P3 3 3 3 3 34 4 (484 " @4 H4X4`4p4x4 " 4 44444 "44 4*4 5Z055 "555555 55555566 6&(6&P6 x6$6&66$7 (7 H70h7 7 7 7 78$08$X88 48$8 8"9 09 P9 p9 9$9$9: 4:P: X: h:x::: 4: :;;;(;8; P; `;p;x;;;;;;;; ;<< (<8< @<P<"X< << <<<<< "<<<<=== "  =(=0= " 8= @=P=X=h=p= " x= ===== " = ===== "= >>>(>0> " 8> @>P>X>h>p> " x> >>>>> " > >>>>> " > ???(?0? " 8? @?P?X?h?p? "x??????2?@ @4@P@`@@@@ " @ @@@@@ "@ @"@ A8APAhAAAAAAAAA "ABB B  8B XXB  BBBBBCC B CC C(C0C8C@CHCPC hC C C C &C C D D "D <8D xD D D D 4D  E(E 0E@E B HEPEXEPhE G8G B @@GGGG ,G 4GH HhHHJHHH@H8IPI6XI IIII " II IIIIIJJ] ] ] @ Public SQRMoveSteps() As Integer !;g5D !( !(55L e !( !(d0 !( !(kqo t = timeGetTime]] ]8 !!d !!d !!dΪգ lʾA@j !B@|0k(]X !!dΪգ lʾA@j|kA@ !! !(k On Error Resume Next !C@J !!L һд !(d- Me.txtPID.Text = "һд" !( !(k | '| ! !!L ' !!d' /7?GO !!d; !!d; !!d; !!dһд !!d;$H !!d; !!d; !!d; !R!d; !!d' " !!0; !!0; !!0; !!0; !!0']p !! !! !%'~k !! !! !%'k8 !! !! !%'k !! !! !%'k !!0; ~; ; ; '5L ; !!L ;  ;  ;  ;  ;qq Err.Clear !!L   B@ CreateSQREngInfo !!L !,A@A@XA@VA@o]0]H_ __GotFocus()'" :!!d "$`'$ " $A@ _ _ܲڵ_GotFocus()'" :!!d "$`'$ " $A@ _ _ʡֱϽ_GotFocus()'" :!!d "$`'$ " $A@ _ __GotFocus()'" :!!d "$`'$ " $A@ X====================================================================GotFocus¼_ _ܲڵ_Click()'" :!!d $`'$ " $A@ b====================================================================combobox_click¼϶_ _ʡֱϽ_Click()'" :!!d $`'$ " $A@ `====================================================================ʡcombobox_click¼o`]]]]On Error Resume Next ! ' .List(CurIndex, 0) = .ListCount 5.List(CurIndex, 1) = "" & Me.ListBox1.ListCount !!d'  ' < D L T \ !!d; !!d; !!dһд !!d;$H !!dһд !!d;$H !!d; !!d; !!d; !R!d; !!d'   " !!d; !!d; !!d; !!d; !!d'] 8Ph !! !! !%'~k !! !! !%'kp !! !! !%'k( !! !! !%'k !!0; ~; ; ; '& .List(CurIndex, 0) = .ListCount   ;  ;  ;  ;  ;q ZB@8o !!LKTA@S !!L A@nho`0 4<DLT\dlt !!d; !!dһд !!d$H; !!dһд !!d$H; !!d; !!d; !!d; !!d; !!0; !!d; !!d; !R!d; !!d'i   5(d5(d5(05(d !!5(d5(dk0 5(05(05(05(05(d5(d5R(d5(dq o `] On Error Resume Next !!G|jA@ !!L !( !(1A@A@ !B@| k !! !!L  !%'*Ҫдһ˽ij ;$z'  $;  $'  !,k !! !B@ !A@#Ҫ !!L'|  !! !!L  !%;  !%  A@  !!L !!L A@  %!country=$  %(  %! province=$  %(  %!city=$  %(  %!type=$  %( !!Le2A@ !!Le1A@kx] !!LSQR_Mark !%SQR_Mark %!!'SQR_Mark %!B@   %B@   %B@   %B@kk ZB@8Total= !!L  %A@^A@ !!L !(d !(kA@VA@ohɾǵһˣҪϢַԭǵһҪݺ˵IJһ¡]](]@ !! G|j !%;$' !%;$'$;$;$; !,   !% $; !, $;$;$;; !,   !% $; !, o`X]] '  %!!B@& SQRMark = "ӢϢ" & SQRID5 thisdocument.Bookmarks(SQRMark).Range.Rows.Delete;ThisDocument.Range(rEnd - rStart - 1, rEnd - rStart).SelectiH ]`]x !! !! !!L G|jA@ !!A@k !A@` !! !% !! !% !! A@ !!  !% !!  !% !!A@A@A@XA@A@o !! !!L  !( !( !!e !( !(d( !( !(ko !!G|jA@ !!A@ !! !% !! !% !! A@A@o@A@ !! !!  %!%B@Hk A@roP]] &'A@ &'A@ &' !!L1A@2A@3A@kdebug.Print timeGetTime - t &' !!L  !!L &'A@ 0debug.Print "˺ʱ" & timeGetTime - t k0A@ȱһϢٱϢA@ !(XTotal= !!L;  %( |A@A@ ϣ pʾA@j A@ro8]]  !% 7( !% 7( !%;$'$ !(d$%һ_֤Ż֯7($һ_7($5~(d$5(d$5(d$һ_ֵƺ7($!һ_ӪڵػӪҵڵ7($һ_7( $һ_绰7(qo0]p]  !!L A@ o5д˵(new)]    !%  _7(  !%  _û7(  !%;$'J.FormFields("" & i & "_").Result = arrFirstProposer(0)$'  _ A@$'_ _ܲڵ A@O Ҫֵ$'_ _ʡֱϽ A@$'_  _ A@$ _ֵƺ7($ _ӪڵػӪҵڵ7($  _7( $ _绰7(qo-Private Sub ClearSQR(ComponentMark As String) Dim fld As FormField Dim insh As InlineShape4 With ThisDocument.Bookmarks(ComponentMark).Range# For Each fld In .FormFields fld.Result = "" Next& For Each insh In .InlineShapes, insh.OLEFormat.Object.Value = "" Next End WithEnd Sub !!L !!L1A@2A@3A@ !!Le2A@3A@ !!Le3A@k8k0 '| |G|j | ˲ %B@H !B@3 %B@H3 %B@ ˲ !B@^ | eOtherShenQingRen %B@H !B@3 %B@H3 %B@ ˲ !B@^kTotal=3;  %(oX ] ] !!G|jA@ !!A@k0 !A@` !! !% !! !% !! A@ !!  !% !!  !% !! A@A@A@XA@A@o   {tab}A@@ko0  !! !!d  !!L  !% !!d  !(y@k8 d |kk !! !%CN A@d B@8 (d B@8 (dk ZB@8ohp  H{tab}A@@k0o(  !! !!d  !!L  !% !! !%  !(yx kp kX kP A@ ZB@8o0  ]x ] ] ]  !,$' !B@8 !B@J   $ !! !% $;$' !B@J !!L '$  !,$  !,k  ZB@8i    {tab}A@@k o @  ` {tab}A@@kH o@  ]  !!L   !%#&#'  !%#&# !%#&#   %(oh  ]@ ]X ]p ''  ~| d '~k !(XA@ !!'  !%;$'  !%;$' $ !(d"$ !(d&û$  !(d$ !!$ !(d%֤$ !(d'$  !(d'$  !(0+arrField(5) 'Ӫҵ$  !(d$ʡݬ$  !(d$ج$ !(d(ֵ$ !(d)ʱ$ !(d$ !R(d'Ӣ$ !(d'Ӣĵַdx.========================================100202$ !(d%֤$  !(d'$  !(0,Ӫҵ$  !(d$ʡݬ$  !(d$ج$ !(d(ֵ$ !(d)ʱ$ !R(d'Ӣ$ !(d'Ӣĵַ$ !(d.========================================100202k ZB@8  !( !( !!- Me.txtPID.Text = "һд"һд !(dkd !( !( !! !(d !(dkk !B@ !! !( !( !(d  !!L  !(k !!  !(d !(k !! !!L  !(dh !(kPkHA@o8 !!  !(d !(ko '~o  {tab}A@@ko  h{tab}A@@kPoHX  ({tab}A@@ko  {tab}A@@ko  {tab}A@@koh  h{tab}A@@kPoH  ({tab}A@@ko8  {tab}A@@ko  {tab}A@@ko]H  ֳȵ6'(kH $* ( ( Ϊ$H'(k? ( (Ϣ lʾA@j !(, !!d !(. !B@kh?o`?`  @?{tab}A@@k(?o ? ( !2!d $ !( !A@ !A@ !! !( !A@A@A@1A@  !!L  !,k > !!L'to>"Թ]H]`  !$' ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE . !4!d !('~ 6'| |G|jA@8o<x]]]] ]8]P]h  |  !% !B@J !!L '   !,   !,'''    A@  ; $   !,    !,    !,    !, . Me.ListBox1.Selected(0) = Truek:k: i:] <$B'>$#4EV : < _$D;;; >!F; >!H; >!J; <_ֵƺ %!!d; <_ӪڵػӪҵڵ %!!d; < _ %!!d; <_绰 %!!d':ȱӢϢfieldi8 J3Ż˵Ϣȡ(ڳʼݶ뵽listbox)] N ! N!!lW &Debug.Print insh.OLEFormat.Object.name N!!!$H N!!!d$H N!!!_ L_ܲڵ N!!!d B(Fkx7 N!!!_ L_ʡֱϽ N!!!d B(Hk7 N!!!_ L _ N!!!d B(Jk6 B!J B!F B!HGyjkh6k`6X6iP6. (A@ t !!L'vk6o55:Attribute VB_Name = "frmShenQing@Ren" Bas0{3D3D4343-95B1-4965-B985-5F61D5047908}{D732EC03-2E04-4457-9499-0F7E9DC73488} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P DA Function tim eGetT Lib "winmm.dll" () As Long ublic HelpTextSݓCounInteger$ExtLst C*k Boolean 'PDQRMoveStxeps"F3Sub UpDownCtrl()  With Me.ListBox1CAIf ABIndex@a0< T@cmdUp.EnAQcAC A uE@ BD- 1cKAI6 End If[ Ac KgRAddNew_zh'(t@_ȞCDim strFpieldJdCob1mySQR{ @ /A%obb".ry.U" AcPrvc1Cit)+EMsg@K "Ϊգ", vHbEx }mal, "<ʾaSetFocusExit ).!ValueSoctxt! UnlockDoc%qo<> - `"mdModxifyjLAOBHOn Error ResuN.QItem7% s>s`+Email+һд< a PIDE = % c= 9C+ )B Cur%p(`'-B`sS"Tf@=\ & ";"P_,CUserCodeBIIf(?0@)_ XPt1"U!_>A/r(2!Tg3 ⧯45bup.CQ ҭ."e aAoG !EngIn focSelected% |DZ Delq׳wRefreshOcxTreQLSubSub AddSQRCode(pID As Integer)  Dim Pr@ocNametS tringlVBA| 4d= "_" & & "__GotFoc`us()"a]= Replace(frmData.txtCobTypeEvents.Text, "<>",Q, 8[ܲڵ^ԟʡֱϽ/_/-'=?=¼걂ϿClickfӀCountryiIDiuheC ?"?&=kcombobox_c#،^#fPrvc"d""=ʡ!"End Private BuildPara(Lst`Index!OCurC:strFieldd1@G'On Error ResuNqc With Me.Lis`tBox1 m = '(, 0) = [1֡qE= gO f&n"; _`@ UserC UIIf(P ID# һд"`;")pEmail?>7_1 eet#S YouBianRTe$ XEv?ErRq-cobat@ CTEonCityonActq es3K d:1G:, )2534IfAX:C<> -1 Then@ }18Q,epx, 1g!qMIfb2&+ 3W%%*p4Dd  1Valuev1c8B2834" 'Q0rW(]sf}\vo+ eM2_T]-, 3A p_T4T?4~57r.!prr.Clear f }ub}M@odifyS6Q!Ren(d3Select Case:"t2p2xvSaveFirst0pohqEls!1FHillxCont & -=r  ?c Function Txt20d() I(lCFZvs K"sxuRsJd?sxtxs`@E^RKQf4b Street.Text & ";"P_ Me.cobActAddress.ValuetxtYouBianBTel:EName End Function Private Sub cmdClear_Click()With lMe .q= "" UserxCodHtxype v IfC.ListBox1Index = 0 ThegOSPID$Emaig Ifk[CountryZzPrvcCit[StG@ ȇQ?r?}ËDel Dim i As Integ er 'ZOn Error Resume N@CVt-1Bt Ex it UnlockDoci2O !md,.Enabled0FalsMo0difyW SQR "<1_gVRemoveItem (0$l O^Aybc > m strFielAM(1, 3) 'Ҫд һij In |tPos (In@SN(2,: ,(LeXft()Mid)D=C)(/ U pd Sequ0enceI$cS QingR|enO- a=Fai`' ToΜ1 - 1gill@QComnt,(i:,5)ǀ5= 2C,ad(! C0This@z@nt .@#mTs(BKM_TotalCobs).Help= SetFlag"ꠗ(?*`cc=", -n2e tprovi&^1eor@h`De0<PEZ_(tS(=N}Z2tZoe^0EqotmpPopLong?3c<8= 3<3 Z,Bookmarks.asts(("5_M "))@==4f.Range.Start 1/!r.tets"(C , E)zf! _1_rr.2s`r; "b=R;oM,LInfo=#RFuY4--"U.W"ruЃeRefphOcxTLՖ!Ulub1 Bx) 'ɀAϢַQԭҪݺjIJһ0¡ Q7arrFld0 dr1#tS<4AzSplit.m(f0QvK;"1D@PQf3%1G%2$(= 4UBod( B=r`iɂ>ӥ= 1 1( 1( ;[ So Is _t&F / A<@veSQR(0ID As Integer) !Dim hMarkpStringhrStartl, rEnd V= "@" &ID>ThisDocument.Bookmpsy).Range.Rows.Delete 'WӢϢk_(t`d+`/'K LB(p- }- 1y ).SQct Function Private Sub cmdDown_Click(FlagPosList If Me.Box1Index = -1 Or@Count 4 Then Exit+hUnlock@i0 AQModify'EIfChv.Item +, 1!C FillzCo7@(-( ?, 3),> 5 R +:$AV)% !&ReckCmdCUpCtrliAelLEs1Sub-TCh S>O%HAe.^.Enabled@TpFalsygUp(TruE@O"g    ^.@##e{uBuildParaNadlYg, X lS%QuitK%JustEmptypboarDaV(<>!a(Şyad 2oSaveAllk.i t`jtimeGetTWruS`_QpeR^ekT8t?= _Clear[Yu1"2Ru3GoTo cs9'debug.Pv b`T# > 3lFor i4 OO?s 1AddFrame ' "WʱюpNex8t i&FirstProposer#'ȱҀ ١3 Other%`lblAlarm.VisiP`/8W7m4BKM_$Info).HelpT Total=1/!& ";#MergeCells + c:#GMsg "aϣ", vb1rmaq, "ʾ4=uarr _? With *s.Resuls?(0M _FuYe0+edPN?c128 Split(d #&_(c`. (0)"h֤Ż֯";1R_6( .3 Y` ܲԘڵؿ;(3 ʡֱϽƟ4  5(ֵl/6ӪӪҵoh7on R (8绰9DaY=Uen/DSA/DQ> ڵ For i = 1 To Me.ListBox1@Count - 1  FillShenQingRenCPonteFiBNext End Sub @Public v(rID As ILger) 'д˵@(new)cD@im tmp/S trWith ThisDoc\um.mFields("Y" & =& "_").Result V, 1G'0û "/2/arrFirstProposerKSplit(N3), ";"!'iB"_E ((0a= EnValueCobT_,woT3"M_zڵ" 'Ҫֵ 48 ʡֱϽc=59'?e!eֵƺE6 ! Ӫ2pӪҵD4r.N7 }q 8 :!9D !A h'PrivateClearSQR(Compon MarkǞ 'fld朄 FinshaInlineShape..Bohokm sk /anga Each In ; a""aF a (sC a.OLEmat.Object." g.'.)i.De(d5If4< 3@enhqV= 0Le< z"#1$e23Else !!) G"= 2 Ifщ= Gets qrencs$ Exitq6Q4L 2?Sel(aion.Rows.@&et41_"8T3P g?ks.Add< ( s #> OkOther Ԝo L ?r)HDBKM_[Info) .Help= "Total=3;`:HR_cmdUhp_C kG^F@lagPos\te@1 ?tIndex 1 YouBianb ʱtTe6nt%ld(7'&^8淓{='=100202 $d~ $[""@">!%O!CO! O!O!O!x6tO!qd(1$O!xtO!\-O!tE6`P*E""'d(5'  _QI]`H״ Me.txtPID.Enabled = True EmailFalsHIf List Box1.Index <> 0 Then 'wTextt"һд".0End If@E uv!vZungm+Name.SetFocusR0= -1(cm8dDexUp×CDownKb'Count > 2L'A)J( e IA ? 7 L$D>r`)))  ')xt)))VI y440 p" y44{T StreetO O /@ O ×O /@ /@q5_ Tel /K/K j UserCodeO O O O O O O V@!u@ YouBian_Afte0rUpdw@Dim msgInfro2htri3`xLen()16 = "ȵ6L`Not IsN dricC&WIIf(8", "u& "Ϊtt|<> "b"< Msg@" &&ϢvbExclamationʾlSttarQ0I>`gthp~! 66u _X_M_MBB?Q 17Q? : ;61_e+ThisD`ment.cobDropP`ry.TagMid(, 9InitCobPQtypК11$, '&e agobwWg _cPPrvc)A Po`c1T)P7 B1ySelected(0)SEnd If  RecordCount = Me.ListBox1 \ Sub Private  UserForm_Initialize() 'ԹDim i As Integer*zlngDeskTopHandle(Long%= FindWow(vbNullString,Capt0ion)<' ΪDǰSet$Pos 5, HWND_TOPMO ST, 0SWP_NOMOVE Or SIZEl, Cur8Frm7cobCity.Tag ThisDocument.txtCextExtLstClickrue ShenQzRenGetTotal If 0 T ExitAr nputDHata |ub pFuncWqD (Yq@6aocA`Field@ A-WfbL&8{%= !NQueryClose(CancelG`ModbDJѐ=h@ *b!*Drop,FalsCLockBmѱRefreshxTreMeqSaLWxME(SPSSS0{B7D5AD5D-2B9D-4D98-BD5F-AD7735372FC8}{4BA9ABC9-D4D8-4BE2-A483-78F9682B72BC} \X `^  b &&idi i  `f`L %`N `h <   `ext`X0%` %XHXXXXX0XXX0`[jeC " (08@  Xh "p x B \ 0 @P`p    ,0 4` ,  Hh p , 4  ,X    2   >(hp "x "   X  (8]@ `!0'^dP'^k@ !X !d ^A@b A@roX A@rxop@ϱΪ0±Ϊ15L]8]P]h] !! %!! !! %!!! $( d'f !. !!'L ! f 'N H d (d! A@ dy strTag = thisdocument.Range(thisdocument.FormFields("").Range.Start + 13, Selection.Range.Start).Text% strTag = strTag + ""! . strTag = strTag + Me.TextBox1.Text& strTag = strTag + ""y strTag = strTag + thisdocument.Range(Selection.Range.End, thisdocument.FormFields("").Range.End).Text L N %!(T dy strTag = thisdocument.Range(thisdocument.FormFields("").Range.Start + 13, Selection.Range.Start).Text% strTag = strTag + ""!. strTag = strTag + Me.TextBox1.Text& strTag = strTag + ""y strTag = strTag + thisdocument.Range(Selection.Range.End, thisdocument.FormFields("").Range.End).Text thisdocument.FormFields("").HelpText = PutFlagValue(thisdocument.FormFields("").HelpText, "Tag=", strTag) L N %!(R k@, thisdocument.FormFields ("")A@ $(H $B@d˹Ŀǰдƣ 6 ʾA@jkiox]  !$' ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZEo״Attribute VB_Name = "frm@Sup" Bast0{B7D5AD5D-2B9D-4D98-BD5F-AD7735372FC8}{4BA9ABC9-D4D8-4BE2-A483-78F9682B72BC} GlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD P Sub cmdAdd_Clic@k() Dim suFlag As Integer If opt.Valuo] ThenG= 0 E 1nd IfEJscript Me.TextBox1,% CUnload E 8QuitK8 ubA Fun@ction I#(@strTxtDSng, ModeH) 'ϱΪ0‡8StrLe@SRngStarLong6D5`"f"C fSele..Range.>=gisDocument.FormFields("") AR "< AppXaW.ScreenUpdngĹyCL= &/S!Set tmp` "+= #*= '+ -`' S1xtyKck-G3E= 1e'e! :ahisd5(tI7 + 13,)h s+ "O@ t vbCritical~0Guqx}}UserP}(InalizelngDeskTopHand v= FindW0ow(vbNullCxe.Capm ' PlPos , HWND_TOPMOST, 0(SWP_NOMOVE Or SIZEsU`K H|S#F$xMEPSPSSS`  i ih ` 8 % h  %j 0px HP8p 0px HP8p  0px HP8pP  0px HP8p  0px HP8pp  0px HP8p  0px HP8p  0px HP8p  8 h "[je  " (86P    , (0HX `   ,8X,x 28P Xhpx B T40hp 0 ,phpx  J , (@ X0d8 X`lp6 " ( 0 8 @ &P x V  & , 6@ x  B 0       "   (  8  H X ` "h p x     (     . P h (     \ 8H < : H@P@ X08P "p     ( 8 X x, \ 0HX`hp "x>(Z0   " 4 H X`h ,   ,  08@Hh p  , PX`x " *,$$ HP "X2` ">   "(08@Hhp(Z  0@HP "X`h "  "  (8P`p   " (8 @PX`px " "   ( @Php x     fX "`h "   X  x& 08 B@HPX`h 60(0X06    ( 8 " @ H P  h        ]  ]X]p]]ep !X!d$ݣ lʾA@j !XC@9,5d9.q@|8k0 !!Ϊգ lʾA@j|kA@ !! !(k' If YXQCount >= 8 Then' IFNewPage ' End If  !C@J !!L' !!L '5L ; !!d ;0 ˴Ҫġ !X!d ;B@8 !Z!d ;B@8 !! !% ;qP ! 7; 7;' 7;' !!L   TB@\5L ;q ( A@VA@o]x] ` %!B@f P!  !! '8 $h $h Ȩ $h $h   %(dӪҵYXQ_Mark   %!B@^!k P!   !! !! 7B@j P!5!R7%l!(d$qd P!  %!  P!  %! %B@jk  P!  !!R'dd` P!  %! %!!R 'd" P! d %%l!(dk d %!.n b n!B@^ThisDocument.Tables(NewTableID).Cell(1, 1).Range.Text = "" + Chr(10) + "" + Chr(10) + "" + Chr(10) + "(" & frmYouXian.YXQCount & ")"q P! d P!A@d A@pk P! %!! P! %!! %!rB@^h ThisDocument.Range(ThisDocument.Bookmarks("" & frmYouXian.YXQCount).Range.End, ThisDocument.Bookmarks("" & frmYouXian.YXQCount).Range.End).Paragraphs.Add d'^ P!  P! %!!  P! %!! %B@k  %!country=$  %(i]]  !2!d' HKTW;̨,HK$`' t %!ҪȨ_ !_7!!(  $7!!A@2 Zl\7!VB@X ! _7(qox8Z#recordidָǰ¼ıţ2]]  P %!! !^ T R$` (^i0 5(05X(d5Z(dqop]]] !!G|j A@ !!L! Me.cmdDel.Enabled = False !(A@k !!'   %!!'  !B@ !!L  !! !!L A@v $k0 !!LUThisDocument.Bookmarks("" & Me.ListBox1.ListCount + 1).Range.Tables(1).Delete !!L  %!!B@  %!country=$  %(0 3ThisDocument.Range(TabStartPos, TabStartPos).Deleted !!L  %!%!!(0 !!L  %!%( !!L  %!%(k(QIf Me.ListBox1.ListCount = 8 Then ThisDocument.Bookmarks("YXQ_Mark").Range.Delete] !!LYXQ_Mark !%YXQ_Mark %!!' YXQ_Mark %!B@   %B@   %B@   %B@kk !!L'  !!L   !, Total= !!L  %A@^Vthisdocument.FormFields(BKM_YXQInfo).HelpText = "Total=" & Me.ListBox1.ListCount & ";"A@ !B@ !!L !(kA@VA@o]P]h] !! !! !!L G|jA@ !A@` !!'  !! !!  !%;  !%;  !%' A@v A@xA@o8 ] !! !!d$ѡ lʾA@j !B@| k !X!d$ݣ lʾA@j XB@|8 k0 !Z!d$дţ lʾA@j ZB@| k k !!G|jA@ !5' !!d ; !X!d ; !Z!d ; !! ;d !! !% ;k q !!A@vA@ox ]P   %!  !%7!!(0  !%7(  !%7(q o p"_һ_ܲڵضaaA@o` A@ !! !!  %!%B@Hk A@ro]0]H]` !!G|jA@ !A@` !!'  !! !!  !%;  !%;  !%' A@v A@xA@ox{TAB}A@@oxoh]8 5!' 5%5(0 5%5X(d 5%5Z(dq !B@ !! !( !( !(dx !!L  !(kH !!  !(d !(k !! !!L  !(d !(kk !(A@xoP !! !(dH !(k0o(]]0 ,G|j !X5d'   5d-'kk 5d$'kPkH 5d-9dk kq !X!d !X!d$l G벻룡 l A@jjoH 1A@  !!L  !,kH !!L'to0]]  !$' ΪǰQSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE !2!d' HKTW;̨,HK$`' .  $ !( !A@  %!$' G|jA@8o]X ]p ] ]   '  !% !C@J5L '  ;  %!%!!!d ;  %!%$ ;  %!%$ ;  %!%!!!0$H ;d(  %!%!!!0 ;kqk i . !!L Total=8  %A@^kpA@ t !!L'vk@o80YAttribute VB_Name = "frmYouXian"D Bas0{D70D6B1D-417E-4A02-9E84-03846E9CD8BD}{093500FA-1F6T4BC-86B5-37A8AB24ACA0} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD Public YXQCount As Intege8r )- Sub cmdAd@dNew_Ck () Dim FieldString CopySour-my<+ Bf(, cobIf No t IsD*(M e.txt.Text) Then+MsgBox "ݣ", vbExdmation, "ʾ@AWith G.SetFocuslStar ty0Lengi= (/ End HxitfCIfD@&Ktry.Lis@tIndex-1DΪRBLBE!UnlockDoc%"`1%H<> O%e.Modify.Enρca,''@FX>= 8dF LPag`k &/9e.@^Item' =?-q'Cur.1/ X- 1!(e,x 0)5 1=A_ '˴Ҫġ 2f3SQIDT4LQtS, 13g]3= "& ";" &N@B`L╚.be AS@, E$Selected(";@$GN`Delr`RefreshOcxTre [LEnSubɸFunZcA `a$(cMark', Opyal!aB)Aġtmp,Loɿ TwID!nThisument.Book ms).Range.A3`>Gz.89?1=0Qz7Z2(i, @)-`8Chr(1p#+ 9+ "Ȩ" )G01R6)G " |_MgQ ]?t <= Mr37 [1( &dQ),e).Past4'sk!s.c!).Cepll(2=I=z o t ! Eu/ [ $~@t72 + __'F1 1Re s`ID n>0#I2=sb((#L==8a=ragraphs1Z Ont q??s0 1.0g/c!!eOOOOGcCbs("" & frmYouXian.YXQCount).Range.Start - 1).Del@ete E nd IfThisDocument.FormFields(BKM_TotalCobs).HelpText = SetFlagValueAdd(!,A, "cry =") Function Public Sub ReNameTab@leMark As String"jDim i Integero str  D= \txtr y.tRepl0ace(^HK"TW;̨,BWith +BookmYs( _Ѓ2_.InlineShapes(OLEat.Object.n"ҪȨ_Me"@*"G InitMultiColumBnz MidC998), $H/H2)PInput.EditType :=wdRegularX, Defa :="TC;@<:AeÚEĚh IIDH, Ne"wLOldJ) 'recordidָǰ¼ı ţ28WfldU  Each 9InLBLID{&sC!Mtxh=%+¨PoFsoIf qListBox1.C = -16en Exit% UnlockB%  'a(a ..EndFalsH-CModify6*f$=#% + )RemoveItem (KV&> 0". !&hi$) G4Toc/gillFajMR:iad G)(w= 8'JT' xld" "j RowszGx,6!{%qx=, +<:4e}t./P !/ ?=pResv/"V ~y0'0op s0m# _"my-ZtmptZLongs ^<7.[sts(("7)p e@a/5OD9+/m=/C , "<'p!0* sy!@Lfr?\ ^o[j[],(i, 0)`'iaM31[Upd R "b=00DԖ! Infoj'tdOBR)ac& ";$=SrFuY$ `Ġ1{1c AqwRefreshOcxTreDL%ownߕa>TSBthOrO%?Ch:$, 1 f /rS/i = Me.Li@stBox1Index - 1 To strField!(Cur, 4) & ";" J2"%3)}FillFaMingRen iNext CtrCmdLockDoc End Sub Private cmdModify_ClickB(3Dim d As Integ$er)If>= 8 ThenTrim(cobCountPry.TV)"F" Msg "ѡ", vbExclamation, "ـʾ"= %e.;SetFocusExitFA JIfG 1Not IsDM2txt1K<0.8-E^SQIBD]д],, ]\X= -@ KmU nl_Withɨr= ~bs1ToWy=!7!]3 4 W @= "hbElse_ x&, 1Hi8a0 F; (Lst"g+Range!CC CThisument.Bookmarks("_ +.(b-Bs(1).OLEFor`.Object.Value% ÃC  Result2..2).y, ɇ4!CommandBu tton1EnCob\ "_һDڵq"aaQ Quit Just Empty pboarDۖ<>{G,=&Q/q-,.'Selp b9qHadwwUp vi1*ZvQ-Str #yyˍ<= 0vSS Ch13Item,0?cT=S) i,;ߖp2VZ_, _2K> f[ On Error ;me SendKeys ("{TAB}"?4! Frame7o(d(.;%hbSMcgf"Y)Q 8d.Yt$O!tOE ?P#,oG*fgqmdDel.EnableFawy#UpA'1Down?| t >n TruM>E ވ/ L? I"B! <~":ʷ D 0? '5EAy$Gڟ/ٓ)g+%=  ? H;_KUp(By? Cod"MSsturno, sShiftHqJTxtL'SFlagAleatUn Exit S ub With Me.tx`tDate`TxtLen = (.Text)pIf >4 Or7 ThenR Z#InS@tr(1, m, "-")0QC1Flag"T ruEnd If  O_'IsIm6&v~C 7y) > 4 AQLeft(L, 4) < 190h MsgBox " A", vbExclamation, glbHint A$¥ Priv@ UserForm_ActB(InitPos "1"C3*List#1.Count@3 Selected(0ǔ%ő@RecordC=O2.ialize2Dim s@tr As ing2AlngDeskTopH andle LoE N= FindWow(vbN(ullC,A,Cap/( ' Ϊǰq$Set# A-M , HWND_TOPMOST, 0HSWP_NOMOVESIZXE # = [isDocumenftB+ryOReplace( HKH"TW;̨, $ CurhFrm@cM ab(]a(m1E.Range.InlineShapes(1).OLEAKat.Objc a2VPureResult++/#,1)20V32S"|IsL #r0gValue%?+o,df Els_Fp3 -k߀qNОa:1Fa[oy`yQueryClose(@CancelC, Mod2kH$ZNothvoy#=W< 8@UpdTotal "b=8a%YYyLockh@~<>qaF3 RefreshTreeeqS % BxME(<<< <Ph Bx !d`x+t  p h)%` `>`  )%` n ( )HP%i  % ` h)%iv `t`x ` ^  i  % Z ( i H)h% %`j Hl Hv(x(hhx(hh x(hh(xx(hhx(hh(x(hhx(hhx(hh0x([je\  @ Ph B  " ( 08@ X ` p D   " $8@H ` x " > "0 X`hp " x( " 8HXpx*  B  (8@H " PX` hx   ]$ mark_BIOStart]$ӱǩ]$]](յx  j 7!!'v l 7!! 'x v x7!!R h 't qi.wordеļ¼listbox] 8]P   t C@J5L ' A@ > h >   h  v x %%$  >; > qoh(Listboxĵһ%]  5L  ; qpohA1ListBoxеתTextУǰTextBoxTag]p !G|j 5 $TextBox ! ! % (dkqo] ]8]P t 't ! h  'x  v  !L0  h 8 յһ  v x %%B@  !\A@^  ! B@|k x v x %%!!B@ ! B@ A@o h]  ! $TextBox (dki]p] B@J !L '  ! $TextBox !d  ! ,k A@oAttribute VB_Name = "modBio" Public Const RecordStarkM As SngCd"_BIOp       ( 0PNpR@ HhR   8"X  "     ( 8 P `  n      0 @ X p   D      V P &h ( 0 0 , H P  X `  h           "      (  0 $P  x    .         &  H X x(."  (08 @$`   0      "0 X 6h (.  " (08@H P` x     "  ($H p  0      8 H hx&, D" 8@H`h $" @P X `px B ,  00` hx B    D"  (0&Hp " "08 B @HPX`hpx  " (08@H P Xhx"  (0@`0x       (0@`0p      08@P2h $ $(x] ]( ] ]P ](]P]x ]x]$marks14_ļ嵥 ]$marks15_ļ嵥]$ ļ嵥]$ ļ嵥 ]Dļ嵥_ļ]D/ļ嵥_ļϢ_ļ_ļ ]DEcode=;nodepath=ļ嵥_ļϢ_ļ_;]Dļ嵥_ҳ@]D+ļ嵥_ļϢ_ļ_ҳ ]Dļ嵥_ļh]D"ļ嵥_ļ_ļ@ ]D8code=;nodepath=ļ嵥_ļ_;]Dļ嵥_ҳ`]Dļ嵥_ļ_ҳh ] ]  new _ļ] ] 0=嵥0,1,2,3ļ,4ҳ,5Ϣ _p$ ' Ӭ$ '   7!%v!!!R'  7!%v!!!R' taq o . ' ' d ' ' koP]]]]]]]  On Error Resume Next ;$`$ 嵥Ϊ" "  6 ʾA@j|kA@' A@ ʼ $ $Ƿµ嵥ݣ 2 ʾ$j  A@ Total=0  %A@^ A@ Total=0  %A@^' ' kk; $h;$' Ŀ !%Ŀ %!! Ŀ %!! %B@k8ί !%ί %!! ί %!! %B@k===============new100203 !% %!!  %!! %B@k  $ ,$' ===============new ItemCount = 0 $ 100001  $ $' kPkH $ 100007  $ ' kk===============new$ X ' A@  $ '  $  "Ŀ'$ 'Ѿ дڡ ѡӦĴʽ ! ( B@d .msgCoverKTmsgCover'* msgAddNewKT msgAddNew'*msgQuitKTyxnp= thisdocument.Bookmarks("Ȩ").Range.Deletek  *msgCoverKT %!%v! $ X A@ rstrQingDanInfo 'иǡ(1) msgAddNewKT $ X A@ 3strQingDanInfo" Case "msgCoverAll") ClearQDRng SQFILEBODY) ClearQDRng FJFILEBODY& AddInterFaceFuJianKTynd $ X A@ kx  A@  A@  A@ ' A@'"'.o8&ί]]]]]ί !% %!%v!5 '  ' ί(    %(d5 '   %.   !%^.  A@ļ嵥_ί (^5 ')   %(d5 ' qpί %!B@^d@ί %!% A@ko &]]]]] !% %!%v!5 '  ' ֤ļ   %(d5 '   %.   !%^.һ  A@ļ嵥_ (^'5 '6 / ThisDocument.Range(tmpPos, tmpPos).Text = ")"5 ' qH %!B@^d %!% A@ko]h]] 5$( 7!. 6 !'L Fi %v!! 'N L N  v L N 7B@ k(5$( qo]]0]P]p]Ŀ !%gL %!%v!itNe5 '.T  ' Va ȨҪ    %(d5 '   %.   !%^.dtit  A@ ļ嵥_ (^od5 '    %(d(5 ' q Ŀ %!B@^dP Ŀ %!% A@$k o =嵥0,1,2,3ļ,4ҳ,5Ϣ](]@(2) ]X l,$'BP $B'  5!R 7A@5 5code=$BX $ 9b$B95$B  %($y(3)k q counq o p= 0Ϊļ嵥1Ϊļ嵥]]  $ '  7!%v! 5!R  7! 7!code=$;' k q qx ip  KT ' KT ' n8 i0 =嵥0,1,2,3ļ,4ҳ,5Ϣ ` ] ] l,$'B$BX$ . >AddFrame! BA@ ox  %7 %$ A@5$ $`9_ q %$ %$ A@qo ] ] ] ]8 ]P ]h ] ] ]   A@   KT  ' d ' k 7!%v!. $ ' ' ' ' ' ' KT ' ' d ' kp 7!%v!. eIn ' ' ' ' ' ' n 7!! 'ext,5rB@^!q  ' ty .  7(d!  . ' 7  7!%^.   $`9 $(9  $`9^ 9  $`9ZB@89q !!'  7(d  '  7  7!%^. KT ' ' KT ' ' n    $`99  $`9^ 9q !!' ҳ 7(d    7!%^!.  qX KTTotal=   %A@^!VKTTotal=   %A@^B@8nijAttribute VB_Name = "modCPCLeftTreeInterFace" Option Explicit DimistSQCodes AHs Sng6F"J6Pub SelectedItem :Tota8lSQVgefrWFJP@reMark RCurRange(ieldcUConst SQFLAGMARK!6s14_ļǘ嵥FJ5_ӕ;ILEBODY;73rivaA8DNAME_)9STATUS-ϢMHELPc=;npath=E ;PAGEBҳABN&Ah uhQ%J{2b 2b2 0 0 0o%/Quit0LstC BBoolean {Count!SĔ 'new&ZW0TSBHWBack 'A0,1$,2$,3p,4,5a![ qSub InitPara() $ Ex(= Get"(0i %l1dWith ThisDocumen a⨑= .`%km(G)..Ce lls(1FormF!s.c)/ 2 F$ a0 Or %Th,P("ǷµqRYesNo + vbQues9vb0LqClearQDRnga,1Upd2I "b=0PK.gG!Jile_DS_\;3%`{`1 r(`M(*aaStart - 1,? f7@0).y et.Y11- rks ί? y?  7_ rq"> 1 '= 100203;ัůo c 7??.32 i*0ro UB0d(&,951oc-V(ia,,e,==ray5#In0f((101>|f 1) > 4|2= Val1(5)(ۡ U> ? 2 70 > 0 Then If UBound(tmpArray1)0 > 4jZWTSBH = Z(5) End LIf& '= new,TypeCodeaCStr(0)gReturnPara m1,:s7 e@llName]RangeMark 1#Destinat ('64InF12(2)ChkAll7FalsefrmMsgBox.lblInfo.Caption"Ŀ'H" &3)"'Ѿ Cx дڡ" + vbCrLf@_BȀ"ѡӦĴʽ" *ShoHo E8O Sele`ct Ca?BOptA"msgCover edItemAH AddNew+ FQuitExit For=ȃ3 '7thisdocument.Bookms("").´.DWtH a 0cC(91Sb st0TDn%aUs(1D, }0(ij'strQingDanb 'ЀиǡX6A@@P2+#Y>6-ClearQDRng SQFILEBODY lFJ| InterFaceFuJial !m"QsQPAay'2ONext ic`vC`t"LAGMARK ! @ BackanLstCli= # Lock@Q cA$Bub Pub Sub C@(BkmA s R) '׀ί DimAPos !LongFl0dObjmFieldcGStartk b 3p.Bt3PCU ")h Withjiso<e A=qRatnge As R"a With ThisDocumentXh.Application.ScreenUpdng = FalseXSet t mp:.Bookmarks($Name).3RngStart/:.End  Cells(1CJ- - 11Idf U<> @Then#mE(,).DeleftkIfTru Sub Pub  AddItemCount(Bkm̀String)8DimPos Long FldObj FormFielp]@+JT v.Exists("")@j \ΘH>twC-kAB= }6z=EM+Ɇ 2B (, ).TexAvbCrLf & "Ȩ "j%KDz5,.F|s.A0, wd1InputĒA?Evalue&r , Q .FtusD#"ļ_"" 0" l "aT@n p ""`~!)Z@* EZ!EJ-(J 瞦bÞ6-!'+0,1,2P30,4ҳ,5 ϢrivateCoveru<(In ƃ, Para`!KiInt0eger"aTy`peCodC '(2(TmpAprrayC`S t($, ","F = & O# A 0F@PutFlagV%n(h "c'=", C ) .Resula3T$ >N4? "t '(o +D1NTiS$qD*Func Getw*!i()( * '0΂H1Ϊ!0I*?,QR0M`wc"=c{= ReturnD`estin 7("g./pW.ds..//-K/7*"",E*-q-#Ès(i).)";,]!!y1#5!#b=%k$%#Sct Case?b0 1kSQFLAGMARKe!FJ åccccANewbac 4HT"2_!?`3*=Q>DanFraPme(C0((0))) '{Fillm \j2IJ ?AV , ByRefbtBoDU*Y?P =8Y;1)z"jYf2f4/ sx/ d_i !) f'r;',araX&a)Insert?խCATotalQ$A2?0RIDOppvQStr`-?Body jP PWuRtring InitParahWith ThisDocumentXSelect Case TypeCodne:B40 &.If TotalSQItems <> 0den*.PreMark = SQFILEBODY & B88Els JNLA GMARK?nd If Set InRangeH@.BookmNs&(M&)..Cells(1%ajBody lt", H OwnTruL.c'J C $P !  Enabled/Fa/Fh1c"c0.'(2%H" G + 2 _Fld)P/#Bl(+&/#,# 7$lPAGEl$C!OK ?gL{ 1!LthGAO4ppO4\O45O49.p*. Q8" s. .\Kt9"\ҳ.Q,ZQDanQFr3GW`Z)7a1^(M&2IC[ ++ Update2 "b="@O,Y!Ip8Rߑal) )Functiot{sxME`0 . x + i0 + ::i2 `4 `6 d`8 `: _ID+< X::i0 (`4 ' `2  `8  `6 +>  i@  , 0X8xX8xX8xX8x@X8xpX8xX8xX8x8X 0[jeB  (8HXhx(8HB PX*h@(@ (` ,@ pbx H (08@ B HPpx@((0@84x ,h b H PX`h.      (8 @P Xh p      4 P X ` B h p x  :   @ 48 p x @ 4     8   b  TX     *   .  H  X h  p                   ( 0@ HX `px D  B (0HP `]У8+,  +,  +, +, +, +, +, +,  +,  +,  +,  +,  +, +, +, +, +, +, ( ix 0 $*d"֤зֳ֣' QR_IDz`kX 0 $$ 0 $$  ֤·ݲȷ' zk 0 $$ 0 $$  ֤ڲȷ' zpdh 0 $$ 0 $$ 0 $$  0 $$  0 $$$֤·ݺڲƥ' z 0 $$ 0 $$ 0 $$e֤2·û 0 $$' zkki]8PhA@. 2 $$*֤' zHk@ 2 $$ 2 $$  ֤·ݲȷ' zk 2 $$ 2 $$ ֤  ڲȷ' zHd@ 2 $$ 2 $$ 2 $$  2 $$  2 $$$֤·ݺڲƥ' z` 2 $$ 2 $$ 2 $$e֤2·û 2 $$' zkk 2 $'4 '6 8  6 4 8 $$ 8 $,  '6 8 6 KT1': KT0': KTX': KT9': KT8': KT7': KT6': KT5': \ KT4': KT3': KT2': n : 2 $ ֤' ,βУ벻ȷ"zkiA@. ](@ 0 $*15λ֤ зֳ֣'< zk 0 $$ 0 $$ ֤  ·ݲȷ'< zk 0 $$ 0 $$ ֤  ڲȷ'< zd 0 $$ 0 $$ 0 $$  0 $$  0 $$֤ ·ݺڲƥ'< z 0 $$ 0 $$ 0 $$e ֤  2·û 0 $$'< zHk@k8 0 $19 0 $ '4 '6 8  6 4 8 $$ 8 $,  '6 8 6 KT 4 1'2 KT 4 0'2 KT 4 X'2 KT 4 9'2 KT 4 8'2 KT 4 7'2 KT 4 6'2 KT 4 5'2 KT 4 4'2 KT 4 3'2 KT 4 2'2 n 2 '< ix>֤麯,д,ڵǴַϢ,ȷ,򷵻ؿX @  @ $ '> @ e @ $ '> d֤λ'> kiAttribute VB_Name = "modCheckPID" Dim Wi(1 To 18) As In@teger 'У PrivaFunction SDetn) z)U729310 4 5 5 8 6 4 7 2 = 1 96 10 Z3 1 p1q1U r1s1:1:1;~;End sA|ublic CIDC15(ByVal St`rID15i ng If Not IsNumeric( ) Then   +֤зֳ֣"aExitX_If 12n'ݲȷ&11'> 3C@N_'l,seFUm(H= 4O= 691A@=@OAH4̓!H IA`E"!w!2 %}0aa2û" &Y & "y_ Eg'y8]j8t7',` AiWi, numA1( B0Leftd}8, `v8D$#! 9w6! +FeA= I^< B= ForA004b+P7"E A*FNextElect CaseHMod 10a1IФ1CB7H0Lp4XLO9LO8LpO7LPO6L݄ 5L4L O3L_2Pa#SeAr`<> 0Righ`_ck_.T." 'βScW7 ,+q_r²To1Krrmr,Ķpr"0w̏rv q15λ__?k iIP?l/`;s5a|Ait Co~喏t ͫ tկ ta2otϊߺOt15fXߺ?t ??&~ u1ld>ElseIf Val(Mid(StrID15, 9, 2)) = 2 And ( 1130 Or@1) Th en CIDC15To18d"֤" & vbCrLf"2·& "" hExit FunctioEIf |7ELeft$6)>19:Righ 9) AiWi0 F@or num1 To 17B%+7,, 1* Wi(!!+Next Select Case Mod 11. ?ej1 A 0 2 X 3 9 4 8 5 7 6 6 t?5 8_4 9 3 12 󁺃 Jߤ?a'e 'r,д,ڵַϢ,ȷ,򷵻ؿ co heck(s d As !ing)G 1LenCa157E@mCA 15# 88 0H Dλ8)E&\dx/ (timeGetTimexME(< << <+&@  ,,i %) %ib;b;i @ @ @ ``6`+hi id   X i x!& id $`  ^  i ) 08%i@ @ ``6`  i`0ib``d@P@@@@@@@p@ [jetH " & 0PX`hpx  Nh p x" 0 Hhx    (8@ Hh B px B   (0 " &8`hpx   NH PhxJ  " 8@H`pD84 X|`8 ( 8H PP @p   x @ H X @velementid:ԪصIDš t = timeGetTime]] ]8]P]h] !d'6; 6A@h 6;$' ; A@h ;$'   % 5!!R ^ ǩ' %'ڵԪظʼݸһ£ lʾA@j d  $ '& , A@h $ ,$' 0  5% Zl\5VB@X$  $`9 Z!\$  $`9^ $ 9d5 5!B@^  5%$  $`9$  $`9^ $ 9qkq  ZB@8kq MsgBox timeGetTime - to d $   d d   $'d %kH d 'hi8] '  d $   d d  $'d  d ' i_elementid:ԪصIDš]X]p]]] !d'6; 6A@h 6;$'   % 5!!R ǩ' %'ڵԪظʼݸһ£ lʾA@jd  $ ', A@h ,$' $  $`   %!%!!( kqoMӷ˵ӢϢ]P]h ` %!B@f x!| !! 'ӢϢ $h $h   %(d SQReng_Mark   %!B@^k x!| !! !! %B@jdӢϢ x!|  %! ӢϢ x!|  %! %B@jk !! !! %!rB@^  x!| !!R'ddӢϢ x!|  %! %!!R 'dkX d %!.n b n!B@^ThisDocument.Range(ThisDocument.Tables(ThisDocument.Tables.Count).Range.Start, ThisDocument.Tables(ThisDocument.Tables.Count).Range.End).DeleteӢϢ x!| d %%l!(dqH x!| ӢϢ x!| %!! ӢϢ x!| %!! %B@koKAttribute VB_Name = "modCommonObject" PrivaDeclare Function ti@meGetT Lib "winmm.dll" () As Long ublic Sub NewElement_FormField(ID4Integer, DSTxtTextBox, TableMarkSng, strResults) 'ehid:ԪصIDš ' Mtxb  Dim arrN Allld< iAb DataSourceQXtmp =.elTail ";"_AllnSplit(>,) P=FF6 With ThisDocuAv.Bookmhs(kXIf UBound()) <> .Range.F]s.ct - r1enC%Msg@ " '" && @"'ڵā{ʀһ£!@MvbExmaÁ@4ʾElseOn Error |NN@K/ iK0x ToL9 A}=j(iHHE Dx,@+@ @PLiUs@4,"BlN\(i + 1"OInput.EditType :=w `gu@aS@Qefa q:="s`aataO nÎReplace#B(0) &`J 3.@NumberI-2147467259Gae.Stpatus (21?) Y 3hR<M ..cAdde, wdB&!"4s-a ?)j._5w_5) .(.J./GEnd !#s&IfoA i!SClear?  d- t  &䄁ilFlagg, ByRef Body)GS 4Right(A, Len))fTh Y=f)p\C1 N= #En Deepsiq4D~! gthZ{  While <G 'ahend8 4P/ bobox_Xn n5p+FţQ3s;5tABdkA05\InlineShape5&&npuerr/x X ="Trfp ?0 Bs.OLEsa#""Chr(13)0+_Q16).%.p "eng_q %lon<(/.D ).PasttCpell(@m҂A.TextLoCCAC`>.U})_W,l-  b8c1!#!USub ""\NxRRME P@0L 0L<0:<06 xN@HPHH"hHHH H HBIO h8h Ph hh  h hhһ_һ_Ӣ+` 8,,)X`A%i ` `d`  0` H) (%  ` pOii  p`Vi 'iT0$hiR$h h % `` eii `@h 7 8 %@ p` i iT!iRi   N8!  %`%@  `` ii%`^@ 3 N8 > C %@ +(`  i6) iPos)`v En`x` +  ` h i6ii\ `v`x` + ` P  i6p i i `v`x` ` + ` X x i6@% ^8 ` i  ) %`v`  ` x i  ` 66` `~` ` ` ` ``  H `  $)9 %`6``+ ` .i6 )9 %`+ ` (<i6Hi~@< ``>+h`  Ki~)90%` `6 Z`   Vi  % h` ( _)H%` @` h)%i i `` +$`  )%``+ x`  )8@%i` 0`)%I ` `   ` pi ` + `  i i ` X%@ `   ` i HH(0HxhHꐾHʐH ʐ H 8 @@(h0p hH h0(x`pP  ` x  (%һ_ר_1_1_7_8_һ_û_һ_Ӣʾʾ7_h8__û_Ӣʾʾ8 @@(h0p hH h0(x`pP  ` x x8 @@(h0p hH h0(x`pP  ` x x8 @@(h0p hH h0(x`pP  ` x x8 @@(h0p hH h0(x`pP  ` x x8 @@(h0p hH h0(x`pP  ` x x8 @@(h0p hH h0(x`pP  ` x x8 @@(h0p hH h0(x`pP  ` x x >x[je*\R1*#e4*\R1*#10b*\R4*#63*\R4*#61$*\Rffff*0u658ae0f9(*\Rffff*0u658ae0f9\0 &( H"h&    ( H h *p,"8 X&x . B H  XP $ J( 8x   ( 0HP hx :0"H*p $ .    : ^X 0  "  $ HPX "  `h.  "      0 H  `  p x   "           L0 4 2 &  8 @  P `  x "         "        8 P X p           (  0 8 @ H "  P X ` h p           N X x   B Z px  ( B ( 8@H P`xv B . @HPX `p8vP B  X J` (&( "Hp "   B  ( " 0PX`hpx& @* P hFB(F0x  >, @rPL @NP  @<(@h  lH  h p<  "     ( B $ 0X` x    B  (@ &` " B    (08XpB    "    0@H "  Ppx   & $ @ H `   &  B "  ( 0 8 P X  p     B "     ! 0!@!P!X! "  `!h!p!x! !!!!! ! ! !" " ("0" &8" `"p"x"" "  """"" B 0 "### # (#H#`# x# ## # # ## # #0#$ $ "  ($0$@$P$]$2 ȫ]$һ_]$һ_Ӣ]$һ_@]$ר_1_(]$BIOP]$1_h]$7_x]$8_]$һ_û]$һ_Ӣ$ Total As Integer 'Ԫصĵǰ`^ Ԫصı(۳)^8Ԫ¼ı^PԪ¼Mark$ ^hԪصMarkBody!\^" ԴMark CmpPara.BaseCount + 1 ThenW tmpPos = .Bookmarks(CmpPara.CompnentMarkBody & ComponentID).Range.Start - 1) .Range(tmpPos, tmpPos).Delete End Ifqi 9 6= wdPreferredWidthAuto_9 qo0 G|j  %!%%l 5(dq8o0]P  % 5!  Z5VB@X5 T R$`95^ T R$`9^ ZB@8qqxopp]]] ; A@h ;$'h  %! h5!R 5!R @hXF MsgBox "ַ", vbExclamation, "ʾ"- Debug.Print .FormFields.Count - 1+ Debug.Print UBound(arrFieldStr) Debug.Print FieldStr Exit Subk 5 !lG $h !n(0dFld.Result = arrFieldStr(i)  $hX A@k8  ' qo`] ]@]X ; $h' ;$' k  %! N5 N5l5!!'   $'  T R$`5!(  $ 5!B@^  'kkqqop]]] ; A@h ;$'   %! N5 N!l  'k  H MsgBox "Ͽ", vbExclamation, "ʾ" Exit Sub  @ Xkh' N5 N!l $  N!!(0  'kqo`NMһflagȡӦֵdatasourceʽFormField ("_һ")]]] '  6 'v v v 6;'x 6 v x v $'ki(dһflagӦֵ]]] ' PosMar 6 'v v 6;'x 6 v  $ \  6 x$' ^<Mid(DataSource, pos1 + FlagLength, Pos2 - pos1 - FlagLength)i qһflagӦֵ] ] ] ] ' ָǬ 6 'vFi v 6;'x 6 v  x v  $$ ' 6 v  $  6 x$'b<Mid(DataSource, pos1 + FlagLength, Pos2 - pos1 - FlagLength)rki  C InitNewComponentPara.Total = GetFlagValue(DataSource, "Total=")ļ 6 basecount=$ ( 6addedrecordtitle=$ ( 6addedtitlemark=$ ( 6componentmarkbody=$ ( 6 sourcemark=$ ( A@ 6oldid=$ (KTih  ] ]  5;'v 5 v$' 9q o 8  %!!B@ļi  ʼȫcombobox] ] ] ] ]8 ]P ]h ] !2!d' HKTW;̨,HK$`'A@ $( InternationalLangualeLanguage7b!0 $5 A@2 7!country=$$'   !country_ 5%^  '    country_ 7!! !R  $country_ 7!%!!A@ d 52!d $country_ 7!%!!A@k kx  7!country= $$$  7( 7! province=$$'  嵥 province_ 5%  '  province_ 7!%!!!0must province_ 7!!%@ 54!d $ province_ 7!%!!$'~kcity_ 5%  ' 54!d $ ~$ city_ 7!%!!A@kXkP G 7! province= $$$  7( 7!city= $$$  7( 7!type=$$'  !type_ 5%(  ' eInitCob1 .Bookmarks("type_" & i).Range.InlineShapes(1).OLEFormat.Object, Mid(.txtProsperType.Text, 9)  !!d $type_ 7!%!!A@k  7!type= $$$  7(q8 $('" o  ] ] ]0  8!0' ZB@8oH SرʼValue] 8!0$HdyֻҪ 8!0',rdp 8!d'kX 6 8A@2@  8(0 ' ZB@8& i ]h]] 6,$'<'*  <6 $<$ ~.Boo $<$,' kp   $ ,;,  $' !Vki]8]P 8B@8 ~zk !4!d $'6& 6 ~$ ' '* 8A@ixh]  !  ! (0J k( i]P  5L  ; .ListIqohZƴ-1ƴ1 C]](  '5G|j 7' d@555L G|j' 5 k  A@`/ 5 5  hs(3' >5   >7;' >   $'aĸ   A@=; xqo@Bɵַһ]] 5Gzj5' 5 $  7;'$ ; $A@hqHi@Xɵַһ]`  5   7;'  ; A@hqix]] !5 ' 5 ' qH   $ 7(d Z!\ $ ( ZB@8kd .Range(fStart, fEnd).Text = " " (kqox0]  %!!'   %B@Ho(e#ĹĬ2бɫɫdzɫ](]@]`]x;  $h;$'   $  %5d9' dX9k@q8   ɫΪʵд l A@jki  !( oAttribute VB_Name = "modCopyandFillRecord" Public Const BKM_TotalCobs As Sng" '  FMRInfBo >һB_|7Eo y:Ӣ >SQv;aZDLר _1_BIO{ uYXQIU1_ SQe_DS_Count74FJ 8FuYeAddedx[û?jyyDjjTypemponentParap ' A"Integer 'Ԫصĵǰ aA BaseLL A (۳p)CB:T0itle=B ıH a Mark A  Comp6ABodyM AA Sourc@4mPC Դ ID!(OldID)ID First@CellTxM'A$,{ԪD2 A% End : GlobalglbHi`[FHMErr$&EFunction New&(CmpFۆ,J)!`' J`¼!ͬ,ͬĴ1A0@"ģڶ@һñȻҲɲ@ iֱӦÃ3Dim D$oc(PoLo ngGTabl6et!IF!PageWith This umni.Bookm[s+.0R).Range.gIfJ.- d".gt= 1eng= $ aH-'λ#!a#(,&).Te[= Chr(13) +#0"F.- 1Len& a1),F$F If<<  G+Ot!8, s).Past#QEls;#@"P&l"@a` ge(q0_(@_(\(x5@"6s.coxg [b1(@!. +=!&U Set Cur  ( :g* )+Tk 4t13a T4oragraphsqp v] 5E iAutoSize JO(9M 1ChQOsg8* '>Ѯt2== 9 A`rks"T]_|^.р(2,  $U97H!!*" >_a1. V%Oi Start pdQ1/(v).DeleqNV 1Sub &("$Obj$ a .PreferredWidth!/wdkPe`'= 95 p \ .(M R&.qv6 !*c* Exit 38*O*B*UI* **d1 ReA ldsIng, Ra,1kflFormFieldW- Each In .Range.FormFields Wit`h fld TOn Error Resume NHextJ.T,Input.EditType wdRegular6)dnaN=Wpl ace(., @OldID,fwID)5StatusR ;Af@.Clear .End t Sub P@ublic  FillInMPark(NoAs Stringn, oDim i IntegeK arr+K  elTail "<;"5 "LSplit(, !€ThisDoc@znt.Bookm3s4).‘If UBound() <> Ț.c@t - 1 ThenG AReA5Preserve ( @+' MsgBox "@CvbExclamation<" DebPug.P@kt /C?/ @X u ExitGIf!} Eac In) Fe.8= 7]aCheck (.Value D)0idCa0Else+ 'Fld.ltbv W, C`\IH(i)Mti!A i i + 1gvvReAtCobsv‘ @vs$*Op!Kal ` !~s` \insh#line0Shap)tmpC!2% ;sI m"",kh`$D(HH, ( RmeX"XIn&"1C>we %\5+= .OLENat.ObjectB Left(A, Lend)?' 0ReC |a _=jCᇷ.Add5?5 I 1!9 Q>Suu 9tcob23tg40 9tc2= C21?1t?1 ]?1pe<1@!Q/@=0QTWl |i{Zkwxx"x#pqc (" 88 ,0cq_G_Gq1~aR^Et X qAka 4S:3FuncAh GetFlag"(DataSourcehС) ' һfȡӦֵ(ds0ʽT ("_еһ"4q60pos1qPo 0c 1;t$Mid(, "+ , --D9q%VPu__gNews) µS4ʢ * 1#`bc/YY9r}!~ && ) '.BS(=|_=?PE Step As Integer = 1)xString 'һflagӦֵ  Dim po s10Pos20FLengthEnd Function PublicXitNewComponentPara.lÏ 'InO.TotaZl@BGFJD"B=gBaseCountb@ cA @fedRecordTitle@addedr t Mark݂m [ndBodycp b{ Ci P>NsBo IDo0ldidTSub Update=E("UB@R'S, fldForm`Fieldd~ڙtmpcyWi [.HelpText,  = zh &$#!aD !SubqwDelTableRowsIna8(xNamb྄ ThisDocumAJ.Booka9s).Range.A . eteCp† Cob(@ʼPbobo~x0@cx'ӇPrvc`D@'=9rya; ProvincO!CDitTypsiqrstriA= +txt.DCReplace(GHK"TW;̨0, 5Ap pa.Screen`= Fals3HV1UMultiC`olumn"f.Custom perties("ArnBalL!!ualesge").j, 9), .ʹ7Sv_.9s(BKM_$bs)1"\ryPA  i 21 To '5Wf w-.E0xist _" & i)pePp9pE&k'+ 1{If (i >= 4 bAui "" _l4 &>mpM")TrTh>" Dg1}it5-[-66!C -Lplu(!oeLo=0*CW&,3q`I?04 o|s(_H_H_ ?xt?44P!?/8h/?E":?oDG= =q? ThisDocument#,REnd If rN iXPu4, Trim6(i)E&WithC#ApplicatK.Scr@eenUpdngAxrue  Sub Pub@ @ DwcF(Zj As@m boBoxeDim DataSourceStringAiIntegerC On Err@or Ress UC=A@#.C@.Clea4FuncA55(/,DA'Co;6 'رʼ#Y=rNot IsNull* rEls6bOgd"U!:MultiColumg00HC! Gt"6$4%3OÆ5City6@PrvcIDg4)G2cobLArrayPa^jJSSjt,"b0UBd("%@f Left(i), 6) O"o&)B 8) ","c eřIURight0, 1 1";,, n ) -@ CECEN_~( C|{ @[DS1IQ@AcĐ$(ContarAPǰ~ctlqArol3EacDh In I.s.Tag <>! }2"/"Cf%pQueueC(Ls~t q {pDQx #G A.a.G (i, 06|i JY: S|XularUpDown/ , MoveStepq C4OAmPonBodyo) 'ƴ-1p‘As)&*je;6A*j{aa`C1FillsI|nM*2, 5 '|33Mreate4Q04xp2ɵַһ31CQCurC-2thD_+h) g,E& Cfr0$otrІ*(,& "I" !DelTailAHO% tr1'|st oodo ڳ With LstObj For i = 1 To .ColumnCount - 1CreateRegularLis`tStr1t.& .F(Index, i) & ";"UNext iDelTail$, V+HEnd  Function Public Sub EvaluemField(Fld| As , f@ldTxt)+Dim fStartLong 4 On ErrResume f7.Range /= .3+ 132 ?(-Th isDoc:nt Ifg <> "" The:;C#(!?).Ta= Trim(CE :.Number0 ,A).Selec. Chec@kMustI{ntainer(OcxCoa^d`os@a$A 7n 'ĹĬ2бɫɫdzɫ,akiaIn0tege>ctFlrola@rrChilDia9Type 0K PSplhit(Ċ(`O)>,8 \o UBd( OBq&(nt`sl(i)A@jnua.Back = &HC0C0FFe:boufiA 805 JdceMsgBox "DΪд", vbExclama, glxbHi%e4CtrlbShade(BVisib|le!OYD4m&s:.bd +Sub LW:WxME (<< <<  @il``>  B  (@99il@ ר@  %`|`  `'``  8h55il``@ @ ne%`R=`,2` , xi !  % N %8(8(8(8( 8(H8(p8(8(8[je b " px"  0 ,@ ,p 4 4 8H 4 4 8( 4`"    8 H` (h" (Hh p    ^    r( ^ $( 0 r@ ^   8 H P X ` h p x "                 ( H  (P x   "    0 P  X x       8 @  H FX    "        ( 0 8 " @ H P X p        L P  Pp x\룬ƣ1绰֤ţ2绰֤ţ]`]x]] l :$+  l1:$+  l2:$+  $ ,$'BH B ר_7$BA@ר_7$BA@˻ǩ_ǩ7$BA@Hk $ ,$'B Bר_1_7$BA@ר_1_֤7$BA@ר_1_绰7$BA@Pk@$ ,$'B Bר_2_7$BA@0ר_2_֤7$BA@ר_2_绰7$BA@k`qXoP]`]x]]]]]] A@ ɾ 6'|  |   A@d  %!!B@kh`SQR_Mark !%SQR_Mark %!!'SQR_Mark %!B@   %B@   %B@   %B@kTotal=2  %A@^A@ l,$'   $;$' $ ;$ ;$ ;$ ; $ ; $ ; $ ' $ ;$ ;$ ;$ ;$ ' 1A@d  $ ;$ ;$ ; $ ; $ ; $ ' $ ;$ ;$ ;$ ;$ '   A@d $($ ;$ ;$ ; $ ; $ ; $ ' $ ;$ ;$ ;$ ;$ '   B@ $(kk A@VA@o(]]]]]]]  ɾ (A@  %!$'R  R  ;0A@fd  %!!B@kxFMR_Mark !%FMR_Mark %!!'FMR_Mark %!B@   %B@   %B@   %B@kTotal=2  %A@^A@ ӷ l,$'   $;$' $  !(0_һ_֤ %$ A@d   $ ;$ $HA@fdX $($ ;$ '  B@  $(kk A@VA@o8]] %! 5 (h N5 N!!(08q0F ComponentMark = Replace(ComponentMark, "", "ӢϢ")I ThisDocument.Bookmarks(ComponentMark).Range.FormFields(1).Result = ""I ThisDocument.Bookmarks(ComponentMark).Range.FormFields(2).Result = ""o80Attribute VB_Name = "modDLRInterFace" Option Explicit ' ƣ:1(<2< Publ Sub Input(ParaStr As ing)) D0im ige rjArrInfo(2)%Tmpay(0)GetFlagValu"eL, ":"{N1P=" 42With ThisD@ocumen hZSt(d @,,E*A If U@Bound( ) > 0enH EvA>FormField .s("רEB_"), E(0F1˻E&ǩ_End If>0NR17"^R= 2|R_,wTa!A s 2+?o>#aJ 6+uTk+Ta2+__ģ@_C +`a +dW!-  !Sub b SQRsttemaA my`!New @ShenQRenC t! FileCobtmpPosLong Orror GoTo lUnlock0ɾ .TotalHB@= 1 "7i < 3m{Cleara$"" & ipElsee`).Bookmarkj().Range.Rows.Dpelet:NexC .Exists(("`_Mp")) 4>=`ey T Star9ghrk"[ (, D + 1)ogeooo@Updater# "b=2"pnXqpBKM_`sURemoveFuYp'P!2&fTP%)@yoz;Zi:p(i-i;F~*=/} b9= 1(5)*";B+0(67891`& 1{?345 lCopnt,@19k:<_| re 8\M)ApQa.Screenb3bP*Fa[P_( J&_'! R/o' Br.CreB'd6% /(Tru9f_ H3`l:`RefreshOcxTLUqFM֐4֐ |my |c/^dt"V'A~/X =(Js[ [.HelpTv$5YbB30#C1ITables " b5I;0H ~5?}(#s#A NextIf ThisDocument.Bookmarks.Exists("FMR_MD")enltmpPos = r.Range.Starw@x7DeleteyK 8Z(, + 1).w6End IfXUpdateTotal B"=2", FormField@s(BKM_Info) Rem@oveFuY'ӷDstrSplit(ParaStr, ",&". i0 To UBound( DbiteFm@(i);jhcC&_һ.Value@(0 EvBG"֤"-1ElsHA2< 32 FillTabled " &0 i, /";aIIf(7True, 1, ' 8O!=Apmcation.ScreenBingFa. @h(R#O"C my.CreFaM Ren Pz?o+` l:RefreshOcxT !cLock` Sub P@ublic  ClearSQR(Compon! As Str@Dim fldL !inshAInlineShapFWithD )C AA EachIn .s.Result>""$ b CL A.OLEAat.Objectos + ' )= Repla ce@ˀ"#ӢϢ! F˒'H$(`" $?;1i 2` ,I\f2xxME ( <<<< II X%``'J X% %% H% && H %``B@ %% %`` P ,, %`` @@ 8%`` `ڵ 0"" ػ%`` `Ӫ (( A@%` `ơ PCC %`B@` ;;iR@ B@`> B@_ Hƺ1_0 ƺh%B@`v`x  OOi@ @> `  d B@  (8, %`v`x h AAi 9i  B@i@ B@ih  iB@H%  %  %  %  % ( %`` P0PHP0P` P0P P0P P0Ph P0P P0P P0Pp  [je^" (08@ HPh  ( 04@ x&N $J8 &V ,(:X 2 .< 0$@2h , $J  B@ $J $ JH &    . >P  ",        $(  P p      .    4@  x $ V     N8           . :H  "        (H Pp 4  B HX4p $JP h&x .8@"H Pp x "  ( (Hh&p <  . @ B` &v x&v( @,P . T&@ h "6p  8HP`hP p,h*0&, *P2** P ,*@0p&,*2(*`*  & <0 *p 8 * 2!*@!*p!  ! ! ! ! ! ! "." 8" "6@"x"""""" $"""# #(#8#@# H#0$48$0p$  $$4$0$  (% 0% @%H% h%x%.%%"%%%%%% &8& @&`&p&x&&& &&@',h'*'  '&p(,(*(  (),)*H)  x) )) ) ) )).) *" *@*H*P* X*x** (**6*++ +0+8+ \@+ D++*,  \0, D,,*,  p - D-*-*.  p8. D.*.* /  pP/ D/*0*80  ph0 D0* 1*P1  p1 D1*82*h2  2 *2*2  3 33& 3 H3 X3h3.p3 3 " &333J384 0@40p4  .4$4$4 505  \8555 T5J(6x66666  6 (74(7`7 7  7767  @8D@8 8 *8 8 8 48 f(9 9*99999 9: " ::0:J8:: 0:0:  .:$ ;$H; p;;  \;;< T <Jx<<<<=(=  @= (P=4x== =  == d>$>>(? @@?x? ? R@h@NpA VA NBhB  pB B   B B B&BBC80C hCxC 4C fC D*0D`DhDpDxD DD " DDDDDDDD  DE E@EPE&XE EEEEEEF F 0(FXFtpF F0G 8GxXG G0G Hr@H  :HxH (pI xI J00J`JxxJ J KK K (K8K @K PK`K hK xKK K "K KKL L ]@]`]x]]]A@ ! n  B@. kpmarks05__'doc_end %!B@H R B@oo'    !%b  ' B@P  d B@ B@ ơd B@_  _1_A@ B@ û롿d B@%_  _û1_ûA@ B@ ͡d B@_  __1_A@ B@ ܲڵءd B@_ _ܲڵA@ R B@ B@ ӪڵػӪҵڵءd B@_ _ӪڵػӪҵڵ1_Ӫڵض _ӪڵػӪҵڵA@% B@ ʡֱϽơd B@_ _ʡֱϽA@ R B@ B@ ơd B@x_  _A@ R B@ B@ ֵƺšd B@_ _ֵƺ1_ֵƺŶ _ֵƺA@ B@ 롿d B@_  _1_A@ B@% 绰d B@_ _绰1_绰A@` B@ Ӣơd B@_  _Ӣ1_ӢA@ 8, B@  Ӣĵַd B@_  _Ӣĵַ1_ӢĵַA@; ! ( !B@8 !   C@^ 99q ! ( B@$  l  B@aĵ_  _ %B@H%oh ĵ´ҪԪ]0]P]hA@ ! `   B@. kmarks07_ר_' doc_end %!B@H R B@d'   !%b%  '0 B@ d B@B@ B@ d B@ר_ _ A@ B@B@ ֤šd B@ר_  _֤ר_1_֤A@ B@ 绰d B@ר_ _绰ר_1_绰A@( B@ !e ( !(d !  C@^ 99q ! ( B@! l  B@[ĵ ר_ _ %B@HAddDaiop ӷ, ]]]A@  B@. ).marks03__'doc_end %!B@H R B@h'    !%b  'йx B@ʾA@j  d B@$h B@( d B@_ _1_A@IJ) B@8  d B@_  _A@ d B@ B@ Ӣd B@_  _Ӣ1_ӢA@ !e ( ! !   C@^ 99qH ! ( B@ l  B@_ĵ_ _ %B@HoinitCityList'090416pzy'oPȨ]]] On Error Resume NextA@  B@. marks11_ҪȨ_'doc_end %!B@H R B@ '  00$ !%b  'P B@ 00$d B@ B@ d B@ addTextInput "ҪȨ_" & i & "_", "1_", "" & i & "_" addDropdownInput "ҪȨ_" & i & "_", "1_", "" & i & "_"ҪȨ_ _A@ R B@ B@ աd B@ҪȨ_  _1_ն  _A@ B@ šd B@ҪȨ_  _1_Ŷ  _A@ !~ ( ! !  00$C@^ 99qh ! ( B@ l  B@_ĵMthisdocument.FormFields("ҪȨ_" & i & "_").Select  00$ %B@Ho*ĵɾһ̬ӵ˵Ϣ] ]@]X]pA@  B@* marks05__''    !%b  '  ' KT$ '4AN[hu2_ %!!d2_û %!!d2_ %!!d 2_绰 %!!d2_Ӫڵ %!!d2_ %!!d2_ֵƺ %!!d2_Ӣ %!!d2_Ӣĵַ %!!d2_ %(2_û %( 2_ %(2_绰 %(2_Ӫڵ %(2_ %(2_ֵƺ %(2_Ӣ %(2_Ӣĵַ %($ '4AN[hu1_ %!!d1_û %!!d1_ %!!d 1_绰 %!!d1_Ӫڵ %!!d1_ %!!d1_ֵƺ %!!d1_Ӣ %!!d1_Ӣĵַ %!!de1_ %(1_û %( 1_ %(1_绰 %(1_Ӫڵ %(1_ %(1_ֵƺ %(1_Ӣ %(1_Ӣĵַ %(d8  %(  %( !(dһ_绰 %(%һ_֤Ż֯ %(һ_ %(!һ_ӪڵػӪҵڵ %(һ_ %(һ_ֵƺ %(һ_Ӣ %(һ_Ӣĵַ %(kX Exit SubS@    %B@H B@ B@n l  B@[ĵo*ĵɾһ̬ӵĴ˵Ϣ]]]]A@  B@. marks07_ר_''   !%b  '  ' KT 'ר_2_ %!!dר_2_֤ %!!dר_2_绰 %!!dר_2_ %(ר_2_֤ %(ר_2_绰 %(dX  %(ר_1_֤ %(ר_1_绰 %(k Exit SubS   %B@H B@n l  B@_ĵoH0ɾ]p]]A@  B@* marks03__''    !%b  '  ' KT '2_ %!!d2_ %!!d2_Ӣ %!!d2_ %(2_ %(2_Ӣ %( '1_ %!!d1_ %!!d1_Ӣ %!!de1_ %(1_ %(1_Ӣ %(d  %(һ_ %(һ_Ӣ %(k Exit SubS`    %B@H B@ B@n l  B@[ĵoɾȨ]] ]8 On Error Resume NextA@  B@* marks11_ҪȨ_' '  00$ !%bL Ȩ  '  ' KT   %!!d8_ %!!d=thisdocument.FormFields("8_").Result = ""  %(8_ %(   %!!d7_ %!!de=thisdocument.FormFields("7_").Result = ""  %(7_ %( 6_ %!!d6_ %!!de=thisdocument.FormFields("6_").Result = ""6_ %(6_ %( 5_ %!!d5_ %!!de=thisdocument.FormFields("5_").Result = ""5_ %(5_ %( 4_ %!!d4_ %!!de=thisdocument.FormFields("4_").Result = ""4_ %(4_ %( 3_ %!!d3_ %!!de=thisdocument.FormFields("3_").Result = ""3_ %(3_ %( 2_ %!!d2_ %!!de=thisdocument.FormFields("2_").Result = ""2_ %(2_ %(d` 1_ %(1_ %(k Exit SubS  00$ %B@H B@ B@n l  B@[ĵoX P&Ҫ꣬ǩڲ¼']]]&;ڰarr_FileNameInfoеݷarr_NameInputеĹ]P]"¼ǩĹʼλ]"¼ǩĹλ(д˺֮ǰѾɾһļ嵥 !%ļ嵥 %B@H B@k Vַʼarr_NameInput涯̬ӵҪarr_NameInputе ;$'    $,$'=4˴õ5ַǷarr_NameInputTemp @=4ôַstrFileNamearr_NameInputֵ$ $($ $($ $($ $($ $( marks15_ļ嵥 %B@H !'v "¼ԺǩĹʼλ R B@ B@̬ı򲿷 >   >$! >$! d B@:һΪstatustextֵڶΪƶ ļ嵥_ >$!_ҳ >$!A@ҳd B@ >$! >$! %( B@ > !'x"¼ԺǩĹλ ! x v  (6BΪӵһǩԱմ˺ʱɾǰӵʹ ! !ļ嵥C@^ 99q ! ( B@o]@Xp]]&;ڰarr_FileNameInfoеݷarr_NameInputеĹ]]8"¼ǩĹʼλ]P"¼ǩĹλ(д˺֮ǰѾɾһļ嵥 !%ļ嵥 %B@H B@kxVַʼarr_NameInput涯̬ӵҪarr_NameInputе ;$'    $,$'=4˴õ5ַǷarr_NameInputTemp @=4ôַstrFileNamearr_NameInputֵ$ $($ $($ $($ $($ $( marks14_ļ嵥 %B@H !'v "¼ԺǩĹʼλ R B@ B@̬ı򲿷 >  ] Selection.TypeText Text:=arr_NameInput(j).itemNum & arr_NameInput(j).itemName & " " >$! d B@"ļ嵥_ļϢ_ļ >  _ļļϢ_ļ >  _ļA@ d B@:һΪstatustextֵڶΪƶ"ļ嵥_ļϢ_ļ > _ҳļϢ_ļ > _ҳA@ҳd B@ >$!ļϢ_ļ >  _ļ %("ļ嵥_ļϢ_ļ >  _# >$!;"ļ嵥_ļϢ_ļ >  _Ϣ# >$!ļϢ_ļ >  _ļ %( >$!ļϢ_ļ > _ҳ %(ļϢ_ļ >  _ļ %! ȨҪ  '9mڼ¼ȨҪ顱СϢλãԱȡֵk= B@ >  ȨҪ B@ B@ȨҪ d B@ļ嵥_A@d B@  $!ļ嵥_ %( B@k< !'x"¼ԺǩĹλ ! x v  (6BΪӵһǩԱմ˺ʱɾǰӵʹ ! !ļ嵥C@^ 99q; ! ( B@o`;] ] ] ] ] ]0 ]H marks05__''   !%b  ':ӱǩ %B@H  R B@ R B@d(: R B@ B@  B@k9 ! l !%^.   ((Ʒ_ʽ_ؼ  _ر (^T#"_" & i & "_ļ" R B@ ! l !%^.locationInFile  ((Ʒ_ʽ_ؼ  _ (^T'"_" & i & "_ļеλ" R B@ ! l !%^. beforeChange  ((Ʒ_ʽ_ؼ  _صλ (^T!"_" & i & "_ǰ"3 Selection.MoveRight Unit:=wdCharacter, Count:=1i Set fldac = Selection.FormFields.Add(Range:=Selection.Range, Type:=' wdFieldFormTextInput)" fldac.name = "afterChange" & ir fldac.StatusText = "Ʒ_ʽ_ؼ" & i & "_ַ" '"_" & i & "_" R B@ ! l !%^.pages  ((Ʒ_ʽ_ؼ _PCTRO134 (^Z!"_" & i & "_"   (k4   (k4   (k4   (kp4 If Pages <> "" Then flddc.Result = Pages End If R B@o33>Attribute VB_Name = "modDya" Sub addShenQingRen() '  Dim fld As For@mField2MXarkg W5J v?1pe#S A#绰k$ Qm 2/ / I {k-A u ַ__g[ &Sptart^- 444 Wit^h2Q. b:=, n:==DefaultSortwdByLocaeShowHiddenpFalsԸ  =h4Mo7A 0c7𷱪All@owOnlysd, :=0orese0True ' (2յ qҡ`DaiLiQ´ҪԪOOOж@Jr γ p7_רq_T3 P.‘e= (@ ?1,??tp2/SI{aax@01,WNdddTextInput "ר_@" & i "_", BKM_DLRInfo  Selection.TypeParagra,ph8 :="t ֤š"=1a';1_ -绰RPNStar0t = - 101$With ThisDocument.Bookmarks.Add Ra`nge:=,P namM@ N@DefaultSorting"wdByLoca ShowHidden FalseEnd )C2I7@ CЙJ;Prot  :=wdAllowOnlyFormFields, Password:=str@>oreset:=True 'ĵ KJ( ).9 >Sub " @FamQren() 'ӷDim fld As GFhXStri I@ntegerBinitBefor@~orDel Aq Unp((#'@a" F = "L0|3_z Q("doc_endx")."O$ BMoveUp U9Line, cXoun4d^iK3cDo WhileT`.Exist s(F+ 1)3 i Loop#O" !? ƫ0 Ї$1& "g1#H!!N +CheckBox "A*\ߺӢ_(Q(%(M)_b__[Cj.߷b}[1L[n.#O.h*B/\/\/\\/\/\eq)\)aoq:s1\ Private \U (D'QCityLG'09041@6pzy U= LhaaYouxianquanSHMa`bl~d bp@b' On Erro r Res Next #c70vQc c11 _Ҫ_ԀTAodAod&# 'odod}`d9sododzat(i, "00")eqepW ?V *q,A+e 'U Se SU1w!Dropdown2$ 'eT*@OLEInlpShape "#A+RightChcterݐ#/q<% V$ _dHo{) ?62!!a {  ?r26u_71,Bf .DefaultSorting = wdXByLocation .ShowHidden FalsepEn@d WithSelecr.StxartT"R HTypeParagrapAoThisDocumen@t.ProtS +:=wdAllowOnlyFormFields, Password:=str , noreset:=True 'ĵ 't3d3'("ҪȨ_" & i"").q [Bookm@arks(MName1at(i, "00")  Sub   Del ShenQRen() ']ɾһ̬ӵO˵oDim fld As m JStri IntegerG0signG initBeforApddor@, AUnpofx'd C%= "O05_6U" i3Do While _.Existai + 1)!Loop - 1y Case i12 If"_s("32_Range.Text <> "" _ Or#û뇿 y!绰  2_Ӫpڵ  7`+ @ֵBB MӢğMd ,@ T`Z we! es`" id dѕ c!%c ؋a|` J@/3?zK/.ROOc?y.>@3-K-E_`1_`_`gO_`eooa.[k_`P_`pA/. 1_`d _`ooa?1._`?TR _`/g ooe_``?C>C2?9`_`O[L~1$`///1_`|00 $_`_?/` bOO_` `?q`?BKM_SQRInf|o)DFuYeed?) ThisDocument._һP0.Text = ""  T FormFields("绰")@.Resul9ŻA]%Ӫڵػҵ,xֵƺ'_ӀaַKE nd If' Exit Sub Case ElseʴBookmarks(M@Name & i + 1).S`election.D@tOC0"Prot Type:=wdAllowOnly, Password:=str, noreset:=True 'ĵ ez A% `& delDaiLiRen() 'ڡɾһ̬ӵĴ˵Ϣ# Dim fld As '&*@StringgiaIntegerasigninitBeforAddor ..98Unp((#'a"A&?07_רl!_Ci3o Whi(le H.Qst=kI)#JLoop - 1C WiC!2aIfD("@2_maHnge<> f_ a Or (%2_! en/*6_%D%$> $ aq2_| OQ~BKM_DLRInfo/~E(|1"__:1,dd7 dddS >dmbnbbbqcbbaSubQaFam [ra '%a_ld__o^¨/^p*^so^3_ d^D^f^ĂO^O^ O^QC_O^:yFƘ ]t ]BWW 첼/c`0c__x2? Th\ i5OrDEo% J0["/[se~ȀUr  }81 B  a1&?fB_k  +&gQa{&FMRInfo).Result = "" ThisDocument.FormFields("һ_"03Ӣ J YEnd If'Exit Sub*Case pElseu rBookmarks(MName & i + 1).Select A ion.Dt?1] ) DProt6 Type:=wdAllo wOnly, Password :=str, noreset:=True 'ĵ2 ;G@H delYouxianquanSHM() 'ɾȨDim fld As GKStringi Integer hOn Error YNexDVinitBeforAddor@T GUnpG=s'A< C'Bw11_Ҫ8_*Di@9Do While e.stʋGat(i, "00")T&DTÂLoopCX- 1È i78IfK)js(FJF1_DS_Count`uange.T/ <> _k P Or "%8&' Then Nt@dQ i?'  a5SQ5̵575Hg5 # 5 L 55 ?5j&a6f+?a@,6 k666aPy  BT$M675oQSOGVp'oQp 9C/4 OG!U' 9{/ | /mF!3 G! 9ooa2oo ooGooo!omooo 9oo6q Jds("@1_").Result = ""  ThisDocument.FormFiel ZEnd If 'Exi t SubCase Else ) Bookma rks(MNa me & at(i, "00")).Select% ion.Dt6b ) IProt6 Type:=wdAllowOnly, Password:=str, noreset:=True 'ĵ22 ;  addFuJ iaQD("fileAs String) 'Ҫ꣬ǩڲ¼'!Dim Ij  IntegerAarr_FInfo() K InputTemp 'ڰэеݷXQ7DanItem G pos1A*Long 'A;@AAĹƀʼλGPos2aG'˺֮ǰѾһƒ (If .stļ嵥")@ en>"`Zes 'ַ@ʼ 7搶̬!Ҫî;> AKSplitY1@x;")g iLBound(#o Ut#a'V (i),/ '`G@õ5!XAV gRemP!|rve j oh'0 }&'䅁 .ifNunmJw0-Code21=a-2B29page3append 4h3Next ics("x15_l=> lᶁ*`MoveRight Uni`wdCharacter, c`a`.1PgrXaphS'5:ı򲿷փ5j5e5f!TaIA:=(j)(&0|" ؉'һΪst atustPֵ^Gt k S_"? 3 _ҳ", , B6/` " (@ O>5n.# =R1jSr-Start-Rv9r g?- 2(- 4ΪeǩԱwaxʱvǰʹӔ~Withwr=C .Add Rang0 g`:=vDefaSort`5wdByL0ocat ShowHiddenpFaVaC _MAS:ShenoQ, m1(RfXmFq> Y . vw"?}ё$utT#kks?^+9] qPa ?trbarr_NameInputֵ  (i).item@Num = hT@emp(0)pCoder199B29page38appendIhnfo:4yN`ext iThisDocument.Bookmarks("14_ļ嵥").Selectapos1; i@on.End'¼ǩĹʼλ "MoveRight Unit:=wdCharacter, coun1 TypeP@ graphC'̬ı 򲿷FoHr j-LBdB(Filefo) To U '8- TUI:=ʛ(j&@ & " 8"C(" 1add# "CIqtϢ"A j + 1"_A|", ,G! 0:'һΪstatustUֵڶ/' ҳ_d#''v6x"ҳ(3joRmFieldo5.`rResult@ZSOK_&D_AHelpKKkKy"#b;XX?A ##"_yB).1ļ 'If AuA"ȨҪr" en Am}'m aE)a0ȡiIf_ ' c̵Bj  !InStr(1, strf䳠HH ) <> 0 anl]ʖWtW_@+b4A:="h!A!y_'C(m - 1).y. #Pos2>WStartA~~"#S=3H- (- ) 'Ϊ|ݑbS(մ˺ʱɾǰʹӴWitfh"ks .Add Range:= , nTpHA X.DefaXSorti$ng wdBy`Locatp%ShowHiddenpFalse MD tASub15Public  rBuzhen@gNR(Op a l 6 As hStr " ql9 Inђbefore_UafPO *P`s<Dim fldfnslo bcյa d^M@iIntegerSS 6= Ӷ05_%@i!Do WhPo,.Existsb(& iHiA_LoopFX417 f'?Z f*QLefON7{UpLine]E2/z2 {InsertRows Collapse r#bBTKc7pSet*7N'AG(OGQH, qh:= _1 1wdҢ1crg1.<=  %"Ʒ_ʽ_i"" '"m+CvēSK//S+et fldlo = Selection.FormFields.Add(Range:=|@, TypX _ wdtTextInput)DA.name"locaInFile" & i &StatusB,Ʒ_ʽ_FJ"" '"H_$ļеp">vMoveRight Unit:=wdCharacter, couǹ 1bcX ئbcbeforeMՂoIaλRVڰFQ'QCQD QaQEIaGRafv R }Rַ^QZSCd%( ;{d'(pagesP_'zPCTRO134ß((If fŽ<> "" Thenca?fn.ResultweEnd Ifc k lo + IwU x& (X 1  ^P?9* "'I " ?I'`nɩSub _;{\xRRME (@ <: <<`H h 0aZh H"hX34N5ַJx%erFa  ##) %`X` B@ NP%` ! xG|j " j B@`$ B@ h8&&?  pex, k X `ָ`  N%` p  Z " H Z'n0`$  ( iݵ NN%`  * P@##i ``  N%`   " 0`$  %%?    ``  N%`  hP " `$  Fx ?  8  ` , p% . i N%`  x ``  N%` `0  2  " 8  `$ X 4 i``  N %` `0  2 p  "  `$  6 x i NX %` +8    i<  ) 8 %`> `$ ``@ `+B )  %+D ` iF  iH  x Pxhx   x Pxhx  x Pxhx  8 x Pxhx   x Pxhx   x Pxhx   x Pxhx   x Pxhx  h [je(*\Rffff*0W658ae0f9\0B (" 08@HPX`hp  "   8 HXh **@ H P ` p" Dx  "0Xp x0 (@` FF0x     " `08 @X h "x   "  (@ P "`     @Xx**      ( " D0 x           "  (  0 8 @ H ` ,x       8 X h F F     (  8  X h " p x  &         " `(       " "   (08@ "`H84  X h 8Xx  " "  "  ( 8 Hh$x  $"   (@ P "`   $B( " 08@HPX ` h*x V (  (48p  * *   0@B HPp ""     (08@HB PX `p    ^^0^HpX]  ]] ]8]X]p]] N !x N!&  N!& '   countrylist  $'  ykk  G|j  ,$'  !0'$  B@8  B@J  $  $ ;$'" "   B@J " $"   !L   , " $"   !L  , kk ' $  (0B@o*8ϢصͼƬalttext,ʼʱȡ]x]]]]]]P N !  N!&  N!& ' ˬ  countrylistA@H  $' ykkxp  G|j$  ,$'   $ $ /- 1 Debug.Print l  $ #!0'$ N!  $ #B@8  $ #B@J!   $ h $ ;$'" obox "   $ #B@J " $"   $ #!L   $ #, " $"   $ #!L  $ #,kkx  Z $  $ #(0  ;o0h-TصͼƬУʽ Ҵ;,Ҵ;,Ҵ;]] N !8! N!&  N!& ' KT  countrylist 8B@countrylist###  N(& y8k0k( o]`]x]]]]]8 N !% N!&  N!& '   provincelist P  $' ;yXkPkH@  G|j  ,$' 8,  !0'$  B@8  B@J  $  $ ;$'" "   B@J " $"   !L   , " $"   !L  ,kk  $  (0oP+8ϢصͼƬalttext,ʼʱȡ]]]] ]8]p] N ! N!&  N!& '   provincelist  $' ykk  G|j  ,$'  $ $   $ #!d'$  $ #B@8  $ #B@J  $  $ ;$'" "   $ #B@J " $"   $ #!L   $ #, " $"   $ #!L  $ #,kk  $  $ #(0  o]@]X $ $  $ # $ #., , !!d $A@dk ox.TصͼƬУʽ Ҵ;,Ҵ;,Ҵ;]] N ! N!&  N!& '   provincelistprovincelist###  N(& ykkoTݵĸʽ ʡ;д;,ʡ;д;,ʡ;д;]P]h]]]]] ]@ N !/ ĵеͼκǶʽͼ N!& +ѡͼεĿѡ N!& '   citylist  $' 0 ,  '0 k@k80 0 G|j 0 $'0 0 ,$'2 2 2  p  2 2 !  $2 ;$'" "  " $"   $ ( 9 "  $"   $ ( B@ "  $"   $ (B@k  ox 'ݵĸʽ ʡ;д;,ʡ;д;,ʡ;д;,split with $$$ if the length large than 3000] ] ] ]( ]@ ]X ] ] $$$$'2 2 'Ҫ N !' N!&  N!& ' H  citylist  2  citylist### $2  N(&   'kH k@ k8 0 ThisDocument.Fields(1).SelectB@o  * xml]@ ]` N ! N!&  N!& ' Ȭ  xmltemplatexmltemplate###  N(& kP kH @ ThisDocument.Fields(1).SelectnInpo x - xml !: !d $'8 "i  ]@ ]X ]p ] ]   !0'$ < 'valueֵstrKeyPжһʡֱϽѡΪֵ򲻽кֵIJ" If strKey = Null Then Exit Sub  B@8  B@J ĵһλһհѡ     $ ! <   B@J $ !  !L   , $ !  !L  ,_k ! $  (0o  !!dGzj$ !l getCode = GetPureResult(fld)( $$'B 4special B z k !l Re !n!0_ڬ'B d'B kzki F 1KTȻ'D Ķ2KTһҵ'D 3KT л'D 4KTרԺУ'D 5KTҵλ'D ni!Attribute VB_Name = "modInitData" Public Type City provinceID As Slng:*nZE,nd^kcfLipst()TtSub Country(comb(oBox) Dim iIntegerlinsh lin@eShapealtniq1strFArrX Value -For Each KIn ThisDocument.InQsRIf.AlternativeText <> "r" enj='R In5(1, , "calj")@1Mid(E15iAExit > IfN8_C(; SubCj@ Split$","H$ e= .+aCleaAddItem\ %riLBLd(!) To U@7 (i)u 9@o;;Aa ) >= : q dby&"f - I1!G($AC 0  JmK ih1ECC !BMȔiਤ@(Paramay"J()) 'ص͠ƬXtZ,ʼaʱȡo??r?bS % ġb???A: ? _???? P? NWQM1âw@~&a/ln1-(n0)H&'P:'Debug.Print lE0T(l)Smb ooSD ``|= SA>zS7S`S/#vVT2T'!Pt”ZUlQ ,@I-1ϯUC= &'2/& set0rMVTVУ@ʽ V;, XC8UOPoOPooa9OPxt r@,OPoTh3xtPi###" &Q{R xw PxObject0_c  ()2r$0spe### #Yųr@#@R§et= 6K@3EC"0 ·+wp/[.nb.^?n)?n?n &a6Arr = Split(strCountryArr(i), ";") If UBd) >= 1 ThenXvcomb.AddItem ""FList(-  - 1, 1)L z;qM0M Ȑ&En0d IfY Ne0xt iaValue[ Sub P@ublic  initProvince(ParDamsay "()) 'ϢصͼƬ@altt;,ʼʱȡHDim i As Integer l inshlineShape StringG )pK*For 0Each@I%In@isDocum@ent.In(s"kB .AlternativerTAh<>@5=R In'( pol"CMid(16Qxit >K?͝C ""; ESuA1j@",~/ZlLCnR0 RT~oFtg 9=X0)(l).a0g$CleaRo(ij) G A @$ C We <3Ɯ(,_rr)N h< ߨMWAmҨI 1B9"lIsperTypq7tmpCobaC`oBox#lPd&OEANotbi) hIs hSet hil6!%1$, Th9(txaE bp, ~901Bzjsetj!^jahjУ ʽ 1j;,#Bi4Occceccc cOD cc y^ = " ###" & DR` !5wCity ؑ ʡdoo"a :q Q"LoLTmp,a@Ko)I;i 'ĵеͼ΀Ƕʠ<Γ  'Ŀѡַߏ-蔫M-c!O8FJ2N$=-& .O-gC-P F: , !ϩ @FReA"2) yq"@(H*3 `:2OH V EGID@(w ,O+޻nam4 +}L ؐm m 'oMoMloMoMfM,s with $$$ if the lengAlargean 3000A$oQ?PQ DW7Ig Dim strTmp As Strin CityArr ()|6Value n = S plit(, @"$$$")iLBound.For Each insh In ThisDocument.InlineSh0apesKIf-.AlternativeText <> "" enaltB1 -In(1, ec@list")!10J <= Ut/H1"8##0#" &鄚(iXi + 13End InfNRC ' cFields(1).Select A Sub Public  setxmlTemplate|) 'A {o HaR;tDCՂ?Ioa99Function gK:h :CYMid(*It@xtXml.v, 9 Z IcomboboxProvinceChange"@YgK, !C!B ox FldNh - 1)ID!F0n@Rmv ic%HG );Cod`e(fld)m[~0.RA59?Dt#g94TypewdB 7h<7700'&8(*Pw:[je(*\Rffff*0w658ae123\0(*\Rffff*0w658ae123\1(*\Rffff*0w658ae123\2(*\Rffff*0w658ae123\3 l p *  lH @H H 6P      (08@H PX`hpx " $(08 .@px $@HPX ` Bx h"  (80@ p     (" 8H(P x   B hH"  0  ( 0@ HXp2   8 " , @ p x   8 ,  8 P h        ( H ` x $   0   *( X p   0    (  0 @ H 6P B           @ "  8@ H X h x .: 6 <H : <"  & "Hp  &$8X`f8Ph   < B , P  ( @ P `h p x  .($(P h 8 PX `pB  xB      0 8 DXB   &(((Px  4 ((8`hpx  *"      (08 @P XB  px   " (08$Px" ^   8Hh   08@" N H & 8P Xh  B   B $  @H P`h " px   (( 0P  4  "  Z 8P!!!!! <!"  !!!"""" "("0"8" @" P" X" p"" " " 4" " #(#0# X8## # ## # 4# $ ($8$H$`$ p$$$$$.$$$ 6% 8% X%p% @% %% &>0&p& x&& &X&' ' '('0'8'P' *h'H''P(P(h(p(x((((((()) )) ) ()8) X)h)x)) )) ) 8)** *0*<8* Px*"  *****+ +<0+p+x+ B  ++++++++++ + + (, (,@,X, p,,!,%&,!,%&,!-%-!(-0-8-"@-!h-%&x-!-%&-!-%-!--...& .H.&X...... .."."./ /(/0/" 8/ @/P/X/x/ /// "  /////////0000 H0X0p0 0402021@1H1P1 p1x111 "  111 11 11111 R1"  H2P2X2`2h2 Xp2 P23 3 B@3 ,3 3 3 B3 ,04 `4p4 ^x4 4 ^4B  X5`5h5p5x555555556 66 6 06@6H6P6X6 x6 66666 6 667 77 7 (7 H7 "  h7p7x7 7 7 777 7 7777 B  778 B  8 8(8(@8P9 B  X9`9h9699 "  99999999::: : 0:@: P: p: : : ::: (; (; ,@; p; *; ; ;; ; ; < (<8< `X<< < < = > = R`= *= == >> 8> H>X>x> >> > >> > >? 0? 8? P?6h? ? ? ? $? @ @ @ (@@@ `@ p@@ `@ @A  A (A8A@A(HA pAA AA A AAA A B 0B @BPB `hB BB C CC  C0(CXC hC C CCC,CC D  D 8DHDPD  XDpD D DD D DDDDD EEE ( E HE"  hEpExEEEEEE *EE EE F F(F 8FPF `FpFxFFF F F .F G(GHGXGpGGGG G GGGG HG 8HXH pHxHH HHH HHH H $H $I "0I XIB  pIxIIIIIIIIIII"I>J2HJ:JJJJ J KKK K0K8K@KXK 2pKK KKKKK pKhL bLL MM8M@M \HMM MM *M N0N8N @N hPNNN  N bN@OXO 4`O*OO dO8P"  @P HP`PxPPPP P "  P PP " P PP " P PP " QQQ(QHQhQQQQQ " QQQR R8R B @R HRXR`RhR "  pR xRRRRRRR "  RRRR R RR SSSS  STTT " T T0T " 8T@T HT XThT "  pT xTT " TTTTT TT T TT UUU U0U "8U@UHUPUXUpUU U~DU"i(V iPV ipVVVV " VVVVVVVWWWW X X 0X 8X,HX xX XFX XXY Y@Y`Y Y  Y YY Y,Y Z Z  Z(Z 0Z@Z B HZPZXZ `Z *hZ4Z ZZZ *[40[ h[[[ *[4[ \ \(\ *0\4`\ \\\ *\4\ 0]P]X] *`].] ]]]  ] ^ ^(^ B  0^ 8^@^H^`^ p^ x^^^ ^ ^^^ ^ ^^_ _ B  (_ 0_8_@_  H_ X_  p_ __ _ _ _ _f======================================================================================================ģ湫ú$created by wangchaoyuan@gwssi.com.cn coundate 2008-06-26f======================================================================================================/ бλκڵǰ]$0' ִڴС]$X'j ִλB@]$] '] ] 0^H^`^x^^^^^^p] '8^P^h^px]$ XMLLoaded'ex] '²Ϊģͨú]$MSXML2.DOMDocument.4.0]$˳ (Public Const strPassword = "1"!& ] ] H(] (ļ嵥ļ嵥õĽṹ H^`p^x$^^ҳ^Ϣ1p]  ] p(] ] (Public strSchemeFile As String8 8'~ ' ;ڵǰλ򣬲strNameָӵƣ" bѡoriFldNameDzοõؼ֣ӵ֤ʽԵȡֵοؼͬP] ! l !%^.  (dh d ($ kP d (^ G|jh $ G|jͼƬ  %A@   B@,o Ӹѡ N] ! Rl !%^. d (coun d (^ G|jylist# $ G|j8  B@ oıx;ڵǰλ򣬲strNameָӵƣN!& bѡoriFldNameDzοõؼ֣ӵ֤ʽԵȡֵοؼͬ]x]] ! Tl !%^.   (d d (k d (^ G|j' $ G|j  %A@  %!V!X!R'   "   %!V%X! !V!XB@^  $   B@Po3 Ӳʼؼе](]HOn Error Resume Next8debug.Print name $Gname='' pʾA@jjForms.ComboBox.1 !% .N' debug.Print 1  N!!( debug.Print 2 N!!(   debug.Print 3  N!!( N!!( N!!( 8 N!!( #B@ N!!( N!!( $ ,@ N!!( ; N!!( N!!($  debug.Print 4  _$. $'   debug.Print 5 $ ܲڵKKT debug.Print 6 N!!A@ 3ʼ debug.Print 7ʡֱϽKT  debug.Print 8  N!!A@* 4ʼʡ debug.Print 9  KTA@d N!! !!d $A@d ZB@8no/жϿؼǷڣڷֵΪtrueΪfalseƖ` h] d %!!d' ' z0 ( ZB@8celist' i:ؼıoriFld֤ԸƵĿؼdesFld !9 !9ʡ !9 !9д' .StatusText = oriFld.StatusText !V!ll !V!\\ !V!5VB@X! !V!5V(е/ .TextInput.Type = oriFld.TextInput.Typeͼ5 .TextInput.Default = oriFld.TextInput.Default3 .TextInput.Format = oriFld.TextInput.Format8q0o(5formƺxmlļ˺Ϊͨúh ]  MSXML2.IXMLDOMNodeList]  MSXML2.IXMLDOMNode]  IXMLDOMNode]0 ]H ]` ]x ] On Error GoTo ldebug.Print Now x $ . , New DOMDocument \$. $'   $' ' $$*b  'h   $' $' '<  id='  '> B@  % .  ! !^ !!dA@ p //  % A@   B@  xmlļdebug.Print Now|   ZB@8 o3createFormXML "c:\a.xml","110101ר.doc" X As MSXML2.IXMLDOMNode ' Object]H ]` ] ] ] ] ] ] ]( ]@ ]X ]p On Error GoTo l _' _ ' ! !  ! ' k KT $  B@ SX b   $_/$`' / '  /$. $' /$. $' % . $$ NOTHING % . % .  B@ k(  _ ' % . _$. $ $  B@ n  ZB@8i  \ Object % . iH  j Object] Object ']  % . (d . iȡǰؼݼ=fldNameֵǵǰؼƣֵǵǰؼ ]P]h]  ' ' ''zk !%v!!!R !%v!%!'  !%v!%!' d !'  !!R  %!    %!    %!'  $  marks  %! %!!d' zkkk ' k`iX#ָƣnameformfieldֵ  !lGKT 0 !n(0S  0A@n|  ZB@8oֽڵ ]] '   $$*Gyj   $$'  $' i]]0c:\a.xml B@//ר % A@ c:\b.xml B@ ohP/Rڵе˳ת䵽ڵ,ڵƲٱ˳,Index2Name෴Ĺ]]]]]( ! $ '  % .  z % .  (  ! B@  A@  ! B@  ! B@ k ! ! A@ koH*BϢе˳ת䵽ڵ,formatNodeIndex෴Ĺ]]]]]  z $ $'  !  % . A@  ! B@  ! B@ k ! ! A@ hk`oX@]  !  B@ iH޸ԭnod As object  ! % ! ' z ZB@8' ip] MsgBox "ڰͻҪƷӹܣӦschemaûƶ湦ҪԺ󷽿ʵ֡", vbInformation, "ʾ" Exit Sub!If testInput = True Then Exit Sub !T !T $xml' A@" .MsgBox "ϣ", vbInformation, "ʾ"o0  ļ嵥_ļ  %!#йҽ׶PCT ( %& ļ嵥_ҳ  %(ypkh`oX5formƺxmlļ˺Ϊͨú]h]]]]]]]]8]X , G|j debug.Print Now On Error Resume Next x $ . (. (0 ----------------------------------------------֤i = CheckInput(errMsg) KT * $h $h  2 ר$j 4 G|jKT * 6 רA@j|@S8n0---------------------------------------------- xmlObj.Load fileName $( 8 B@  ! !  ! ' kxpA@8 A@$  %B@H&˾嵽ģ % A@   !/ If Fld.StatusText = "Ӣ" Then MsgBox "" End If !!d$// / !^_/$` % . $Nothing !^ $B A@  !code= ! nodepath=$ !code=$A@ kd $B  (d !code= !code=$ ! % (d\#˾дxmlģܻ仯kkk]p N ! N!!lW N!!!d$syspara// / N!!!_/$` % . $Nothing N!!!$HB0And Not IsNull(insh.OLEFormat.Object.Value) Then N!!!0$H'd N!!!0'kh N!!! A@ k@d8 N!!!0$H N!!!0 (dkkkk A@: //  % A@  A@<   B@ A@> ԭ* A@@  * ԭͼƬ ZB@8A@ $(2 MsgBox "ϣ", vbInformation, "ʾ"|  ZB@8o3createFormXML "c:\a.xml","110101ר.doc"I''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']]'B // % . $D 'B B  % B $F $ (d^ spicalko(]]]]]A@'B   H 75!'N 5! 'L " For i = 0 To Len(.Result) - 1 5 5%P 5!R   L L  %5!R  B  5d  'B 5!T e B  5d  'B d B 5d 'B kqd N  N  %5!R  B  5d  'B 5!T e B  5d  'B d  B 5d 'B kqkd5!R  B  5d  'B 5!T e B  5d  'B dx B 5d 'B k`kXqP q8 B $`'B B $`'B qA@ B 'D i $(A@ ~ A@X  A@X  $(A@oHH]]] ]8]P'^ '`  7 55!d Z $.'^ ^ ^ 5!d \ '` ^ ` 5!'L L  ^ L ` % ~ A@b  L ` L  ` %(d L ^ L  ^ %(dkk ^  ` Gyjqqxoph d f KT d !(R KT d !(T n qoK''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']`]x] Q mySQCount = GetFlagValue(.FormFields(SQFile_DS_Count).HelpText, "Total=")ImyFJCount = GetFlagValue(.FormFields(FJFile_DS_Count).HelpText, "Total=")q  If mySQCount = 0 Then; Set nod = xmlObj.SelectSingleNode("//ļ嵥")& nod.ParentNode.RemoveChild nod End If If myFJCount = 0 Then; Set nod = xmlObj.SelectSingleNode("//ļ嵥")& nod.ParentNode.RemoveChild nod End Ifo X========================================================================================xmlļװX======================================================================================== ]]( $Gzj $~zP kH t $p A@>  ͼƬԭ*A@@  * ԭͼƬz k $(A@ A@r  A@t 'A@' A@@ " *ԭͼƬ n  t A@v k` A@A@ %B@H $( Debug.Print "finished"z   ZB@8iͬxmlļdocģxmlFileName xmlļ@] 5 '| A@kX z x 7b(0 | A@k qo x %b!0'p i8]x  %!')6type_ type=$ ;country_ country=$ ; province_  province=$ ;city_ city=$ ;country_ country=$ 'i]  %!'country_ country=$ ;'~ i@]H]h]]]]]]]( x $ . (. (0 B@ On Error GoTo l˶̬ // % . ! '   %!$'  (  ) (  $'  ! A@QFormField  !  A@Total=    %A@^A@ k ˶̬ // % . ! '   %!$' Y ECmpPara = InitNewComponentPara(thisdocument.FormFields(BKM_FMRInfoEng).HelpText)     (  $'  ! A@8 NewTableMark = NewComponent(ECmpPara, i + 1)K ReNameFileldsInMark NewTableMark, ECmpPara.SourceComPonentID, iTotal=    %A@^ kȨ̬ // % . ! '   %!$'   ! 1 (  (d( (1k  !   (/ "" &k $'  !    %!%%l!(dkX  ! A@  !  ~ A@Total=   %A@^?A@ k?ļ嵥 //ļ % . ! '    % % . J.xmlObj.SelectSingleNode("//ļ/")   !dA@ k> k>A@//ļ嵥/ % .  ! % !d$ % !d$' A@ k>k>k>Ӹļ嵥 //ļ % . ! '    % % . J.xmlObj.SelectSingleNode("//ļ/") $Nothing  !dA@ k< k<A@//ļ嵥/ί % . ! % !d$ % !d' A@ kH<k@<//ļ嵥/ % . ! % !d$ % !d' A@ k;k; Ʒ //ؼ % . ! '  A@ k;A@|; ; ZB@8:o:"ͨxmlļеΪdocֵxmlFileName xmlļH]]]]]]0]P# Debug.Print "setValueByXmlData" : UnlockDoc x $ . (. (0 B@ ! !  ! ' k99//  % A@   ! !^' // _/$` % . $Nothing $Nothing !lF  !dA@ !lGe !d !n(0k`8kX8kP8kH8@8 N ! N!!lW// / N!!!_/$` % . $Nothing !d N!!(0k7k7x7 LockDoc|X7 P7 ZB@887o07 ֵ1--бδ뷵2--δıо0--δı;sResult--Ϣp]]]](]@]X]x As String]]' 6ƶ B@^һ_һ_ B@^һ_һ_ B@^һ_֤һ_֤ B@^A@ %$'  B@ k44 !R ' k4 N ! N!!lW N!! N!!!  N!!! B@^k04k(4 4 Kһ_K_һ_K"_һ_ܲڵKT *  '* $_һ_ʡֱϽK_һ_Kһ_KT *  '* S2  ' n2 Kһ_Kһ_Kһ_֤KT % A@_һ_KT !("_һ_ܲڵKT !~(n11 * aerrMsg = "ʵд±Ŀ" + vbCrLf & Replace(Mid(errMsg, 1, Len(errMsg) - 1), "_", "/")'k81 [warMsg = "Ŀûд" + vbCrLf & Replace(Mid(warMsg, 1, Len(warMsg) - 1), "_", "/") G'jk0-sResult = errMsg & Chr(13) & Chr(10) & warMsg"õɫΪ' ']If i <> 0 Then MsgBox "õɫΪʵдϢ", vbExclamation, "ʾ"i/ %!H !%  9 9 9 qh/o`/@  ( o@/ PB@o /! B@o/H!]!  %!' country=$' country=$'  province=$' city=$' type=$'   %(o(.!]!  %!' country=$'   %(o-! ',k-i-8" v' 'vd`-' kP-oH-" 8- G|j 5XC@ d-C@k,q,|, -ܱǸCtrlFormVisibleִз  룺 Z!\   Z!  Ƿִкij 2 6 ʾ$j +k+o+" A@ o+8#+ ` B@v ZB@8o+x# .` op+#X+ 9 5$!P!R KT C@Bn+d+ 5$B@ k*q* ZB@8o*@$]$]$]$ ǩ_' ǩ_' ǩ_'   % 7!!d$$ 7!!d$$ 7!!d$$ 7 :yyyy$A@ 7 :mm$A@ 7 :dd$A@kh)q`)oX)$]%] %]X%]p%]%;Ȩ;ʹ;1_;2_;3_;4_;5_;6_;7_;8_' P( ;$' $  $  %!' '  $ --ڸʽȷ 6 A@jd'  $- $- $ 'd ' \-$`' .-$`' -$`' ,-$`' _-$`'kx& X yyyy-mm-dd$'  $  %(d & $ --ڸʽȷ 6 A@jk%k%k%k% o%%]%', ' ǩ_ %!$  ǻǩ_꣡ ' ǩ_ %B@H', k% ǩ_ %!$  ǻǩ_£ ' ǩ_ %B@H', kh$ ǩ_ %!$  ǻǩ_գ ' ǩ_ %B@H', k# _ %!$  ǻ_꣡ ' _ %B@H', k8# _ %!$  ǻ_£ ' _ %B@H', k" _ %!$  ǻ_գ' _ %B@H', k" ,  6 УʾA@jk!i!%]X&]p& $ $*' z!kx!   $' $ ' y !k!  $G' jk i &]&]']'  '      $$    ' kX P   ' i8 0 ߶Attribute VB_Name = "modPub" '=bhģ湫úcreated by wangchaoyuan@gwssi.com.cn&d$ 2008-06-26elic Declare Function FindWow Lib "user32" Alias "A" (ByVal lpClassAs Sng, & ) LongD DSetP os E;hwndEhWndIn,tAfterx y ccwFlagsE2' бλκ AAǰ?Const HWND_TO PMOST@-1A A С SWP_@NOSIZE@ &BH λÒ MDOV 2 hkAllA4Boo8leaeOptAu ForA`ppObjectType ShenQingRe@ str TeEEAƓ Countre CitGtCodeD Address_xPro eeJ$ ES!!"CurFrm !%CobscobGuoJiTex. `PrvcTM/NXMLF Z' I"Loaded dAt2:<'² Ϊ%ͨ%d#] _OBJ_NAMQ"MS 2.DOMDocument.4 .0'SHUNXV˳' KPworda1)JDB n@X!2!Y@DanInf*E'ļ嵥õĽṹFkc tem EnFont9! Supsc"0p PTa2R'ڵǰUcc@^N ָIāѡoriFldοC"ؼ֣K֤ᅡʽԵȡq͈ !add?Input( Sy@].{3h", 6f )Dim 0a@mField |=l5.6$s.T(Re:=Se, q0:= _wdϢ $Ifa <> "" T`I .n!1=eElse_3T`\IfStatus!` Exit @3PNot iRs`st f!(ͧ) lse2S `his&S{sS-Key Unit:=wdLin@!/ .ѡ. $CheckBox$x"Gq" t "+."! D1wzqm!O ~ (ubGıDGRIGGGGNG5LGGGDropdow s/H`o#A-k#8=%A/H%H]iIc RCnJonJngJJ )D)a# J 0Jq K-p<KK+8;K/9_._._. KldGKcK iC@TMeݷName).DropDown.ListEntries.count For i = 1 To iCP\fldvAdd ThisDocument.mFields(oriFld(i).neNext i Selection.EndKey Unit:=wdLine  Sub @Public addOLEInl#Shape(A\ As Sn g)c'Ӳʼؼе ADim insh *aMark. '@On ErrR4es j debug.Print {If TrimU)""en MsgBox "=''", vbInforma, "ʾ"/SeW= [s.jGCo@}ol(ClassType:="ls.ComboP.1")'I,1D.@A at.Objiq.5 2AutoSizeFalsv hJ3XBackCol[= &HE0A ButtonStyl4SpecialEff@8'0X\qginJ3SL-umnC@ HBd \ Height 14.25+how!WhM ~AWidth0 *44a= MDid"Y, I,rRev"_")p + 10KCc( @Case L(A v#"ܲ ڵb"Cb6fb0ryI}[#'Åҁ6j 7g"Ͻ Y8K Prov0inceBʡУ ? 9-),Cob1$,B?*txt sper.Text, 9#:`.ClearBj'Ƿ ڣֵΪtrueΪfFun` isEx fa(str)ABoonc FGolss`a ).RangeMa' t  l:rr$@Ħ!( ''ıc֤Ը@Ŀd$esz u set|S0z(sv, SJWiC6|tryMacro 8#.}xit"hHelpa%HOwHatuA4& StA7!Inpu@t.Edit- 9A:=a, Defauli, !aӔaEY^ ?{!$ Ot.q o+ a+"Cj?ݡ R!WxmlļΪͨ ÑʠcreateQXML(f8ileщ*à, wordFplAa?nodLst!Ac ' MS2.IPDOMNo|deq*cXWGgroot ID cWiAInte4geCW 1ob~j3WPnNowqT= C R(@_OBJ@_NAME)New P I8k"\ ,, 1, Len() - 4I3Do Whp IsNumeric(Qgin)t18iLoopS  i`d S, i.load "<" && " id='A` '>$~1.:ØS leQ.7p5@ Each )In 8C@d C,.V]sӣIndexT. "/zASave @'𱣴D ?.ySybAM  ':H "c:\a.","110`.docVLF( :;, e@, sValue=S) ' As MSXML2.IPDOMNode Object  Dim iInteger droot8 @xtmp #new#Fcur$Fe [rStarAsPath N ŏ= Replace(Mid(q@ti - 1)s~/ uCCPS& "/" &M?3(P= A, bJRev(D )B3 E]r+sSet =eM:S@slc3 1 D U=(O ( )) = "NOTHING"Q CAX^C#@252  bgG0ta.iU(?wS,h egi 4Loop Lpt+fFN+hxA$N l:rr.0CleaAFu nctioPriv % A#+a)A' ($ ZS?SO s , sQ ل {c` 'D5!:.Tc Gqht@ '  'ȡǰؼȀݼƠ`frֵǗ1Q Public%getCurqymControl(  sGlALo_q’'P}PTF3 l" T=[/ PCResulئ["g"Exit&?! =:.Range.Cel`ls(1)Fields.count1Lb7np7 //&̇l  P o isDocum .Bookmark8auTh@ks(t).<= $0q!>aoR 'OEsQ0*gIis@#stf%4) A4`~")/!| sz C'(U*!Ko0 ~ 1^ ?;e:%qgr'ָBOformֵNSub se"ҷ1J, r1NӅ1Cp .ga71oCheckBox.c=‚vaŶ / '3 3Y'ֽڵOdgetIndex(nodName As String, iNumLInteger")| Dim i@*Lene0i(= )1ForG=  To 1ep -1jIf N ot Iseric(MidE )) ThrExit N8Next i = Val > + 1)EFg = 113% End Function Public Sub testxml($objNew MSXML2.DOMDocume@nt40 nlNode@List .Load "c:\a." 2Selec$tSle("//רF"Iave'b'3@/J2format() 'ڵе˳ת,ٱ" ,1෴Ĺ ̃jDbasef@ISattr4 2?Hk j%= E.@D̀[D+<> 0Set += fcreatCp@G>"o  E2Q2, SHUNXV,V .e@ue Gnd."A$ibuY.set0dItem gAddAllChildr`o0nd, h od.Pa@I.In@sertBe`KeRemoveb !UIf .HasAUs+!Eacha,In.g*] fY!BaHHPbeaϢqechb cSµfc cML ~ccH!%RE`7bb>%c &]_S_SB!nAX_SfbM_S_S KR CCSriv`B +"(desO, orioL%`|-!g6od 46 S.append8cs65u6i%qWw%Objo,I: '޸ԭt yOn HErrPGolC&,R0yQvQ({rQ)UÈl:drr.Cleari"} S0{XmlFile @9!+S@'MsgBox "ڰͻҪƷܣӦschemaûƶQҪԺ󷽿ʵ", vbInK 8ʾ  '?InputTrhv !ØThisՓ.Full, rAQ - 3)B"Ep+m`Templ2t 5ϣݿ" P7 GetPages2iP1 w  p>fk Fields("ļǰ嵥_b"O).ResulQ "ʑ@й׶PCT"rҳ#`}(wdAberOf"I^nS1o/ : AID}7@b'Q`˺ͨÑ(f4n!W3 tNLstE oatcSfldm rooS|ID_ @LoaƁ inshQInlineShape err/a ;VerD+False$ =T'debug.1ntw Aq, 0a = CC(@;_OBJ_NAMEt.vali2d0 Onz =  c 4resolveExtern C'-4QT֤=CheckN(c s3 C͕20G>`Chr(1L0!bMJ$IYe}, "vbNoy ub Ca0se 1xMsgBox err$, vbCritical, "ר" p@Exit SElsePEnd Select '-)3' xmlObj.Load fileNaBmhAppltion.ScreenUpdating = FaGolXML getTemplatXFor Each no0d In9ChildNodesS_If. Type4NODE_ELEMENT` Thenr8ootY..bņ` IfNexImatDQGetPagDThisDoc@ument.Fields(1). '嵽ģЁIndex2$F S@NW;(-)C @GflG8 'B4IFld.StatusT@5?Ӣ"JF A}Ĥ"@G@Trim(".Range.) <8> " Setu=Eu;"//" & j& "ReceB2_"/")DGEA&V(z)CeIn Str(1He,lpD`c=") > 00S`B@NFlagValu ( epath , DH%:AK!` w"<) ! P,ar@j{.2s(0)E_) 'oд `loܻ仯|!@m$'Dim tmp A".lTe/ ZElsebTbO? O !6nd If E A U\ A- 2?h???y?AI{7M# :MM[P1!;0_ !CA+ &a ?5uN!iReplace(,xã"؟<b> +0LockGetInvName aFunctioPublic Sub UpdateField(AppaA.ScreDening FFa؃ UnliDeepSetŗaT, psc- "qa}c6aP Priv B(strBegin As StrP , 0sc! TypeDim iqIntegerQ技Long4O/Y= 1C&.o`rmRs(") F orP To Len(.ResxultCS InRev1:/r > 0A7, s7P]A`Fe1t« 02%b2wϯƯ!7@ 2 58R""ump&`<)Us=p&Or' 1T Exit/lAa'4Sub}HObjDBϰ1QFG:wSelect Case sar0;qc/#?F5;KB 3'A^lSome1(ByRef xmloMSXML 2.DOMU40A1WmySQCount>^myFJnodQIpPA#1 'Eg= 0|FlagValue(.XuZSQFile_DS_2).Helpa`v@Total= \' ?_FJ??a R p4I Z . =+.#+Svl"//嵥") ' nod.ParentNode.RemoveChild hEnd IfIf myFJCount = 0 Then6Sett4xmlObj.SelectSingled("//F?Sub|=3T-ӀcUװZ8Public Function loadXml Data(DFiame As (Str)Bo0oleaOn Error GoTo l Dim obj/ feGL@UnSuccessed@}TrimI )x"" Exit,C@ Dir %P@GetProperty(XMLFlagTrueĞ ChangeWord 'ͼƬԭ*FUpdateSpeciaBS '*  F #Appgaf.Screen@aCFalseCUnlockDocsynchrAqocaqDetValue ByyQuit@= Init@CoA@ "N=9iH'* - A= +- |e2B 3 , 8JustEmptyCli@pboardcL!$Thisum.FormFields(1)dcz0›Debug.P@dt "finished"c{Shou ld).wWith?7G+c!=#ot Type <> wdNo@ ? ==Aal_'AIA.CAom#=iesj ).cK=+ nLAA$<24fIy4hvi[ @Ǥ Oriv`g` SQR Mar kStr(HCtmp a!`JTO7B7BKM_TotalPs).HelpTr0"t#_" & 1Z(s, =") + 10t";_Q6"cryn"province/&%??2cit/  2o!NN!YXQO!BCO!"O!XO!K!A!D _Vj ! hStم /0LstDMS j2.IPDOMqLis`]pZNew YI40S*AcNumInteg6ebi_ CommonCmpPapon neE/nt+ TableA><0b#m a? i= 8Cre@F_OBJ_NAMEA.valiOrn seP4resolveExternPOp‘_Ǒb|Ϭ '˶̬v =d qsqQб &=Q".Length#r>Kϳq1= @(_S4SQRInfoU i2 0ES 1.FirstCellTx٪"s(VieW)*%=w (,[ !ReQp3pIn)), J.Source%0P0IDa';#p-sk,i  @3 sTn "b=&qqt0bs@s i5'-L-?---ength If childNum > 1` ThentCommonCmpPara = I@nitNewXp onent,(ThisDocum .FormFields(BKM_FMRInfo).HelpText) '*EXtXdXEnNg [Z i2x Tom.FirstCellTxt"" &#+ 1 TableMarkz( +,zLReNameFilIn" ), M@Source PID+) HFc#."UpdateT@otal "=]P,_GZN iEnd If C'Ȩ̬Set nodLsoxmlobj.SelectNodes("//ɰ"dF=D4.L8ƋYXnQƅQ9i#@KBasunt ,K L:$Z"%%1"+  g5Else?Ko" '+e@e l<> f , 'F Wo%p=B=?µiBoHokms(I).Range. s(1).A(2, @Dl=l q-ߖ+C# Cobs, Geti@!WStrK5Ց[ "sq ColsQA)'!ļ嵥C_/_ `H0,q tmpRccT.item(i -"TSingleQ("T 'VOVuI/ /w Not Is hK Add .SQsEleQ i,.A ,UnlockOd/1 h/ ~ m{g\Trim(i0)d) O""I*0ValHpLAGMARKSuMù00/ /{!{0/{0S0Pk 0st0t00J// 0$Qyp(00O0FJ0q:0 !03S_10%/)N/ί1,o/1////# s ZWTSBHp 2t0 P-AAEoTooX>ڡBackono`oS'#;;;;;addBuzgNR3 -L^Exit S@ub l:Err.Clea(Res  Pͨp0MеΪPֵ@?9a! r@ @Public set`ZueByXmlData(As StrqQDima pMSXML2.IPDOMq?C $BEq  Dim nodeValue As String rootNamlflddFormFieldjxmlobj8New DOMDocument40Hinsh"InlineSh@ape 'e bug.Pt "setByXmlData"BOn Error GoTo l:Unlockn$Set = CreateObject(XML_OBJ_NAME).validnParse = FalsMMresolveExtern!Load>Fi "": w,Rep`lace(8, "_"/")D1C@[YA ) ANothA! 9@u708K EueT ,AI.N @@4 I1\aCheckBox.I J M Q Cd Kke..*870_G;]_"_eI OL"E1at..nKKr( 3m,#,LExit Sub l: .ClearResu`#a ' ֵ1--Уδ 2--#Ӡо0ͦsAlt--Ϣ Public Function bWInput(S)tegeD! ^9 tC# 2 !6errM$sgwa5clACola )e ' iInE,sBFla"Boo`8i&tz cl.Add "<ƱR %һˀ_qaa)֤LfGrayFld4B fw#h]pEcA1tG@etPure&(lsd d=tb b Removem a9Q@count > a(= Tru+TvTTm a.PqR"P{A`a?0.Bo0rder.= wdRedZq(W)KQ C:2?/3C@.-+3ܲڵ"DTF= & " + vpbCrLT "/ʡǀֱϽ<=A;:_ L& "_ Z E6eqDT0#T' m4 NouJChangeI0FF,2os eZPb&6X l.Back 7:1/%__,Bq>ɓ1or~R>J(  '*"lʵдĿ56%Mid(, 1 , Len) - 1),Ww1 u` .o ` /" Ŀû   C ) - 1), "_"@/") If i <> 1 Then,= 2tEnd If'sResult = errMsg & C@hr(13)09wa8hf"ɫΪ "4Che@ckInpuki5'0BoLx VF XȀʵд\@Ϣ|vbExclamation`ʾ @cClHose%(OBa4l bM`Integp = 0 rrp ea 4pSign퐔eɕYP vMonth  = "ǩ_! s _#)Trim(Del 63(|U).R.Ѡ)A"" AcF? ( /" KEv; ra1at(NowPyoӷ ,A3`tmm_ldBV LddJ${!.G8C ,i:LGL7,ArrÒSstrgG atarrg strFormField = ";Ȩ L(ϲx1_$(2(3(4(56*78"On Error Resume NexttmpArrxSplit(, ";") iLLBound() T8o UIf (iL) <> "" The2n 7Th isDocNnt.s4!).^l\1 2!12at_"qLen=!) 8N) MsgBoxI4& "--ڸʽȷ", vbCriticalI: ElseK/ =1ILefi+, (4) ""@Mid2, 5, 2Righ 2uA'AgReplHace"\;".-EE . 4, _End?N#99%M!Xat(CDat&)@jy-mm-dd-'dY#Y+?e%e^fK=\~\h#Aa?%c-! Sub Public Function Ver*) As BooleaDim sAlertAStrinĻd "TrupC"@d1IsFullwidthNumber(U/ "ǩa_"/) wǻx {LfC(?"Selec( Fa/g.Ÿ3=4Ÿi,; )m0:s('n"9_B30)o/ey"o/= 16o/a9i/ ????$&o/e?=?_OoFao/??Ob/(??.Q%b.I4T?.Q$q;OKOnly +h@}Уʾd%qUkln sbEValueln nTmpwiAIntegerS-Trim((oR0oeric= C<2rA@1Exi>tf|e i1W|s = G, i, 1` CharacterB`lɃ?  s oD*61g 0!q& _"R%"c %i_num#`indexPip_lenS= RA_S= SAsc(bS{a@ SA = s+ 1= Next  CharacterLen@ = i_l8+numEnd Function<"@TxME P<<< << <<<  Pp Ht (htl v))il(ix(```z |`%@~  %+h%` ` g`% H%`  ~   )ļ%i0 6 ix  Np %`   )N %ix+`)%@ ````+F @)`h%i@ ```+( id Hi``+(i@ `+h i`  ii``@ `++@ i i8  > 0 ` B  ` ``` @ p i`  SSi i H % h % %``>````8 `$ ``` `` B   (  l HnHr(H(( h @ (h x 0 (( h @ (h x 0 (( h @ (h x 0 x(( h @ (h x 0 (( h @ (h x 0 (( h @ (h x 0 ;@(( h @ (h x 0 (( h @ (h x 0 pxh ( (#[je`0HX " 0`   L 08@ >X *    @X0p(BH P `4h  4 B (0 8H `     "08 " @PX0` " 208 @ P`hp xB *.0 HZX  "   0  P ` h p x B         Z X h p  x    "     ( 8 @ H B P X ` h      B      ( *@  p   @     B     @ `    "        &J@  Bh B p x     "8`  "(4@0x  0  &( PX`h p"   (& "(P(X  . *     " (08@HPX`hpx  " 84P0     (08@Xx6 0T@> (8@PX `*p 4(08@X`h px  "L "  (8 VPx]$1h ]$ SpecialChar ]$ ]$#$# ] (xFʽpic=000009.gif,000010.gif;]]]0]H]h] l "1SetPatḥַָԴļ· lʾA@j!|k l$ ;$밴չ淶ʽύ 6 ʾA@j Ϊ l pʾA@jӿ|0k( lpic=$'z .| |$Nothing |! %!lF z,$'~  ~ " n\ $~'R& ".gif" $~ !! !! %.   xA@dļ' 'ڣ޷أ 6 ʾA@jk dַ lʾA@j|XkPdHַ lʾA@jkko]]]]0]P !'   ! !   !   !' esum  $ $ %.嵥z0k(k kih !!R %(ko$]X]x   !%.N N xA@ʾ N!!'   %B@Ho0^ x x űֻܽ0-100% 6 ʾA@jd N5 x9 5 x9 !qkoͼƬת* ]]]]жResult""ַĸ ]жResultInlineShapeĸ $' $'% !!!R'  ====' !('У,ݣд 6 ʾA@jŶ#Error'!z0k(   $'   ReturnMixFldResult = ReturnMixFldResult & arrTmp(i - 1) & ";" & "AdditionInfo=" &' fld.Range.InlineShapes(i).LinkFormat.SourceName & ";"   $*'   $' ;;;$`' e 'ki½űͼƬת*]]]] $' !!!R'  ' !('У,ݣд 6 ʾA@j#Error'F zk  $'   F  $*'F  F $'F F ;;;$`'F e 'F ki]h]  d Gzj d ' d $`'d d '    'i ]] ;$'  Gzj   $ AdditionInfo=  $'dp tPos= $; $; r'tk(  r t$h'ti(] ' $`' $`' $`' $`' 'iH] ]8]P]h  r$'    $X Pos=$X '   % "\ $X AdditionInfo=$A@ oXM,1;һ_,1;һ_,1;_1_,  %!$ ;1_,  %!$ 'i $KT'һ_KT һ'һ_KTһ˻''&_1_KT˻_ 8 '"91_KT! _ 8 'nXiP ͼƬת*@ ] ] ] ] ] ] A@ 'A@ ;$'B  B $B $B,$. $'  $B $B,$. $'  ; 1 $`' A@Z % $D $F  %(d %$ %(k o *תͼƬ0 !] A@ '  !T'$k0  \$. $' '"  \uncommon.xml$~  \uncommon.xml A@ d  \$. $'  \uncommon'" \uncommon\uncommon.xml$~ \uncommon\uncommon.xml A@ d A@V k k A@o  ]0 ]P ]p ] ] ] ] ] ] ] ]8 ]P ]h ] ] ] x $ . (. Ch (0 e.txtF  B@  //uncommonword % . thisdo ;$'BĿ  B $B $B,$. $' $B $B,$. $'   $'. 1 $`' $D 'ThA@ = Th''8 '$ > $ .Ran  $*'  !  `  % .  % !d  % !d 8  % !d' yk       $;AdditionInfo= ;   $'hd`   $;AdditionInfo= ;' k >  $   'd  'k 8  '8 d  'k $ !L % $A@ cȥ*A@2 A@V % ½ű޸k( t A@ t %!! A@hͼƬ If'tkd = ThA@V kkkx p ZB@8 oX  xmlBC:\Documents and Settings\Administrator\\spz\110101\110101.xmlA@" o( A@ t A@v A@) ԻԭxmlPloadXmlData "C:\Documents and Settings\Administrator\\spz\110101\110101.xml"taoPHAttribute VB_Name = "modSpecialChar" Option Explicit Pub$ Const DocPassword As Sng1t RFolder ^ t 9Repla@ceFlag 3<>klit .#$#(Pos  lSub InsertPic (Para, al Ra2ingl1) 'ʽpic=09.gif,10; Dim iInteger filen vF s9CurFlFor@mFielda rr tmpRpangeAIf =<> "" Then.strPathyMAMsgBox "ȀSet ָ̣Դ·", vbExclamAVn, "ʾ@nExit j%End IfA)Rightp, f3;,밴չ淶AtύAD)Critical((EAΪ" &EV:Infj>:F= GetɠValue>"A,")Fc = get`rentFa-=TypeN(#) (Noth`^Q)Ahis Tum . s$.[). H70KE-R-3=Eacdh In.sQ@7`C1 <= p!>[mA =!RJD%1P? m%Uűֻܽ0-100%^Og&:n 7Q3.Wi,dt*_s .HeѨ/n-?!9q'@Ƭת*\Re#nMix2oAa7]SpTmp.!aC8CPunt0x 'жS""QĸPCa@11®P 3e/0sHChrIn(= `Z$09BK pM0atd%'#lddУ|,Ցaд) @"#Erro) 1` %4f If Count0 > 0 ThenarrTmp = Split(tmpResult, "")N For iL1 To UBd(vH'ReturnMixFlNd5& >(i - 1) & ";"AdditionInfo=_ `k fld.Range.InlineShapes(i).Link^mat.SourceName7o$\*"%Next i.+$place(;;"ArElsze=4E0nd IFu ncjhűͼƬת* Public  Ge t (l As AfField, String)CDimči IntegerGD1N D D= AChrBInn"1S.cA݃$]<>C@JMsgBox "' AnD'У,ځдB|vbCrc al?ʾ(TL1"#ErrorhExit7C%?ae__P e-Yr  qoRe#q,ppiO p@onYByVal @ZBody'a`@ m, Flag BpLong@pLen0bjD = "p" Or! M = (@Ve-$,  -As" (0@/ NodeT`(str ,)-g)# ?# K-U <^O W}}7 O1,z)0;z) }p,V=`:i1Pos0B SubSup( ~PW9M{= DelTail(|, ?!o+ pt?i0 5i 57# A= P1Kda'AU! Q l/3b}S51  Inser@tExcep(#CISStr, ҞStartG#qCcB6wJ!"'Picrc ( , p59n0@Pep -1 Af + C "-H[ue(CP-8@=")csub4 ThisDocumpent.Rt `, Path2\`5od\@ U45Sub Rget(0 Ps",1;һ_T1 Ren (s(BK M_FMRq).Help\);qbstSQ p  ChB!peci@alItem4Ke{numA0ESelect Case LQ$H#%Y31geS' w/k  $˻^~_-# 7_ߡ `w=Ɏ#??5 #' ؉lic Sub ChangeWord() Dim str As StringXTmpArr0ay()thFormField>num2IntegerXitUnlockDoc:= getL  = @Split(&,0 ";"V i0 To UBound(Ck= Mi(i), 1, IbnRev ",") - 1%"!+ !ZtZ~1ZM'}UWReplace~c1", tH&AIfA~F "" 0Then  Thiscument .s ).Resul,GetMixFldC(, InvNa mK1)/Else}(Return/)A"nd If#NXextCCESub '*תͼƬ PubUpdateSpecialData(Optional ByV@filepath@jŵT? = "L>H6ullA3(ρf+f"\e@[rPA= E# Dir( & "\uncommo n.xml<> @)& ,!`DI cwk! ,"BB (iRH)>iFb]j\[6n{YbkZ @Sp!New DOM40Ca nodLsMSXML2.I`NodeLisq$a  SjkAtempC@γ. bue '`y!VtU{P/1-9 t߂Set = CreNObject(p_OBJ_NA MEDr.vali1QOnPars2eNFa9#resolveExterRs?p.L8oad& On Error Go@lC D$= 0.Sel $s("//GweW 5q7aq_ 4 %=I@.|-ϊldϊ=CHoB@VcU:= 1S" 0o:=}S1!j#œLen2  _qt 5DPh)P"*oBpA<} Ck`/.0 gpP?S2p$:iQk ` (.Atbutes(0).T 0 wJ01 )/$el2c Exit ?3nWǞ&7Q& g'< !r$`k#wa;AddiAInfo=" ;'kBm_o R o o ?i {= j +-9>@iI a? /pQʫw unt = tempCo+ 1 End If `Next LIf strVa@lue <>Field Then VsetFo rm&7ThisDocument2.s(X ), GetNodeTg) '*jC" "PSUpdatee '½ű<5xCPoPsStr"< Unlock4)InsertExceptio4n /,j .Range.Start 3 'ͼƬa0= ""S @Else f*"д',GCl:CErr.Clear  Sub   SpecialSCXML(){S xmlcre T@l "C:\s a(Settings\Admini@ator\\spz\110@.bS$CS()LPropGyoFlag, Fa$5LOd'ԭ'loadXmlData|  +PxME(h ꀪ 0h h  `> `$ `  ""`> !0`$ ``` ` `'  X))`> `$  ``   @,,`> `$ `` ` `" `  $ `> `& `( ݵ , 8`>  `$  . `> A@j`$   0 ::`> "`$ FT}"`2 6''`4 nt.F`6 ).Se`8  Us`: Name`< rm1. > `> `$  `@ 7 ꀮXꀬꀜ 8@0X`X8@0X`X8@0X`X8@0X`XX8@0X`X8@0X`X8@0X`X`8@0X`X `0 [je R "x 4  , 0 @ &Px  " $ 8H*X*   20hp  " $8@X h x  >   <( (h      >( <h (  " 4 X`hp"(  (0@ P`hp      8 @ H P h 2             ( 0 8 "@ ` h p x     J  ( 0  8  H  0X      "    " $ 0  8  0H x      "    " $ (  0  0@ p  x    "           8Pp  & 8 X &h  > 0 ,@p x $0 >8 x D  "*8@H Pp     6  (0@] 0X] ] L----------------------------------ʽ֤------------------------------`- Selection.MoveUp Unit:=wdParagraph, Count:=1doc_]]]On Error Resume Nextoo&strFldName = "_1_"==== > $ '$ == $ $*  pʾA@jd > % A@k`kXoP](]@]X]p]]1518λ֤ţ...' H > $ '$ > %$'   $ $ ' G  lʾA@jjxkp  ex $ $ ' G  lʾA@jjcumentk  ˳  Pu  Pa > 'n 1518λ֤ţ lʾA@jõd > % A@kp|hk`kXkPoH]]](]@һһ6λ...'  > $ '$ > %$ > ' $ G|j $ $*   pʾA@jd` > % A@k@7 thisdocument.FormFields(strFldName).Result = ""SendKeys ("{LEFT}") > 'n6'''' ThisDocument.FormFields(strFldName).Select" UserForm1.tmp = strFldName UserForm1.Show|Hk@ $    pʾA@jd > % A@k7 thisdocument.FormFields(strFldName).Result = ""6'''' ThisDocument.FormFields(strFldName).Select > 'n" UserForm1.tmp = strFldName UserForm1.Show|kkoX- Selection.MoveUp Unit:=wdParagraph, Count:=1]]]]@ҲӴ]@EmailеλÊ ]strSubС.ŵλ](On Error Resume Next"strFldName = "һ_" > $ '$ $ $'$ $ |dEmailַʽȷ...'  $ @'  $    pʾA@jd > % A@k > %B@H > 'n|d $  $'  .'" "  "  $ . > 'n   pʾA@j d > % A@k|kkko@֤8λʽ]]] > $ '$ > %$|PkH $ G* j $ $- $ $- $ $'( ( > 'n|*   Ҫȷ... pʾA@jdp > % A@kPoH]]  > $ '$ > %$G|j $ $ $ $'  > 'n  Ҫȷ... pʾA@jd > % A@k`kXoP8]x] > $ '$ > %$G|j $ $ $ $  > 'n  Ҫȷ·... pʾA@jd > % A@khk`oX]]]]0]H]`]x] > $ '$  Debug.Print strFldName > %$'6 6 G|j > __$`'2 2 %$   ݣ lʾA@jd0 > % A@k 2 %B@H|k > __$`'4 4 %$  ·ݣ lʾA@jdh > % A@kH 4 %B@H|(k 6 $*7 ThisDocument.FormFields(strFldName).Result = "" Hֵݣ lʾA@jd > % A@kh > %B@H|Hk@ 2 %$': 4 %$'< : < $p'8 % $ $ $ $ 8  > 'n7 ThisDocument.FormFields(strFldName).Result = "" ֻ 8 죬ȷڣ pʾA@jd( > % A@kko ַ֤ȣ25λʱʾ]]]On Error Resume Next > $ '$ $ G|j $ '@ % @   ַѳ25λ... pʾA@jd > % A@k k o Attribute VB_Name = "modVerify" Public tmpFldResult As Sng,\p*hHintMsgboxdBoolean:RedFHlag '-ʽ֤, Sub validateNumc() ' Selection.MoveUp Unit:=wdParagraph, Coun 1 Dim str u Val\ueeiI@ntegerF'On Error Next 4 '. _1_7= getCurrentFormContprol(&uIf Not Is!) Thed  Hm= Fal\se uBu"", vPbInf"aAV, "ʾ.AE "" NMExclamME@k o88nal/>.+7!aPrn=1߅5Uz7 * xit Sub+#i8e+PostCodea$n?$lһһ6λ[C;eeOp!B[[) -.pldn Dv  #O6E 0mxm ,L@+OmOm?*MOmOmE)OmY%'1tqd.[@"w'SendKeys ("{L`EFT}"W@d{A'`y.1TUserq|1.[@ p6f GShowu5`1]!%60e[r oo00THPQ)//%1 ?űm1.?T5y8SinEmailR##IUUP w'@ҲӴ3Markq"b еȻdo0 'ڐ ࡮.a9*ŜŵcY5V_~_DelChr63Gc8 @7ě=?/>/>Ÿame = st rFldN  Exit SubDElseldMid(Value, Mark + 1)RdotLInS`tr(1,p, "."HIf '<= 1 Or = LenZ.)Right,bUD ThenmPre"$qHint@MsgboxFao&B%Err, vbInformationdʾ" C # ChangOColor8isDocument.F*FieldssA[), wdRed0nd If ځ8EW  invalidDate()'8λʽ@DimH As S`tringJed@VC CW@cgetCu rrEDCont8rol EC qGetPureRes@ult(ThS)""LzHLġ&) <> 8B GoTo el3"C5= 4) & "-"@5, 27ƚ - el:E޶5d_"ҪȷCA..."aHa`` XYear()?VOYC*S$,SL}hS ;` P`Q 1000> 9?\ BsBB`B?yeB CMhD G.mD`.DoDf A<> 12?D+"_s"QC"/t0?"_Csss" 1ppy!= !p|I ")/)nm DaysqInteger p`|1q0Ox O'QDebug.Pts = ?/_ZWU|RC= Re`place8_ l"_Ũ8Hi)_2g2q2vqTuExclaO2O2O2O2O2I2v.Select KĘ#/?m"5?$_JO OOqKLO % OOOOOOﯷc__tNot IsN0ric4})c?A_".?Rg"___ֵ݌ٿbSood%\S_WI^h6sult(ThisDocument.FormFields(strFldMonthName))  Days = Last((intYear, VLXIf V al ue) @< 1 Or (> TThen6gPre~ym x ',).ReA""ZHsgbox False ?!0MsgB"ֻ" &T& "ȷڣ", vbInfation, "נʾ?E7F4ChangwColorEɂl, wdRed%End IfSub   validateInput Len() 'ַ֤ȣ25ʱ/ Dim a As StringFx lenghIn teger!'O`n Err:gme Next-= getCu,rr@Cros ""q Exit ;CC"= C> 25B Fm ARQѳĹQ...6YF.xRRME P@ <<:<h4  ( 0 T@ * B *B HPX` B    l " : "0Hh " p x   "  B P (h *   < @ DX     6  6 8  4@  x   *  *  ( ,@ p x     H   0   ( 0 8 P h  8       B  (08 Pp   "  XHh< " ",@p""    4  "X "  (B  , >H  L  D H X x , >  L h Dx     (0 " 8@ `p "  "  "   "(08 Pp x B  "  RP PX "  "  B   8P$h  2 $ 8"@Xx  0H X h "   (8HPX B N`$ R(h$( Ppx B  P j  "   6 6H  " H     (  0  P p  2        ! ,8! <h! ,! @! ," <H""L" " "# #(# " 0#8#@#H#6P###@#D#@8$x$$$L$P%LX% %% " %%% &&0&8&@&H&h&& "& &&&^^0^HpX] [Eȡվѡ¿ѡеַpart=0ȡǰ벿֣1ȡ벿](]H]` N ! N!&  N!& '      $' henQin 0 ,  '0 kk 0 $'0  0  0 $$$ $' dh 0  0 $$$ $' k8i0xMȡPCTfile²] ]8]x]洢filename-filecode' ] split $ ' G ,$'j     $;$' $  $ ( $  $ ($  $ (  ' iN˹ӦΪprivateA@j] 8B@8>   $ ! $  $ !$ 8B@J @o)˹ӦΪprivate ftitle&fcode $ ' +ȡ ! A@ o$ô˷Ҫָλá]µ ! l !%^. ` L9 ^9^ 9 9q . M Selection.MoveLeft Unit:=wdCharacter, Count:=wdLine - 1, Extend:=wdExtend$ Selection.TypeText Text:="12345"< Selection.MoveRight Unit:=wdCharacter, Count:=wdLine + 5i#=========================ҵ]'   J!%b  'h ' iX  J$ '  J!% J%B@Hd ûҵǩ" "docģ" J!" 6 ʾA@jzxkpdh    J%B@Hk83 Selection.MoveRight unit:=wdCharacter, Count:=1~  Selection.TypeParagraph"  B@ R B@ z 9 iP ( J!( !  C@^ 99q0 R B@ o]Xmarks14_ļ嵥ļ嵥_ҳ_Child $ '   B@x .d B@.ǰкŦ  ! l !B@^$  R B@SPu R B@fo(str ! !d$$'?ļȡļ  %- ļ嵥_Child 9<"Text1"'ǩocum9999 ! ! ! %$9_9 ļ嵥_  9^B"ڵ·"5V Zl ! !d\C@X^ļȬ9qxqp  B@"˴ŵ洦û d B@   ! l !B@^_ R B@A@ %7 ļ嵥_ҳ 9999999 ļ嵥_  _ҳ 9^^ҳTag5V Zl ! !d\C@XZҳ9qq  B@ҳd B@!v   B@   ! !ļ嵥_ҳ_Child C@^ 99q  B@ʡ B@Ͻ op]]] !debug.Print Node.name( !   !   ' x ! $$' k0( ' i  JA@ ,?"marks14_ļ嵥", "ļ嵥_ҳ_Child", thisdocument R B@7   B@ ʾ !d G|j/" ļ嵥" Then Exit SubB@ R B@ R B@o InsertPosMark$  ' DefaultMark InsertPosMark A@  .A@ MarkBody   A@ A@ MarkBody  A@ҳA@ B@o ˵.RecordType0Ϊļ嵥1Ϊļ嵥FieldText1ָļơFieldHelpText1ļFieldText2ָҳ"FieldHelpText2ѡHelpTextH ]( A@  KTļ嵥_ҳ_Child$  'marks14_ļ嵥ļ嵥_ҳ_Child A@  .A@ ļ嵥_ļ  ļ嵥_ļ  A@ A@ ļ嵥_ҳ ļ嵥_ҳ   A@ҳA@ ļ嵥 A@  B@KTļ嵥_ҳ_Child$  'marks15_ļ嵥ļ嵥_ҳ_Child A@  .A@ ļ嵥_ļ  ļ嵥_ļ  A@ A@ ļ嵥_ҳ ļ嵥_ҳ   A@ҳA@   B@  ļ嵥 A@  B@n A@i @   B@  ! ! C@^ 99qX  B@o8  B@o  B@o  >B@o `  ! 1 B@% k ZB@8op  !  1 B@k0 i(  A@  KTmarks14_ļ嵥ļ嵥_ҳ_Child  ļ嵥A@ KTmarks15_ļ嵥ļ嵥_ҳ_Child  ļ嵥A@ nPA@o@@ A@ o  A@ o ] 8P  Gzj     $ '  $ 0  $ 9   'kXP G'j ' i(+Macro67 Macro 'ȼǷѾ˸ҳ 2009-4-9 101893 ¼hӸҳdoc_end %B@H ! ( ! ( l B@ l B@  !! ( !(  !! (doc_end %B@H  !! ( !( B@ҳ B@  !! (o`]] A@' '" " !% " %B@H B@ B@  ' '" A@o8LBmarkbodyֻҪ󵽵һ,recordtype=0ļ嵥1Ϊ嵥]]]]]' & _ļ_Child '( & _ҳ_Child '* ( !%68.FormFields() Is Nothing '.Bookmarks.Exists(tmpMarkBody) ( %.  ; !; !V!\  * %!V!\ҳ;  'J J !, B@J  ' & _ļ_Child '( & _ҳ_Child '* i8]]X   0 5 J If IsNull(.List(.ListIndex, i)) Then .List(.ListIndex, i) = ""d If IsNull(.List(.ListIndex + ChangeStep, i)) Then .List(.ListIndex + ChangeStep, i) = ""5 7'5 . 75 ; 5 . ; 5 . ;q/ frmShenQingRen.ListBox1.ColumnWidths(3) = 0/ frmShenQingRen.ListBox1.ColumnWidths(4) = 0 ZB@8ih0;strParaĸʽtxt11,txt12,txt13;txt21,txt22,txt23;Դ]x]]]]]]]8]P]h2 %!B@f  !!L !    %!! 'd@ !! 'k    %B@j !!R %!  5B@^ Zl\7!VB@Xר_ !_7( Zl\7!VB@Xר_ ! _֤7( Zl\7!VB@Xר_ !_绰7(qp !!R %!! !!R %!! %B@H B@ B@ ! ( o]]] 6 $ ;G 6 6  $'6 j 6 ;$'B Bר__ %!(dר_ _֤ %!(dר__绰 %!(dk  B $B,$' $ ר_  _ %!(d$ ר_   _֤ %!(d$ ר_  _绰 %!(d o@( d B@   B@  ! ! 8 C@^ 99q   B@ R B@op xB@oPHyAttribute VB_Name = "tmpmod" Public Type PCTFil0e $Code As Sng.fBn .Alterabl1 `Endgarres()VorivaFunction Re adTagy(ContentH!, Op(al PartI&hger0^ 'ȡѡ¿ѡеַp#=0ȡ벿֣1ȡ~Dim insh7lineShapalt;>strTemp For Each+In ThisDocumyh.In1s%I f.nativeText <> "" en;%=R In!.(1, , 5_)W1PJMiDd(Leno) + 4)G F= & ",8" & IfNACFA#8, 2@9= 0 3@:Left(E"$$$@") - 1DE|lsD4J !+| 3@A8A6 b GetMoCbIno' ȡy&\aT#wwCpU_@T;'洢 -c` 1 'splitc r=4, (= S(C,aJ.s.˜Msg0n "ûС#ǩ1c"d!e"docģ9oq#@ , vbCrPdcalʾ`1!5"t ft cW-& (x)_A$_9T9u@C?@*\!?xgr8aphEKeyV>D-!HDownJ, c w=yTail('UJ?=nt/ng*W c "_7!e ef, yaa:=9 @&S@orting5wdByLoco.SEhowHidden = False End WithhSelection.MoveRight Unit:=wdCharacter, cou"n&1 |Sub Public  AddNewField s(CurID As Integer)qDimB Name!S`trings orPosGo To ("marks14_ļ@", " _ҳ_ChildThisDocument>#wcKeyuLinTypeText :=Dj& "." 'ǰкC\Forms. RangeL:=, /:= _wd9Input .LefWord$5u 8Be= Trim(M@id(frm1Rec.cobF(ile..(, 7)) 'dȡa.A 3G$GG(1eA.n= t" Z_B'Cua'" 1"`'ǩEntryMacr2o"""Cxitnabled1 TruB OwnHelpA @dJList[Index), 6@S - StatuL'!!':&&fo`s'" ·H$"6;HP!!!Edit?XwdRegular!, De0faulFtx^tFAKF@a"iEA Width@+0#GL{@T˴ŵЃ(:=" "gW{{" {"3iii!CID!/gjgVhgs?]a 7] 'aTaϿ",_E_._PageP_'//?^T^"-.ҳ!.Home3, Extendyv.Bookz cOpDpQ_6_|^*TFSort0BwdByLocaS/joPБgr 0en1 =E) + L8en(= Valb)ȅIfCNC0$gs%DelÐ(T(Q g!pl.`ocObjA, QuitFlag7 d Vuf'"??;t0d4Bh7CneC'#rw= Th E5 '"4 9B"R%PIitǓ7k etelh>S QpH(Inser>tp7SmBody, "ADtPg{w2(i2L""A;! "H2;PXs!Їe¤ i.jPdOne i@&U (yrk22u.!xc1F'˵ '3F 0Ϊ/1ΪBׁ V1ļơ 'FieldHelpText1xh2ָµҳr<ѡHPublic Function AddNewRe cord(Type As Integer, String Opp,alN82")  Dim i ? UnlockDocSelect Case Z " 0 i = GetCurhID("ǂ嵥__Child" ) + 1GoToPos "marks14_ ", ', This^umenjt+ErK=&0 "."gOne, iōB1 &A m"" i"NI!.2M!P 2V ҳ MkLineM{^KZ".ParagraHomeKey Un@it:=wdF, Extend?#KFK)KKEnd # LŖŮ $Sub g([Nam#ĢWith.Book. Range:= , n :=DefaultSortI`wdaBy aAhShowHiddenFalsea"Agy7 %l'`Q!Dan($%fr6m.!UEditDaiLiReFaMfOn Errorlspb N0?sIf NotkProtp Nz= wdNosGenq3g.Unp "1"'0Ifrr.ClearOXD.     AllowOnlyFormRls, Passw:= * orese0?Tr^u(& A 7 % Dte#(rg%v ~ CfbCǢb`v z,\F _j~YDzRsas<!#c`Shenq@4Q= 48 A`i7<= \57).2ҳ i -ig(frmRbS.L{Box2.@DEc@AmoAAHwUBWyAxvhxChangeD(LstObj[ , StepCd, OpAal`artColumn2>uIlOn ErrorBs@ Nith A# ; =JTo .ACountC9'eIf ^Nul l(9Inde@x, i))`Ye n Q`"" G'8  It`1G!tA4E#ed**) Tru;l!*Wd6SheneRen 61Widths(3!0n4 &.Cleap1BatchSaaili(strPara'+pT4ĸʽtxt11,Q2R3; 2223;ҀԴCG1! Qarr9swfogEle7 M0Op 1Cur 勧]&TT1rStALongxSsQ("2").RJlpy%?2>YDaiL"K??<> 3?Qr 7%x0 SSFill2#|lial[TmpArraDX?g URight, 1wI ";" Then strFillText = Left(,Dn @) - 1) TmpArraynSpli pNIf U@Bound(b)d0IMhisDocument.FormFields("ר_" & 2"_").Rang$e.""=U@֤,绰*End LIf] iooarrEles(i)`, ","±i0 + 1Y(0 "_]IE3+aI23Ni  fSub Public @ NewEmptyBookMark(Name As StringSelection.Type:="2 HomeKey Unit:=wdLine, ExtendCÂpWithHA"m$s.Add B:= , n :=DefaultSort MwdaByLoca!hSho wHidd`= False!(Movea#Character, c@ &265Edit S`Q`Ren(2frm.HtxME(<<:< <`+X @iZ `Empti\  ^ %`` x`b a;a;`d b;b;`f '+h @iZ `if  ^ %`` `b `d  j p( )8HP%iZ   il  n )) r P   ^ %` @ %  i<@iVpP%`pP`pPpPpP pP`pPpP [jeB @@HPX`h   (:H  B ,H` p  $08@HPX `hpx " 4  $8 " @ HX`h6p0"   " 8 @P ` h px            ( 08@X p"   " 0 H h   @`      "( 0 8 @ H h            "   0 N4newvalueҪȺ,UpdateRecord("SQRGJ&","flag=888")]]]]] \  \ =$'f ^ ! ^ !&  ^ !&  ^ !& $ Z  ^ !& f '` `   ` ^ !& ;'b ^ !& ` b ` $'d ^ !& `  $ \  ^ !& b $ ^ (& (ypdh ^ !& \ ; ^ (& y@k8k0k(k i]]]] f $ =G f ='f j ^ !9 ^ !&  ^ !&  ' ^ !& $ Z M-dd ^ !& f '` s `   ` ^ !& ;'b ^ !& ` b ` $'d d  d = $'h yd'h ykkkki 8!d; 벻ҪϿ';' lʾA@j 8(d  8B@H|k Z 8!= 8!0A@X op l |k l    %%lB@H  l  R  B@A@n o DelLine Macro 2009-4-15 ¼ !v l 7  9 n 9 p 9 q r 7  9 n 9 p 9 qP t 7  9 n 9 p 9 q  v 7  9 n 9 p 9 q p 7  9 n 9 z 9 q ~ | 7 ( ~ 7 ( 5 ( qx 9 n 9 z 9 qPoH Macro59 Macro 2009-4-15 ¼ v  %!t (XFF %!t B@x  %!t (z ? %!(|  %!(z v  %!(X  %(~ @ %( @ %( ? %! ( ? %! (  %! ( G %! (  %! (  %! (  %! ( վݬ %(& oP]]] t = timeGetTime ^ ! ^ !& ' ^ !&   $aaaaaak(k k MsgBox timeGetTime - tooyAttribute VB_Name = "ģ1" Public Function UpdateRecord(shpFla@g As Sng, NewVa(lue&) 'newv<ҪȺ, "SQRGJ&","fX=88@8") Dim tmpShapPInlin e eiStartteger1EndBody ad p = Left(!z, In"(1, "=")bFor EachdIn ThisDocument.ks5}If.AlternativeText@ <> ""!enLen( ) > 5F4, 6)~ThMc=DVSI?D> 1- izC ,UOf;ŗrA†= MidR, E-2A@UI - 1) &G&\'D#Exit RG Elsk%5"; ay|Ifo?mN`h !% ReadbT1WG7HCmFIn a T e@Right(f,aFa= =h&c_'___E;f_ k_,g%Tj@ ___r__/I1P'xnan +p&U?=qF"C?Y? CxCSubtCob(0Objq=ComboBox, $#s..Q~0{0oMsg "벻Ҫ';'", vbExclam 0onʾ8pSelect?B`ٜe, dna2Fk4H#X ` MergeCells(totalsq>rQ<= 3 On ErrRespsx C @.Tables(1).1!(28p,w- @3) * 61T.MoveUp Unit:=wdL`, counO, Extend DelQH!T( ' ' Macro 2009-4-15 ¼ƃWith O/.Bers(wd!U@1. Styl3Singl Wid= a050p($.8ColPaAutoq*c' !a O rdI n_ _ _ _ e_ #_ _ _ Top? ? p? ? '? ? 1  ? Boto o o S L"h" "HorizonD -T -pWhit2!DiagonalD0own)B8eNonX?4UpTN@one .Borders.Shadow = FalsEnd With$ OptionsDefaultLineSty$lewdSingl 4Wid th4 050pthColor/a WhitSub  Macro59() < ' 2009-4-15 ¼CSelec!.Inluhapes(1).Fill.Visibb}msoSolid"0Transparenc2y~0#.W eight.75?LockAspTRaU(NTrurMH45.4]45.9^?PictureFormat.BrNnessOlContras^TypрD%Auto%ic<1CropLef"^ORG'8TopA'?.Bot`oAlternHveTex"վ`" 60ADim tmpp As 7zc,T St>r (atimeGetTAH Each In ThisDocumentjC! =.'Ifu <> "r" en @Len(c ) > &6ft$, 6)@1"a aK !a/IfmN7D*MsgBox * -  Public  ChangeSQR( ShenQ4RenIDC:teger, Sted<& | `< OpenClipboardO8O1CloseClipboard\$EmptyClipboard(HtimeGetTimexMEl (<<< <+< `@ i+> $ +@ H +& l +B ` iD iF   L  8' % X %`@ @  p  (% P  `A@j x % R   % T  8% `p `@ ` ` `0 ` ` `  p[jePH HH H B  ,(X "` hx "D0xD(0 "8 @*Hx0 " .0@ HX "`hp&  "& 0HPX h`  D $J  F $H 'B Ri A@< A@@ A@> op] ]@]`]xa;a;a;a;a;a;a;a;a;a'b;b;b;b'7' ;$' ;$'   %!!  %!! %! $ (   'X'   %!!  %!! %!  $ !!(d  'o]  9 %!!%  ' N l\ yyyy-MM-dd !VB@Xbbs  ((o ]H]` &'  Ʒ1 %!![ ![ &  o]  !h ! ļϢ [ !!k0(o ]   !Ϊ !^ ļϢ [ !!koAttribute VB_Name = "" PrivalDeclare Function OpenClipboard Lib "user32" (ByVal hwnd As L0ong)CloseR!@Emp ty @time0GetTiwinmm.dllkA!ublicExecLine(sCodexSng,fCheckOnlyBoolean+ 3&Eb .)Ptr1), 0&Abs(.))00 E ZSub Jus2t()Cv(0 ltttDim flFormF0ieldASh"pDInlOSh(apeiCtegerGarr, @CobTextCStr@@8"a;NXco2bb;BSQ RMark7@@Split(, ";"H"  ? EachCIn ThisDocument.Range(km$s(')C .Start, ).^sJAB2.Result`(i$!ii + 1NF-LaA9."F.OLE!at.Object.DDFAhSubAZ  ReYXQ@s\"]F$`M$AG"aO9"= c 2A!9!Input.EditType :=wdD@, Defa=: ="", at`y-MM-ddD^e nbbs" & i@##fdsj'"a!wA `C !PH`e&ĀƷ1Z'@Debug.@ntap.c cc1- t Bfi|nd a'aϡ a @#IfS 1@B`CļϢ") > r0enaI7IfPba `Ftur.R\\(<C_(: +#*"//,SsQO N3WxME P<<<<:+D i^ N%+Hi^hi` N% ( )Z%` h )8 %ib`@P @ ` dX )8x %i@f `@ `F j@ il`in p@ ii r% t8%+ i`ib``d 0 iPi`@h +zP !!i` ib``d | i6 )8  %i~@< ``>`ʐ@ LʐBLF( X  (P (@ X  (P (@  X  (P (@H  X  (P (@  X  (P (@8  X  (P (@  X  (P (@(  X  (P (@ X P ([je    08 B @X`hp x   4     "0X `hp x 6 *( Xhp B Vx $  HXx  B , 4@Xp x B ,  8PX `hpx B   $  B  (08 @Php x    @ `p x  (0 B 8@HPX` x   B   ( H P B X ` h  p     B (      T8 4   4  l        H   0 xH   ` @  B  (0&H*p B ( HPX p`@HP4pl (0 @P HX8`8 X`hp " (@ &`    0 @]$X ]$ ]$]  ] (]] J DKT R'J BKT 'J @KT T'JnX ! Jl !%^.HT H L9 ^9^ 9 JG!X 5n(0X JSe(d .ComboBox.Value = FieldTextd 9kq JStry= N$ ;G N N $'Nj N;$'P L %B@H L %!V!XB@8  P $P L %!V!XB@^ex, pkiLIFixCountָмǹ̶ģotherMarkΧڣڷ˵ı]X]p  \ Z!L > Z! * n  > Z%,'n >atio n n $'n% n;'n i`; ͨõķcomboboxıݵĺ] N ! N!!lW N!!!$H N!!!0$H N!!! ^ N!!!0'DkkkxpihO ͨõķcomboboxıݵĺ] N ! N!!lW N!!!$H N!!! ^ ` N!!(dykkki] Z 5L  ;   ; qi(]]]] 8B@8 8!,$'P bKT  P $P 8B@J KT  P $P;$' 8B@J 8!L ',$  8,%$  8, KT  P $P;$' 8B@J 8!L '$  8,$  8, ni]]]] 8!0$H 8!0'Fkp; A@h ;$'f 8B@8  f  8B@J F 8(0i l n$  n l l n $'lki]]  .r   r%.t tB@H !vB@xi@@`ѡķ(IJ)]] ` %!B@f ! !! ' $h $h ˡ $h $h   %(dDLR_Mark   %!B@^k0 ! !! !! %B@jd !  %!  !  %! %B@jkh  ! !!R'dd8 !  %! %!!R 'dk d %!.n b n!B@^ $h  $h  $h ( !) d %%l!(dq8 d !A@b ! %!! ! %!! %!rB@^ ThisDocument.Range(ThisDocument.Bookmarks("" & frmAddDaiLiRen.DaiLiRenCount).Range.End, ThisDocument.Bookmarks("" & frmAddDaiLiRen.DaiLiRenCount).Range.End).Paragraphs.Add d'i]p] ;$'h h  %!!!R ַ lʾA@jzXkP  %!$h7($h7($h7(qiaѡķ(IJ)] ]8 ` %!B@f >!@, !! ' $h $h ˡ $h $h   %(daFMR_Mark   %!B@^Fk >!@- !! !! %B@jdP >!@  %!  >!@  %! %B@jk  >!@ !!R'dd >!@  %! %!!R 'dkX d %!.n b n!B@^ >!@ d %%l!(dq d >!@ A@N >!@ %!! >!@ %!! %!rB@^ ThisDocument.Range(ThisDocument.Bookmarks("" & frmFaMingRen.FaMingRenCount).Range.End, ThisDocument.Bookmarks("" & frmFaMingRen.FaMingRenCount).Range.End).Paragraphs.Add d'z >!@  >!@ %!!  >!@ %!! %B@k i P ] ] ]( ]@ 6,$'<  < $<$ ~  $<$,' Debug.Print cobDataSourcekP  $ ,   $'k debug.Print cobDataSource  8A@2o UAttribute VB_Name = "ͨģ" Public Const DOCP_COB1dTXT22fHK232urTableIndex A@s LongR0ange  Function NewDocOcx(Typ-Integer, FieldҐ, Op/alPTextWSngL""StatusHelpcobLin!3) Di8m i@U ar rC Select Case q # HK C = wdFormCheckxBox n AurIndexTCount - 1vC<, 0)@(2 5151 5@Next iEnd Select Function Public  Initd1(g As ComboBox, ?Str ing:Dim ^8iInteger atmp`Value' If Not IsPNullC.)p The[҆ ==Rb#tIfDelTailyF1C-_C8ɃACB.Clea2For Each aKK>&  FlagiVRightF( Ben(D )EY= LefL)@L C:= `IϝMergRange(rStart/x, r@ID oc umen`myASet aa=@Iis=.BD.jck.Cellts.ae:nQoNewDaiLiR(SourceMarkm, Obpval @aNtamg)AD$'ѡķ(IJ8H(OLongc$' Tab0leID Th&.Bookms(')&.CopyCOfrma.#= 3/{w cJ B1.!A o( , ).Thr(13) + C!+ ""I#(3 `1 6)!aŀ "DLR_M""e!]  Ur5A NMsgP "ַ", vbExclaЌ0 ʾ2Exitfà YX A .' (Q@esulft@((0E2`a=(3d CA߫Y&FaMѿ p1FX$poH-e- .4(en '@ZEbk?o›o0o'H  ThisDocument.Range(tmp@ + 1,  6).Bookmarks.Add @"FMR_M" ' End IfIf frmFaMingRen.Count <= 4 Then A.k-).PasteEls 1w("Ȱ" &gE)II%aWithsnE^  NewTableID =.s.cm S[CEX)$A%H%Set Cur0!S7(?)L Name) 9OJCell(C1.Text@&#C Re Fiel(ds 3,ݭ, 2cc6JY|= ,KJ? 6 bra graph ~'<zs? - oA@5`@'72y>䨃_!t'X Start o99 ).Dele$x[Function Public Sub InitCityCob(DataSource As Str, Obj!ComboBox, PrvcuDim cobListArr,ay)iInteger  1 e_N)RCgXf;u pe,100701;N)RCgċNbJTBlfN;u pe,110301;SfN)RBlcMRlQ_Xf;u pe,110401;[([gBlfN;u pe,150103;eNO9eeNvыebO9eeN;u pe,150104;9eckOHQCgBlBlfNۏeQV[6k'YVE3u(u ;u pe,150105;9eckыeBlfNۏeQV[6kvVE3u(u ;u pe,150106;sQN_uirOυvf;u pe,150107;b` YOHQCgBlBlfNۏeQV[6kvVE3u(u ;u pe,150120;SHhVElQ^e,goR,g;u pe,150121;SHh-NeoR,g;u pe,150122;~nxvVE3ueNoR,g;u pe,100039;~N3ul5uP[3uBlfN;u pe,110402;SNN)R[gؚ(PPH)yvBlh;u pe,110403;PPHBleckfN;u pe,110404;Cg)RBl[^h;u pe,110405;[^3uCg)RBloR,g;u pe,110406;[^3u[gawfNoR,g;u pe,110407;[^3u[ga_(ueNoR,g;u pe,110408;[^3uCg)RBloR,gыe;u pe,110409;[^3u[gawfNoR,gыe;u pe" ( <cmdAddNewlee(14cmdQuitz4 4cmdSaveAlleeOX[hQ( < cmdModifyleeU$4 cmdClear(0@ lblXSear]n14 txtXSear100006;eckfN;u pe,100007;N)RNtYXbfN;u pe,100008;9(uQBlfN;u pe,100009;^gPBlfN;u pe,100010;b` YCg)RBlfN;y v pe,100011;aHfN;u pe,100011;aHfN(sQN9(u);u pe,100013;dVN)R3uXf;u pe,100015;fckBlfN;u pe,100016;WU_yvSf3ubfN;u pe,100017;-Nbk z^BlfN;u pe,100018;dVOHQCgXf;u pe,100019;:_6RSBlfN;u pe,100020;:_6RSO(u9peQBlfN;u pe,100030;RtfeNBlfN;u pe,100031;RteNoR,gBlfN;u pe,100032;N)Rechg Y6RBlfN;u pe,100033;͑eSg[xBlfN;u pe,100102;3ueNoR,g;u pe,100103; N'N1Ye'`f;u pe,100104;WU_yvSft1uf;u pe,100105;N)R{t:gsQYtQ[;u pe,100106;Nllb$RQfN;u pe,100107;OQ;u pe,100108;vQNeN;u pe,100110;9(uQf;u pe,100111;uirPgeX[;mf;u pe,100112;OHQCglf;u pe,100113;OHQCglf-Ne,g;u pe,100114;~fv(WHQ3ueNoR,g;u pe,100115;~fv(WHQ3ueNoR,guыe;u pe,100118;SHh3uoR,g;u pe,100119;VQOHQCg(WHQ3ueNoR,g;u pe,100120;uirPgeOυf;u pe,100121;[([gSDe;u pe,100122;3uCglf;u pe,100601;>e_N)RCgXf;u pe,100901; Y[BlfN;u pe,100902; Y[eHe[JT z^aHfN;u pe,100903;-NNSNlqQTVV[wƋNCg@\N)R Y[YXTO;u pe,100904; Y[eHe[JT z^eckfN;u pe,101001;N)RCgeHe[JTBlfN;u pe,101222;Y‰VGrbgqGr;u pe,110301;SfN)RBlcMRlQ_Xf;u pe,110401;[([gBlfN;u pe,120101;[(ueWN)RBlfN;u pe,120701;[(ueWN)Rh"}bJTBlfN;u pe,130001;Y‰VGrbgqGr;u pe,130002;Y‰{f;u pe,130101;Y‰N)RBlfN;u pe,130701;Y‰N)Rh"}bJTBlfN;u pe,150101;VE3uۏeQ-NVV[6kXfSf ;u pe,150102;VE3uۏeQ-NVV[6kXf[(ueW ;u pe,150103;eNO9eeNvыebO9eeN;u pe,150104;9eckOHQCgBlBlfNۏeQV[6k'YVE3u(u ;u pe,150105;9eckыeBlfNۏeQV[6kvVE3u(u ;u pe,150106;sQN_uirOυvf;u pe,150107;b` YOHQCgBlBlfNۏeQV[6kvVE3u(u ;u pe,150123;ffNXd;u pe,150125;ffNXd;u pe,150127;Cg)RBlfN;u pe,150129;XdDV;u pe,150130;Cg)RBlfN;u pe,150131;ffN;u pe,150132;ffNDV;u pe,150134;ffNXd;u pe,150135;ffNXd;u pe,150136;XdDV;u pe,150137;Cg)RBlfN;u pe,150138;ffN;u pe,150139;ffNDV;u pe,100905; Y[ z^b` YCg)RBlfN;u pe,100906; Y[ z^^gPBlfN;u pe,100907; Y[ z^cCgYXbfN;u pe,101002;-NNSNlqQTVV[wƋNCg@\N)R Y[YXTO;u pe,101003;N)RCgeHe[JT z^cCgYXbfN;u pe,101004;eHe[JTHhNR_[gBlfN;u pe,150141;ffN;u pe,150142;Cg)RBlfN;u pe,150143;ffNDV;u pe,150147;Cg)RBlfN;u pe,150147;ffNDV;u peq (H  Mf};2(!:(+2<Label1x1)(,2<Label2x1 W(-2<Label3x1$.0txtName1( /0txtUserCodek"$00txtTele1k"(128Label4e1(22DLabel5e1(52DLabel7e1B(62<Label8e1( 70 txtStreetde (82<Label9e1$( 94 txtYouBiane-!(:2<Label101!(;10 txtENamep/5%(<0<Label11e'O%(=10 txtEAddr&%(>0<Label12r%( ?DcobCountrye BL$@8cobPrvcr;,110000;SN^,120000;)Y%m^,130000;lSw,140000;q\w,150000;QSꁻl:S,210000;[w,220000; Tgw,230000;ў_lw,310000; Nwm^,320000;_lςw,330000;Ym_lw,340000;[_w,350000;y^w,360000;_lw,370000;q\Nw,410000;lWSw,420000;VnSw,430000;VnWSw,440000;^Nw,450000;^Xeꁻl:S,460000;wmWSw,500000;͑^^,510000;V]w,520000;5]w,530000;NWSw,540000;υꁻl:S,610000;Uw,620000;uw,630000;Rwmw,640000;[YVeꁻl:S,650000;eu~>T\ꁻl:S,710000;S~nw,810000;/nyr+RL?e:S,910000;oyr+RL?e:S121A8cobCityr;;,110000;110100;^:S,120000;120100;^:S,130000;130100;w[^^,130000;130200;Uq\^,130000;130300;yv\^,130000;130400;^,130000;130500;S^,130000;130600;O[^,130000;130700; _[S^,130000;130800;b_^,130000;130900;l]^,130000;131000;^JW^,130000;131100;a4l^,140000;140100;*YS^,140000;140200;'Y T^,140000;140300;3l^,140000;140400;l^,140000;140500;KfW^,140000;140600;g]^,140000;140700;Kf-N^,140000;140800;ЏW^,140000;140900;_]^,140000;141000;4N~l^,140000;141100;Th^,150000;150100;|TTimyr^,150000;150200;S4Y^,150000;150300;LNwm^,150000;150400;d\^,150000;150500;^,150000;150600;\Ye^,150000;150700;|T&O\^,150000;150800;]f_m\^,150000;150900;LNpQ[^^,150000;152200;tQ[v,150000;152500;!gRv,150000;152900;?bUv,210000;210100;l3^,210000;210200;'Yޏ^,210000;210300;q\^,210000;210400;bz^,210000;210500;,gn^,210000;210600;9NN^,210000;210700;&]^,210000;210800;%S^,210000;210900;e^,210000;211000;3^,210000;211100;v&^,210000;211200;\^,210000;211300;g3^,210000;211400;k\^,220000;220100;%f^,220000;220200; Tg^,220000;220300;Vs^^,220000;220400;n^,220000;220500;S^,220000;220600;}vq\^,220000;220700;~gS^,220000;220800;}vW^,220000;222400;^geꁻl],230000;230100;T\n^,230000;230200;PPT\^,230000;230300;!^,230000;230400;d\^,230000;230500;S-q\^,230000;230600;'Y^^,230000;230700; O%f^,230000;230800;sO(ge^,230000;230900;NSl^,230000;231000;ar9N_l^,230000;231100;ўl^,230000;231200;~S^,230000;232700;'YtQ[\0W:S,310000;310100;^:S,320000;320100;WSN^,320000;320200;e!^,320000;320300;_]^,320000;320400;8^]^,320000;320500;ς]^,320000;320600;WS^,320000;320700;ޏN/n^,320000;320800;m[^,320000;320900;vW^,320000;321000;lb]^,320000;321100;G_l^,320000;321200;l]^,320000;321300;[^,330000;330100;mg]^,330000;330200;[l^,330000;330300;)n]^,330000;330400; VtQ^,330000;330500;Vn]^,330000;330600;~tQ^,330000;330700;ёNS^,330000;330800;b]^,330000;330900;q\^,330000;331000;S]^,330000;331100;=N4l^,340000;340100;T^,340000;340200;Vn^,340000;340300;W^,340000;340400;mWS^,340000;340500;lq\^,340000;340600;mS^,340000;340700;ܔu^,340000;340800;[^^,340000;341000;Ğq\^,340000;341100;n]^,340000;341200;3^,340000;341300;[]^,340000;341400;]Vn^,340000;341500;mQ[^,340000;341600;N]^,340000;341700;`l]^,340000;341800;[W^,350000;350100;y]^,350000;350200;S^,350000;350300;0u^,350000;350400; Nf^,350000;350500;l]^,350000;350600;3o]^,350000;350700;WSs^^,350000;350800;\^,350000;350900;[_^,360000;360100;WS f^,360000;360200;of_G^,360000;360300; aN^,360000;360400;]N_l^,360000;360500;eYO^,360000;360600;pmo^,360000;360700;c]^,360000;360800; T[^,360000;360900;[%f^,360000;361000;b]^,360000;361100; Nv^,370000;370100;NmWS^,370000;370200;R\^,370000;370300;mZS^,370000;370400;g^^,370000;370500;N%^,370000;370600;pS^,370000;370700;MoJW^,370000;370800;Nm[^,370000;370900;l[^,370000;371000;Zwm^,370000;371100;egq^,370000;371200;^,370000;371300;4Nl^,370000;371400;_]^,370000;371500;JW^,370000;371600;n]^,370000;371700;σl^,410000;410100;ѐ]^,410000;410200;_\^,410000;410300;m3^,410000;410400;s^vq\^,410000;410500;[3^,410000;410600;dX^,410000;410700;eaN^,410000;410800;&q\O^,410000;410900;o3^,410000;411000; f^,410000;411100;/ol^,410000;411200; N\^,410000;411300;WS3^,410000;411400;FUN^,410000;411500;O3^,410000;411600;hTS^,410000;411700;{l^^,420000;420100;fkIl^,420000;420200;Ğw^,420000;420300;AS0X^,420000;420500;[ f^,420000;420600;D j^,420000;420700;]^,420000;420800;F^,420000;420900;][a^,420000;421000;F]^,420000;421100;ĞQ^,420000;421200;T[^,420000;421300;]^,420000;422800;i`eW[eׂeꁻl],420000;429000;wvL?eUSMO,430000;430100;l^,430000;430200;*h2m^,430000;430300;Xnmo^,430000;430400;a3^,430000;430500;3^,430000;430600;\3^,430000;430700;8^_^,430000;430800; _[Lu^,430000;430900;v3^,430000;431000;]^,430000;431100;8l]^,430000;431200;`S^,430000;431300;Z^^,430000;433100;XnW[eׂeꁻl],440000;440100;^]^,440000;440200;sQ^,440000;440300;m3W^,440000;440400;swm^,440000;440500;Ul4Y^,440000;440600;[Oq\^,440000;440700;_l^,440000;440800;[n_l^,440000;440900; T^,440000;441200;^^,440000;441300;`]^,440000;441400;h]^,440000;441500;Ul>\^,440000;441600;ln^,440000;441700;3_l^,440000;441800;n܏^,440000;441900;N^,440000;442000;-Nq\^,440000;445100;no]^,440000;445200;c3^,440000;445300;Nnm^,450000;450100;WS[^,450000;450200;g]^,450000;450300;Bhg^,450000;450400;h]^,450000;450500;Swm^,450000;450600;2W/n^,450000;450700;]^,450000;450800;5/n^,450000;450900;sg^,450000;451000;~vr^,450000;451100;:]^,450000;451200;l`l^,450000;451300;eg[^,450000;451400;]]^,460000;460100;wmS^,460000;460200; NN^,460000;469000;wvS~L?eUSMO,500000;500100;^:S,500000;500300;^,510000;510100;b^,510000;510300;!^,510000;510400;eg^,510000;510500;l]^,510000;510600;_3^,510000;510700;~3^,510000;510800;^CQ^,510000;510900;B[^,510000;511000;Q_l^,510000;511100;PNq\^,510000;511300;WSEQ^,510000;511400; wq\^,510000;511500;[[^,510000;511600;^[^,510000;511700;]^,510000;511800;Ŗ[^,510000;511900;]-N^,510000;512000;D3^,510000;513200;?]Wυeeꁻl],510000;513300;u\[υeꁻl],510000;513400;Qq\]_eꁻl],520000;520100;53^,520000;520200;mQv4l^,520000;520300;uIN^,520000;520400;[z^,520000;522200;ܔN0W:S,520000;522300;ԞWS^Oeׂeꁻl],520000;522400;k0W:S,520000;522600;ԞNWSׂeOeꁻl],520000;522700;ԞWS^Oeׂeꁻl],530000;530100;ff^,530000;530300;fV^,530000;530400;sn^,530000;530500;Oq\^,530000;530600;-f^,530000;530700;=N_l^,530000;530800;`^,530000;530900;4Nl^,530000;532300;ZiĖ]_eꁻl],530000;532500;~lT<\e]_eꁻl],530000;532600;eq\Xeׂeꁻl],530000;532800;SHr~Peꁻl],530000;532900;'Yt}veꁻl],530000;533100;_[Peofeꁻl],530000;533300;`_lPPeꁻl],530000;533400;ꏆ^υeꁻl],540000;540100;b(^,540000;542100; f0W:S,540000;542200;q\WS0W:S,540000;542300;eUR0W:S,540000;542400;f0W:S,540000;542500;?̑0W:S,540000;542600;g0W:S,610000;610100;[^,610000;610200;ܔ]^,610000;610300;[!^,610000;610400;T3^,610000;610500;-nWS^,610000;610600;^[^,610000;610700;Il-N^,610000;610800;ig^,610000;610900;[^^,610000;611000;FUm^,620000;620100;pQ]^,620000;620200; V\sQ^,620000;620300;ё f^,620000;620400;}v^,620000;620500;)Y4l^,620000;620600;fkZ^,620000;620700; _c^,620000;620800;s^Q^,620000;620900;Rl^,620000;621000;^3^,620000;621100;[^,620000;621200;GWS^,620000;622900;4NYVeꁻl],620000;623000;uWSυeꁻl],630000;630100;[^,630000;632100;wmN0W:S,630000;632200;wmSυeꁻl],630000;632300;ĞWSυeꁻl],630000;632500;wmWSυeꁻl],630000;632600;gmυeꁻl],630000;632700;shυeꁻl],63000 0;632800;wmSeυeꁻl],640000;640100;]^,640000;640200;w4Vq\^,640000;640300;4T_^,640000;640400;VS^,640000;640500;-NkS^,650000;650100;LN(gP^,650000;650200;KQbsO^,650000;652100;Tju0W:S,650000;652200;T[0W:S,650000;652300; f TVeꁻl],650000;652700;ZS\TXbSꁻl],650000;652800;]^iSꁻl],650000;652900;?KQς0W:S,650000;653000;KQ\[Rςg\KQ\[ꁻl],650000;653100;UN0W:S,650000;653200;T0u0W:S,650000;654000; OrT(KQꁻl],650000;654200;TXW0W:S,650000;654300;?Rl0W:S,650000;659000;wvL?eUSMOUSl(B2LLabel13r$C0txtPID3r(D2<Label14r $E0txtEmail $F4cmdClear$$( G4cmdModifyye$(H0TlblAlarm%, I;4 cmdAddNewye/$p DJPcobUsertype;,1;'YNb!h,2;yxUSMO,3;]wON,4;NNUSMO,5;*NN$K4cmdQuitmi+$, LDcobActAddress1'(M2H Label6tm  PKKSKSK!  %Di^$^l 44hdT q$$h,:T, 5  cgq laNy cknxkXQ,ghThdkFh1uV[wƋNCg@\kXQ eq \o\ac(%,5)(u7bHhwSS FORMTEXT       eq \o\ac(%,1)V[3uS eq \o\ac(%,6)VE3uS FORMTEXT       eq \o\ac(%,7)VE3ue FORMTEXT       eq \o\ac(%,2)Ne eq \o\ac(%,8)OHQCge FORMTEXT       eq \o\ac(%,9)VElQ^S FORMTEXT       eq \o\ac(%,3)9Q[yb eq \o\ac(%,10)VElQ^e FORMTEXT       eq \o\ac(%,11)VElQ^ FORMTEXT       eq \o\ac(%,4)cSSx eq \o\ac(%,12)Sf Ty FORMTEXT       eq \o\ac(%,13)SfNSfN1 FORMTEXT       FORMCHECKBOX  NlQ^Y TSfN2 FORMTEXT       FORMCHECKBOX  NlQ^Y T eq \o\ac(%,14),{NSfNVM|b0W:S FORMTEXT      NNSx FORMTEXT        eq \o\ac(%,15) 3u N FORMCHECKBOX hQSO3uNBl9(uQ4N][b9(uQ4DyOO(uNx FORMTEXT       5uP[{ FORMTEXT      VM|blQV[0W:S  FORMTEXT      ~8^E\@b0Wb%N@b@b(W0W  FORMTEXT      w0ꁻl:S0v^ FORMTEXT      ^S FORMTEXT      ~0W@W  FORMTEXT      ?ex  FORMTEXT      5u݋ FORMTEXT      3u N (2)Y Tb Ty FORMTEXT       3uN{|W FORMTEXT      NNSxb~N>yOO(uNx FORMTEXT       VM|blQV[0W:S  FORMTEXT      ~8^E\@b0Wb%N@b@b(W0W  FORMTEXT      w0ꁻl:S0v^  FORMTEXT      ^S  FORMTEXT      ~0W@W  FORMTEXT      ?ex  FORMTEXT      5u݋ FORMTEXT       eq \o\ac(%,16) T | NY T  FORMTEXT      5u݋ FORMTEXT      w0ꁻl:S0v^  FORMTEXT      ^S FORMTEXT      ~0W@W  FORMTEXT      ?ex  FORMTEXT      5uP[{ FORMTEXT       eq \o\ac(%,17)NhN:N^,{Nr T3uNeXf yrXf,{ FORMTEXT     r T3uN:NNhN eq \o\ac(%,18) N )R N t :g g FORMCHECKBOX Xf]~N3uN~{NN)RNtYXbfNN,gh-NvOo`NYXbfN-Nv^Oo`N Ty FORMTEXT      :ggNx FORMTEXT      N t ^ (1)Y T FORMTEXT      N t ^ (2)Y T FORMTEXT      De_N)Rl[e~R,{57agĉ[v;NRO9evCg)R0 eq \o\ac(%,29)XdDV c[ffNDV-NvV FORMTEXT      :NXdDV0 eq \o\ac(%,30)3ueNnUS ۏeQXf N u ffNXd N u Cg)RBlfN N u ffN N u ffNDV N u PCT/RO/134h N u {:gSb__8hxT/b(lWx^Rh N u Cg)RBlvype y  eq \o\ac(%,31)DReNnUS  FORMCHECKBOX  cN)RT\Oag~,{19agO9ev-Neыe N u  FORMCHECKBOX N)R'`VERekbJTPCT,{Nz DNv-Neыe N u  FORMCHECKBOX  cN)RT\Oag~,{28/41agcQvO9e N u  FORMCHECKBOX N)RNtYXbfN N u ;`YXbfNYHhS_____________  FORMCHECKBOX [([gBlfN N u  FORMCHECKBOX 3uCglf N u  FORMCHECKBOX 3uCglf-NeU_ N u  FORMCHECKBOX OHQCglf N u  FORMCHECKBOX OHQCglf-NeU_ N u  FORMCHECKBOX WU_yvSf3ubfN N u  FORMCHECKBOX uirPge7hTOυf N u  FORMCHECKBOX uirPge7hTX[;mf N u  FORMCHECKBOX uirPge7hTOυSX[;mf-NeU_ N u  FORMCHECKBOX W ODnegnb2{vh N u  FORMCHECKBOX ~nxvVE3uoR,g N u  FORMCHECKBOX (WHQ3ueNoR,g-NeU_ N u  FORMCHECKBOX (WHQ3ueNoR,g-Neыe N u  FORMCHECKBOX ]YHhvfeN N u (feNYHhS_____________) eq \o\ac(%,32)hQSO3uNbN)RNt:gg~{W[bvz  FORMTEXT        eq \o\ac(%,33)V[wƋNCg@\[8ha  FORMTEXT     t^ FORMTEXT   g FORMTEXT   e FORMTEXT     t^ FORMTEXT   g FORMTEXT   e N0VE3u ^g(W-NV_N)RObv ^S_(WN)Rl[e~R,{120agĉ[vgPQRtۏeQ-NVV[6kKb~0RtۏeQV[6kKb~v ^S_&{TN)Rl[e~R,{121agvĉ[0 N0RtۏeQV[6kKb~e^S_cNVE3uۏeQ-NVV[6kXfSCg)RBlfN0ffN0ffNXdv-Neыe gffNDVv^S_cNffNDVoR,g v^4~vsQ9(u0hyOO(uNxbNNSx3uN/fYVN0YVONbYVvQN~~v ^S_kXQvQY Tb Ty0VM|blQV[b0W:S03uN{|WSN NR{|W-N bkXQ*NN0ON0NNUSMO0:gsQVSO0'YNb!h0yxUSMO03uNBl9(uQ4N][b9(uQ4De_;NRO9eCg)Rv ^S_kXQdkh0 22.,gh,{29h VE3u gXdDVv ^S_kXQdkh0 23.,gh,{30031h 3uN^S_ c[EcNveN Ty0Npe0upeSCg)RBlypecknxkXQ0 24.,gh,{32h YXbN)RNt:ggv ^S_1uN)RNt:ggRvlQz0*gYXbN)RNt:ggv 3uN:N*NNv^S_1u,gN~{W[bvz3uN:NUSMOv^S_RvUSMOlQz gY*N3uNv1uhQSO3uN~{W[bvz0 25.,gh,{13015022024025h SfN03uN0BlOHQCgXf0sQNc_ReQvf0uirPge7hTOυvQ[,ghkXQ N Ne ^S_O(uĉ[kbvcTNRYbV[wƋNCg@\N)R@\4~049e^S_Qfcknxv3uS09(u TySRyё *gcO NOo`vƉ:N*gRt49Kb~0N49fY~Oo`SRt49NR {vU_V[wƋNCg@\[eQz0 5. *g c Nĉ[Rt49Kb~v @bNuvl_Tg1uGl>kNbb0 SfN)RBlfN VE3uۏeQ-NVV[6kXfSf PAGE  PAGE 1 150101 2023.03 SfN)RBlfN VE3uۏeQ-NVV[6kXfSf laNy PAGE 1 150101 2023.03 49{w "$&(*,.FJLN`bhjntvx̿yme]QIA;6OJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJnHtHOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJUCJOJPJQJo(aJ5CJOJQJo(CJOJPJQJo(aJjUCJOJPJQJjTUCJOJPJQJjUCJOJPJQJjUCJOJPJQJjUCJOJPJQJCJOJPJQJo(aJ ÷~rjbZRLGOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJUCJOJQJo(aJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJUOJQJo(aJ OJQJUOJQJ OJQJUjUOJQJ     $ & ( : < B D N P R f h j t v x z | ûysnhaYRJOJQJo(aJ OJQJaJOJQJaJU OJQJaJ OJQJUOJQJ OJQJUj UOJQJOJQJ OJQJU OJQJaJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJUOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUjd UOJQJ  ļztoib[SLDOJQJo(aJ OJQJaJOJQJaJU OJQJaJ OJQJaJ OJQJUOJQJ OJQJUj| UOJQJOJQJ OJQJU OJQJaJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJUOJQJo(aJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEH    " $ & : < > H J L N P b d j l t x z | ɽzrjbZRKCOJQJo(aJ OJQJaJOJQJaJUOJQJo(aJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJU OJQJaJ OJQJUOJQJmHsHnHtH OJQJUj UOJQJOJQJ OJQJU OJQJaJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEH      ɽ|ume^XSGA OJQJUj& UOJQJOJQJ OJQJU OJQJaJOJQJo(aJOJQJaJU OJQJaJCJ OJQJaJEH OJQJaJOJQJaJU OJQJaJ OJQJaJ OJQJUOJQJmHsHnHtH OJQJUj UOJQJOJQJ OJQJU OJQJaJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEH & ( * , . @ B H J R V X l n v x ºuojd\TM OJQJaJOJQJaJUOJQJo(aJ OJQJUOJQJ OJQJUj UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJUCJ OJQJEHU OJQJaJOJQJo(aJOJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJU OJQJaJ OJQJUOJQJ    & ( * 4 8 : @ B D }qke_XRMG OJQJo(OJQJ OJQJo( OJQJaJ OJQJo( OJQJo( OJQJUj*UOJQJOJQJ OJQJU OJQJo( OJQJUOJQJ OJQJUj UOJQJOJQJ OJQJU OJQJo(OJQJ OJQJo( OJQJaJOJQJo(aJOJQJaJU OJQJaJOJQJo(aJ OJQJaJCJ OJQJaJEHD F Z \ ^ h j l n ƺ}usljd^YMG OJQJUj$UOJQJOJQJ OJQJU OJQJo(o( OJQJaJo(OJQJaJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ OJQJaJOJQJaJU OJQJo( OJQJo( OJQJUjvUOJQJOJQJ OJQJU OJQJo( OJQJUOJQJ OJQJUjUOJQJOJQJ OJQJU " $ . 0 4 6 8 : L N V X Z \ ^ ` b d f h j l n ztnhb\VP OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo(OJQJOJQJ OJQJU OJQJo(CJOJQJo(EH OJQJo(OJQJ OJQJUOJQJOJQJ OJQJUOJQJ OJQJUjUOJQJOJQJ OJQJU OJQJo(OJQJ OJQJUOJQJn p r t   024¼~xrlfaUO OJQJUjPUOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJUOJQJmHsHnHtH OJQJUjUOJQJOJQJ OJQJU OJQJo(o(o(o(o( OJQJo(OJQJo( OJQJo(OJQJaJUjNUOJQJaJ OJQJaJOJQJaJUOJQJ OJQJo(4>@DFHfh|~Ϳumf^XRLF OJQJo( OJQJo( OJQJo( OJQJo(OJQJaJU OJQJaJOJQJaJUjxUOJQJaJ OJQJaJOJQJaJU OJQJo(OJQJo(aJOJQJo(aJOJQJaJU OJQJaJOJQJaJUjUOJQJaJ OJQJaJOJQJaJU OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJ "$&:<>HJNPRdfh|~ſysnb\WQK OJQJo( OJQJUOJQJ OJQJUj>UOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUjUOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUj6UOJQJOJQJ OJQJU OJQJo($ſyqke_YQJ OJQJaJOJQJaJU OJQJo( OJQJo( OJQJo( OJQJo(OJQJaJU OJQJaJOJQJaJUjFUOJQJaJ OJQJaJOJQJaJUOJQJo(aJ OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUjUOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJo($&(246:<PRT^`dfhjlnprxzƾ{upjd^XVPKOJQJ OJQJUo( OJQJo( OJQJo( OJQJo( OJQJo(OJQJ OJQJo(OJQJ OJQJo( OJQJo( OJQJo(OJQJaJU OJQJaJOJQJaJUjUOJQJaJ OJQJaJOJQJaJU OJQJo( OJQJo(OJQJaJUOJQJaJmHsHnHtHOJQJaJUjUOJQJaJ.02<>HL~xrma[VPJEOJQJ OJQJo( OJQJUOJQJ OJQJUjUOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJmHsHnHtH OJQJUjUOJQJOJQJ OJQJUOJQJ OJQJo( OJQJo(OJQJmH sH OJQJUOJQJmHsHnHtH OJQJUjlUOJQJLNPhjl  ztnhb]QK OJQJUjUOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUjUOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUjpUOJQJOJQJ OJQJUOJQJ OJQJo( OJQJo( OJQJo(  (*,@BDNPTVXdfz|~ƿxqc[TLF OJQJo(OJQJaJU OJQJaJOJQJaJUjUOJQJaJ OJQJaJOJQJaJUOJQJo(aJ OJQJo( OJQJo( OJQJo(OJQJaJU OJQJaJOJQJaJUj"UOJQJaJ OJQJaJOJQJaJU OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJmHsHnHtH ȹyqkc\QJBOJQJo(aJ OJQJaJCJ OJQJaJEH OJQJaJOJQJaJU OJQJo(OJQJaJU OJQJaJOJQJaJUjh!UOJQJaJ OJQJaJOJQJaJU OJQJo( OJQJo(OJQJaJUOJQJaJmHsHnHtHOJQJaJUj UOJQJaJ OJQJaJOJQJaJU OJQJo( OJQJo( OJQJo( "02FHJTVX\^rtvƾ}qkf`ZTNH OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUj"UOJQJOJQJ OJQJUOJQJo(aJ OJQJo( OJQJUOJQJ OJQJUj "UOJQJOJQJ OJQJUOJQJo(aJ OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo(OJQJaJU OJQJaJ  ",.24ſ}xlfa[UO OJQJo( OJQJo( OJQJUOJQJ OJQJUj"$UOJQJOJQJ OJQJUOJQJo(aJ OJQJo( OJQJo( OJQJUOJQJ OJQJUj#UOJQJOJQJ OJQJU OJQJo( OJQJo( OJQJo( OJQJo( OJQJUOJQJ OJQJUj#UOJQJOJQJ OJQJU4>@TVXbdfnp|qjb[SKCOJQJo(aJOJQJo(aJOJQJaJU OJQJaJOJQJo(aJ OJQJaJCJ OJQJaJEH OJQJaJOJQJaJU OJQJo( OJQJUOJQJ OJQJUjz%UOJQJOJQJ OJQJUOJQJo(aJ OJQJo( OJQJUOJQJmHsHnHtH OJQJUj$UOJQJOJQJ OJQJUOJQJo(aJ 268LNRTVXZ\^`bdfhjlnȽwog_WOGOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJaJU OJQJaJOJQJo(aJ OJQJaJCJ OJQJaJEH OJQJaJOJQJaJUOJQJo(aJOJQJo(aJUUj &UUOJQJo(aJnprt  ,.0:<@ºzrlg[UPJBOJQJo(aJ OJQJUOJQJ OJQJUj'UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUj`'UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJo(OJQJo(aJUj&UOJQJo(aJOJQJo(aJOJQJo(aJU OJQJaJOJQJo(aJ@BDFHJLNTVbdxz|ǿwog_WOGOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUj(UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJ (ǿ}wog_WQLOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUj)UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUj:)UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJ(*,68<>@LNbdfprtv¼|wke`ZRHOJQJo(aJUOJQJo(aJ OJQJUOJQJ OJQJUj+UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUj<+UOJQJOJQJ OJQJUOJQJo(aJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJUOJQJ OJQJUj*UOJQJDJfhjl»yrjcUME=OJQJo(aJOJQJo(aJOJQJaJUj$-UOJQJaJ OJQJaJOJQJo(aJ OJQJaJOJQJaJUOJQJo(aJOJQJo(aJOJQJo(aJmH sH OJQJo(aJOJQJaJUj,UOJQJaJ OJQJaJOJQJaJU OJQJaJOJQJo(aJOJQJo(aJUOJQJo(aJCJ OJQJo(aJEHOJQJo(aJ:>@TVX\^`b~»~vod]USKD OJQJaJOJQJo(aJo(OJQJaJU OJQJaJCJ OJQJaJEH OJQJaJOJQJaJUOJQJo(aJOJQJo(aJOJQJaJUj.UOJQJaJ OJQJaJOJQJaJUOJQJaJU OJQJaJOJQJo(aJ OJQJaJCJ OJQJaJEH OJQJaJOJQJaJUOJQJo(aJCJOJPJQJo(aJDFJLhjlºqiaRJH?j0UUOJQJo(aJOJQJaJmHsHnHtHOJQJo(aJOJQJaJUj/UOJQJaJ OJQJaJOJQJaJU OJQJaJOJQJo(aJOJQJaJUj@/UOJQJaJ OJQJaJOJQJaJUOJQJo(aJOJQJo(aJOJQJo(aJOJQJaJUj.UOJQJaJ OJQJaJOJQJaJU"$&Z\^`tvxrjbSOJQJaJmHsHnHtHOJQJo(aJOJQJaJUjP3UOJQJaJ OJQJaJOJQJaJUOJQJaJmHsHnHtHOJQJo(aJo(UUjf2UUOJQJo(aJ OJQJaJOJQJo(aJo(UUj1UUOJQJo(aJ OJQJaJOJQJo(aJo(UU &(*,@BDNPxz|~,wurjOJQJo(aJUUj6UUOJQJo(aJ OJQJaJOJQJo(aJUUj5UUOJQJo(aJ OJQJaJOJQJo(aJUUj4UUOJQJo(aJ OJQJaJOJQJo(aJUUj4UUOJQJo(aJ#,02NPRVXZ\prt~(ôzxumf^\SQUj9UUOJQJo(aJ OJQJaJOJQJo(aJUUj9UUOJQJo(aJ OJQJaJOJQJo(aJUUj@8UUOJQJo(aJOJQJaJmHsHnHtHOJQJo(aJOJQJaJUj7UOJQJaJ OJQJaJOJQJaJUOJQJaJmHsHnHtH(*TXZvxz(*,.BDxvskd\ZQjr=UUOJQJo(aJ OJQJaJOJQJo(aJUUj<UUOJQJo(aJ OJQJaJOJQJo(aJUUj;UUOJQJo(aJ OJQJaJOJQJo(aJOJQJaJUj:UOJQJaJ OJQJaJOJQJaJUOJQJaJmHsHnHtHOJQJo(aJUDFPR|ý{uoib\VP OJQJo( OJQJo( OJQJo( OJQJaJ OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJo( OJQJU OJQJo(CJOJQJo(EH OJQJo(OJQJ OJQJUOJQJo(aJOJQJo(aJUU     $ & ( D F H v z | ~ ûwogb\VNFOJQJo(aJOJQJo(aJ OJQJo( OJQJo(OJQJOJQJo(aJOJQJo(aJOJQJaJUjl>UOJQJaJ OJQJaJOJQJaJUOJQJo(aJOJQJo(aJOJQJaJU OJQJaJOJQJo(aJ OJQJaJCJ OJQJaJEH OJQJaJOJQJaJUOJQJ OJQJo(OJQJ OJQJo(OJQJ wog`[UOGOJQJo(aJ OJQJo( OJQJo(OJQJ OJQJaJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJo( OJQJo(OJQJ OJQJaJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJo( OJQJo(OJQJ OJQJaJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJo( OJQJo(OJQJ OJQJaJOJQJo(aJ !!ǿwj_RE8B*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phCJ OJQJaJEHB*phOJQJaJB*phOJQJaJUOJQJ@mHsHnHtH OJQJaJOJQJo(aJOJQJo(aJOJQJo(aJ OJQJo( OJQJo(OJQJ OJQJaJOJQJo(aJOJQJo(aJ!!0!2!4!!!!!!!!!!!!!dztg\OD7,B*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJ'B*phOJ^Jo(aJKHmHsH\B*phOJQJaJU$j>UB*phOJQJaJB*phOJQJaJB*phOJQJaJU!!!!!!"""""""("*","."B"D"F"P"·|upi^WRE>9 B*ph B*phUj@UB*ph B*ph B*phUB*phOJQJaJ B*phU B*ph B*phUj?UB*ph B*ph B*phU B*phOJQJo(aJmH sH  B*phOJQJo(aJmH sH B*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJP"R"T"V"j"l"n"x"z"|"~"""""""""""""""xsf_ZSHA B*phUB*phOJQJaJ B*phU B*ph B*phUjXCUB*ph B*ph B*phUB*phOJQJaJ B*phU B*ph B*phUjfBUB*ph B*ph B*phUB*phOJQJaJ B*phU B*ph B*phUjtAUB*ph B*ph B*phUB*phOJQJaJ B*phU""""""""""#### #"#$#8#:#<#F#H#J#Ͼvoj]VQJ?B*phOJQJaJ B*phU B*ph B*phUj.FUB*ph B*ph B*phUB*phOJQJaJ B*phU B*ph B*phUj$@$B$ɺ}pcXE8B*phOJQJaJU$jJUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phCJ OJQJaJEHB*phOJQJaJB*phOJQJaJUB*phOJQJaJ B*phU B*ph B*phUB$$$$$$$$$$$$$$$$$xk^PC8B*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJ>*B*phOJQJo(aJB*phOJQJaJ>*B*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJ$$%% %%%%%%2%4%6%8%<%>%Z%·reXG:/B*phOJQJaJB*phOJQJaJU B*phOJQJo(aJmH sH B*phOJQJo(aJB*phOJQJaJU$jvKUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJZ%\%^%`%d%f%h%j%l%n%%%%%%%Ǻ}j]P?2B*phOJQJaJU B*phOJQJo(aJmH sH B*phOJQJo(aJB*phOJQJaJU$jMUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJU$j>LUB*phOJQJaJ%%%%%%%%%%%%%%%%Ǻ{p]PC2 B*phOJQJo(aJmH sH B*phOJQJo(aJB*phOJQJaJU$jNUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jMUB*phOJQJaJB*phOJQJaJ%% & &&&&&&&&&:&<&>&@&Ǻ{ncPC6B*phOJQJo(aJB*phOJQJaJU$jPUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jHOUB*phOJQJaJB*phOJQJaJB*phOJQJaJU@&D&F&b&d&f&h&l&n&p&r&t&v&&&&öwj]R?2B*phOJQJaJU$jQUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jPUB*phOJQJaJB*phOJQJaJB*phOJQJaJU B*phOJQJo(aJmH sH &&&&&&&&&&&&&&&&&ɶwh[PC8+B*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phCJOJQJaJB*phCJ OJQJaJEHB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jhRUB*phOJQJaJB*phOJQJaJB*phOJQJaJU B*phOJQJo(aJmH sH B*phOJQJo(aJ&&&''' '"'\'^'`'|'~'''''ϼ}r_RE:-B*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJaJU$jSUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJB*phOJQJaJU$j0SUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJ''''''6(8(:(<(T(V(X(Z(z(~((ɼ}r_RE8*B*phOJQJo(aJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jtUUB*phOJQJaJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jTUB*phOJQJaJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJ((((((((((((((((ƹvi\Q>1B*phOJQJaJU$jVUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJU$j(VUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJo(aJUB*phOJQJo(aJ B*phCJ OJQJo(aJEHB*phOJQJo(aJ((((()))))))2)4)6):)<)¯}peRE:-B*phOJQJaJUB*phOJQJaJB*phOJQJaJU$jXUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJaJU$jfWUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJ<)L)N)P)\)^)`)x)z)|)~))))))Ǻwj]RE:B*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJU$jXUB*phOJQJaJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJmH sH B*phOJQJaJmH sH B*phOJQJo(aJ)))))))****B*D*F*b*d*Ÿuh[NC0$jZUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jBZUB*phOJQJaJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$jYUB*phOJQJaJd*f***********++++ynaVC6B*phOJQJaJU$j\UB*phOJQJaJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU$j[UB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJU+2+8+\+`+b+d+v+x+++++++++ɼyl_TK:/B*phOJQJU jh]UB*phOJQJB*phOJQJB*phOJQJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJUB*phOJQJo(aJ B*phCJOJQJo(aJEHB*phOJQJo(aJB*phOJQJaJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJ B*phOJQJo(aJmH sH B*phOJQJo(aJ+++,,,$,&,(,L,N,P,l,n,p,,,,Ļzq`UH;0B*phOJQJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJU jT^UB*phOJQJB*phOJQJB*phOJQJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJU j]UB*phOJQJB*phOJQJB*phOJQJUB*phOJQJmH sH B*phOJQJo(B*phOJQJo(aJB*phOJQJo(,,,,,,,,,- -$-<-@-B-V-{j]PC8B*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJ B*phOJQJo(aJmH sH B*phOJQJo(aJB*phOJQJaJU$j@_UB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJB*phOJQJU j^UB*phOJQJB*phOJQJV-X-\-^-`-b-j-t---------l^QC8B*phOJQJo(B*phOJQJaJ>*UB*phOJQJaJ>*B*phOJQJaJ>*U'j_UB*phOJQJaJ>*B*phOJQJaJ>*B*phOJQJaJ>*UB*phOJQJo(B*phOJQJo(mH sH B*phOJQJo(B*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phCJ OJQJaJEH----------(.*.b.d...ɸvhZL>0B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJUB*phOJQJo(aJ B*phCJOJQJo(aJEHB*phOJQJo(aJB*phOJQJaJB*phOJQJaJU B*phOJQJo(aJmH sH ...//*/V/X/f/x/~//////ǺtfXJ=0B*phOJQJo(aJB*phOJQJo(aJB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\////////////000 0;tfYE7B*phOJQJaJ\U'j`UB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJaJB*phCJ OJQJaJEHB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJo(aJ 0D0F0R0T0V0r0t0v0000000ǹ|n`RD7B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jaUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\00011*1,1.1J1L1N11111vhZL>1B*phOJQJaJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jaUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jxaUB*phOJQJaJ\1111111222224262n2p2ȴ|o[M?1B*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jbUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jRbUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\p2r2222222222 3"3$3@3B3´wi[MB9( jcUB*phOJQJB*phOJQJB*phOJQJUB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jcUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'j"cUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB3D3h3v3x3z3333333333(4ͿtfYE7)B*phOJQJo(aJ\B*phOJQJaJ\U'jdUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jndUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJo(B*phOJQJU(4*4,4H4J4L44444445555´sh]O?1B*phOJQJaJ\UB*phOJQJo(aJ>*\B*phOJQJo(aJ\B*phOJQJo(B*phOJQJU jeUB*phOJQJB*phOJQJB*phOJQJUB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jJeUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\5052545f5h5j555555555´wi[M@,'jgUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'jfUB*phOJQJaJ\B*phOJQJaJ\B*phOJQJaJ\UB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U'j0fUB*phOJQJaJ\B*phOJQJaJ\55666062646b6d6f6666666~udYNC8B*phOJQJo(B*phOJQJo(B*phOJQJo(B*phOJQJU jgUB*phOJQJB*phOJQJB*phOJQJUB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJU jgUB*phOJQJB*phOJQJB*phOJQJUB*phOJQJo(aJ\B*phOJQJo(aJ\B*phOJQJaJ\U666667 7 777787:7<7P7R7T7ɾtgZO8R8T8·tgZMB/$jkUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJaJU$jHkUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJaJB*phOJQJo(aJB*phOJQJUB*phOJQJB*phOJQJU jjUB*phOJQJT8V8Z8\8^8`8t8v8x8|8~888888 9&9}peZLB4CJOJQJo(aJmH sH CJOJQJo(aJCJOJQJo(aJmH sH CJOJQJo(aJB*phOJQJaJB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJaJU$jlUB*phOJQJaJB*phOJQJaJB*phOJQJaJUB*phOJQJo(aJB*phOJQJaJUB*phOJQJaJB*phOJQJaJU&9092999:6:::<:\:^:d:f::::;; ;D<v<Ļxnd^XRH<CJOJQJo(aJKHCJOJQJo(aJ CJo(aJ CJo(aJ CJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJaJU 0JB*phCJOJQJo(aJCJOJQJaJUCJOJQJaJCJOJQJo(aJCJOJQJaJCJOJQJaJUCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJv<<<<<<<<<<<<<=== =$=l=n==yof]SI?CJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJaJCJOJQJaJCJOJQJo(aJCJOJQJo(aJmH sH CJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJaJCJOJQJaJ CJo(aJCJOJQJo(aJCJKHCJOJQJo(aJnHtH====>>>>>>>>>>>>>>>>>>>ù|si`VQKC9CJOJQJo(aJCJOJQJo( CJo(aJCJaJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJaJCJaJCJOJQJo(CJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJ>>>2@N@P@R@T@t@v@x@z@$AjAlAAAAABBFBƺ}si_VLB8CJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(CJOJQJo(CJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(CJOJQJo(CJOJQJo(nHtHCJOJQJo(CJOJQJo(nHtHCJOJQJo(CJOJQJo(aJCJOJQJaJCJOJQJo(aJFBHBBBBBBBCCPCRCCCDD"D$DDDDú|rh^UKA7CJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJ *CJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJDDXEEEEEEEEEF F FFVFXF\F^FûpbXOA8CJOJQJaJCJOJQJo(aJmH sH CJOJQJaJCJOJQJo(aJCJOJQJo(aJmH sH #CJOJQJo(aJmH sH nHtHCJOJQJo(aJCJOJQJaJCJOJQJo(aJmH sH CJOJo(aJmH sH CJOJo(aJnHtHCJOJo(aJCJOJo(aJmH sH CJOJo(aJCJOJo(aJCJOJQJo(aJKHCJOJQJo(aJCJOJQJo(aJ^FdFhFlF G"G&GGGGGbHdHHHhIjIII8JͿ|rh^TKACJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJCJOJQJaJCJOJQJo(aJCJOJQJo(CJOJQJo(aJCJOJQJo(aJmH sH CJOJQJo(aJ CJo(aJCJOJQJo(aJCJOJQJo(aJmH sH CJOJQJo(aJ8J:JRJTJJJJJJJJJJJJJJJJJJK KKKKKKƾztnd^TN OJPJo(OJPJo(mH sH  OJPJo(OJPJo(mH sH  OJPJo( OJPJo( OJPJo(0JU0JmHsHnHtHU0JU0JU0JUCJOJPJ5@ZCJOJPJo(CJOJPJ5@CJPJo(@CJOJQJaJCJOJQJo(aJCJOJQJo(aJCJOJQJo(aJ#CJOJQJo(aJmH sH nHtHK*K.KRKVK^KbKdKpKrKtKvKxKKKKKKKKKKK·yqhCJOJQJaJCJOJPJo(CJPJo(@OJPJOJPJo(mH sH  OJPJo(OJPJo(mH sH  OJPJo( OJPJo( OJPJo(0JU0JmHsHnHtHU0JUCJOJPJo(CJPJo(@CJOJPJo(5@ZCJOJPJo(CJOJPJ5@CJPJo(@.HJvZTNH$If$If$If$$If:V TT44l44l0+0)    5o5 a$$$Ifa$$WD2Z`Z$If " [RIC$If d$If d$If$$If:V TT44l44l0+FN)       5 5 5" $ P x [RIC$If d$If d$If$$If:V TT44l44l0+F )       5c5 5 [RIC$If d$If d$If$$If:V TT44l44l0+F )       5c5 5 $ L v [RIC$If d$If d$If$$If:V TT44l44l0+F )       5c5 5v x [RIC$If d$If d$If$$If:V TT44l44l0+F )       5c5 5  * T [RIC$If d$If d$If$$If:V TT44l44l0+F )       5c5 5T V [UO$If$If$$If:V TT44l44l0+F )        5c5 5  6 rjd^X$If$If$Ifx$If$$If:V TT44l44l0+0 )5c56 8 : D l D<60$If$Ifx$If$$If:V ^PTT44l44l0+\G S*5c5A55l >60$Ifx$If$$If:V ^PTT44l44l0+\G S* 5c5A55$If 2 4 6 8&da$$WD2i`i$If$$If:V ^PTT44l44l0+\G S*5c5A55$If$If6 Z \ ^ b d f j l n r d$If$If a$$$If a$$$If a$$$If a$$$If a$$$If a$$$If a$$$If a$$$If a$$$If a$$$If [RLF@7 d$If$If$If$If a$$$If$$If:V TT44U44U0+F#    5%5A5BD$$$If:V TT44U44U0+r#5%5#5255 d$IfDFH d$If d$If$If a$$$IfD;5, d$If$If a$$$If$$If:V TT44U44U0+\# 5%5#525  $L$If$If d$IfLNPR-$$If a$$$If$$If:V TT44U44U0+r # 5%5#55@ 5 Rf2) a$$$If$$If:V TT44U44U0+\ # 5%5#55 d$If d$If,$$If:V TT44U44U0+\# 5%5#55 d$If d$If$IfC: a$$$If$$If:V TT44U44U0+F#     5%5#5 d$If$If a$$$If6bd,$$If:V TT44U44U0+\# 5%5#525 d$If d$If$Ifdfjnrz d$If d$If$If da$$$If da$$$If da$$$If da$$$If a$$$If-$ a$$$If$$If:V TT44U44U0+r# 5%5#5255JLNPI@7 a$$$If a$$$If$$If:V TT44U44U0+F#     5%5#5 d$If a$$$IfPj d$If$If d$If d$If-$ a$$$If$$If:V TT44U44U0+r # 5%5#55@ 5 )$$If:V TT44U44U0+\ # 5%5#55 d$If d$If a$$$If *R d$If d$If a$$$If a$$$IfRTVXD;2) d$If a$$$If a$$$If$$If:V TT44U44U0+\# 5%5#55[RI@7 d$If d$If a$$$If a$$$If$$If:V TT44U44U0+F#     5%5#5D;2) a$$$If a$$$If a$$$If$$If:V TT44U44U0+\# 5%5#525 "X@7 a$$$If$$If:V TT44U44U0+F#    5%5M5 d$If d$If a$$$IfI@7 d$If a$$$If$$If:V TT44U44U0+F #     5%55 d$If d$If0RI@ d$If a$$$If$$If:V TT44U44U0+Fd#     5%55a d$If024fri`W d$If d$If a$$$If$$If:V TT44U44U0+0# 5%5 "4[UK H^H$If$If$$If:V TT44U44U0+F#     5%5M546Z^bfjri`WNE a$$$If a$$$If a$$$If a$$$If a$$$If$$If:V TT44l44l0+0 d)55ljnr>WNHB$If$If a$$$If$$If:V TT44l44l04f4+0= y+5!5<"$If a$$$If a$$$If>@BFJNXRI@7 a$$$If a$$$If a$$$If$If$$If:V TT44l44l04f47+F= y+    5!5a5NV  ^ $If a$$ ^ $If a$$ ^ $If a$$ ^ $If a$$ ^ $If  ^ $If a$$$If*$$If$If$$If:V TT44l44l04f4v+r= t ^y+5!575 5@5 :  ^ $If  ^ $If  ^ $If:<>@*$$If$If$$If:V TT44l44l04f4+r= t ^y+5!575 5@5@tv  ^ $If  ^ $If  ^ $If*$$If$$If:V TT44l44l04f40+r= t ^y+5!575 5@5h<>^X$Ify$$If:V TT44l44l04f4?+y+5]$ WD`$IfVD ^ WDd`$If  ^ $IfF}tn$If d$If d$Ify$$If:V TT44l44l04f4+y+5]$\wfUJ d<$Ifd 1$Ifd 1$Ifd<`$Ify$$If:V TT44l44l04f4+y+5]$(zo`O>-d 1$Ifd 1$Ifd 1$Ifd<`$If$$If:V TT44l44l04f4 +0 y+55.0XdUD3d 1$Ifd 1$Ifd<`$If$$If:V TT44l44l04f4y+0 y+55 d<$IfVX*dUJ9d 1$If d<$Ifd<`$If$$If:V TT44l44l04f4'+0 y+55 d<$If*~^OF= a$$$If a$$$Ifa$$(`$If$$If:V TT44l44l04f4'+0 y+55d 1$If& x z d<$IfdxUD]$Ifdxa$$$If a$$$If a$$$If a$$$Ifd<`$If a$$$If a$$$If a$$$If a$$$If a$$$If x z $$If:V TT44l44l04f4!+ֈ= lC#y+5!5n552556z | dxUD]$If d<$If d<$If d<$If a$$$Ifa$$(`$If $$If:V TT44l44l04f4g+ֈ= lC#y+5!5n552556 dxUD]$If d<$If d<$If d<$If a$$$Ifa$$(`$If $$If:V TT44l44l04f4S+ֈ= lC#y+5!5n552556 dxUD]$If d<$If d<$If d<$If a$$$Ifa$$(`$If $$If:V TT44l44l04f4[+ֈ= lC#y+5!5n552556 dxUD]$If d<$If d<$If d<$If a$$$Ifa$$(`$If $$If:V TT44l44l04f4U+ֈ= lC#y+5!5n552556 dxUD]$If d<$If d<$If d<$If a$$$Ifa$$(`$If $$If:V TT44l44l04f4U+ֈ= lC#y+5!5n552556 dxUD]$If d<$If d<$If d<$If a$$$Ifa$$(`$If $$If:V TT44l44l04f4+ֈ= lC#y+5!5n552556 !!!!!T>da$$  WD`$Ify$$If:V TT44l44l04f4Q%!%5q$d  WD`$If d  $If d$Ifd]!!!!!!!""{v`da$$  WD`$IfFfdmda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$If","T"|""""""{v`da$$  WD`$IfFfqoda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$If""#J#r##### $${vgXd<]$Ifd<]$IfFf~qda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$Ifda$$  WD`$If $$$$$% %{peZO a$$<$If a$$<$If a$$<$If a$$<$If a$$<$Ify$$If:V TT44l44l04f4%J%J5m$ % %%* a$$<$If$$If:V TT44l44l04f4h%rJV %J5 55 5% 5%%%%b% a$$<$If a$$<$If a$$<$If a$$<$Ifb%d%f%* a$$<$If$$If:V TT44l44l04f4%rJV %J5 55 5% 5f%h%j%l%% a$$<$If a$$<$If a$$<$If a$$<$If%%%* a$$<$If$$If:V TT44l44l04f4%rJV %J5 55 5% 5%%%%&a$$<^WD.`.$If a$$<$If a$$<$If a$$<$If&&&* a$$<$If$$If:V TT44l44l04f4%rJV %J5 55 5% 5&&&&j& a$$<$If a$$<$If a$$<$If a$$<$Ifj&l&n&* a$$<$If$$If:V TT44l44l04f4%rJV %J5 55 5% 5n&p&r&t&& a$$<$If a$$<$If a$$<$If a$$<$If&&&*! d$If$$If:V TT44l44l04f4%rJV %J5 55 5% 5&^''8(|(~((F= d$Ify$$If:V TT44l44l04f4%J%J5m$dWD;`;$IfdWD;`;$Ifd<WD;`;$Ifd<WD;`;$If(P))D***^+dWD,v`v$Ifd<WD,v`v$IfdWD(`($If dv`v$If d$Ifd )`)$If^+`++,N,,,}thVDxO^OWD;`;$IfxO^OWD;`;$If xO^O$If d$If d$Ify$$If:V TT44l44l04f4%J%J5m$,>-@--~vx$Ify$$If:V TT44l44l04f4%J%J5m$x$If---*.d..}iUA & F hdh h$If & F hdh h$If & F hdh h$If d$Ify$$If:V TT44l44l04f4%J%J5m$../X///////F0ypc dh]$If d$If dh$If dh$If dh$If & Fdh h^WD4`4$If & F hdh h$If & F hdh h$If & F hdh h$If & F hdh h$If F0T0001,1112p22re dh]$If dh]$If dh]$Ifdh]WD;`;$If dh]$Ifdh]WD ` $If dh]$Ifdh]WDd`$If dh]$Ifdh]WD@ ` $If 2"3x33*445h556d66}p dh]$If dh]$If dh]$If dh]$If dh]$If dh]$If dh]$If dh]$If dh]$If dh]$If dh]$If 666:7b7d7f7b\RH>  $If  $If  $If$If$$If:V TT44l44l04f4(%0J%J55 dh]$Iff7h7j77777A$$If:V TT44l44l04f4%0J%J55 ]$If ]$If$If  $If  $If7888829f:[YJ;d h^hWD8`d h^hWD8`$$If:V TT44l44l04f43%0J%J55 a$$$If a$$4$$Iff::;<< =n===>>>v@u d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`hd h^hWD8`d,d h^hWD8`d h^hWD8` v@lAABHBBBCRCCDDDE}tdh`h d WDh`h d WDh`h d WDh`h d h`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h d WDh`h EEXF"GGdHHjITJJJJJJa$$@&xa$$@&d & F d  & F d  & F d  & F d h`h d WDh`h d WDh`hdh`h JJJJJ KKK,K.KTKoh_a$$@&xa$$@&P 9r d8 C$Eƀ  9r d8  9r #$&` 9r   9r 9r  9r #$&` 9r  TKVK`KbKxKKKKKKKKda$$@&x  9r 9r   9r d8  9r #$&` 9r a$$@&x | 0. A!#"S$S%S2P18+p4,p5-p6.p7/R | 0. A!#"S$S%S2P18+p4,p5-p6.p7/R 0P. A!#"S$S%S2P18+p4,p5-p6.p7/R 0P. A!#"S$S%S2P18+p4,p5-p6.p7/R 5%5%*F*F ^\`\o(. HH^H\`\) ^\`\. ^\`\. 44^4\`\)   ^ \`\. | | ^| \`\.   ^ \`\) ^\`\. hh^h`o(0 HH^H\`\) ^\`\. ^\`\. 44^4\`\)   ^ \`\. | | ^| \`\.   ^ \`\) ^\`\.*F5%&!666666 0@P`p6(66 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pF@Fcke a$$1$CJKHmH sH nHtH_HN@Nh 1dBTJ$$@&CJ,aJ,5KH,\H@Hh 3dx$$@& CJ PJ5$A@$؞k=W[SONi@Nnfh**U@*c B*ph>*X\@Xz-zSOvza$$&dPCJOJQJ^JaJ<hOh15dhXD2YD2G$7$H$VD^`CJOJPJQJ5\4O24_Style 5OJQJX]@Xz-zSO^za$$$dNCJOJQJ^JaJ<D@D RQk= WD`OJPJQJ^JaJ   D n 4$L 4n@(,(D !!P""J##B$$Z%%%@&&&'((<))d*++,V--./ 001p2B3(4556T778T8&9v<=>FBD^F8JKK&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|" v T 6 l 6 DLRdPR04j>N:@*x z !""$ %%b%f%%%&&j&n&&&(^+,-.F026f77f:v@EJTKK}~!mTimes New RomanNimbus Roman No9 L?([SOeckfN[_GBK- |8ўSOW4  *Cx Courier NewDejaVu SansI4eck[ N{SON[_GB2312Y$ *Cx ArialNimbus Roman No9 LA$Calibri_oŖў?[SOeckfN[_GBKE:\My Documents\]\OeN\O9evBlfN.dot cgq,gh̀b kXhlaNy cknxkXQ,ghThauto zhangjinqiu Qh!rg!d<d!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[P)?( .^mhmv  $H J%&(.>.0v2;4c677}8/>DHHLlNOPTXeYYYZ6[\hkkm rt!uv/{Y+y i q M x9`N@ "`.$/j/#22J4z778=8;@@A+EFEGGI/KRS[\B`^bhk'lmpHs zzz\s.Ck $&+,1#558T9=>@AAB F4F=PQTbVx[[h]eou{uww%y_}~7) V*"##&'(7*00w36;<<=@CdC IEK7MQUW3X_no=u,v\v)x)y~$%C l''))\/0\2 33:-;@CwEEDHK-R/TUV\^@`aPghswsx|B|} cS=EEYP!#T#&&)+-./34669:>eCETFH}RRV\`agLggtlmsyyl Q  CqP#n" %\-70~0126:?0@]ACMDD(OO^\c^`bd nnnn^ruv/xyy-{?||m}y~(!$%%&+&C&j&/1O347:==B CGcLTX4aradeaopwyz{{i}u F 7{w !|""&'(**,.03389s:;.;&<@CrDDGHKKPRTUY_tbboef'ghhjjkn?oos;tv ? @ sC C I J L O :Q R U a c =e f yg h i j yj m p jt Xx fx U c      S# * - 0 1 w4 W: ; ; = &? ? B B )L P P \ _ s` a d d 0i p q 1r #s t t u x x y  R # c         ~ l& p' ( &, - K. 1 4 U5 : ? iB B E kE I )K ^K N N O R S T Y Z b wc e e f uh j m m Nq 5v Uw y { S '   H S  B    z! $ $ $ & ) n* *+ + - A1 2 2 4 64 6 4< = > @ A  '(*12i4w55v88i9BXFuFFJW}X^k`iccFipqbtvv y}$ YH| "#6%q&&+l+,R.x.0406@@BEDFkH~HJKLMORPT@W[X^6aa:cdik}orrt\w|~ [$6H~m0#$%@'e'p)6193=EHJUWYV^,bbce fiokqAsdwnwz}D~|~ Hv: :#r$M&-0\3g78Q:;?9D,HIJKKQSSXTTUW]x``*dRdhknhq,t/uw.GQ"zl@Y Y!""#$$%++,-W02<b<=<>>>;AyEFFFGIOQXX~[_^3aNb\beklanps*t_uw:~`   q} #%k+ ,1333@55=?@HJ?NSWWW=Z\gJhkxn9o~quvx3xxxjz\N ! !:*!$)1+b-.0044K668 ;BEFFG?HI@PwPQRUDXZ[afOgTlylmnpwssvvfzR~~qn3 j   ^A%'?(>*566h<?}BBD$FCFGGGsMTZ__U`lei~oqvww[y|<Gb WS( !&&=&&**++L@QxQRVX\K^__`MiCjHm2nuz`{|~ Y %-(-R/01o23345Z78R>?ACqFGMSXXY\\]Olvdww~~ ixaM  6UT i*#C#)*.+ 5B9<>ADJ{KlMQ:XYY_#_T`bq tttx^z||q  -9yqJ h!"%,/238%==??1@rAAGITYYZ[[[]^`aUm+u%vxRxxx}}"Lz#D m   2K#+J.&0*33G6749`:w;<R=DE2ILMMNRXY\]<_bblOoqwx8yyzq{M4  xGP\b < $7&i)-/-^7U9:c;D8FIKuMYPPZ[q_]befj8m]mp?sWsuzk   R"X%%(+):*+-@-1G?D@BEEJ^NO!OO"S%TWnZ^b ghjmho:ppt|CI    .   ~     E ! ( u, 0 ;7 < A L N N UU U 1Y ] b n p t 'v y # !! ! !!9!#!!!!m!!"!#'!.!/!O1!E;!;!FC!C!E!J!L!N!P!T!'W!Y!Y!^!`!`!i!i!Jl!l!n!p!{!q"""m""""y ";"%""""9"" "'"t)","-"/"65"<"^<">">"B"`B"B" K"R"KW"Q["H^"_" a"b"f"f"Eg"h"Lj"j"Yn"p"xq"Nr"r"v"Lx"y"y"{"2~"R"#]## #S #/ #V#I######_#r##!#$#2&#&#-#p/#/#0#3#5#h<#KB#B#LC#D#uE#H#K#O#Q#KU#W#yX#Jd#Be#f#g#Xq#w#lz#}#~#~##$$$Y$$t $ $j $$ $7$?$"$j'$'$B)$*$-$-$1$1$1$\5$6$J:$G=$?$:A$H$J$\K$VL$O$ T$yT$U$bY$x\$g$l$l$n$p$r$ss$u$y${$ ~$$p%%%%q %%k%o%%%%%j%%!%%&%(%5+%J+%0%a4%<%E>%_H% L%L%N%\P%R%R%|U%"V%A^%c%i%6j%}j%l%p%w%@{%|%~%*%%& &&&&&"&& &&&2&p&&[!& $&)$&-&.&/&f3&X4&5&5&56&`6&6&~7&7&R9&;&"=&A&B&CE&F&dK&[N&N&R&U&W&\&p\&]&_&b&d&g&m&Kn&sn&qq&q&ht&t&-x&Fz&3{&|&[''B'' '| ' ' ''I''9'|''''`'|' '!'#' )'+'r/' 3'4'6'8'9'9's;'>''@'@''B'*H'H'SJ'M'R'RT'gY'Z'^'d'i'l'Kp'Zq'v'w'Gz'~'e(( ( ((((E(((`(!#($(;%(&(4(V6(6(a7(B(Q(Y(\(`(c(e(e((f(i(n(p(q(9u(Zv(x(y(y(D{(}(~(E)) )J)m ))))h")$)2$)j+),)/)1)C9)9);)?)Y@)B)"K)rM)TY)Z)_)a)Je)wf)li)j)j) n)p)s)|s)Ku)~)))***G** * **u*\***P** *#*$*n%*u%*(*V****-*4*T4*B5*d5*s?*?*B*II*SK*O*UU*U*W*OY*Y*Z*\*i]*_*a*ab*b*b*e*n*u*z*\{*{*~**+++ +' + + +++++++:+++o+j'+]++-+<.+t.+0+D1+=4+5+7+?+B+F+G+LQ+xW+X+]+^+`+a+b+cj+k+k+(s+s+u+u+{+{+~+,,~, , ,i,,,O!,$,%,',u(,e*,*,f+,',,3,5,6,C;, >,>,@,D,\F,#J,K,RM,M,rU,U,V,W,^,`,!f,f,:l,o,or,yr,u,w,.z,|,, ----]-H-o-----g'-r)-1-K1-5-:-=-=-5?-{?-dA-H-H-J-Q-Q-:[- \-$]-^^-g-}h-j-n-r-eu-kx-jy-|- ~-|.. .4..H.H.+... .d"./.4.4.6.9.><.C?.EB.D.MJ.M.O.T.W.Z.1].ib.f.Bm.q.q.Pu.wu.w.~.z../` / /` />/|////2/"/1#/&/'/(/*//+/,/r0/ 3/;/=/B/D/G/G/I/TK/3L/M/%O/Z/]/`/`/g/dh/\j/fp/w/w/x/z/iz/}/}/^00000E 000#0b*010L20O70i809090+:0 ;0F=0@0nB0OG0H0bJ0fK0Q0ZV0*W0_0W`0c0d0d0Ah0Ko0/r0u0Pw0x0|0F~011 1e 1 1 11!1=1{!1v"1'1*1.10317191=1&>1?1SG1L1O1R1&T1U1*U1dV1W1[W1W1a[1[1 \1_1 a1a1f1h1Tk1Io1Mp1q1Xr1s1t1x1{1|1i}1~1~1v122_ 222224222r 2 2U#2z$2%2(2>)2r)2/2w42i52$92U92aB2C2cH2O2)S2?T2_V2V2Y2]2b2c2i2@j2nl2nn2r2As2s2`v2v2{2{2x3333 3 3]33N33e3#3V&3*3n+3+3+3z-3/1383<3@3B3C3G3I3]N3XR3!T3V3:W37[3]3]3`3c3e3~f3l3p3Pq3|q3s3W445 4 47 4d4H44244M4V4&"4$4'4,)4n,4K.4c.414)24(34i7488494P:4?4\G4 J4R4T4W4BX4X4[4`4a4ed4e4/f4m4xp4&t4w4R 5s 555r55 5!5 &5C(5(5$)5G*5[+5,5/525<658595:5@5B5C5C5D5G5I5J5R5Y5_5b5Jd5e5j5j5l5m5Vt5-z5|5|5H66W6666h 66666I!6$6'6 ,6-6A.6[06H16363636j6666(=66K6 N6P6(Z6]Z6aa6a6e6e6j6m6s6x6z6=}6}67 7V7l77f77)7R-7n-7-7Z47"57 77'87,87<7=7n>7?7+@7?A79B7B7I7L7\R7R7S7DT7pX7\7 ^7pa7If7i7k7o7q7t7Kv7w7x7^|77788 88y8:888a/8/8'6868K7898;8@8C8D8H8H8I8L8IP8ZR8U8U8Y8a8b8g8t8x8.z8z80|8|8}8~8$88.9f 9919$99.91"9R%9j'9)9\*9D+9|+9x,9.9/949k6999}:9:9>9@B9VB9{B9\E94G9RG9H9(I9I9jJ9eN9DO9P9R9V9]9Y^9zb9d9i9xl9q9s9 t9y9: :::D::::=:: :!:):+:2:3:&4:5:!7:8:<:4D:vH:H:H:^J:K:M:>Z:\:]:]:_:rc:#g:g:s:t:u:u:x:y:}:':;; ; ;;;;;f;;6;B$;N);s);//;5;7;g;;j;;=;C>;ZA;C;D;qE;5G;G;`H; J;O;V;FW;Z;];^;.`;C`;d;i;9k;vl;l;>o;o;p;p;t;=|;U<<[ < <: <3 <<<<3<y<w<<| <!!<A#<$<&<o*<*<,<R/<0<2<2<5<|9<9<':<F<jI<I<J<P<P<oR<R<5b<f<h</h<Xl<gm<>n<n<|v< = =3 ==M==x=p=== ====W==1!=!=X$=%=+=0=|2=7=f9=:=:=z;=O>=A=)D=D=gF=gJ=R=)S=V=X=Z=R^=a=e=@i=k={m=m=o=}q=t=hu=x=|=8|=E|=}=>N>>>>&>,><>)>X,>,/> 3>H7>:E>GH>J>M>4T>V>Y>Z>%\>`>e>f>g>h>l>m>Mo>,p><??u??G?R???>?" ? ?4?L?]?O?\?<?V?E? ?!?)?I.?J.?/?4?6?J:?C?GG?HM?|N?N?7Q?^S?Z?\?"h?pj?k?n?o?St?w?y}?P~?1?@@J@@@x@@@T@L@W@t@Q@@@2@ @&@G+@,@2@,4@6@7@N9@;@=@U>@?@B@E@H@2I@zM@)Q@{V@0c@d@'g@Zj@k@#m@^p@jr@5s@u@x@Qz@{@|@|@C~@ @qAzA A A A}AA AAAAA)AAAAY!A$A&A6)Aq)A)A*A*A,A-A!5AP7A8A9A@A@A^DA"FAOKAKANA1NAOAPAZA]A_AbA=dAeAZfAfAhAiAclAlADnAoArArAtA uAwApxAv~AYBBBBB]B1#B$Bd&B(Bj/B82B 3B5B 9B:BLCrECECXJCJCJCKCMC.NCSCTCTCUCVC[C]C^C_C`CcCeC fC>fCfCgC&jCkC{pC^qCqCrCsCsCqtCvC{CDDDZ D D DmD!D1DDD DDjD3!D!D"D$D%D)D ,D/D#:D:D=D>D?DWBDEDQHDJDMDrNDPDRD:SDTDTDVDEWDYD(ZD^DbDcDkDhmDunDrDtD@wDyD9~DEEE EErEEET"Et#E&E+EF,E.E/E50E0EA2E5E7E:E=ECEFEWGEhIEIElJE#XE[E^E`cEdEOeE&iE-jElEtE%uEnwExE({E7|E|EEFFF F FFFrFFFFFFF%F%F&F&F2F:F@FEFGFAJF4NFOFPFIRFRFSFSF\Fw]F^F_FPdFeFNfF\kFpFzF~FGDGG GG*GGG>GGG]"GV%G-G1G|1G2GB9Gq?GBGkHGMG:QGVG[G]G^GbGmiGoGrGtGzGe{G{Gg}GHHHH H# Hz H Hd H+HEH{HHHHH<HZ H#H-$HM%HJ)H,H-H:/H1HC5H5H6H6H9H9HBHDHxHHLHLHOHOHOHTHR\Hv_HocHcHifH}kHrHrHtH{HN}H}H: I ImI%IIII~I7II&!I'I*(I-)I%*Iv+I+I.I'1I6I7I?IqDI FITPISI\I]I@aICiI4jInIxrIrI{vIcwIkwI(|Iu|IIJJ J J J& J JJvJJJ:JJ!J&J)J)J-J/J/J2J2J15JP6Jc9J":J):J:JGJPJPJWJVXJ [JV\J_J)aJbJvfJgJgJiJoJsJ wJyJ"zJKm Kg KKKKlKWKK&KKKKU K K"K9&K(K-K.KU0K4K5K:6KM6K8KjEKGK5QK!RKSKTKWKXK ZK`K`KybKcKfKfKkK>nKjoKsKvK$|K|K/}KyLgLL L LLLVLLJLLALL=#L$L (L5L8L9Lc>L?LBLCLDLKFLFLGLKLYPLRL TLVL[L_L2`LdLUeLjLmL rL8xLuxLyLzLw{LJ}L}LM-MMJM M& MM]MMdMMMMMM M M'M'M/,M0M/1M4M4M66M7M1:M?M?MXAMAM%CMEMEM-FM8PMSMTMVME[M7^M_M0cMnMRtMwMyMn~MNCN N6NNN N $N$NK(N[+N6N7N:N?NBNGNINJNJN.LNMNVNWNF^NbNfNP@PT@PAPAPCPDPcEP_IP(KP{MPPPrRPSPUPWPWPZ[P'^P^PaPdPJhP*kPkP8oPoPsP tPvPQdQsQ QQQ Q QQQQQ1QQVQ QJ%Q'Q(Q-)Q)Q*Q0Q3Q4Q"5Qc@Q BQpJQ@NQQQ [Q~_Q_Qq`Q`Q{eQokQlQnQoQxQzQ |QR RSRRRCRR=RORRRRR"R#*R-R 2RR2R'4R9R;=R)?RFRGRXHR[JR1NR(VRVRYRZR*]R]RP^Ru`RoRpR xRBxRyRyRzRX{R|R SEStS S SSSSSSSkS<#S(S)S)S..SZ.S.SA5Sk7S8Sz>S?S @SDSIGSFHSJSOSPSPSZS.[S^S`SbdShdSgS iSnS;rS|S|S~S~STeT T T TTDTyT TTTZTT^Tg!TQ#T%T%T%T%,T^-T1T5T7Ts9T9T$;T?TgATCTFTGTJTOTQTQTUl@U7CUAHUOUQURUWUUZU[U[U^UObUcUgUhUiU lUlUnUnUoUqUtUovUvUwU\xUyU3zU{U|U|UVVw V[VVVVVVVVV?V"VV#V&Vl+V-V/V0V2VT3V6V:V(?V>CVFVJGV)LVSVUVZV[VbVcV'fVfVgViViVjVjVkVkVBlVoVrVsVvVwV)|V|VRVWWK W W W WW>W#W(WW9WW?W'@W}@WHWIWNW9QWQWUW ZWZWs\W`W eWhW~iWrWvWxW~WXuXX_XK X XXX!X$X%X0XK3XsY@YBYCY DYmDY KYEOYTYUYVYXY\YdY#iYiY mYpYrY;tYtYLvYxwYwY{Y|YY}YHYZZtZZZZZZZZ#Z`$Z)Z+Z6.Z/Z0Z1Z?ZJZ*JZTMZRZJWZ^Z^ZMcZBdZ|dZXeZgZiZsZ vZyZ*}Z~Z[[R[N[[[[ [f[n[[<[[![r#[S%[)["0[0[)1[1[:[;[D@[K[[S[.U[X[[[_[Ec[ye[3f[%h[ph[i[Vr[s[t[y[|[|[E}[~[`[U\\S\a\\> \' \ \ \W\\\\B\\W#\F+\ 1\>1\-4\O5\6\+=\G\I\O\;R\#a\a\a\Db\d\#i\0k\l\:o\q\t\Nx\|\}\j]f]Y] ]]Y] ]]T]] ]]2!]#][$] ']']P+]/]1]4]5]6]KL]~S]T]W]`X][[]J]]@^]:_]a]h]n]y]z]}]/~]~]]R^@^a ^ ^p^^"^$^Z%^y'^'^_)^).^q.^.^4^>5^:^'>^U?^?^HA^(F^zJ^L^&N^eS^Y^]^t_^wa^8b^Pb^e^j^l^l^m^m^r^r^tu^v^z^}^/___w___^ _ _j __G__ _D#_&_,_z-_._o._|2_4_:_s<_v>_?_K_K_L_^M_OU_V_V_Y_Z_]_`_e_e_}f_h_(j_o_q_q_r_ps_-y_nz_l|_~_)```2`{ `````t`R```V``!`#`$`%`(`(`-`-`.`c0` 1`1`7`8`m9`p?`A`tB`D`G`H`5I`I`L`L`R`&T`X`Aa`)n`p`p`,s`0t`w`x`saa aa awaa3a"a`a a#a'a7)a)/ab5aA6a7a7ac)>cE@c+Dc.EcGc!HcLcLcOcPcPUcVcWcYcw^c=`cDdcgcVmctmc:pctc"tc7vczvccccdzdd%d&ddd(d_)d .d.d1d3dS4du4d 5d*Dd1DdPJdQdRdSddYdZd^d_d$edqdwqdqdudXxd}d~d0eeee6 e ee!eeeeegee #e'*ea,e.e/e/e3e4e4e66e9eTeTeUeVeVeYe]e^e`e3deeeleoe5teteteF|eeff!fTf, ff'ff f1fff$f)f(.f 6f6f:fJ=fQ?fmAfGBfCfDfGfHfzIfJfKfLf_OftQfRfTfUf.WfWfbZfM_f_fbfhf@jfjfmfqfjyf|fgYggogg ggggggg:#g%g%g%g'*g*1g\2g5gsisiyijjjjjHjj}jjjja j j>&j)j*j ,j,j-j*5j;j;j;j(=jA>j>jIjKjNjPj>QjUj WjDZjR`jfj{gjznjBqj\vjwjyjO{j{jikkxk4kN k k kEk&kkkkkk$k1kk k"*k+ke6k6k7kj:k:kd;kns>nCnsInNn=On PnPnCSnTnWn[nS[ns`nfenhnpinAln qnPrnrnxnm}ni~noo\ oo`ooo["o1+o,o/o/o0o2oF5ogAoAo0Do,EoFo$GoIoNonPouQoVRoVoZo_ofofhoiorkoClomoOooooporouovoxo=pippp- p ppppppCp] pn"p#pB$p%p&p&p(p-p}0p0p2p7pN8pApxGpGp5Hps_BsHsSsIVs*[sC^s_s`cscskscksnspsrsus[xsysO{stttb tE t t! tt]ttwtttt!tv"t"t#t#t$tl't`+t+t0t2t5t"6t-8t8tEtGtItOtYt[t[t[t_tbtdt7etetftnt>qtxtxtxtxt&ztzt|t|tT~t=uDuuu\ u6 u u1u9uuuuu0u,u uE!u+"u$u,*u#.us1uL6u>u3?u AuwAu?HuIuQuSuTuUuZWu XuYulbudu=humupuquvuyu~uvvUv vq vNvv9vvvvvv*v_vDvuv`v;(v^(vN.v.v0v0v7v[8v8v:v=vBvEvFvwGvMvNvOvPvWTvVv~Xv[v_vl_vcvdvkvmv"w%w9'w'w*wC0w3w5w:wAwWAwXBw3IwIwNw#OwGPw`PwSw+Uw\\w:^wcwdwewgwjwKlwpw/vwSvwzw{w{wz|w!xxx xxxxox:"x{"x[$x'xS*x*xu+x+x 2x2x'5x5x6x;xg>x@xAxRBxnCxDx!ExEx8LxLx$PxWQxRxdVx^xcxexixdmx.oxUrxhrx^xxEyx~yxyxA|xI|xxy yy@yyyyyyOyyyy y(yU)y@*y2yh4y5y78y|=yCy DyFyJGyHyPySyTyTyWy1XyXyXy[y[yj]y^y`y`yayfyfyhymyoykqyvy>wyzy}{y{y{yzV z zzzLzzzozSz$#z(z(z<)z)z(*z%,z3z8z=z)=zBzDzHzPz;QzRzSz[TzUzXzZzb[z._z;dzjzoz^pz(szwzO|z{{ { { {{{{{@{{{{#{${({-{0{1{5{c5{6{<{<{#>{H{H{L{O{eQ{Q{S{W{X{F\{\{$]{]{c{qh{j{k{Ok{l{o{p{x{{{}{{|%|n|8||O|v |V | |/ |P||%|C|K|||!|0"|+|)0|10|2|d8|C|G|3M|CQ|U|uZ|\|]|_|b|6b|9d|^j|p|r|s|v|y|z|~|}}}} } };}w}-}}}}0}i}2%}%}'}(})}*}[/}/}3}v4}A}^B}SE}>G}zI}J}HK}%O}Q}T}eU}U}TX}(Y}"Z}S\}_}(~\*~+~L-~-~0~1~3~43~a5~o7~Y?~?~'B~mC~D~H~I~K~K~oM~N~T~`~a~~c~e~i~m~xo~o~q~}~+~~~~LM x  -    $|*W6G!O$+;..06]:<;H<?@@F8J KLkPUVY\```ddhjkkollmjppq r|k~7OwT| s jA"9$ &:'u+,./2//202y335Z67<<@MBC|EEI~KKKMNRX[^$i6km nopp=qtu H ~D!'%]%&)y-./4&6 8C9c>>@HI#JLtPPQGRS(T}TUV VqVj^p_WaCef%h6lmrxz|Y}`V _ ')X*23O: ;==H>>>@CGGHKMN]NNOnPRW[/^7`eMnEqsswy|}~M r !~'S-0O235oA7BEGOz]c(fRillWm6orttuCx}d ,$!,--N//;23<3'9#<<JFMwM9QQUV[\acccejexeiik0lnosu(u~W 6 &,+z+1267:"?@DF=OVyXYM\_ !25>%~+"%.&='(**./55'>>@9BCDELMOP e "S".|/163 8f8:9l@CDFFGeKpK LOR-UUXZ,Z_ddfahhLlZmprvXzK[ E P P$N% &)+ 0C89`;w<0@VBCwDDvH~N5ZZ^^^`fim r_rd-/028I999z@ACFNQVVZ[\ ]g^G_bdefzinwwa||| !f k'*..]12O5b5f7 84=@@dDEEhI[KdKLQFVX\a`acehp7qttt~Gr C?p!!#(,- 4 5?8]<z<?X@C!DDEBFI@J]JmRR3S6TgU\\Ka{ijn s`tfx1{~A- i OuW U"Y"#C&',';)V)*>,,#1+3667":E@AOQ5UY/]]`)`b]ddhjjjkpmmIno qqsuzz {#  DV Y!"&j*,n/.035X7*;<=CGIJ#WXZ\]{bccedsttRwkwxaz{}o~V+ivV!I%h'M+a+-.3 <AAbFFHaLLHM|QTUWX\-^d~hmmowszz&{{1nY8)-T #,-.../3q58B>DFfM PGQUtW[L[)\x^airjlpqbvvv{t}o 7 vew" '$(,I.m/37::>?~BBEJRU9VW X[Z\G];cAe\ggjWknr~v{{} $&A%U(<++|..234457$;==@GHCIEKO)QGSSTT_VZ[]addegghh.lvw}8}z~!b "$'*N/@AIIJJKVMPQ VVZ8[C_lacff*g hik"llotuv-zz{U{if =zHg%$,$, /2/37:::=AfHjKKL4ORW\`cbflImrvx{/} \cdS#1$$1686;;&??@AFGGI.JKK-NQSRUmZ\]garacRcfgj6pkrrttux2yVzzg}~'5L k ^!/#>/1z23m88>D@CC/DPDGLLOQmTTT{Y]}albcd_hiklKnorsRvw}qZ jx\c 7 "'))8+-R0r234669=BFFzIJ:P W[XZ[^bi:nov{(|R~F $^ """$)2)+0(1E:ACDGGMNNQJTV5XY\]^clgtv X_ :"('+,50s2 >>@@ACDFNMMQRTUfkmmstxUfm/? !C*/%0]35568T88>>FGHPWW[]R^jlsktpw)yyyzk}* /@Our y 5!(])~)1,,-E29L;;@<>BD0KLMPUX["\be!kqs1xDz{~cSO8 wg0&)*T+/4j7779=r??ZB/DFFFzH4LkOOQSSZ=^b^`bcce+hmtuwK|&3@LE"#$x''(,..1j5J6YCFH+IxL;N%OKOQQWRZ[%]_knnTrqr?vwQy#|(W g$.%a)G1g689(<>@EIILKLPRWW XX~X3[@]aeHiop{|C~~s$ u !~&&'K003J7<==R>?SAJKG3HHhIKLJNRSTY1bOcdgg{hijrk\nou=v}{T FqzXq"#/),".g16=@ADBFI?TVZK_afik nrsy\}A |4va w"#(+,.G/d/2:0B}BCIJuP,W?WX[\Rc`cd7e4gBijm&pq5x#|_}`~ n$&(189Y::cADDiGAHI+,X7?BEKQVVa+bfmmox)~1 f"%{&'1d1L2Y4!5:;uDF`JWK*LLNPROWXWX\]9aabkk8mmqr_s{}xT#="(--/1:FHI@JsLQ!Z]ai3k"mnop % d>$%&Q&&**+,L/08V;=RB&EGLuLL&M}OmPSU V~VdXZZ[)\\ijmmqst;wzD>a Q e VZ%&u&(/J0223`728G:;BEG~H;LJMzUV\.`badjjxprstu| b ""%(*/T025":z<>lAtKNSS-VZ\adefsj/n}npr/tuuzwlyy|}q@  !!')K*,*/712 34A7d7;<.? BkCJOQZTV#^+^_:`%b diii lrzz} r9 }z;D!<""&)_**+-3./z6=6>{?ACMU^Y`aWbnbce9f{ghjk/ppqssv -{ S !@'h*..k/;2t377g8:F;<ABCSY(^ bhhnv{l|g}~~vq L <H_!!""%,27;73:<@FFIqKK LPRRBSVlYZf\]Tf#jkqIr sux|Yc4 p<Tv"7$>)@***,.'/b0Z1127p8A99<BgDEEI5KRfVVVY` behnlorx8xx,z0|]c2@w #V%+R-2BC6ELGGJO/VWY@\\\`mcc/df~fhi|npBqnqvN|:}:~~; :9K<tb#'*~/*4856]:;BeDEH{NPRDVSZ]`aLff%jnrrr{t|n}~M9x @#%q!%Z*..a.26:ACEGJQLNRTXZ\^^|_bocdzlm o>oost`vwy{r~"!FQ~j!J""(+++,,6-:00[57389X>>?kFL5SSTY\,^```df,rbstu=ww7U| W bm=v}!m"&))#,,07011467; =z???ErJRRTNYYZZ [f]E`'bd3fZg@l,m!((u-12=KQRS)TYZZ[\C_a dgffimqpvOx2 } uu k$+,y. /V/:2r56:>@ACC*DFCGG}LTWY3ZZ_c1dad>jZl&mqsrux#|~1] ~ z\#r#_'(*388:>B\EzEH%IJLNDOsOPYO[^ajkqrkxyy|}} \H$T /0578:x="@AEfOO'PU[d|ee{gjsmo sx[yzB|} 0  Evig !m&u.e67:BFGJKMN"Q{QsUHY]^^_eij3luyy,z'9G!"F&+/0223367-;@;~;?lADDJJ=MoTTTX]&do(ruz}i[z |H!3#'( /?//t23C4478:@eHI~LxPzYJZZ_eeSkckrauuvtv3w|nX=}^!! *+00%4799;?@%AFGKMS"U,V6Y[\]h>YAnCAFGHJLMNOPV.WWX$ZvZ4^&`*a]dn tu vnv:  4 L&!3!%(**+@,- 569O:L<<7=R?AC>D5EHLNAOyOTdVY]``RaffgGhhjpl(nSopv`v#*mn | |!())--./.3W66 7J7x7b9:,;?;>"AAEGHOQRVSXUVRWY=Y0]5]abceiJlmq\rs}xxzzp{{N.os j`{%)+ -m5<??B~BFFHeJLWlXZ ]dlnssuv{Mn V,s o%-q.96e6=C~DFJLaM6PTsVBWZ[gllo3qqr@r1]%9'(/566M7S;>EiFXILLQRTVr\``Kefixopvvw=}J W#kSj(1[2{3t4M557;@`A DEEFJYK"L NOUpXXcdn_oooMww,zz}Hj 1 ?& ' **+,2H?qAhBsBGKKNNNQARS[^bdde(moop"rTss3tw7" ]r) "$)F*.P78D;k>@mDDK`LLN:PQQQR'S0VWYYsZ[:\+`a bdHkkmpqtRwxw|) \ qs y "$ 'V'*-Q4^77<=>BGNPQR7U:VWWSXYrdVf$ioqrsvxx}2P = T ! *-50\113<=>u@ BEjJLLMOPQQX2\cftux y){| F x zsW %&(-|499>?Q@AFGqMcOQ\QQXY]S^`cdfghJrCyS  "&'c+1G5wDSGKLQYS[XiX.YZ^<_Uad7gllmruNvvsw,yzR{&A k vArV%5)G-52f4577;CDZG^I1JyUU[_bEe hjbjptBy9z }l) $}))-003254<<RBCGGIK*NOTVYZu_cjnor7xxey|Z~ , ? }a  "q%,-.03 47?@AgCDHHH[MOXQUZddeagh"inqLr|rtuw w*w]yk{|^ ^nA|!"p$S%%'i,-!1_629>\@:CF\IPUXA_ogsu_vCw%y}}Iby-i #='D(w(*-{1275$6;@tCALLpMTNN}RJY\acPfjrssy{h|~x8 #pYbkjv2D346::?M@ACGH>IORSSUY_`a~cThejgmnnu6wrxz}6 ' a  L"Z#&*./)1389:m<k==@{E3IxM1PYUV0[[]P`UcdebhdlnIrowz{~~< e+5"#')x)O/0<45k77";<*AAnDJHMnOSWXZ[^bcdg`imTqOz|h}+eG,C%0*|-./;<J@ADLMwNNRTU_efhoprr`zz{}}^ !"u"&*''X){./023s5}5788? @ AHvQR4RLUBWiZf\`b>hhvOxZx?{{|(}PA | * P{8(#$}&R'07<<C@AA+B~HqIJ_KLNOtScT]]fffillnqssuvww|.} r o3 !)*).0i117 =>s?@AB|BDIKCLNNQ9Y]8`|abzeeDCGNvOO(Q_RSiU\^Td7kZlmYn*ooMvwYzF|~%S u g!!\#$"&')@,->8M8;;;3>AXB/H(KLT\acegghl"q{| V%**+.s268@$ACWI1KVKMOQDTZ6\\_`ahrkyy{}3 Ro\ $%'-e238f:;B?{?HIJMLSO TPW_YZ1]5H7BbELAQT&UzVW[_`0dqgnqz|~q \ xI'013J68?AAH5PBU5Z6]b]:__efkkdlrr|gE*6i s&*{/&2\455P9<<-=>u@ASCaHHL%XKZQ[^^bc|g hcjTloapuvw~xmz{}#  9"%,D.\2x3_679/:;<<@E?FHQQhVVeXx_`ccegfko3ppssvP{UV]a K8{"3%-))Y/0<?K@1D{DGJKPQaVXT]efWlmBquwwx}? Z r^!Y$`%*-1)23F46s889:<<<>AACGMiPSTWg]j~kn%vivQzzJM1YV s]W' C#($ &&!''. 01a26=L>@@DGEGIJKMmOOO6PPzZB[^[N\^`ao>qsuzww|}}}Kx ( )M!_!m$%e''*=3'4(449 =:FG#I|I2K:KKLQSITUVMYk``b!chlloZ>B?i?x?BE]HIIJJ KHMPTU"WYPYNghijkno-ss?vx=z{|:~W "&'446U79;:@LGHKRRR SVkm{*~MZj [j !-C.257;>9?@zCGnHKKM)TjV a_af*knpJrs-tu@{2}u q!l'()[**,-/14]58:;;@@AEFCGJJ)L@NPR:SVXYY[P_&kknpwy|}BL y""B##&O'v)*,,P01 6788r9>?DF:RkR>>GI|KLPrQQ(ST^YZ3]kklmp|uIv*x4{u~Qz+P%%/+3//=066J7QAVAC+G&K MZ__abcqdem_nssptKz 5 5"^ X!^""#&(-G017:<'?? A8BQEEKM0SSU:V*]egxiajjsuu3wPyVy[{~~/l2 [|'(7)k-D./227>?@:CDhFF8GN SSXY\[ccefgijlpaw"|}F}}~Nx <+""&*+3-B1 7089I9:O:[={BBC;EHOPQSTVX[[^tddijelmlmMmnouvwz{ ] G U +TL!_%K&+.'3P5"77c8f9<<DoFGI1IQJKLLSXRY'^_deh#jmnnoorxsitxy yhz|X{Y$,(Q)[*,F#GI"J MFO}O QRV2Z^'_kc dfaginr syttvyJ{'|}}c{ :E,.01588CD+FHJGLMPR4V]]ae?fmen}jo 4Z #G##$+%%&n))f*n*+e3W56m7c8:(?q?IA>B(O,SSWWX[\I^afek1llAnopqGu*w~.w%&"t""|%%%+d,3&4S4s= DJ'OPSSTUY\]cc-diller{qv  !$))//u9 :Y:*@=@n@HRVTUX$_:n?ب?uS? ?пDyGj2I\3OSp[[k-]n~]r]0^p^v___H_dWkno]oSpqlr@rspvwwrw"owyvZyzyzz{w{7|uz~u~W~].~~~dc40ygB?ϟ¯?ߚm𢡊?U6W}yќ.ﻬ#_ν޾=wL_yQ.:κeL?.RCދ>ߡ]ߧ:vύvE_}:AM?u5q*SW C0'rvWMu$a~BWvL{f` NWv/Ŷn C!~~ (CLLL``````ff0_2$#KL6t()% 'z2$͙O l4("2$vt*CzV2$ ^!oo322$ X4DNZ`dpvy+17CIL\~ 1=CUagp|4D % 5 D T Z f l    ! ' > J P n z    , < K W ] k w }   # n ~     " ( * 6 < > J P R ^ d f r x }  "2:JN^br,?OUejv{} "2Sc}'7K[o*:jz 8Hbr%AQ 2By *-/;>.!1F11F1F11F1F11F1F11F1FG$FG$1FF1G$FFFFFFFFFFFFFFFFFFFFF1FFFFFFF1F1G$FFFFFFFF1G$G$1G$1G$G$G$FFFG$FFFFG$FFFG$FFF11G$1GFFFFFFFFFFFF1G$G$G$G$G$G$G$G$G$G$G$1G$G$G$G$1G$FFFG$G$G$G$G$G$1G$G$G$G$G1F11G$G$G$G$G$G$G$G$G$G$G$G$G$G$G$G$G$G$1F1FFFFFFX$(/1fmo!!!!jQSVE3uSVE3ueOHQCgeVElQ^SVElQ^eSf TySfN1,{NSfN_Y TSfN_,{NSfN_ NlQ^Y TSfN2 SfN_vQNSfN1_Y TSfN_vQNSfN1_ NlQ^Y TSfN_,{NSfN_NS3uNHome3uN1type_1marks05_3uN_3uN1 3uN_,{N3uN ,{N3uN_Y Tb Ty ,{N3uN_5uP[{ country_2 province_1city_1,{N3uN_W:SaNWSLrS country_12 ,{N3uN_?ex,{N3uN_5u݋3uN2type_2marks05_3uN_3uN2 3uN_vQN3uN1 vQN3uN1_Y Tb TyText1 country_3 province_2city_2vQN3uN1_W:SaNWSLrS country_13 vQN3uN1_5u݋T|N marks06_T|NT|N_Y TT|N_5u݋ province_3city_3 T|N_W:SaNWSLrST|N_?exT|N_5uP[{ NhN_yr+RXf:NNhN N)RNt:gg_ Ty N)RNt:gg_NxNtN1NtN2N)RNt:gg_NtN1_Y Tmarks07_N)RNt:gg_NtN2N)RNt:gg_NtN2_Y TN)RNt:gg_NtN1_]\OSN)RNt:gg_NtN2_]\OSN)RNt:gg_NtN1_5u݋N)RNt:gg_NtN2_5u݋cMRYteNoR,g_DRcMRlQ^ marks09_cMRlQ^ marks10_[gW@x[gW@x NReNW@x N_Y[g_DR _Y[g_8hx_DR8hx_ cSYcQvыe_ux8hx_ cRekbJTvыe_ux8hx_ cN)RT\Oag~vыe_uxCheck1marks13_sQNc_ReQvfc_ReQf uirPge7hT^Rh mark_BIOStartuirPge7hT1 BioFirstRow YhSfymRh~{ N'N1Ye'`Xf N'N1Ye'`[PgXf!kSh YgBl6e0R NRwt^6e0R NRwg6e0R NRweSt@\b~~NVE3ueDR ,{12ag3ZPQ[ St@\[^3u:NdVT\Oag~,{25ag,{25ag,{101agmarks14_3ueNnUS3ueNnUSmarks15_DReNnUSDReNnUS Y FhW10 Y FhW11 Y FhW9hQSO3uNbN)RNt:gg~{z 3uNbNt:gg~{z_~{zdoc_endcQeg_t^cQeg_gcQeg_e;|S"6Nc22==B2Gdy7~   1OUp4% , K k   XbbUj}"S}y /!   % !"#$'&0()*+,-./123<;456789:=>?@BACDEFGHIJLKMNORPQSTUVWXYZ[\^]_`abcdefghiN%f5G"a022BBV*EGwy2JLDUhE " 6 = ^ ~ $ bbbf| 3d&.?!>V$V3V.V4VV-VVVFVC V@ VA VD VE V&VVV%V5VVV6V7VVV'V(VV9VVVV: V)!V8"V?#V*$V"%V/&V0'V+(V=)V;*V,+V>,V-V.VB/V<0V 1V#2V13V4V 5V 6V 7V28V!9V :V;V<V =>Project.CopyToEachDoc.AddFuYe Project.CopyToEachDoc.ChangeHeadProject.CopyToEachDoc.GrayFlds Project.CopyToEachDoc.RemoveFuYeProject.CopyToEachDoc.testProject.ShenQingRen_New.Test0Project.ThisDocument.GetAppProject.ThisDocument.init2Project.modCPCLeftTreeInterFace.AddInterFaceFuJian'Project.modCopyAndFillRecord.InitDocCob%Project.modCreateComponents.CreateBIO%Project.modCreateComponents.CreateFMR,Project.modCreateComponents.CreateFMREngInfo,Project.modCreateComponents.CreateSQREngInfoProject.modDya.DelShenQingRenProject.modDya.addDaiLiRenProject.modDya.addFamingrenProject.modDya.addShenQingRen Project.modDya.addYouxianquanSHMProject.modDya.delDaiLiRenProject.modDya.delFamingren Project.modDya.delYouxianquanSHM Project.modInitData.initCityListProject.modPub.AddSignDateProject.modPub.EditYXQProject.modPub.FormHideOrShowProject.modPub.RefreshOcxTreeProject.modPub.SaveXmlFile!Project.modPub.UpdateCobCountsYXQProject.modPub.UpdateFieldProject.modPub.testxmlProject.modPub.uirPge7hT!Project.modSpecialChar.ChangeWordProject.modSpecialChar.DelPic Project.modSpecialChar.SpecialCS#Project.modSpecialChar.SpecialSCXMLProject.modVerify.invalidDateProject.modVerify.invalidDayProject.modVerify.invalidEmailProject.modVerify.invalidMonthProject.modVerify.invalidYear"Project.modVerify.validateInputLen!Project.modVerify.validateNumericProject.modVerify.validatePID"Project.modVerify.validatePostCodeProject.tmpmod.AddFuJianProject.tmpmod.AddQingDan%Project.tmpmod.DelFujiaWenjianQingdan!Project.tmpmod.DelShenqingQingdanProject.tmpmod.EditDaiLiRenProject.tmpmod.EditFaMingRenProject.tmpmod.EditShenQingRenProject.tmpmod.UnlockDocProject.!jWW1.DelLineProject.!jWW1.Macro59Project.!jWW1.Macro60Project.KmՋ(u.JustEmptyClipboardProject.KmՋ(u.ReNameYXQFieldsProject.KmՋ(u.fdsjProject.KmՋ(u.findBookMarkProject.KmՋ(u.findStatusProject.KmՋ(u.ttt> PROJECT.KmՋ(u.TTT PROJECT.KmՋ(u.FDSJ PROJECT.!jWW1.DELLINE PROJECT.!jWW1.MACRO59 PROJECT.!jWW1.MACRO60PROJECT.MODPUB.EDITYXQPROJECT.MODPUB.TESTXMLPROJECT.KmՋ(u.FINDSTATUSPROJECT.MODPUB.uirPge7hTPROJECT.TMPMOD.ADDFUJIANPROJECT.TMPMOD.UNLOCKDOCPROJECT.KmՋ(u.FINDBOOKMARKPROJECT.THISDOCUMENT.INITPROJECT.TMPMOD.ADDQINGDANPROJECT.COPYTOEACHDOC.TESTPROJECT.MODDYA.ADDDAILIRENPROJECT.MODDYA.DELDAILIRENPROJECT.MODPUB.ADDSIGNDATEPROJECT.MODPUB.SAVEXMLFILEPROJECT.MODPUB.UPDATEFIELDPROJECT.MODDYA.ADDFAMINGRENPROJECT.MODDYA.DELFAMINGRENPROJECT.THISDOCUMENT.GETAPP PROJECT.TMPMOD.EDITDAILIREN!PROJECT.KmՋ(u.RENAMEYXQFIELDS"PROJECT.MODVERIFY.INVALIDDAY#PROJECT.TMPMOD.EDITFAMINGREN$PROJECT.COPYTOEACHDOC.ADDFUYE%PROJECT.MODDYA.ADDSHENQINGREN&PROJECT.MODDYA.DELSHENQINGREN'PROJECT.MODPUB.FORMHIDEORSHOW(PROJECT.MODPUB.REFRESHOCXTREE)PROJECT.MODSPECIALCHAR.DELPIC*PROJECT.MODVERIFY.INVALIDDATE+PROJECT.MODVERIFY.INVALIDYEAR,PROJECT.MODVERIFY.VALIDATEPID-PROJECT.SHENQINGREN_NEW.TEST0.PROJECT.COPYTOEACHDOC.GRAYFLDS/PROJECT.MODVERIFY.INVALIDEMAIL0PROJECT.MODVERIFY.INVALIDMONTH1PROJECT.TMPMOD.EDITSHENQINGREN2PROJECT.KmՋ(u.JUSTEMPTYCLIPBOARD3 PROJECT.COPYTOEACHDOC.CHANGEHEAD4 PROJECT.COPYTOEACHDOC.REMOVEFUYE5 PROJECT.MODDYA.ADDYOUXIANQUANSHM6 PROJECT.MODDYA.DELYOUXIANQUANSHM7 PROJECT.MODINITDATA.INITCITYLIST8 PROJECT.MODSPECIALCHAR.SPECIALCS9!PROJECT.MODPUB.UPDATECOBCOUNTSYXQ:!PROJECT.MODSPECIALCHAR.CHANGEWORD;!PROJECT.MODVERIFY.VALIDATENUMERIC<!PROJECT.TMPMOD.DELSHENQINGQINGDAN="PROJECT.MODVERIFY.VALIDATEINPUTLEN>"PROJECT.MODVERIFY.VALIDATEPOSTCODE?#PROJECT.MODSPECIALCHAR.SPECIALSCXML@%PROJECT.MODCREATECOMPONENTS.CREATEBIOA%PROJECT.MODCREATECOMPONENTS.CREATEFMRB%PROJECT.TMPMOD.DELFUJIAWENJIANQINGDANC'PROJECT.MODCOPYANDFILLRECORD.INITDOCCOBD,PROJECT.MODCREATECOMPONENTS.CREATEFMRENGINFOE,PROJECT.MODCREATECOMPONENTS.CREATESQRENGINFOF2PROJECT.MODCPCLEFTTREEINTERFACE.ADDINTERFACEFUJIAN@Dd@@  @A(8 \? VGr 1C"`2#KL6t()% 'z`!#KL6t()% 'zs$s$xcdd``b```da ff``L Ȓ*b128pc21@l6jo/!@ v:$/ŵICƏ@61 u!s2fu& Dd@@  @A(8 \? VGr 2C"`2͙O l4("`!͙O l4("s$s$xcdd``b```da ff``L Ȓ*b128pc21@l6jo/!@ v:$/ŵICƏ@|@s u!s2fu& Dd@@  @A(8 \? VGr 3C"`2vt*CzV`!vt*CzVs$s$xcdd``b```da ff``L Ȓ*b128pc21@l6jo/!@ v:$/ŵICƏ@܂?B]FLYfIXDd@@  @A(8 \? VGr 4C"`2 ^!oo32`! ^!oo32s$s$xcdd``b```da ff``L Ȓ*b128pc21@l6jo/!@ v:$/ŵICƏ@<]6MB]FLYfIe= Dd@@  @A(8 \? VGr 5C"`2 X4e_N)R;NRO9eCg)R_DRD c_ffN__eQe yyyy-MM-ddc_ReQf_ gc_ReQcNe]S+T_c_ffN__eQehDhDrD Y FhW6hDhDhDrD Y FhW9hDrD Y FhW2hDtD Y FhW10tD Y FhW11rD Y FhW2rD Y FhW9rD Y FhW9rD Y FhW9rD Y FhW2rD Y FhW2D 3uNbNt:gg~{z_~{zhQSO3uNbN)RNt:gg~{z_~{zD cQeg_t^V[wƋNCg@\[8ha_cQeg_t^test invalidYearD cQeg_gV[wƋNCg@\[8ha_cQeg_gtest invalidMonthD cQeg_eV[wƋNCg@\[8ha_cQeg_etest invalidDayD cQeg_t^V[wƋNCg@\[8ha_cQeg_t^ invalidYearD cQeg_gV[wƋNCg@\[8ha_cQeg_g invalidMonthD cQeg_eV[wƋNCg@\[8ha_cQeg_e invalidDay$$If:V TT44l44l04f4%֞-!%5 555 5559Ffdm$$If:V TT44l44l04f4%֞-!%5 555 5559Ffqo$$If:V TT44l44l04f4%֞-!%5 555 5559Ff~qID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=CopyToEachDoc BaseClass=frmAddDaiLiRen BaseClass=frmData BaseClass=frmFaMingRen BaseClass=frmShenQingRen BaseClass=frmYouXian Module=ListHorizantal Module=modAddoneField Module=modDya Module=modFaMingRen Module=modInitData Module=modPub Module=modVerify Module=ShenQingRen_New Module=tmpmod Module= Module=ģ1 Module=ͨģ Module=modCommonObject Module=modCopyAndFillRecord Class=FMR Module=modCreateComponents BaseClass=frmBiology Class=BIO Class=SQR Module=modCheckPID Class=DLR Class=YXQ Module=modInterFaces BaseClass=frmBuzhengNR Module=modBio Module=modNewElement Module=modChrProcess Module=modCPCLeftTreeInterFace Module=modDLRInterFace BaseClass=frmMsgBox BaseClass=frmAddRecord BaseClass=frmSup Module=modSpecialChar HelpFile="" Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="6664CAD95A6B276F276F22742274" DPB="2F2D83108510532D532DACD3542D1056CA6F99F7C60C9DB62369394FD7EE99270989E977F94EF6" GC="F8FA54A755A755A7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C CopyToEachDoc=0, 0, 0, 0, C frmAddDaiLiRen=0, 0, 0, 0, C, 25, 25, 1080, 498, C frmData=0, 0, 0, 0, C, 75, 75, 1130, 548, C frmFaMingRen=0, 0, 0, 0, C, 100, 100, 1155, 573, C frmShenQingRen=0, 0, 0, 0, C, 125, 125, 1180, 598, C frmYouXian=0, 0, 0, 0, C, 150, 150, 1205, 623, C ListHorizantal=0, 0, 0, 0, C modAddoneField=0, 0, 0, 0, C modDya=0, 0, 0, 0, C modFaMingRen=0, 0, 0, 0, C modInitData=0, 0, 0, 0, C modPub=0, 0, 0, 0, C modVerify=0, 0, 0, 0, C ShenQingRen_New=0, 0, 0, 0, C tmpmod=0, 0, 0, 0, C =0, 0, 0, 0, C ģ1=0, 0, 0, 0, C ͨģ=0, 0, 0, 0, C modCommonObject=0, 0, 0, 0, C modCopyAndFillRecord=0, 0, 0, 0, C FMR=0, 0, 0, 0, C modCreateComponents=0, 0, 0, 0, C frmBiology=0, 0, 0, 0, C, 175, 175, 1230, 648, C BIO=0, 0, 0, 0, C SQR=0, 0, 0, 0, C modCheckPID=0, 0, 0, 0, C DLR=0, 0, 0, 0, C YXQ=0, 0, 0, 0, C modInterFaces=0, 0, 0, 0, C frmBuzhengNR=0, 0, 0, 0, C, 200, 200, 1255, 673, C modBio=0, 0, 0, 0, C modNewElement=0, 0, 0, 0, C modChrProcess=0, 0, 0, 0, C modCPCLeftTreeInterFace=0, 0, 0, 0, C modDLRInterFace=0, 0, 0, 0, C frmMsgBox=0, 0, 0, 0, C, 50, 50, 1105, 523, C frmAddRecord=0, 0, 0, 0, C, 225, 225, 1280, 698, C frmSup=0, 0, 0, 0, C, 0, 0, 1055, 473, C modSpecialChar=0, 0, 0, 0, C  @ҋB `":5j(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1U\gҋB ` ҋB `0ҋB `Kѽj(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1@2iw= .Count` Then #.FirstCellTxt@,"`Ʒ" &M@OJO= 6( , /½,b0ookmaReAFilqsIn Bh ,9Sour ce@  - 1 'WGl\'݇{eTotal "=N,__xS+Et5a.\5_6End IfWTru Sub oDeleteFaM@jpRen(@TgBT  bqRow=E  n  8JxME (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}  @i`i`  %`B  iD X0%`x00[je "  ( 0@Xx&62 $@hp  "    DУ]]] $(  'B ID B %!$'  ! ! ( ) (  $'=½,¶bookmark  !  A@XFormField  A@0Total=  B %A@^d !  A@kp $(oX.IJ $( D A@IJ $(oAttribute VB_Name = "DLR" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz E Public S(ub Ue(NewComPonentID As Integer, FieldS tr ing) ' Dim T4MarkCmpPara; 3p3Source6@5AppYation.ScreenUpdng" = BKM_7Info,ID#=9itC?G%(ThisDocumC.Form%s().HelpText)IfAQ>= D.Count Then ,FirstCellTxt5AKeVBody & x"("@,Fl)A@c=%8(, +@u½,b0ookmu,ReFilsIn{| ,=KHD  - 1 'øYGl^ '`GDeTotal "Z=&,1?=D;E}E,nX6# End Ifc:]TruSub jyDeleteFaMtRen>(^3@y $v dA "IRowe=E Bt  $OOSendMessageAxMEH+@ i`i-{?ii@8!+ i L8H8Qh8"}Xb888888([jeH$ B ( 0 &@ h &x "  "    ( 8    ]D8$$ ΪListBoxӺ$ $ ɹTrue򷵻ʧ$$ lstDest:ListBox! !  !A@'z'iɱAttribute VB_Name = "ListHorizantal" PrivaDeclare Function SendMessage Lib "user32" _  Alias "\A" (ByVal hwnd As Lon g, 8"wMsg"Param8lAny)&Const LB_SETHORIZONTALE XTENT&H194ublicytBoxenScroll(lstDe(e@Object:B@oolean$'`$܃$Ӻ؈ɹ Trueʧ)G:4On Error GoToProc  wD.k,M, E Width, j|0& RO\5I ExitF] *(:#False E rU~~~~~~~~~~~~~e    cobDropQuitFlagwordApp i(_һ_ 8 "_һ_ܲڵ )_һ_ӪڵػӪҵڵ1 $_һ_ʡֱϽ_һ__1_ #_1_ܲڵ *_һ_ӪڵػӪҵڵ11 iHDocObjpwd %_1_ʡֱϽ_1_ϵ_ʡֱϽϵ_ +ҪȨ_1_ +ҪȨ_2_ +ҪȨ_3_ +ҪȨ_4_ +ҪȨ_5_ +ҪȨ_6_ +ҪȨ_7_ +ҪȨ_8_dbcon parametersstrstrKeyfilepath %XKeyCodeShift lpClassName lpWindowNamehwndhWndInsertAfterxycxcywFlagsstrName oriFldNamefldNamename 7hdesFldoriFldfilename wordFileNamexmlobjnodeNamesValue +xfldValuenodNameindexNumnoddesNodoriNodattrName M strFieldNamestrBeginstrEndSupsc yNRngObjsType xmlFileName PropertyName PropertyValuesResult colorBoder comb ReturnValueFormObjOcxObj CloseMode sFieldValues_strCmpPara ComponentID VTableObjMarkNameCellTextOldIDNewIDFieldStr CobMarksStrcobStr DataSourceFlagNewValueAddStep NewCountStrCobObjPrvcID OcxContainer ZLstObjMoveStep ComPonentBodyLstIndexFldObjfldTxt CopMarkNameCheckOcxNamesStr FieldVisibleGrU~| 0   0   0 0  0   0 p  0 `  0 p  0 `  0 (  0   0    0   0 8   0  0   0 H   0   0   0 h  0   0 h  0 @  0   0 x  0 0  0   0        frU 4`Yq4&,`=,`000` )0&&,!`A008I`)a0&&,q`00,`000` 0000 ` 000 `009 ` ) 0=! (a `0$ `,`)=y 0`)0=y ,`A000)`A)0=y (Q`Y;,y`=8` =&0,`=4 `=&41`!9=! /(Y`Q0,`Yq;0(`# IVnrU~| 0   0 `  frU (`90,`!=! n30* pHdProjectQ(@= l [je J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation`EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\@CommonMicrosoft Shared\OFFICE12\MSO.DLL#M 11.0 Ob LibraryKMSForms> MSFrms3 D452EE1-E08F`A-8-02608C4D0BB4SFM20L'B _&/;"~1jIqAHq00}#0Bq# ў50 Ae208A7-2DA5-4CEC-B362-49920EAE4C6@ƉUsers\ZHANGJ~1.V\AppData\Local\Temp\Word8.0d9.exde>#.E .`M A҃MSXML2iXMLj2l b3F5078F18-C551-11D@3-89B9LF81FE221}#4msxml`4.dll,, v #NFTalNdFaq ` `*\C˃Zzc_ya >_y_y_y_y{_y~5_yz_y_yGyVBIDE> @/VBIDjEC`E)E8157A5.3?'VBA\`6E6EXT.OLBhHVisual Basi@c for glic"s Extensibility @"Ɉ(ThisDocumentG*T@i DPcuen@2` H16"E,x""+@,CopyToEach (G@CpyTEaªh 2oO2\/E/"g!b%afrmAddDaiLiRenG! f!A@"d@ai iRn2 0\U(Z AP MsgBoxXG M g,ox` j2oM`xr ) 2pp\GpUSDt0 23p=s-FaMingrq-FM0ng6as-3 7_B srmShennQ S76Q 4$X9$_1_ }Җ_ _ BO@YouXiaP.EF$Yp!uX a0A2i"n)F$3ListHorizantals7LP!H0 rz%lt7[3_7 S?0='{ASQRGHSQ`%D2H?A?3modGoneField3mTdGoeiGlH&[3_*FedsB= };ar#BiologyGx B!o6yp7#0} *ͨ@ģG(u!jWWM2 3WA0DyaGkqDja28xJMSM3{MM3{_& ; 0Init^#I@)iw_2Ы0o+e= {\Q4PubPb)tVerif/wV8Irf jwcyVeri@fyH(18,$P,HP!0+ShenQingRen_NewGhS"hnQngR_Nhwp2 8R)L tmpmodG ! mpo6dE27Y 7F.7G.Kmհ(u 2 I1 11Acģ11!jWW1f 0 ɏ00tKvLCommonO bjectvmNC@mQnObj@vct vO)~O)/K)ABIOCABI"'@O&Ob"(BE@BBpyandFillRecor@ G5panE@FllcJrB2O2$\O2NIFMRIFM&I'$ _'$$reateFponentsG& dCQeaDe`oUGpn`Gn`s;G2o_ )o+$ heckPIDGckP L6D2%Is5DL5D|L55 >ZJ5dYXQcBYXcBc o mq G`gInterFaceA`>aIet6rF`BZc s`+N2X /,^+,!frmBuz\gN@-`r BPuzDgR3 2o{ 9o>q&a`&Bio#B`o7թ߀-5B+!{Elem ;G`{ELere.9/t?9 ChrPro##Cr9rD#/#' /s Rf< BPCLeftTree&.G.CPpNL-fMTOe0DNeu/>2  7G_ [ {0F J:#G_;9a!_ _ :W[ 8AdduxU8AvdReo?;? ti? >;R0ESTup;fmu?;_]__(SpecialCharGR-ASUi Vl(hpr>_2_0GaWI_ @_ T LxME(SPSSS0{F2F34096-0FE3-444B-B200-D44C8F25AD68}{72422193-B7AD-4820-8CC1-6165BA11A574}  <ph@%p %P@p[je" oph Attribute VB_Name = "frmData" Basx0{F2F34096-0FE3-444B-B200-D44C8F25AD68}{72422193-B7AD-4820-8CC1-6165BA11A574} dGlobal!SpacoFalse CreblPredeHclaIdTru BExpose0TemplateDerivCustomi4zaDP Sub UserForm_Click() End L# 2xME(SPSSS0{E65FB2C6-AE19-468A-800F-ACA37B4BD962}{89AA3084-F16F-45F4-A11E-2CF04102D538}  @ & ( , 2@ 6   `%0 %@@@@8@@p@@@@@@0M@@P@@ [je,  "  "( 0@ "HP hx "   "   "  0 "8@H  ` X x $!0'"oX@ A@ro8 msgCoverAll'* A@ro 0!'. msgAddNew'* A@ro8 4!'.msgCover'* A@ro@ 8!'.; A@r!o]  !$' Ϊǰ QSetWindowPos lngDeskTopHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE'*omAttribute VB_Name = "frmMsgBox" " Bas0{E65FB2C6-AE19-468A-800F-ACA37B4BD962}{89AA3084-F16F-45F4-A11E-2CF04102D538} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD Option 2licit  P%) Sub chkNoAPm_Ck() ChkA llY.Valq_End%$mdCancel $Unload MÀ{overSelectedItem@""ms|gC kA) AddNewF.n>iB*QxuitWANUserForm_InitializeEDim lngDeskTo pHandAs` LongPN=@ FindWow(vbNull"S@ng,.CaUOC' Ϊǰ$Set# Pos, HWND_TOPMOST, 0HSWP_NOMOVE Or SIZEYJM?/V,3  }xME @ i`iiii`; 8 iXp[jeB  j :* h"p <8HPX`hpx ,  B   ]dCursorPos = GoToCurPos("marks14_ļ嵥", FieldMarkBody & "_Child", thisdocument) 'λWr  B@3Selection.TypeText Text:=CurFieldID & "." 'ǰк=  ! l !B@^a==================================궨λ(2Ϊãܻиֱӵİ취ʵ) R  B@ R B@6==================================궨λ % _Child 9;"Text1"'ǩƶ9999 99 9^5V Zl \C@XJļ9q8q0  B@i d B@iAttribute VB_Name = "modAddoneField" Public Fun@ction tO!t(CurLID As Inte ger, &Ma@rkBody2S ng0Text(StatusHelp ) Dim i'sorPosGoTo# ("ms14_Ā嵥" [& "_Chi, thisdocument) 'λ 5Sele.EndKey Unit:=wdLineFaTypeh:=K:." 'ǰк! .Forms.Add Range:=,, /0:= _wd9Input '==(2Ϊãܻиӵİ`ʵk)MoveLeftHCharactAcounM1, ExtendPCC+kz8Withf G`(16W.nCYA" @'@Hz'"b1"'ǩBEntryMacroAACxitnabled TruDqB Own=u`ruw'''.,NBEditAUUwdR@egular, DefaulAׂ*c/a@"`dw0 Wibd 6= 0@r !#G;w% 5e(Co nn_!2 := m 7{f<xME(0L6 < <+`` @i+`  )%` %```(`@`X`p``[je*\R1*#10b$*\Rffff*0v658ae0f9 B  (H`  B  (08 H `h x x Gzj $ $ ?b Gxj   $' Gzj7` $$ ?b Gxj   $ ' Gzjеļǹ 'i`  !lF !!d$'z !lGe5'zxkpqhi`XeAttribute VB_Name = "modChrProcess" Option Explicit Pub, Fun"c6Deld63(fldTxt As Sng) If F" TheY itK&Do While>c(RightZ, 1d))63(SL,en 0WDoc(yLefP-/ ,!VLoop [ 2ZI[oU;` EnddO|GetPureResult(FldObjzForm FieldN~Wi8th  JX.TypA7nGx )Range@.Text) EO=ElseLv1B[.!!L'" >!!d; >!J!0' "  B@ CreateFMREngInfo'oh]]] >!!L'" >!!L  >!%' "  B@ o ]`]] x!!L'( x!R!d; x!!d;'( Debug.Print NewSQR_ID Debug.Print FldStr (  B@$o(]]]('"  frmFaMingRen.ListBox1.ListCount 999;False;'˴ֵַ "  B@ oձAttribute VB_Name = "modCreateComponents" Publi@c Sub tFMR() ' Dim my, As New 2 _ID:Integer:fldString3= frmFaMRen.ListBox1Count0F -txt.Text & ";" OoptNoGongKai.Value'g.w>me, 8'EngInfo End _SQ ](c - 1, 3)Q@?RLSQRLC G. ShennQ ER Addr 'ebug.PrintJC%FC=my D@X@AÇXBIO(6?zMR+5z1 'z z"999;False@x'ֵַE svs &xME(< << < l@22i#`S@ 'J@ X`   %  %`` 0@P`p[je2"  (08@FH8   0 @HPh   0H h4x  j `p(z0 P$`n  (8]`]x]]]]]] $ ;G   $'jN 淶ַJmark_OtherFaMingRen' (ǩǷ()  !%%  %.   B@HJ $0X B@e(d  B@boBox.|k ! ( ! (Sdx $G|jdoc_end %B@Hj R B@L  B@ B@  A@ k ;$'   $,$' B@  d B@% B@ d B@$ ' B_  _ _  _A@H B@  d B@$  $H' D_   _ _  __A@HӪҶ d B@ B@ Ӣd B@A@$ ' B_  Ӣ _  ӢA@H B@ omAttribute VB_Name = "modFaMingRen" Public Sub BatchSave|(strPar@a As Sn g) Dim i*Integer*arrItems "Ele0mentXMark\3CuraBookm*A FieldF8orm TextZhkValue If Rightx, 1);" Then = Le"fLen) -'淶ַ; ue_Other 'ǩǷ(MThisDoc u.s.Expists@)W<Set S>= .S`elect#rimA ICIA ion.D@teKE5tAG End If$Start@jM+ 2 =  m ElsH)9 (h("doc_end")Q MoveUp Unit:=wdLine, coun11KeyQTypeegraphNewEmpty!G!EY%F ,Ex*pli]8";"dRn= 0 To UBd(Da@@e (i), ",% KF&|:=" " &+ 3" P%> &J = (0 0wOcx DOC_TXT C__ ", ?">_W{h) &CŦ= IIf!=:(@dTdru XFaiv C|HK? e_𸽼?GH _( I "Ӣġ"?F2?F[?5FE F1FOn.a!,2Nqui BSub T[ ^xME@+H @i `J `L `N ID`P  0 0[je B  (08 LP "   t p L "   J0 x]`]x]]  Ʒ'N E tmpCount = GetRenCount(.FormFields(SQFile_DS_Count).HelpText) If tmpCount = 0 Then= ļ嵥'J boo Elsem SQQDStr = "ļ嵥;ļ嵥#" & GetRenCount(.FormFields(SQFile_DS_Count).HelpText) & ","  End IfE tmpCount = GetRenCount(.FormFields(FJFile_DS_Count).HelpText)  If tmpCount = 0 Then ļ嵥'L ElseC FJQDStr = "ļ嵥;ļ嵥#" & tmpCount & "," End If< "13579;JLNPTX;# 7!$,;# 7!$,ϵ,ר;# 7!$, ǰ, ǰ, , N б,ҪȨ;# 7!$, Ԯ˵,ɥʧӱԿ, , J , L ,ȫ˻רǩ'H $qp, H $h'H $H H ' k8i0(ʲAttribute VB_Name = "modInterFaces" Option Explicit Pub, FunBc6Treef(`al ByRef ReturnValue AsD Sng)  Dim SQQDFJBIO4tmpC0ountPgerlWith ThisDocum|enjA&hƷ'*= GetRen1(.FormFields(SQFile_DS_ ).HelpTe xt) #If %0GenO4Fļ 嵥 FElse);!0#" &^ ",nd If GR KQ_ht8 #Frame1,txtName;txtID;>$#Frame7,"  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  8}? e $ 4txtTel;  ( 2@Label1|(2<Label2r(2@Label3h $0txtName; ,$0txtIDme; ", 14cmdAddNewQ4$4cmdClear( 4cmdModifyQ; $4 cmdQuitrm  H((5"[SO$,Y T5"[SO , ]\OSio5"[SO$,5u ݋5"[SOH((5"[SOH((5"[SO(e X{u"[SO(n zz{u"[SO(O 9e{u"[SO( Q{u"[SO n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  8}e4 < cmdDownr Ny -Nyio$<cmdUpwnrU 8 14cmdSaveAllio>OX[hQ8 1< cmdDelnryd -Nyio$@ListBox1>, , N ytr{w @"[SO, N ytr{w @"[SO(O X[tr{u"[SO,y dtr{w @"[SO`LR 5"[SO" Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAddRecord Caption = "༭ļ嵥" ClientHeight = 4440 ClientLeft = 45 ClientTop = 435 ClientWidth = 10215 ShowModal = 0 'False StartUpPosition = 2 'Ļ TypeInfoVer = 524 End (H  @ }bFR KQ_H{@>LP½lNL ½lNL O*t&<k 8HAY8HAY8HAYH{@$ ":5j(6(!:5j(6( :5j(6(X( ZTabStrip1me.>$o#Frame7,'(z04Label9,/$#Frame6,  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  "}~4 @ cmdDown  Ny -Nyli$@cmdUpwn4 < cmdDelndyd -Nyli( pdlstSQFileli>, 1dlstFuJiaFile>  , N yli{w @"[SO , N yli{w @"[SO,y d{w @"[SO`n5"[SO `n5"[SO  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q , eN{|WleN=5"[SO AH({5"[SOH({5"[SO , eN TyleN>5"[SO$,u pe">5"[SO H({5"[SO,e X{w @"[SO( Q{u"[SO( Q{u"[SO,O 9e{w @"[SO(n zz{u"[SO$,y pe">5"[SO H({5"[SOt1 D3ueNnUSDReNnUSTab3Tab45"[SO, 0amX>5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmBiology Caption = "༭Ʒ" ClientHeight = 4215 ClientLeft = 45 ClientTop = 435 ClientWidth = 10305 ShowModal = 0 'False StartUpPosition = 2 'Ļ TypeInfoVer = 34 End (H  @"}G R KQ_e$#Frame7x1*>`8#Frame1x1txtDePartment;txtLocation;txtDate;txtSaveID;txtClassName>  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  8}4 < cmdDownr" Ny -Nyai$<cmdUpwnr8 14cmdSaveAllai>OX[hQ4 < cmdDelnryd -Nyai$ListBox1>, , N yDr{w @"[SO, N yDr{w @"[SO(O X[Dr{u"[SO,y dDr{w @"[SO`L5"[SO  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  G}(,4txtDate1must; q(2<Label1e1(2< Label3e14 0txtDePartmentmust; ,( <cmdAddNewmen$4cmdClear( <cmdModifymene$ 4cmdQuitrk"0  0txtSaveIDmenmust; ( 2< Label4tr 0  0txtClassNamemust; (2< Label5tre(0H lblAlarm (20 Label6rm  H( 5"[SO , OυUSMOaiN>5"[SO , OυegaiN>5"[SOH(&5"[SO,e Xx1{w @"[SO(n zzx1{u"[SO,O 9ex1{w @"[SO( Qx1{u"[SOH( 5"[SO , OυSaiN>5"[SOH(&5"[SO , R{|}T TaiN>5"[SO,~reQFh:N_kXy >5"[SO(Y >5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmBuzhengNR Caption = "༭Ʒ" ClientHeight = 4245 ClientLeft = 45 ClientTop = 360 ClientWidth = 9900 ShowModal = 0 'False StartUpPosition = 2 'Ļ TypeInfoVer = 60 End (H  #@<}6D@R KQ_T$#Frame1x1>>$#Frame2x1P(>  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  #}% ((28Label2zz(28Label3zz(28Label4zze 0 0txtFileNamez1xtFg ,0 4txtLocationz2xtLg 0 0txtBefChange3xtBg $4cmbAddzz4( 4cmbCancelnge( <cmdModifynge^ $!4 cmdClear,"0 TextBox14extg 0(#2\ Label6x1 ,OυS>5"[SO,Oυeg>5"[SO,OυUSMO>5"[SOH(vX5"[SO H( vX5"[SOH(vX5"[SO(X RMO{u"[SO( QMO{u"[SO,O 9e{w @"[SO(n zz{u"[SOH(vX5"[SO@,,ffNыe,{_u_LbPCT/RO/134h {5"[SO n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  }$<cmdDelx1$<cmdUplx1$<cmdDown1; $@ListBox1>, ,y dx1{w @"[SO, N yx1{w @"[SO, N yx1{w @"[SO`g5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmData Caption = "UserForm1" ClientHeight = 2460 ClientLeft = 45 ClientTop = 435 ClientWidth = 6615 StartUpPosition = 1 ' TypeInfoVer = 103 End (H  (@g}-R KQ_Te$#Frame2,O>$#Frame3,F  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q8H  }#WcobCodesR KQ_O,ptxtCobTypeEvents( txtPrvcClickO0txtCobCountryClickg  T@H,;< Private Sub SendKeys ("{F4}") End Sub5"[SO@H,~< Private Sub 3uN_vQN3uN<ID>_wꁻl:Sv^ Ty_Click() If 3uN_vQN3uN<ID>_wꁻl:Sv^ Ty.Value Then comboboxProvinceChanged 3uN_vQN3uN<ID>_wꁻl:Sv^ Ty.Value, 3uN_vQN3uN<ID>_^S Ty End If End Sub5"[SO@H,< Private Sub 3uN_vQN3uN<ID>_VM|b;`@b(W0W_Click() If 3uN_vQN3uN<ID>_VM|b;`@b(W0W.Value = "CN" Then InitMultiColumnCob frmData.txtProvince.Text, 3uN_vQN3uN<ID>_wꁻl:Sv^ Ty Else 3uN_vQN3uN<ID>_wꁻl:Sv^ Ty.Clear End If End Sub/s5"[SO n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19qDH  "}z*; TCQ }Q萄vSRSpeR KQ_ ( <txtSQRFldb,( txtSQRCobb(28Label1es,(28Label2esO(28Label3es,(28Label4es 4(28Label5es,( @txtDLRFldbe,( !txtYXQFldbe( "x txtYXQCobb #,  @H,vQN3uN<ID>_Y Tb Ty,3uN_vQN3uN<ID>_Y Tb Ty,,,,,,;vQN3uN<ID>_(u7bNx,3uN_vQN3uN<ID>_(u7bNx,,,,,,;vQN3uN<ID>_W:SaNWSLrS,3uN_vQN3uN<ID>_W:SaNWSLrS,,,,,,;vQN3uN<ID>_~%@b(W0Wb%N@b(W0W,3uN_vQN3uN<ID>_~%@b(W0Wb%N@b(W0W,,,,,,;vQN3uN<ID>_?ex,3uN_vQN3uN<ID>_?ex,,,,,,;vQN3uN<ID>_5u݋,3uN_vQN3uN<ID>_5u݋,,,,,,;5"[SO@H,,3uN_vQN3uN<ID>_3uN{|W,,,,,,;,3uN_vQN3uN<ID>_VM|b;`@b(W0W,,,,,,;,3uN_vQN3uN<ID>_wꁻl:Sv^ Ty,,,,,,;,3uN_vQN3uN<ID>_^S Ty,,,,,,;5"[SO( 3uNFld5"[SO( 3uNcob5"[SO( NtNFld5"[SO( OHQCgFld5"[SO( OHQCgCob5"[SO$@H, N)RNt:gg_NtN<ID>_Y T,N)RNt:gg_NtN<ID>_Y T,,,,,,;N)RNt:gg_NtN<ID>_]\OS,N)RNt:g g_NtN<ID>_]\OS,,,,,,;N)RNt:gg_NtN<ID>_5u݋,N)RNt:gg_NtN<ID>_5u݋,,,,,,;5"[SO@H,(WHQ3u<ID>_(WHQ3ue,BlOHQCgXf_(WHQ3u<ID>_(WHQ3ue,,,,,,;(WHQ3u<ID>_(WHQ3uS,BlOHQCgXf _(WHQ3u<ID>_(WHQ3uS,,,,,,;5"[SO\@H,D,BlOHQCgXf_(WHQ3u<ID>_(WHQ3uV+Rb0W:S,,,,,,;5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmFaMingRen Caption = "༭" ClientHeight = 4890 ClientLeft = 45 ClientTop = 435 ClientWidth = 9345 ShowModal = 0 'False StartUpPosition = 2 'Ļ TypeInfoVer = 66 End (H  @B}d@!R KQ_O$#Frame7tr >0#Frame1trtxtNamer>$#Frame8er  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  2}8 1<cmdSaveAllioOX[hQ4 < cmdDelesyd -Nyio$<cmdUples 4 < cmdDowns: Ny -Nyio$dListBox1$ ,O X[es{w @"[SO,y des{w @"[SO, N yes{w @"[SO, N yes{w @"[SO`B5"[SO D" n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  4}  (2@Label100txtNameclearobj>410txtEnameclearobj (0<Label2bju( PoptGongKaiio ( ToptNoGongKai  $,Y Tts5"[SOH(95"[SOH(95"[SO , eY TioN>5"[SO4G<F0amlQ^Y T5"[SO8G< F1^ NlQ^Y T T5"[SO n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  }O( 4cmdAddNewQ>$4cmdClear>( 4cmdModifyQ >$ 4cmdQuitr> (e Xbj{u"[SO(n zzbj{u"[SO(O 9ebj{u"[SO( Qbj{u"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmMsgBox Caption = "ʾ" ClientHeight = 1920 ClientLeft = 45 ClientTop = 330 ClientWidth = 5280 StartUpPosition = 2 'Ļ TypeInfoVer = 15 End (H  @}a$; R KQ_`$4msgCover (2(lblInfor>(14msgQuitr( 4msgAddNewai $  Image1tr,( XchkNoAlarmai4( 8cmdCancelmai/ , 14cmdCoverAlli (fbc͑ Yu"[SO 5"[SO( Ǐu"[SO(:_6RmRu"[SO$iR KQlt~ BM~ 6(!"H ѡ|tԽĉrda:d>*ԮvVDӢpߪr_5Ԧb;'\̡֡n^7#Եc?-eຑϥաq`;(ȭhI=~P5Ӳ澔ҧר|[4 i`ɩxpy]PtR=e<%tJ1q̪ÙˢΥc5J"_>0y_SԲyq]F\=~_y{ͭƟÜԯlb?{K(EV/sWJϣhVgĪĪǦʪ̫ӲŸԭͦ۸ϯˬť`qC&O! Z3#ndӝcƭíʮӵغťձٶ۸հ׵̭ʭ˩VT'O'y_RԧzŰȱֺǩԳҰرЩʤʣЧͧձšںϱΰosC$K${aWԱŨ®δƫ׹ϟ|f'P_+](N0ڨܸӯâӵͲƠxm?"P)rhԿǿ°̷ʱٺ>.> 0Cض߿߼ڶǧԷͳsR$`<,Թʺ̸̳ߟdB*~i޼޽ܹǪչؽ|VI i_ʺɴܛa>0ʗtݻɬ׿Եi; a@2ɼıޛa@0ȖuعūƫmQR(ϹͿоbA0ȗwϴưضW-|ɷƸaB0Șy̵ƩU-{ȼcC0Ț{ζϷV-{¶ɾlM0Ț|θӽW.{G&0ɜӽԽY0÷ȟ,|  m zһgE5˼療io7I+O1m3OǬeZr]ŌuhǝIQɇc묑|b/߆N/Ԯ­Hcp˪xR=;=Wö»񻬡Լ<F 0amdkTǑ(uv Tvd\O5"[SO( S maiu"[SO(fbchQ{u"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmShenQingRen Caption = "༭" ClientHeight = 6165 ClientLeft = 45 ClientTop = 435 ClientWidth = 11520 ShowModal = 0 'False StartUpPosition = 2 'Ļ TypeInfoVer = 187 End (H  M@}`Oz*R KQ_xe$$#Frame7er3H*#Frame1ertxtName;cobUsertype;cobCountry;  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  ).}(4 %< cmdDownj $ Ny -Nyai8 &1<cmdSaveAllaiD$OX[hQ$'<cmdUpwnj"$4 (< cmdDelnj'$yd -Nyai$)|ListBox1 , N ybj{w @"[SO,O X[bj{w @"[SO, N ybj{w @"[SO,y dbj{w @"[SO`f!5"[SODD n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q , Y Tb Ty_5"[SO , (u7bNxaiN>5"[SO , 3uN{|W5"[SOH( 5"[SOH( 5"[SOH( 5"[SO,5u݋x1>5"[SO(,VM|b;`@b(W0W0" 5"[SO(,wꁻl:Sv^ Ty 5"[SO , ^S TyaiN>5"[SOH("5"[SO , ~0W@WaiN>5"[SO H(5"[SO , ?exaiN=5"[SOH(5"[SO , e TyaiN>5"[SOH(5"[SO , e0W@WaiN>5"[SOAH("5"[SO A!H(.!5"[SOA!H('5"[SO0,*NNNSb~~:ggNxw>5"[SOH(u5"[SO , 5uP[{aiN>5"[SOH('5"[SO(n zzx1{u"[SO(O 9ex1{u"[SO8)"f9e(WpQ'OX[' cTMbSuHer>5"[SO(e Xx1{u"[SO AH( 5"[SO( Qx1{u"[SOAH(.!5"[SO ,,~8^E\@bb%N@b(W0W >5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSup Caption = "½DZ" ClientHeight = 1950 ClientLeft = 45 ClientTop = 435 ClientWidth = 4980 StartUpPosition = 1 ' TypeInfoVer = 13 End (H  @ }P"p R KQ_H$0TextBox1(2<Label1x1P4 HoptSupx1suflag=0;le4 HoptSubx1suflag=1;le$4cmdAddx1 $4cmdQuit1[ , 1XCheckBox1le H(/5"[SO , ҉hQ[le=5"[SO,Fa1am Nh5"[SO,Fa0h Nh5"[SO(nx [{u"[SO( Q{u"[SO<F a0h\ [Q[[:N5"[SO Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmYouXian Caption = "༭Ȩ" ClientHeight = 4200 ClientLeft = 45 ClientTop = 435 ClientWidth = 10545 ShowModal = 0 'False StartUpPosition = 2 'Ļ TypeInfoVer = 32 End (H  @ }HR KQ_te$#Frame7x1+>D #Frame1x1cobCountry;txtDate;txtSQID1>  n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  3}Z4 < cmdDeleryd -Ny$<cmdUpler4 < cmdDownr2 Ny -Ny$pListBox1a, ,y dtm{w @"[SO, N ytm{w @"[SO, N ytm{w @"[SO`L85"[SO    n``Microsoft Forms 2.0 Embedded ObjectForms.Frame.19q(H  6}=)Z H( 2DLabel1tm>{$ 4txtDatem !( 2<Label2em>q$4cmdQuitmk"$4cmdClear( <cmdModifye( 4cmdAddNew$0txtSQIDr x (2< Label3Dr>  j DcobCountry;,CN;-NV,US;V,JP;e,g,RU;OWeT,AF;?[Wl,OAPI;^2mwƋNCg~~,ARIPO;AP^2m]NNCg~~,AL;?\]<\N,DZ;?\S)RN,AD;[S\,AO;[Tb,AI;[-Wb\,AG;[ctT]^,AR;?9h^,AM;N<\N,AW;?]\,AU;o'Y)RN,AT;eY0W)R,AZ;?^Xbu,BS;]Tl\,BH;]g\,BD;_[Rb,BB;]]Ye,BY;}vOWe,BE;k)Re,BZ;/O)RyQ,BJ;[,BM;~vUa'Y\,BT; N9N,BO;s)R~N,BA;le<\NTў[T~,BW;ZS(t~,BV;^~\,BR;],BN;e(pQV,BG;OR)RN,BF;^W~l"},BI;^,KH;gW[,CM;U,CA;Rb'Y,CV;[O_҉,KY;_f\,CF;-N^,TD;MN_,CL;zf)R,CO;T&OkN,KM;yidW,CG;RgqQTV,CK;^KQ\,CR;TeΞR,CI;yyrt,HR;KQW0WN,CU;S],CY;^Xfme,CZ;wcKQ,KP;g,DK;9N,DJ; T^c,DM;Ys|<\KQ,DO;Ys|<\RqQTV,TP;N^vl,EC;StY\,EG;WS,SV;(\tY,GQ;dSQQN,ER;SzyȓN,EE;1rl<\N,ET;W^X\kN,EA;'k2mN)R@\,FK;yKQpQ\l\~~e\ ,FO;lW\,FJ;eNm,FI;pQ,FR;lV,GA;R,GM;QkN,GE;5"[SOAH(5"[SO ,,Y2009-01-31; r5"[SOOh+'0 4 D P \hpx cgq,gh̀b kXhlaNy cknxkXQ,ghThautoO9evBlfN zhangjinqiu44@@t@"$;2Qd<WPS Office_11.8.2.9958_F1E327BC-269C-435d-A152-05C5408002CA՜.+,D՜.+,HPX `ht|<  N! XLT\h@l XMLLoadedDocGuidInternationalLangualeLanguageEdition IsTemplateKSOProductBuildVerICV 7syspara=;,ZH;,DE;,EN;,ES;,FR;,JA;,KO;,RU;,PT;,AR;,OO;1.0.207/2013-11-13 14:53gwssiTemplate2052-11.8.2.9958!94AF36FFAC20F29C8B3DB663AC246D00  !"#$%&'(*+,-./013456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~     !"#$%&()*,-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdefghijklmnopqrsuvwxyz{|}~      !"#$%&'()*+,-./023456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnpqrstuvwxyz{|}~     "$%&'()*+,-./1235789:;=>?ACDEFGIJKLMOQRSTUVWXYZ[]^_`abcdefghjlmnoprsuwxyz{|}~   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\^`abcdfghjlmnoprstuvxz{|}~      !"#$%&'()Root Entry FJMacrosPROJECT* PROJECTlkjC)$PROJECTwm2TVBABIOH CopyToEachDoc9\DLR t3 FMR/nListHorizantal SQR*8ShenQingRen_New &'F7ThisDocument bYXQm_VBA_PROJECTy__SRP_02$F__SRP_1 __SRP_6 __SRP_7 `__SRP_8'__SRP_9+dir. frmAddDaiLiRen-H?frmAddRecord,hfrmBiologyOfrmBuzhengNR$)frmData]frmFaMingRen+GfrmMsgBox1t frmShenQingRenfrmSup3"z8frmYouXian]modAddoneField0 modBiomodCPCLeftTreeInterFace0]modCheckPID %modChrProcessmodCommonObject !)Y modCopyandFillRecord*(#ymodCreateComponents(8 modDLRInterFace R&modDyaf(modFaMingRen1HmodInitDataIKmodInterFaces%.o modNewElement% modPub!modSpecialCharmUmodVerify8tmpmod/rv!jWW14"KmՋ(u5(u!jWW BfrmAddDaiLiRen7CompObj:8aVBFrameKfBi119>= n``CompObjofo<; i22A n``CompObjofHo@?(ofrmAddRecordPwDCompObjGEaVBFrameLfO i111 FKJ n``CompObjof<oIHi174 N n``CompObj!of1oML#o0frmBiologyQCompObjTR4aVBFrame6Mf\<i03SXW n``CompObj@ofBDoVUH|i250 [ n``CompObjNofPoZY\ ofrmBuzhengNR^CompObja_iaVBFramekRfiqi14`ed n``CompObjtofvlocbi27h n``CompObjofogfofrmDatakCompObjnlaVBFrame"fvi14mrq n``CompObjofopo8i21u n``CompObjof;otsofrmFaMingRen]6xCompObj{yaVBFrameHfi03z~ n``CompObjofDo}|Ti235  n``CompObjofdoi260  n``CompObjof o ofrmMsgBoxCompObjaVBFrame fo 2frmShenQingRenCompObj]aVBFrame_Lfei292  n``CompObjiofkDoqli298  n``CompObjwof@(;oyofrmSupCompObjaVBFrame#fofrmYouXianCompObjaVBFrameGfi03 n``CompObjofo$i265  n``CompObjofooWordDocument^0Table@=Data sWpsCustomDataSummaryInformation(@DocumentSummaryInformation8  !"#$%&'()*+,-.012345679:;<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~      !"#%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQSTUVWXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklnopqrstuvwxyz{|}~      !"#$%&'()*+,-./023456789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~