请高手进来看看！谢谢(新手没分)

Question

from1 btn1 qry1  ds1  
fxiugai edt(若干) qry2 ds2 
按btn1  from2show    
procedure TForm1.btn2Click(Sender: TObject); begin 
 Str:=qry1.fieldbyname('sno').AsString; 
 Application.CreateForm(TFxiugai,Fxiugai); 
 Fxiugai.ShowModal; 
 Fxiugai.Free; 
end; 
procedure TFxiugai.btn2Click(Sender: TObject); 
begin 
 Close; 
end; procedure TFxiugai.FormCreate(Sender: TObject); var 
  a,b,c,d,e,f:string; 
begin   qry_xg.Connection:=DataModule2.con1; 
  qry_xg.Active:=True; 
  with qry_xg do 
  begin 
    Close; 
    SQL.Clear; 
    SQL.Text:='select * from student where sno=:a'; 
    Parameters.ParamByName('a').Value:=Form1.str; 
    Open; 
    qry_xg.FieldByName('sno').Value:=strngfld_xgsno.AsString; 
    qry_xg.FieldByName('sname').Value:=strngfld_xgsname.AsString; 
    qry_xg.FieldByName('sgentle').Value:=strngfld_xgsgentle.AsString; 
    qry_xg.FieldByName('sage').Value:=qry_xgsage.AsString; 
    qry_xg.FieldByName('sbirth').Value:=qry_xgsbirth.AsString; 
    qry_xg.FieldByName('sdept').Value:=strngfld_xgsdept.AsString; 
    edit.text:=qryxg.fieldbyname('sno').asstring; 
    end; end;  
意思就是把from1的值传到fxiugai 上面去 
老是报错！赋值到 edit 赋不上啊？ 
帮忙指导指导啊！~ 

Answer 1

edit.text:=qry_xg.fieldbyname('sno').asstring; fxiugai中要引用form1的值很简单啊，在fxiugai中加入uses unit1，然后就可以直接调用form1的值了。顺便说一下，是form1，不是from1另外，你都是短工了，咋还说新手没分呢？我一个乞丐都三天两头散分的

Answer 2

晕了，看不懂，edit是dbedit吗？qry_xg没有edit就开始赋值？……

Answer 3

是tedit  var
  a,b,c,d,e,f:string;
begin  qry_xg.Connection:=DataModule2.con1;
  qry_xg.Active:=True;
  with qry_xg do
  begin
    Close;
    SQL.Clear;
    SQL.Text:='select * from student where sno=:a';
    Parameters.ParamByName('a').Value:=Form1.str;
    Open;
    end;
    edt1.Text:=qry_xg.fieldbyname('sno').AsString;
    edt2.Text:=qry_xg.fieldbyname('sname').AsString;
    edt3.Text:=qry_xg.fieldbyname('sgentle').AsString;
    edt4.Text:=qry_xg.fieldbyname('sage').AsString;
    dtp1.DateTime:=qry_xg.fieldbyname('sbirth').AsDateTime;
    edt5.Text:=qry_xg.fieldbyname('sdept').AsString;
    end; 上面就出来了！~呵呵谢谢大家啊1`