这个存储过程为什么不能工作？100求救！

表为 Str:=' Create Table BorrowAndLendInfo                      '   +
       ' ( ID   INT IDENTITY(1000,1),                       '   +
       '   Id_falg   Char(2) DEFAULT(''否'') NOT  NULL,                        '  + '      //是表示还了，否表示未还
       '   Id_user      Char(6)  Not Null,                  '   +
       '   ID_Book      Char(6)  Not Null,                  '   +
       '   Borrow_date       Char(10) Not Null,             '   +
       '   Lend_date       Char(10) ,                       '   +
       '   CONSTRAINT ID_BorrowAndLend_KEY PRIMARY KEY(ID)  '   +
       ' ) '
   
存储过程为，主要从ID_Book得到 Id_user Str:= ' CREATE PROCEDURE      GetCodeofBorrowerFromBorrowedBook                          '+
 '     @ReturnCode  Char(6)  output ,                                                '+
          '     @FieldData1  char(6)                                                    '+
          '     AS                                                   '+
          'BEGIN                                                      '+
          '   Select Id_user=@ReturnCode  from BorrowAndLendInfo                     '+
       '   Where     Id_falg =' +QuotedStr('否')+' And      ID_book=@FieldData1       '+
          '    END       ' ;调用为：ADOStoredProc1.ProcedureName:='GetCodeofBorrowerFromBorrowedBook';
  ADOStoredProc1.Parameters.Clear;   ADOStoredProc1.Parameters.CreateParameter('@ReturnCode',FtString,PdOutput,6,Temp_Str);
   ADOStoredProc1.Parameters.CreateParameter('@FieldData1',FtString,PdInput,6, 
id_book);
  ADOStoredProc1.ExecProc; Temp_Str:= ADOStoredProc1.Parameters.ParamByName('@ReturnCode').Value;可是怎么也得不到结果！