vfp+sql编程,vfp,foxpro编程资料

《vfp+sql编程,vfp,foxpro编程资料》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、編程常用功能1.數據庫連接串:DRIVER=SqlServer;SERVER=server1;UID=sa;PWD=sa1234;APP=MicrosoftVisualFoxPro;WSID=server1;DATABASE=dbtms主程式:ClearAllCloseAllSetDeleteOnSetExclusiveOffSetExacONSETANSIONSetDateToBRITISHSetCenturyOnSetSafetyOffSetHelpOffSetTalkOffSetEscapeOffSe

2、tStatusOffSetStatusBarOffSetENGINEBEHAVIOR70SetMultilocksOnSetSysmenuOffSetNullDisplayTo''SetOptimizeOnSetHoursTo24shop70278202.taobao.comSQLSetprop(0,"DispLogin",3)&&從不顯示ODBC登錄對話框"=SQLSetprop(0,"QueryTimeOut",0)Capslock(.T.)Numlock(.T.)If!Directory('c:te

3、mp')Mdc:tempEndifErasec:temp*.DbfErasec:temp*.CdxErasec:temp*.txtErasec:temp*.fptSetPathToData,Source,ReportSetDefaTo(Left(Sys(16,0),Rat("",Sys(16,0))))SetProcedureToSourceprofunc.prgOnErrorDoSourceerrhand.prgWithError(),Message(),Program(),Lin

4、eno()InMain.prgOnShutdownDoSourcefileExit.prgPublicCn,fmain,gcUser,gcName,gcDept,gcRight,gcLoc,gdDate,gcQH,gcMenu,report_dscipt,;gcPartno,gcSubHead,gcSo,gnType,gcVer,_path,APP_LOC,gcStatus_dept,gcStatus_computer,gcStatus_useridgcUser=''gcVer='TMS'gcDept='

5、'gcLoc=''gcPartno=''gcSubHead=''gnType=0gcMenu=.F._path='c:temp'APP_LOC="提示信息"gcStatus_dept=''gcStatus_computer=''gcStatus_userid=''shop70278202.taobao.comLocalstrsqlcnstrsqlcn="Driver={SQLServer};SERVER=SERVER1;UID=sa;PWD=sa1234;DATABASE=DBTMS"&&;Truste

6、d_connection=YesCn=Sqlstringconnect(strsqlcn,.T.)IfCn<=0Messagebox("連接服務器失敗!",16,APP_LOC)QuitReturnEndifDoFormSourcelogin.scxReadEventDoFormMain.SCXWith'SourceTmsMenu.mpr'ReadEventsErrhand.prg:Parametermerror,Mess,mprog,mlinenoLocallcSqlStrlcSqlStr="INSE

7、INTOERROR(ERROR,LMESS,PROG,LINE,DATE,USER)values(?merror,?mess,?mprog,?mlineno,?temp_dat,?gcuser)"temp_dat=Datetime()SQLExec(cn,lcSqlStr)IfError()=5DoWhileTxnlevel()>0ROLLBACKEnddoRETURNEndifFileexit.prg:DoWhilTxnlevel()>0RollbackEnddoCleaEvenIf_Screen.For

8、mCount>0_Screen.ActiveForm.Release()EndifLocalArrayainfo[1]Locali,lnCountlnCount=Asqlhandles(ainfo)shop70278202.taobao.comIflnCount>0Fori=1TolnCountSQLDisconnect(ainfo(i))EndforReleasecnEndifCloseAllQuit2.sql