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

瞌睡龙

<>又来麻烦大家了，有以下程序：</P>
+ o- ?8 C* D( ~( r% q4 w<>void __fastcall TForm1::N14Click(TObject *Sender)
3 R% o/ M, r6 Z  q! R{
   int nScore;
   AnsiString strScore=InputBox("请输入费率区","请输入费率区","");
, B$ n: Y% A% s/ T$ a& ]4 q   if(strScore =="")
   return;
0 X% N( J8 f- q' X) Q- k   nScore=StrToInt(strScore);
' V1 j# ^3 }% T& D/ a: P   if(nScore&lt;790||nScore&gt;799)
- Z  ^+ T# u) R4 h- O8 x+ c, K   {
     ShowMessage("数据输入错误！");
% a- p& z7 P- \9 v! s$ h     return;
7 u2 p) ]. x% u* P: ?   }
' l% u; g: R/ B4 u- a' U2 S     
  C8 T9 V) f3 s  I) t}</P>
<>这个主要是要求使用程序者输入它所在的费率区，输入到strScore中，第二段程序：</P>
4 Z8 V) a( V# u) M% y<>   ADOQuery1-&gt;Close();
   ADOQuery1-&gt;SQL-&gt;Clear();
4 T) |/ ?3 x7 h9 e  }  W* h   ADOQuery1-&gt;SQL-&gt;Add("SELECT * FROM jxprm.group_info WHERE group_city='strScore'");
   ADOQuery1-&gt;Open();</P>
9 O; o1 Q, j! r# S<>将得到的值代入程序，但是编译没有问题，使用了的时候显示“无效的数字”，初步判断是全局变量的问题，现修改头文件</P>
% M7 V1 n- @3 {$ K, Y8 u<>//---------------------------------------------------------------------------</P>
2 d+ S; p/ I& ?+ _7 S0 U, E( K<>#include &lt;vcl.h&gt;
( l) ^8 X* e; P#pragma hdrstop</P>
7 k8 i9 ?* k4 ?( D, A9 r) W" ]<>#include "Unit3.h"
: o& `3 O$ U6 Z//---------------------------------------------------------------------------
$ `* E  Y" E- A. M5 u+ a: C#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
8 l1 h, ]3 i  J9 lint nScore;
AnsiString strScore;</P>
% ?5 C: _6 z: D* O<>结果还是老样子，请大家帮忙看一下，谢谢!</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>
& a+ o, r: Q2 N: |4 O<>按照你说的改了以后，编译正常，执行时报以下错误</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>
, {. b3 m" q8 D3 O2 {( N$ n( U# i<>2.增加了一个label观察strScore的值</P>
<>3.修改sql语句为</P>
' D, m/ n1 f7 h. v7 M; H+ u<>ADOQuery1-&gt;SQL-&gt;ADD("SELECT * FROM JXPRM.GROUP_INFO);</P>
9 V/ u/ e# V9 ]1 O<>ADOQuery1-&gt;SQL-&gt;ADD("WHERE GROUP_CITY="+'nScroe'");</P>
: J0 r" E) ]" ^7 o$ z<>但是依然报原来的错误,观察Label，输入的数据确实进了参数</P>