美女杀人事件。(0分)

  • 主题发起人 主题发起人 wxxmlx
  • 开始时间 开始时间
W

wxxmlx

Unregistered / Unconfirmed
GUEST, unregistred user!
我想自定义一个事件,这个事件的功能是这样的 (我知道不能传递控件了)
begin
with adoquery1 do
close;
sql.clear;
sql.add('select * from canyinbu id');
open;
end;
今天问了几个问题,我已经弹尽量绝了。没分了。以前补上吧
 
为什么不这样试试?

begin
with adoquery1 do
sql.clear;
sql.add('select * from canyinbu id');
execsql;
active:=true;
end;
 
?
你想做什么呀
 
executeSQL是不用返回值时用的。。
active,close之类的是要返回值的。
 
定义事件 //你是不想知道如何定义事件
procedure aa(aDAOQuery: tDAOQuery);
begin
with aDAOQuery do
close;
sql.clear;
sql.add('select * from canyinbu id'); //你不是想问这一段吧说的太模糊
open;
end;

调用时
aa(adoquery1)
 
procedure 美女杀人事件(aDAOQuery: tDAOQuery);
begin
with aDAOQuery do
begin
close;
sql.clear;
sql.add('select * from canyinbu id'); //你不是想问这一段吧说的太模糊
open;
end;
end;
 
sql.add('select * from canyinbu id')这儿有问题
 
对,你的sql语句有问题
你的‘id’是什么东西?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部