Lotus与其它系统的整合

培训Ltou Dosimn/oNoets用开发 (三应Lotus与 它其系统的合)整

012年23 月

容目内录otLsu为成息信化平 台取人事资料分析获获 取勤记录考代码析分 问提

otLus成为息信平台 L化tuos为成信化息台平

Dim wsANe notwsueiwrokpasec imDu idocAs n oesutdoiucenmt Setuid co=wc.urenrtdcoumnte iD Comnn s AVriaan DitmE mRpSAs aViarn timDDBC oSnt rsAS ritg Dni mSLQCdmA stSrnigD i NmwesUre A sVriant

a获人取事资料析分1) 获(人事取料资分析1)(Dimt emptsrA Strings,tmepts1rA Sstrin,gempsttr 2sA Sting rDi tmmi1e sASt rin,gimt2eAs Strnig 'ADOCon tants Cosntsa dtStaepeO n=1 Cosnt aCmdTdex t 1 =Cnsto aOdenStptic = 3 Conas taLdockOtpmiitis c=3 ' oCnenciontS ting (rUseD SN-esL sonncetioncs trnig) BDCnoSt r "=Poridver=QSLOELBD.;Persi1s tecuSriyt IfnoTrue="& "_;ata SourDe=c192168.10.11.;0seUrId sa;=Psasowdr=wejia3i264><;oCnectn Tmioeut= 1;" 0 &_"Initi al atCaog=lhmr_sdb2_090211;4" C'earet nadO pn eoCnentcoi Objnet cSt Cenn =o reCteabjOcet(AD"OBDCon.nctein")o onC.Opne nBCDnotr teSmptrs=1Tir(uidmocF.eildGeteTtx("oggnaho))" tepstm2r=Tri(mudic.oiFedGeltTet("xxm"))I friT(mtemstrp1)=" An"dTr i(temmstpr2)=" T"he Messnaebog "x工或号名姓不同能时空 为工或姓号不能名时同空" 工为或号姓不名同能时为 空xEtiS buE n dfI QLCSd=m"sleec emp_td, iismnam,ew oknor, ncam,es ex ,psiotino ,effcetayd "&_, bi"rthday ed,namu,en aiont,s ttae ,det_pi,dp sotiioidn,edu aciot,n" _&"gzcl s na,tive po,grsde,ap oselvl, eitlentam,ede pnatme,d pettemname,"&_ "gzclasanem, rgdaeanem,lev lenam,ei cdadr,l satdimdait e"_ &f"om vrwem_lpoyeeW HREE (orwNo ='k"t+mpser1t+"' r ocamen =' +tem"pst2r"+' )ad nsttea < 1= 'C"erae tndaOpe n Emloypee eRocrdet Objscet St eEpRS=CmerateOjecbt"A(DOB.DRceordset)" EmRSpO.ep nQLCmd,SoCnn,,1 1S'hw oht eesrlutign dtaa I EmfpR.Sreordcoucnt= The1n EpmR.SMveFirst Microsofo Wtod 文r档

获人取资事分析料2( )获取事人资分料(2)析'号 工fI Isunll(mpRES"wo(rno")k.vale)u Teh Calnl iduc.oieFlSetTexd(t"gngohoa""") El,seCal liduc.FoeidSelTetx("gtnohao",gCts(EmpRr("wSoknr"o.v)alu)e)End f I姓'名If I nusll(mERpS"(cnme")a.alveu T)ehn Cll uidaco.FeldieSTtetx(x""m,"" Else) aCl ludio.cieldFeSteTt(x"xm"C,srt(EpmR("cnamSe)".vale))uEn dfI'职位 I IfnslulE(pRSm"(osption"i)v.auel The) nCal uldico.iFeldStTeetx("z","w" E)sle Cal uidlcoFiel.deStTet(xzw"",sCt(ErpRS("pmoitsin")ova.ul)e)End If 'mp_iedI fIsn lluE(mpS(Rem"p_i")dva.ue) lheTn aCll iduc.FoeidSetleTxt"(em_pid,"")" lEseC al uldic.oieFldSeTtex("tmpei_d"Cs,r(EmtRpS"e(p_imd).valu"e) )nEd f IlEesMes sgeboax"没有 记!请确录工认号姓或名确?" E正xtiS bu En Idf St emERSp=Nthoni gSe tCon =nN ohitng

Dm isessoi Ans New otNsSeseions Dmidb sANo esDtaaBtse aDim doc As NotseDcuomen tDmiw A sew nNtoesiwuoksparceD im udiocAs no etuidscomunt eeSt udicow=.currnetdcouemnt etSd =bse siosn.uCrenrDattaasB See doct= Nwe NtesDocomunetd()b'所来 表，注的修改意' od.corf m= "k" Dqi monnCAs V airatn DmiE pRmSA sVa raitn

Di mDBCnotrS sASt ingr iDm QLCmd AS Ssrtni gDm iNwUser Aes Vriaant Di mtemspt Ar sSritng,tepsmrt1 s SAtrig niD mtiem1A s trSng,iitm2 eAs tSinr g'DAOCons antts Cnos atStadtOepn =e 1Cons adtCmTedxt= 1 Constad peOStatnc i=3 C nst oadLcoOkptimistci =

3取获勤记录考码分析代

'CnoenctinoS trin gUse D(S-LesN scnonectonis trign D)CBonSt =r P"rviodreSQ=LLOEB.D1Persis; tSceruityI fo=Trun" & _e"; aDtaSo ucre=912.618.011.1;0Usr eI=dsa;Paswsodrw=ijeia326<4;>Conect nTmeouti= 10; " &_" Initil aCtaaolg=hrsm_bd20_09112;4" C'eare atn dOep Connectino Onbecj Ste Cton n =rCeteOabjcte("ADOD.BoCnectnoi")n onCn.penOD CoBSnt Drmi datew A Varsiat wndat=uedoicFi.elGdteTet("xrqi")i ime1=trTmiYe(r(wdate))a"-&&Tr"m(Mioth(wndta))e&"1" t-ime=2aDtseriel(aeYarwdate),Mo(nth(dwat)+e,11-) '本1的月第天一 time1'T=ir(Ymer(Noa))&"-"&wTrimMon(htNow()&"-1)"' 本月最的一天 'ti后m2e=atDseriae(Ylar(Detea,Month)D(ae)+1,t-11) t'me2=Toidy(a)'t epmtrs1=nIptubxo"(输入请号"工)tem ptrs1=Timr(iduc.FieldoetTGxt(e"goghao"n)) I fTrmite(pstr1m="" Th)ne Msesgaebxo 请"输入工"号Mcirsoof Wort d文档