//加数据库事务
      dm.ADOConn.CommitTrans;//mssql库
      ADOQ.Close;
//      showmessage('你已成功新建一个客户!');
      except
        dm.ADOConn.RollbackTrans;
        ADOQ.Close;
        exit;
      end;
    dm.ADOConnOrc.BeginTrans;//oracle9i
    try
       with dm.ADOQAdd do
         begin
           if active then
             close;
           sql.Clear;
           sql.Add(SQL_PAT_MASTER);
           prepared;
           active;
           ExecSQL;
         end;
       dm.ADOConnOrc.CommitTrans;
       dm.ADOQAdd.Close;
       showmessage('你已成功新建一个客户!');
    except
        dm.ADOConnOrc.RollbackTrans;
        dm.ADOQAdd.Close;
        exit;
    end;