help(50分)

大师：
我有三个问题请教：
1.如何实现savedialog的save功能?
2.如何动态创建控件？我按书上所说的在public 下定义edit1:tedit时出现了
delphi认为tedit是一个非法定义，why?我将如何解决这个问题?
3.如何实现数据库的多条件查询,如果用动态创建控件的方法又怎样实现？
(假设同时查询姓名，年龄，性别...)
这是我的毕业设计，十万火急！
因时间不足无法发送更具体的资料,望能对上述问题给予答复不胜感激！

1。 close then open (disablecontrols then enablecontrols)
2. i dot know
3. sql (where t1 and t2 and t3 and ... and tn)

2.

var
edit1:Tedit;
begin
edit1 := Tedit.Create(edit1);
……

1.什么意思，SAVEDIALOG不是很好实现吗
3.select field1，field2，...... form table1 where (姓名=' ') and (年龄='') and ......
'动态创建控件的方法又怎样实现'又是什么意思

运行时生成控件

　　㈠、运行时生成可视控件：以下以TEdit 控件为例
1.在Form的Public中定义TEdit控件
　　Edit1:TEdit;
2.在需要生成的地方加入以下代码：
　　Edit1:=TEdit.Create(Self);
　　Edit1.Parent:=Form1;
　　Edit1.Left ?:=20;
　　Edit1.Top :=20;
　　Edit1.Text :='Edit1 Text';
3.使用完毕后，释放分配的资源
　　if? Assigned(Edit1) then Edit1.Free; ?
　　㈡、运行时生成非可视控件：以下以 TTimer控件为例
1.在Form的Public中定义TTimert控件
　　Timer1:TTimber;
2.在需要生成的地方加入以下代码：
　　Timer1:=TTimer.Create(Self);
　　Timer1.OnTimer:=YourAction;
YourAction是自己定义的OnTimer事件，使用
procedure TForm1.YourAction(Sender:TObject); 完成
3.使用完毕后，释放分配的资源
　　if? Assigned(Timer1) then Timer1.Free; ?

>>如何实现数据库的多条件查询

给你个例子：
Select a.tdate,a.itemdcode,a.itemname,a.speci,a.qtyunit,a.qty,a.proname,b.proveno,b.brand,a.lotno,a.expy,a.tprice,a.rprice
from t_itembase AS b INNER JOIN t_salelist AS a ON b.itemdcode=a.itemdcode
Where a.optype='购入' and a.whflag>='2' and a.saleflag>='2' and configdate>=#1980-01-01# and configdate<=#2100-01-01#
and a.unitcode='0304'

条件够不够多，以此类推。

1.
用SaveDialog的Execute过程：
SaveDialog.Execute
返回为真假，真为已点了保存，假者为点取消。

如：
if SaveDialog.Execute then
SaveTo('SaveDialog.FileName');

SaveDialog并不能保存文件，只提供保存用的对话框，并返回所选的保存路径，
真要保存，还得另写程序。

前一个帖中的"？"号去掉。

动态生成空件的编程，我近来正好完成了如此的项目，可mailto me!

时间太久，强制结束。 wjiachun