開發(fā)上位機(jī)，往往需要傳遞參數(shù)給一個(gè)函數(shù)，該函數(shù)執(zhí)行一些功能，然后反饋執(zhí)行的結(jié)果，該函數(shù)可反復(fù)調(diào)用，大大提高程序開發(fā)效率和減少冗余代碼。

例如一：

新建一個(gè)函數(shù)

函數(shù)名為：SQLConnectionZY

該函數(shù)有個(gè)返回值Error，如果為0則代表連接成功，否則連接失敗。

調(diào)用如下：

DIM?Error?AS?INTEGER;Error=CALL SQLConnectionZY( );IF Error == 0 ?THEN????//需處理的代碼ELSE ? ?Error_SQL=Error;ENDIF;SQLDisconnect(?ConnectionId?);

此處增加了IF判斷是否連接成功，如果成功則繼續(xù)，否則報(bào)錯(cuò)，報(bào)錯(cuò)后不執(zhí)行數(shù)據(jù)庫的任何操作。

例如二：

新建一個(gè)函數(shù)

函數(shù)名為：ErrorInsertZY

該函數(shù)有2個(gè)參數(shù)，一個(gè)是整形參數(shù)一個(gè)是消息參數(shù)。

DIM ErrorCode_Message AS MESSAGE;ErrorCode_Message = Text (ErrorCodeZY, "#");SQLSetStatement(ConnectionId,?"INSERT?INTO?Error?(ErrorCode,ErrorDescribe,DataFlag)?");?SQLAppendStatement( ConnectionId," VALUES ('"+ErrorCode_Message+"','"+ErrorDescribeZY+"',0)");SQLExecute( ConnectionId, "", 0 );

調(diào)用如下：

Errorcode=1111;ErrorDec="異常，請(qǐng)檢查！";CALL ErrorInsertZY( Errorcode, ErrorDec);

此處傳遞Errorcode和ErrorDec參數(shù)給ErrorInsertZY函數(shù)，完成故障數(shù)據(jù)的插入。