procedure TForm1.Button1Click(Sender: TObject);
var
ret:integer;
begin
with adoquery1 do
begin
close;
sql.Clear;
case s of
0:sql.Add('exec addcttosales');
1:sql.Add('exec addcttosales2');
end;
if adoquery1.FieldByName('季节性系数').IsNull then
execsql
else
ret:=application.MessageBox('已经计算出季节性系数!','提示',
mb_iconinformation+mb_ok+mb_defbutton1);
Active:=False;
Close;
SQL.Clear;
case s of
0:SQL.Text:='select * from sales';
1:SQL.Text:='select * from sales2';
end;
end;
adotable1.Close;
case s of
0: ADOTable1.TableName:='sales';
1: ADOTable1.TableName:='sales2';
end;
ADOTable1.Open;
adotable1.Active:=true;
end;在执行完存储过程后,sales和sales2表格中的季节性系数有值了,不是“null”了,需要在第二次按button后,不要在执行已经执行过的存储过程了。
但到条件判断处,中断了,“Adoquery1 Field '季节性系数'not found.'
好麻烦,我试过用变量表示,执行存储过程后,用变量做判断条件,但达不到我要的效果。我已经发过帖子了。提到这个问题。
怎么办???
var
ret:integer;
begin
with adoquery1 do
begin
close;
sql.Clear;
case s of
0:sql.Add('exec addcttosales');
1:sql.Add('exec addcttosales2');
end;
if adoquery1.FieldByName('季节性系数').IsNull then
execsql
else
ret:=application.MessageBox('已经计算出季节性系数!','提示',
mb_iconinformation+mb_ok+mb_defbutton1);
Active:=False;
Close;
SQL.Clear;
case s of
0:SQL.Text:='select * from sales';
1:SQL.Text:='select * from sales2';
end;
end;
adotable1.Close;
case s of
0: ADOTable1.TableName:='sales';
1: ADOTable1.TableName:='sales2';
end;
ADOTable1.Open;
adotable1.Active:=true;
end;在执行完存储过程后,sales和sales2表格中的季节性系数有值了,不是“null”了,需要在第二次按button后,不要在执行已经执行过的存储过程了。
但到条件判断处,中断了,“Adoquery1 Field '季节性系数'not found.'
好麻烦,我试过用变量表示,执行存储过程后,用变量做判断条件,但达不到我要的效果。我已经发过帖子了。提到这个问题。
怎么办???
解决方案 »
- 同一段代码,在delphi 2010和delphi 2007返回的结果不一样,请问题如何处理?
- 如何获取dbgrid最后一行,在线等!
- 急:请问如何用imageenview进行高速连续扫描??
- 总算有自己的顶级域名网站了,散分。www.tansoo.cn
- 大家帮帮我,这问题没人会吗
- 请问做决策系统用什么软件好
- 如何使得ListView(vsreport)的不同列和不同行,能显示不同的Hint?
- 想做一个支持ASP or PHP的服务器,请帮忙!
- 请问各位大虾,急!!!!
- 关于3-TIER的问题,有谁在做3层的东东呀??
- Tfun=function:integer????
- 请问如何把文本记录文件导入PARODOX7数据库中,急!!!,谢谢
你这个数据库里面有字段吗