国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

HBADOConnString =
    ‘Provider=SQLOLEDB.1;Persist Security Info=True;PassWord=%s;User ID=%s;Initial Catalog=%s;Data Source=%s‘;
--------------------------------------------
function ConnectHBDataBase(const ServerName,DataBaseName,UserName,UserPassword: string;
                           ADOConnectionTest: TADOConnection;  ShowMsg: Boolean = True): Boolean;
var
  fCS: string;
  fQuery: TADOQuery;
  fUserName, fPassWord: string;
begin
  fCS := Format(HBADOConnString, [UserPassword,UserName , DataBaseName, ServerName]);
  ADOConnectionTest.Close;
  ADOConnectionTest.ConnectionString := fCS;
  try
    ADOConnectionTest.Open;
  except
    Result := False;
    if ShowMsg then
      MessageError(‘對不起，數(shù)據(jù)庫服務(wù)器地址錯誤！‘);
    Exit;
  end;
  Result := true;
end;
----------------------------------------------------------------------
procedure ADOExecuteSQL(ConnectionObjects: TADOConnection; SQLStr: string);
begin
  with TADOQuery.Create(nil) do
  try
    Connection := ConnectionObjects;
    SQL.Text := SQLStr;
    ExecSQL;
  finally
    Free;
  end; //try
end;
//調(diào)用
接口服務(wù)啟動后就保持連接,這樣更節(jié)省資源  ?
  HBConnected := ConnectHBDataBase( ZNHBSvrParam.HB_ServerName,ZNHBSvrParam.HB_DataBaseName,
                            ZNHBSvrParam.HB_UserName,ZNHBSvrParam.HB_UserPassword, HBDBConnection, False);

U_MODE_SQLStr = ‘ UPDATE A  SET A.TIMEMARK = GETDATE() FROM MODE A ‘+
                 ‘ WHERE A.TIMEMARK IS NULL  AND A.TYPE_NO = ‘‘%S‘‘  AND A.ORDER_NO = %D ‘;
ADOExecuteSQL(HBDbconn, U_MODE_SQLStr,[fQuery.Fields[0].AsString,fQuery.Fields[1].AsInteger]);

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。