如何将Module.ADOQuery_Goods 替换成 YY ？(100分)

Z

zouhouzi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #1

由于有很多数据库操作，而且数据表比较多。根据不同的条件要切换到不同的数据表，我想能不能用一个变量来表示。比如：with Module.ADOQuery_Goods do 如果我要用YY代替Module.ADOQuery_Goods 使之成为with YY do 我应该怎么做？

thanks very much!

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #2

你把这个操作放在一个过程处理。
procedure my_process(myquery:tadoquery);
begin
你的处理。
end;
调用的时候，你只需要
my_process(yy);
my_process(yy1);
my_process(yy2);
my_process(yy3);

 

Z

zouhouzi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #3

如果这样的话，对每一种操作都要定义一个过程？我觉得如果能定义一个变量或者宏定义的话，可能要方便得多。但是用Delphi我不知道如何实现。

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #4

你也使用这样的方式啊，
定义公共变量。
var my_query:tadoquery;
my_query:=adoquery1;

你把要处理的传递给这个变量。不就任何地方都可以使用？

 

Z

zouhouzi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #5

非常感谢你的指教.当初我就是这样做的,
var
YY:TADOQuery;
YY:=Module.ADOQuery_Goods; 但提示编译错误.
看到了你上边写的,我仔细检查了一下,发现忘了加 DB, ADODB. 反思中....

我有200多分,本来全打算给你的.可是系统只让给100分.抱歉哈~

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #6

解决了就好。