么意思博客

以下代码为标准的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;