aa.prg

来自「固定资产管理系统源码..用于企业资产管理,用VFP编码」· PRG 代码 · 共 24 行

=SQLSETPROP(0,"DispLogin",3)
IF FILE("Connect.XML")
    TRY 
        =XMLTOCURSOR("Connect.XML","curConnect",512)
        lcConnString="Driver="+ALLTRIM(curConnect.Driver)+";"+;
            "Server="+ALLTRIM(curConnect.Server)+";"+;
            "UID="+ALLTRIM(curConnect.UID)+";"+;
            "PWD="+ALLTRIM(curConnect.PWD)+";"+;
            "Database=Master;"+;
            "Trusted_Connection="+ALLTRIM(curConnect.Trusted)
            
    CATCH 
        =MESSAGEBOX("读取连接信息出错，请检查Connect.XML文件是否正确！",0+48,"提示")
        RETURN 
    ENDTRY 
    nHandle=SQLSTRINGCONNECT(lcConnString)
ELSE 
    =MESSAGEBOX("未找到连接配置文件Connect.XML，请与系统管理人员联系！",0+48,"提示")
    nHandle=0
ENDIF

IF USED("curConnect")
    USE IN curConnect
ENDIF