关于INPUTBOX的小问题，在线等结帖

Question

inputstring:= inputbox('请输入未结数量','未结数量','0') ;  close;
      sql.clear;
       SQL.add('select MO_NUMBER,case len(LINENUM) when 1 then ''00''+cast(LINENUM as varchar)  else ''0''+cast(LINENUM as varchar) end LINENUM,');
       sql.add( 'LN_STA,ITEM,ITEM_DESC,START_DATE,SCHED_DATE,ORDER_QTY,QTY_RCVD,(ORDER_QTY-QTY_RCVD) AS QTY_WJ');
       SQL.ADD(' FROM MO_RECEIPTREPORT  ') ;
       sql.Add(' WHERE LN_STA=4 AND (ORDER_QTY-QTY_RCVD)<=:num') ;
       parameters.ParamByname('NUM').value:= inputstring;
       OPEN;
。。
请问，在INPUTBOX弹出后，怎样设置按“CANCEL”后能终止后面的代码执行？

Answer 1

inputstring如果为0，那么表示选择了取消按钮。但是输入0选择确定，inputstring也是0。可以改成：inputstring:= inputbox('请输入未结数量','未结数量','') ;如果返回空字符串，表示没有输入。

Answer 2

可以使用 InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
  当你先OK的时，返回TRUE，否则返回false

Answer 3

别的功能和inputbox 一样！可以试试看！

Answer 4

用inputquery，他可以知道你是按确定还是取消键.  具体看帮助