我在DataModule里声明
public
{ Public declarations }
TeaIdtemp:String;
///////////////////////
主程序里
with DataModule2.qryLogin do
begin
Close;
Sql.Clear;
Sql.Add('select * from Tea_info where TeaName=:TName and TeaPwd=:TPwd');
Parameters.ParamByName('TName').Value := trim(Accounts.text);
Parameters.ParamByName('TPwd').Value := trim(Password.text);
Prepared;
Open;
if RecordCount > 0 then
begin
DataModule2.TeaIdtemp:=Fields.Fields[0].AsString;
Close;
FrmMain.Visible:=False;
FrmTea1.ShowModal;
end
else
begin
ShowMessage('密码不正确,请重新输入');
Password.SetFocus;
Password.SelectAll;
end;
end;
////////////////////////
在另一个FrmTest中引用
EditTeaId.Text:=DataModule2.TeaIdtemp;
EditTeaId.ReadOnly:=true;
为什么EditTeaId.Text没有内容呢?
public
{ Public declarations }
TeaIdtemp:String;
///////////////////////
主程序里
with DataModule2.qryLogin do
begin
Close;
Sql.Clear;
Sql.Add('select * from Tea_info where TeaName=:TName and TeaPwd=:TPwd');
Parameters.ParamByName('TName').Value := trim(Accounts.text);
Parameters.ParamByName('TPwd').Value := trim(Password.text);
Prepared;
Open;
if RecordCount > 0 then
begin
DataModule2.TeaIdtemp:=Fields.Fields[0].AsString;
Close;
FrmMain.Visible:=False;
FrmTea1.ShowModal;
end
else
begin
ShowMessage('密码不正确,请重新输入');
Password.SetFocus;
Password.SelectAll;
end;
end;
////////////////////////
在另一个FrmTest中引用
EditTeaId.Text:=DataModule2.TeaIdtemp;
EditTeaId.ReadOnly:=true;
为什么EditTeaId.Text没有内容呢?
if RecordCount > 0 then
begin
DataModule2.TeaIdtemp:=Fields.Fields[0].AsString; //看看有没有执行到这里.