Question

delphi7 新手，求方法实现想要的功能！谢谢！

这个是我FORM1的查询功能 我已经实现了，现在我FORM2也要这一个相同的查询，现在的想法就是用IF语句 在实现，
var
A,B,C ：string；
begin
a：= ‘unit1.test.qry1’
B：=‘unit2.test.qry1’
if
窗体1显示（这句是FORM1.show？）；
then
C：=A；
else
C：=B
end

with 'c' do
begin
查询句....................
end

能帮我写下么，希望能看懂
a：= ‘unit1.form1.ADOquery1’
B：=‘unit2.form2.ADOquery1’

如果窗体1显示，C：=a 窗体1的with ‘C’ do.

窗体2显示，C:=B 则 with 'C‘ do

with ‘C’ do
begin
Close;
SQL.Clear;
SQL.Add('select * from dbo.inform );
Open;
end

Answer 1

看不懂唉
a：= ‘unit1.test.qry1’

B：=‘unit2.test.qry1’

这什么意思？

追问

a：= ‘unit1.form1.ADOquery1’
B：=‘unit2.form2.ADOquery1’

追答

你a，b是干什么的？

追问

A 和B 是 定义 2个窗体 ADOquery’路径’，

with ‘C’ do
begin
Close;
SQL.Clear;
SQL.Add('select * from dbo.inform where '+ii+'');
Open;

追答

你a，b是干什么的？

还是看不懂
简单说你要实现什么功能吧

追问

就2个窗体需要吊用同一个 查询功能。

追答

把你FORM1的查询功能写出来看看怎么写的

追问

你不会看疯了吧  我水平有限.....先说声不好意思.2个窗体 都想用这段代码

追答

看是看懂了，就是在unit5上显示你这些信息。
你如果form2也想用，就把这个过程做成一个函数，带一个参数，这样就可提议替换你的edit1.text。

Answer 2

if Form1.showing then