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

瞌睡龙

<>又来麻烦大家了，有以下程序：</P>
. I" v% ^0 i5 Z0 S% V* W<>void __fastcall TForm1::N14Click(TObject *Sender)
{
   int nScore;
   AnsiString strScore=InputBox("请输入费率区","请输入费率区","");
* Z4 \5 H' j8 {- `! G  O7 g. |/ w   if(strScore =="")
) a9 x8 K( d# v/ M! Z+ Y   return;
   nScore=StrToInt(strScore);
   if(nScore&lt;790||nScore&gt;799)
3 T3 k" ~8 T* s, {   {
) e$ F6 e" _2 _* \# y! D$ H7 P     ShowMessage("数据输入错误！");
( r3 s- @! |/ s( H" w     return;
3 e$ B0 o. ?9 E3 ?+ c   }
5 c5 G; t# G* q% {  L     
  `. o5 i) a3 _% N}</P>
7 h9 S) o1 Y& j9 \$ J<>这个主要是要求使用程序者输入它所在的费率区，输入到strScore中，第二段程序：</P>
<>   ADOQuery1-&gt;Close();
8 u6 B7 C) E2 D0 x0 ~   ADOQuery1-&gt;SQL-&gt;Clear();
; s4 U5 y+ v5 f! p& B   ADOQuery1-&gt;SQL-&gt;Add("SELECT * FROM jxprm.group_info WHERE group_city='strScore'");
   ADOQuery1-&gt;Open();</P>
0 I6 \0 w$ ?# M4 l& o<>将得到的值代入程序，但是编译没有问题，使用了的时候显示“无效的数字”，初步判断是全局变量的问题，现修改头文件</P>
& t$ _4 I1 V1 v* c0 y5 ?% D<>//---------------------------------------------------------------------------</P>
- n0 k2 Z& w& S* r) f<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
; b* T  K. P5 o& T- U2 \) k<>#include "Unit3.h"
//---------------------------------------------------------------------------
5 ?) x! X8 a8 b5 a1 y#pragma package(smart_init)
#pragma resource "*.dfm"
9 c7 {( y' m  D. l0 A) ~TForm1 *Form1;
int nScore;
AnsiString strScore;</P>
" a" f* w* `7 \5 i3 [2 B<>结果还是老样子，请大家帮忙看一下，谢谢!</P>

[此贴子已经被作者于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>
6 ]% j7 D5 @5 \$ a. e+ J<>按照你说的改了以后，编译正常，执行时报以下错误</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 R9 s; \4 y- n% Q% v4 k<>1.去掉了strScore,nScore在下面程序的定义</P>
<>2.增加了一个label观察strScore的值</P>
- b0 z  h2 o& P; r<>3.修改sql语句为</P>
<>ADOQuery1-&gt;SQL-&gt;ADD("SELECT * FROM JXPRM.GROUP_INFO);</P>
, i2 s) y. W2 k) b% K<>ADOQuery1-&gt;SQL-&gt;ADD("WHERE GROUP_CITY="+'nScroe'");</P>
4 Y4 a' J7 p% G4 S# ~5 a! r<>但是依然报原来的错误,观察Label，输入的数据确实进了参数</P>