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

瞌睡龙

<>又来麻烦大家了，有以下程序：</P>
+ l) H; q8 C. e<>void __fastcall TForm1::N14Click(TObject *Sender)
  u- }+ N6 @+ F8 D{
1 q+ k- z- q9 e, U2 V+ ?3 {   int nScore;
   AnsiString strScore=InputBox("请输入费率区","请输入费率区","");
   if(strScore =="")
6 G6 r( u* u1 i, A   return;
  t- @' Y5 j) D" U2 X9 `' n! ?! _   nScore=StrToInt(strScore);
$ \& _' Y& [6 ?7 y1 ?$ [   if(nScore&lt;790||nScore&gt;799)
3 F& A7 Y" Y1 U5 s% K3 P   {
     ShowMessage("数据输入错误！");
& f# P! \* u2 ~- G2 w7 W) N     return;
: j' E2 Y- y& N& o# v/ a   }
     
; p: [/ D: Q  _# r  E}</P>
% a- V( ^! M9 V% D$ a* V1 G<>这个主要是要求使用程序者输入它所在的费率区，输入到strScore中，第二段程序：</P>
<>   ADOQuery1-&gt;Close();
   ADOQuery1-&gt;SQL-&gt;Clear();
   ADOQuery1-&gt;SQL-&gt;Add("SELECT * FROM jxprm.group_info WHERE group_city='strScore'");
  b0 x) X( z' g9 \+ |3 H   ADOQuery1-&gt;Open();</P>
  h& o. r0 p% ]( q% G/ Y<>将得到的值代入程序，但是编译没有问题，使用了的时候显示“无效的数字”，初步判断是全局变量的问题，现修改头文件</P>
5 H8 L/ h1 k3 m2 h<>//---------------------------------------------------------------------------</P>
# G1 n5 q8 M; D- ^<>#include &lt;vcl.h&gt;
5 d7 O6 i, G: u* [) h; g#pragma hdrstop</P>
+ y. `- |6 p- S5 S, R<>#include "Unit3.h"
" M: Q  a: K" e* H. r$ e//---------------------------------------------------------------------------
6 y! Z& P2 m# o9 i& ^#pragma package(smart_init)
/ ]+ {/ j2 A( f6 i* O( r#pragma resource "*.dfm"
TForm1 *Form1;
int nScore;
' U8 R: l* Q& {6 H2 r2 D# T1 BAnsiString strScore;</P>
" o- i; O8 X0 F, t3 |$ i. `<>结果还是老样子，请大家帮忙看一下，谢谢!</P>
7 H% G0 v& a( L4 x# b8 l

[此贴子已经被作者于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>
/ ]5 j- z: o: Y+ S9 O) m) w" z<>按照你说的改了以后，编译正常，执行时报以下错误</P>
<>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>
, P8 g% u8 C( E/ Z/ ?1 J  @<>2.增加了一个label观察strScore的值</P>
8 J: m+ F1 {/ r9 Z" h' m5 r<>3.修改sql语句为</P>
' H  N* V) a7 X) k# r- g<>ADOQuery1-&gt;SQL-&gt;ADD("SELECT * FROM JXPRM.GROUP_INFO);</P>
- i0 V3 @4 ~; w5 }* _. Q  q<>ADOQuery1-&gt;SQL-&gt;ADD("WHERE GROUP_CITY="+'nScroe'");</P>
<>但是依然报原来的错误,观察Label，输入的数据确实进了参数</P>