当前位置: 首页 > 技术文档 > 正文
avatar

以下代码为标准的DELPHI MSSQL语法: 查询数据: 插入数据: 修改数据: 删除数据:

以下代码为标准的DELPHI MSSQL语法:
查询数据:

procedure TForm1.Button1Click(Sender: TObject);  
begin 
with adoquery1 do 
begin 
close;  
sql.Clear;  
sql.Add('select * from gl') ;  
open;  
showmessage('查询成功');  
end;  
end; 

插入数据:

procedure TForm1.Button2Click(Sender: TObject);  
begin 
with adoquery1 do 
begin 
close;  
sql.Clear;  
sql.Add('insert into gl(xm,xb,old) valuse ('''+edit1.text+''',') ;  
sql.Add(''''+edit2.text+''',+edit3.text+''') ');  
execsql;  
showmessage('输入成功');  
button1.click;  
end;  
end; 

修改数据:

procedure TForm1.Button3Click(Sender: TObject);  
begin 
with adoquery1 do 
begin 
close;  
sql.Clear;  
sql.Add('update gl set xm='''+edit1.Text+''',xb='''+edit2.Text+''',old='''+edit3.Text+''' where xm='''+edit1.Text+''' ');  
execsql;  
showmessage('修改成功');  
close;  
button1.Click;  
end;  
end; 

删除数据:

procedure TForm1.Button4Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add(‘delete from gl where xm=”’+edit1.Text+””) ;
execsql;
showmessage(‘删除成功’);
end;
end;
本文固定链接: https://blog.yanhualou.com/jishu/41.html | 烟花楼博客
标签:

delphi 数据库添加删除修改读取语句:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter