/当单击DBGrid中的行时,该行中的数据即可显示在下面的文本框等中<br> if not adotable1.IsEmpty then //如果记录非空<br> Begin<br> label8.Caption:=inttostr(Adotable1.fieldByName('infoid').AsInteger);<br> edit1.Text:=adotable1.FieldByname('规格型号').AsString;<br> edit2.Text:=adotable1.FieldByname('样品编号').AsString;<br> edit3.Text:=adotable1.FieldByname('样品名称').AsString;<br> edit4.Text:=adotable1.FieldByname('样品数量').AsString;<br> edit5.Text:=datetimetostr(adotable1.FieldByname('检测日期').AsDateTime);<br> combobox1.Text:=adotable1.FieldByname('实验员').AsString;<br> end;