仓库管理软件版1楼: 如：
form1的edit1.text里的数（如日期）
然后确定Button_click后
怎么在form2的Grid里显示
ADOQuery1.SQL.Text := ＇＇select zhichu as 123,zhichul as 456,jieyu as 789 from jz where date=#＇＇ + QuotedStr(Edit1.text)+＇＇#＇＇;
注意:edit1.text这个怎么传送？

2楼: 這個是否讓你滿意？
在窗體間傳遞參數的例子
http://www.2ccc.com/article.asp？articleid=1067
http://downloads.2ccc.com/simples/forms/InheritedOverload.rar

可以改寫form2的Create函數
法一:
type
TForm2 = class(TForm)
private
{ Private declarations }
FstrParam:String; //聲明一個私有變量
public
{Public declarations }
constructor Create(AOwner:TComponent;sParam:String=＇＇＇＇);
end;

var
Form2: TForm2;
implementation
{$R *.dfm}

constructor TForm2.Create(AOwner: TComponent; sParam: String);
begin
Inherited Create(AOwner); //不過這種方法最好用于動態創建TForm2
FStrParam:=sParam;
end;

如果此ADOQuery1在Form2上
ADOQuery1.SQL.Text := ＇＇select zhichu as 123,zhichul as 456,jieyu as 789 from jz where date=#＇＇ + QuotedStr(FstrParam)+＇＇#＇＇;

法二
type
TForm2 = class(TForm)
private
{ Private declarations }
FstrParam:String;
public
{Public declarations }
//聲明一個屬性,可供公開訪問
property strParam:String read FstrParam write FstrParam;
end;

Form2.strParam:=＇＇20060131＇＇;
ADOQuery1.SQL.Text := ＇＇select zhichu as 123,zhichul as 456,jieyu as 789 from jz where date=#＇＇ + QuotedStr(strParam)+＇＇#＇＇; 如进销存财务管理软件

3楼: form2里写个过程，form1调用不就行啦

4楼: 问题在于我现在试了一下，不是很好用，怎么将form1的edit1.text交给FStrParam上呀？

5楼: 在Form2中写：
begin
with TForm1.Create(Self) do
begin
ShowModal;
strParam := edit1.text;
Free;
end;
ADOQuery1.SQL.Text := ＇＇select zhichu as 123,zhichul as 456,jieyu as 789 from jz where date=#＇＇ + QuotedStr(strParam)+＇＇#＇＇;
。。。。。。。
end;

6楼: 在form2的文件里加入form1的单元，然后直接可以赋值啊，比如
ADOQuery1.SQL.Text := ＇＇select zhichu as 123,zhichul as 456,jieyu as 789 from jz where date=#＇＇ + form1.edit1.text +＇＇#＇＇;

仓库管理软件版7楼: 我把簡單的問題復雜化了。
不必追求技巧,正如chen_liang和emyzhang所說的那樣做就行了。

8楼: ADOQuery1.SQL.Text := ＇＇select zhichu as 123,zhichul as 456,jieyu as 789 from jz where date=#＇＇ + QuotedStr(form1.Edit1.text)+＇＇#＇＇; <--要引入form1單元，才能使用

9楼: 帮顶!

-------------------------------------
站长开发推广同盟 关注网站,关注技术!

海量源代码下载,二次开发绝佳站点

网址: http://www.source520.com
http://www.source520.net