VFP连接SQL数据库中间层 sqlhelp()函数的源码（狠下心，希望有高手帮我指出错误）

*!*    中间层（设计成sqlhelp()函数）   作者：lianwuyi  2020-08-18
*!*    * 保存到SQL数据库 方法：把这段代码保存成SQLhelp.PRG【sqlhelp([保存到SQL的表名],[主键ID的字段],[save/delete/query],[SQL查询语句]】
*!*    保存ASSETS例子：sqlhelp([ASSETS],[ASSET_ID],[SAVE])

FUNCTION SqlHelp(pTable,pKeyField,pMethod,pStatement)
    
    pTable = UPPER ( pTable )  && 将当前表单的名字改成大写
    pKeyField = UPPER ( pKeyField ) 
    pMethod = UPPER( pMethod )    
    
    IF EMPTY(pTable)=.T. OR EMPTY(pKeyField)=.T.OR EMPTY(pMethod)=.T.
        MESSAGEBOX( [ Can't find parameters ], 16, [ Error ], 2000 )
        RETURN
    ENDIF 

    IF pMethod <> [QUERY] 
        IF !FILE([..\test.dbf])
            MESSAGEBOX( [ Can't find ..\test.dbf ], 16, [ Error ], 2000 )
            RETURN
        ENDIF 
 
        SELECT 0
        USE ..\test.dbf EXCLUSIVE
        PACK   
        GO TOP  
*!*            IF TYPE( pTable + [.] + pKeyField )=[U]
*!*              MESSAGEBOX( [ The KeyField is wrong ], 16, [ Error ], 2000 )
*!*              USE
*!*              RETURN 
*!*            ENDIF     
        keyvalue = &pKeyField && 表单上的主键ID号
        USE
    ENDIF 

    *!* DO 连接数据库.prg 
    SQLDISCONNECT(0)  && 断开所有数据连接
    RELEASE lnHandle  && 设定连接句柄为公共变量,可以为后面的程式引用
    PUBLIC  lnHandle
    lnHandle = 0

    *csqlserver 为公共变量，在系统参数里，从目录sys.ini文件里获取

    SQLSETPROP(0,"DispLogin" ,3) && 不打开ODBC连接界面
    * 设定连接串
    TempStr1 = ''          && 登陆账号密码
    linkdb1 = 'driver=SQL Server;Server='  && 数据库类型
    linkdb1 = linkdb1+csqlserver           && 数据库路径
    linkdb1 = linkdb1+';Uid=sa;pwd=&TempStr1;database='
    lnHandle= SQLSTRINGCONNECT(linkdb1)

    IF lnHandle <= 0 && 连接不成功,
      SQLDISCONNECT(0) && 断开所有数据连接
      RELEASE lnHandle && 删除连接句柄变量
      MESSAGEBOX ("连接数据库失败……",16+0+0,ALLTRIM(c版本号)+"提示")
      RETURN TO MASTER && 返回到最高级程序的调用处 
    ENDIF

    IF pMethod = [QUERY] AND EMPTY(pStatement)=.T.
        MESSAGEBOX( [ Can't find statement ], 16, [ Error ], 2000 )
        RETURN       
    ENDIF  
    
    IF pMethod = [QUERY] AND EMPTY(pStatement)=.F.
        cExpr = pStatement + [ order by ] + pKeyField 
        lr = SQLExec ( lnHandle, cExpr )
        COPY all to ..\test.dbf
        IF lr < 0
           Msg = [Unable to delete record] + CHR(13) + cExpr
           MESSAGEBOX( Msg, 16, [SQL error] )
           RETURN 
        ENDIF
        
        *MESSAGEBOX( [ 查询成功! ], 64, [提示：] )      
        SQLDISCONNECT(0)    
        RETURN 
    ENDIF 
    
    IF pMethod = [DELETE] && 【删除】--------------------------------------------------------
        *KeyValue = EVALUATE ( pTable + [.] + pKeyField )  && EVALUATE()计算字符表达式的值并返回结果
        Dlm = IIF ( TYPE ( pKeyField ) = [C], ['], [] )  && 判断pKeyField 是否为"c"字符型，如果是，加上'，不是则不加。
*!*            IF MESSAGEBOX([ 您确定删除该单据? ], 68 ,[ 删除 ]) = 7
*!*                RETURN 
*!*            ENDIF 
        cExpr = [DELETE ] + pTable + [ WHERE ] + pKeyField + [=] + Dlm + TRANSFORM ( m.KeyValue ) + Dlm  && cExpr= Delete cp where 
        lr = SQLExec ( lnHandle, cExpr )
        IF lr < 0
           Msg = [Unable to delete record] + CHR(13) + cExpr
           MESSAGEBOX( Msg, 16, [SQL error] )
           RETURN 
        ENDIF
        *MESSAGEBOX( [ ID：] + ALLTRIM(STR(KeyValue)) +  [ 删除成功! ], 64, [提示：] )      
        DELETE FILE ..\test.dbf 
        SQLDISCONNECT(0)    
        RETURN 
    ENDIF 
    
    Cmd = [SELECT * FROM ] + pTable + [ WHERE 1=2]
    lr = SQLEXEC( lnHandle, Cmd )  && 产生句子是：查看表结构1=2，即FALSE ，没有得到任何数据，只是显示字段名称而已。
    IF lr <1
        MESSAGEBOX( [Unable to connect], 16, [SQL Connection error], 2000 )
        RETURN 
    ENDIF 
    COPY all to ..\test_sql.dbf 
    USE

    RELEASE nLastKeyVal
    PUBLIC  nLastKeyVal

    IF keyvalue > 0 && key有值时，先删除数据
    
        Cmd = [DELETE FROM ] + pTable + [ WHERE ] + pKeyField + [=] + ALLTRIM(STR(keyvalue))
        lr1 = SQLEXEC( lnHandle, Cmd )  
        IF lr < 1
            MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 )
            RETURN 
        ENDIF 
        nLastKeyVal = TRANSFORM(keyvalue)
        
    ELSE && 获取个新的KEY

        Cmd = [SELECT Name FROM SysObjects WHERE Name='KEYS' AND Type='U']  && Cmd= select Name from SysObjects where name='KEYS' and type='U'
        lr = SQLEXEC( lnHandle, Cmd )  && 查询是否有表名是 KEYS 的表。
        IF lr < 0
           MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 ) && 查询语句出错
        ENDIF
        IF RECCOUNT([SQLResult]) = 0 && 如果查询返回结果是0 ，（没有KEYS表）
           Cmd = [CREATE TABLE Keys ( TableName Char(20), LastKeyVal Integer )] && 创建 表名 KEYS，字段 TableName char(20),LastKeyVal Integer
           SQLEXEC( lnHandle, Cmd )
        ENDIF

        Cmd = [SELECT LastKeyVal FROM Keys WHERE TableName='] + pTable + ['] && 如果查询结果不是0，则查询Keys表内tablename等于当前表名的lastkeyval是多少，
        lr = SQLEXEC( lnHandle, Cmd )
        IF lr < 0
           MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 ) && 调出出错语句
        ENDIF

        IF RECCOUNT([SQLResult]) = 0 && 如果查询返回结果是0 ，则
           Cmd = [INSERT INTO Keys VALUES ('] +  pTable + [', 0 )] && 添加keys表里 当前表名和0 这2个值。
           lr = SQLEXEC( lnHandle, Cmd )
           IF lr < 0
              MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 ) && 调出出错语句
           ENDIF
        ENDIF

        Cmd = [UPDATE Keys SET LastKeyVal=LastKeyVal + 1 WHERE TableName='] +  pTable + [']
        lr = SQLEXEC( lnHandle, Cmd )
        IF lr < 0
           MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 ) && 调出出错语句
        ENDIF
              
        Cmd = [SELECT LastKeyVal FROM Keys WHERE TableName='] +  pTable + [']
        lr = SQLEXEC( lnHandle, Cmd )
        IF lr < 0
           MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 ) && 调出出错语句
        ENDIF
        nLastKeyVal = TRANSFORM(SQLResult.LastKeyVal) &&transform（）函数，提取lastkeyva里的数值，赋值给nLastKeyVal
        
    ENDIF 
    
    *** 将test.dbf临时表数据追加到test_sql.dbf
    SELECT 0
    USE ..\test_sql.dbf EXCLUSIVE 
    APPEND FROM ..\test.dbf 
    REPLACE ALL &pKeyField WITH VAL(nLastKeyVal)
    cRecCount = TRANSFORM(RECCOUNT())
    GO TOP 
   
    SCAN
        LOCAL I
        Cmd  = [INSERT INTO ] + pTable + [ VALUES ( ]  && 设置变量，cmd等于 添加当前数据 “cmd= INSERT INTO +当前dbf表名+ values (”
        FOR I = 1 TO FCOUNT()
            fld  = FIELD(I)
            IF TYPE(Fld) = [G]
               LOOP
            ENDIF
            dta  = &Fld
            typ  = VARTYPE(dta)
            cdta = ALLTRIM(TRANSFORM(dta))
            cdta = CHRTRAN ( cdta, CHR(39),CHR(146) )
            DO CASE
               CASE Typ $ [CM]
                    Cmd = Cmd + ['] + cDta + ['] + [, ]
               CASE Typ $ [IN]
                    Cmd = Cmd +       cDta       + [, ]
               CASE Typ = [D]
                    IF cDta = [/  /]
                       cDta = []
                    ENDIF
                    Cmd = Cmd + ['] + cDta + ['] + [, ]
               CASE Typ = [T]
                    IF cDta = [/  /]
                       cDta = []
                    ENDIF
                    Cmd = Cmd + ['] + cDta + ['] + [, ]
               CASE Typ = [L]
                    Cmd = Cmd + IIF('F'$cdta,[0],[1]) + [, ]
            ENDCASE
          ENDFOR
        *USE
        
        Cmd = LEFT(Cmd,LEN(cmd)-2) + [ )]

        lr = SQLEXEC( lnHandle, Cmd )
        IF lr < 0
           MESSAGEBOX( "SQL Error:"+ CHR(13) + Cmd, 16 ) && 调出出错语句
           *SUSPEND
        ENDIF
        * MESSAGEBOX( [ ID：] + nLastKeyVal + [ 保存成功! ], 64, [ 提示：] )
    
    ENDSCAN 
    USE 
        
    DELETE FILE ..\test.dbf 
    DELETE FILE ..\test_sql.dbf 
    
    SQLDISCONNECT(0)    

ENDFUNC