delphi定位

来源:百度知道 编辑:UC知道 时间:2024/09/24 02:16:32
delphi定位数据库显示组件DBGrid中的一条记录失败。求代码参考!例如,数据库数据(姓名,性别,年龄)分别定位到Edit1,Edit2,Edit3!

在DBGrid的OnCellClick事件写代码:
procedure TUserManageForm.DBGrid1CellClick(Column: TColumn);
begin
if ADO_user.Active then
begin
Edit1.Text := ADO_user.fieldbyname('姓名').AsString;
Edit2.Text := ADO_user.fieldbyname('性别').AsString;
Edit3.Text := ADO_user.fieldbyname('年龄').AsString;

end;
end;
注:ADO_user为ADOTable的名字

可以试试SetFocus,比如Edit1.SetFocus,不过之前你要自己去判断~~本人属于菜鸟级的~~呵呵~~也就只能提供这点帮助了~~