我的问题最多,55555555555,我又来麻烦大家了

瞌睡龙

<>又来麻烦大家了，有以下程序：</P>
( y6 ~2 X5 y/ \2 W3 P<>void __fastcall TForm1::N14Click(TObject *Sender)
{
   int nScore;
; @' o& [0 H$ r' p9 d/ R8 W- q6 G   AnsiString strScore=InputBox("请输入费率区","请输入费率区","");
6 s9 y3 F+ H2 ]& ?   if(strScore =="")
8 q# x# ^% m8 K1 e1 y- b# o3 \2 z   return;
' ?5 i) V' ?& S/ ?# g4 {/ L) W   nScore=StrToInt(strScore);
9 `" S- C6 x# L6 C3 }9 B   if(nScore&lt;790||nScore&gt;799)
; E  v6 Z' H$ M  d9 ?7 g0 j" I9 ?4 R   {
7 B: f4 q# U; e# _1 a     ShowMessage("数据输入错误！");
     return;
   }
     
}</P>
<>这个主要是要求使用程序者输入它所在的费率区，输入到strScore中，第二段程序：</P>
<>   ADOQuery1-&gt;Close();
2 _1 A1 n3 k6 C) Z   ADOQuery1-&gt;SQL-&gt;Clear();
/ F: |1 `6 Q/ Z- g( x1 Y/ R+ c   ADOQuery1-&gt;SQL-&gt;Add("SELECT * FROM jxprm.group_info WHERE group_city='strScore'");
! I2 L7 Z3 i/ ^) h6 J   ADOQuery1-&gt;Open();</P>
<>将得到的值代入程序，但是编译没有问题，使用了的时候显示“无效的数字”，初步判断是全局变量的问题，现修改头文件</P>
<>//---------------------------------------------------------------------------</P>
, Z6 l7 t; m& ~9 J: q<>#include &lt;vcl.h&gt;
- U' A6 \& v) ]/ s5 O7 k" D4 d#pragma hdrstop</P>
% [' R" r0 ]- l3 [8 T5 l5 \<>#include "Unit3.h"
$ g+ O; M4 W, B' l( f& i# V+ E//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
, n2 d9 a, a2 [% |+ K0 }/ aTForm1 *Form1;
int nScore;
) Y% T, h( m( G2 M" r$ h1 T; FAnsiString strScore;</P>
<>结果还是老样子，请大家帮忙看一下，谢谢!</P>
' V6 i# ?* x& G# {# f6 y4 J" S

[此贴子已经被作者于2004-7-30 10:22:25编辑过]

ilikenba

<>ADOQuery1-&gt;SQL-&gt;Add("SELECT * FROM jxprm.group_info WHERE group_city='strScore'");这句错了！应该改成下面两句！</P><>AnsiString str="SELECT * FROM jxprm.group_info WHERE group_city='"+strScore+"'";</P><>ADOQuery1-&gt;SQL-&gt;Add(str);</P>

瞌睡龙

<>我试了一下，编译没有报错，点击以后也没有什么问题，但是DBGrid里面没有显示，怀疑这个数据没有传进去，查看了一下，group_id的数据类型是number</P>

ilikenba

<>你这几句里面没有用到group_id呀，如果SQL里面用的字段是number型的，则在Where后面的判断语句需要去掉两边的单引号！</P>

瞌睡龙

<>不好意思是我打错了，应该是group_city</P>
<>按照你说的改了以后，编译正常，执行时报以下错误</P>
. f7 E( i% Q9 l- c  |0 n. ~+ G<>roject Project2.exe raised exception class EOleException with message 'ORA-00921:未预期的sql命令结尾.Process stopped .Use step or Run to continue.</P>

ilikenba

<>可能是你的Orecal数据库不支持标准SQL语句的问题，好像最后的'应该改成/'，你自己查查它的帮助就知道了！</P>

瞌睡龙

<>还是不行哦，我已经作了以下修改</P>
<>1.去掉了strScore,nScore在下面程序的定义</P>
# w# {- g# b2 J! M<>2.增加了一个label观察strScore的值</P>
<>3.修改sql语句为</P>
<>ADOQuery1-&gt;SQL-&gt;ADD("SELECT * FROM JXPRM.GROUP_INFO);</P>
<>ADOQuery1-&gt;SQL-&gt;ADD("WHERE GROUP_CITY="+'nScroe'");</P>
<>但是依然报原来的错误,观察Label，输入的数据确实进了参数</P>