当前位置:编程学习 > Delphi >>

delphi与数据表之间修改和删除的操作

第一步:

我数据库表中有ID,name,sex,三个字段,ID是自增+1的,我在From1界面中分别放了,edit1,edit2,edit3,三个编辑框和一个Button1按钮,edit1对应ID,edit2对应name,edit3对应sex,我想在edit1中输入ID,按button1按钮edit2和edit3会显示数据表中雨ID对应的一条内容!//第一步已经完成了!

第二部:更具第一步输入ID显示name和sex字段的内容到edit2和edit3中,我想在放两个按钮进去,实现修改和删除的功能!请问怎么操作!?

追问:

根据上面三张图做一个数据库备份和恢复功能。

三张图结构已经搭建好了,功能语句什么的一句都没写,这个备份恢复系统要怎么完成?麻烦大侠您每个功能都给我写一下吧,小生刚学!非常感激您的帮助了!

答案:

第一步的答案已经和你说了。。。继续上面那部的设置。。放2个按钮。一个修改。一个删除

 

procedure TForm1.Button2Click(Sender: TObject);
begin
 with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('select * from 你的表 where ID='''+edit1.Text+'''');
   open;
   if eof then
    application.MessageBox('无法找到输入所ID的信息','提示信息')
   else
    begin
     close;
     sql.Clear;
     sql.Add('update 你的表 set name='''+edit2.Text+''',sex='''+edit3.Text+''' where id='''+edit1.Text+'''');
     execsql;
    end;
  end;
end;

修改按钮。。先判断是否存在这个ID.。然后进行修改

 

procedure TForm1.Button3Click(Sender: TObject);
begin
 with adoquery1 do
  begin
   close;
   sql.Clear;
   sql.Add('select * from 你的表 where ID='''+edit1.Text+'''');
   open;
   if eof then
    application.MessageBox('无法找到输入所ID的信息','提示信息')
   else if messagedlg('确定要删除吗',mtconfirmation,[mbyes,mbno],0)=6 then
    begin
     close;
     sql.Clear;
     sql.Add('delete from 你的表 where ID='''+edit1.Text+'''');
     execsql;
    end;
  end;
end;

 

删除键。。OK、、下班。。哈哈

上一个:用delphi编写的软件,怎样防止被修改
下一个:Delphi如何开启远程线程实现DLL的远程注入?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,