又是一个送分的问题。。。。。。。

Question

在一个窗体里，用一个查询按钮查一个人的资料，在几个edit和一个memo中显示出来，然后我想把这些数据改一下，通过一个修改按钮提交，问这个修改按钮的代码什么写

Answer 1

http://expert.csdn.net/Expert/topic/2463/2463133.xml?temp=.9499933
看看你自己的問題!!

Answer 2

建议你用dbedit直接提交的就是可以的了
如果是edit的话 需要有一个能标志记录的唯一标志的
然后是这条记录处于修改的状态的 再把这条数据集修改为这个edit的值不就可以了吗
但是还是推荐用dbedit

Answer 3

procedure PosModifyData;
begin
  with  table1 do
  begin
    if not active then open;
    edit;
    fieldbyname('字段1').value:=edit1.text;
    fieldbyname('字段2').value:=edit2.text;
    fieldbyname('字段3').value:=memo1.text;
    post;//保存数据到数据库
  end;
end;

Answer 4

procedure TDataUpdateForm.Button1Click(Sender: TObject);
begin
 with UpDateDataModule.table do
 begin
  if SpinEdit1.text='' then
  begin
   ShowMessage('please enter...');
   SpinEdit1.SetFocus;
   exit;
  end;
  if not Locate('字段',VarArrayof([SpinEdit1.text]),[LopartialKey]) then
  begin
   ShowMessage('无此记录，不能修改！'）；
   exit;
  end;
  Edit;
  fieldbyname('字段1').value:=edit1.text;
  fieldbyname('字段2').value:=edit2.text;
  fieldbyname('字段3').value:=memo1.text;
  post;
  ShowMessage('修改成功！';
 end;
end;
可能与你期望的有所出入，仅供你参考一下，看行否？

Answer 5

procedure form1.PostJlclick(sender :TObject );
begin
  with table1 do
  begin
     edit;
     fieldbyname('mc').asstring:=edit1.text;
     fieldbyname('bz').asstring:=edit2.text;
     post;
  end;
end;