Delphi6实现简单增删改查

一、DBGrid+DBNavigator控件实现

直接在DBGrid表格中操作数据，增删改查，相当于直接在数据库可视化界面中操作数据，结果同步

• 界面创建：DBGrid（表格控件）、DBNavigator（操作表格控件）
  

• 连接数据库：ADOConnection（连接数据库），ADOQuery（查询数据库）、DataSource（数据源）
  

具体连接顺序

1、 ADOConnection控件中的ConnectionString属性中配置连接数据库的字符串，这里我使用的是Oracle数据库



2、ADOQuery配置连接ADOConnection，设置SQL语句，查询数据



3、DataSource连接ADOQuery，DBGrid连接DataSource，绑定数据源


4、设置完成之后，将ADOQuery控件中的Active属性值改为True，输入账号密码登录成功，可以看到表格中数据更新。

• 操作表格：直接在表格中操作或者操作DBNavigator控件
  1、直接在表格中操作：双击表格中需要修改的单元格，修改，此处我将第一行对象的年龄改成100，可以看到数据库中数据同步修改。
  
  
  2、DBNavigator控件绑定DataSoure，运行，点击控件中的按钮操作数据即可。
  
  

二、DBGrid+SQL代码实现

设置增删改查的按钮，对按钮的点击事件进行设置

按钮依次对应代码

//查询
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='SELECT * FROM student where 1=1';
  if Edit1.Text<>'' then
    begin
      s:=s+' and id= '+Edit1.Text;
    end;
  with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(s);
      Open;
    end;
end;

//修改
procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
begin
  s:='update student set age=18 where id=1';
  with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(s);
      ExecSQL;
    queryAll();
end;

//增加
procedure TForm1.Button3Click(Sender: TObject);
var
  s:string;
begin
  s:='insert into student(id,sno,name,age,telephone) values(8,666,''哈哈哈'',18,333)';
  with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(s);
      ExecSQL;
    end;
  queryAll();
end;

//删除
procedure TForm1.Button4Click(Sender: TObject);
var
  s:string;
begin
  s:='delete from student where name=''哈哈哈''';
  with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(s);
      ExecSQL;
    end;
   queryAll();
end;

//查询函数
procedure queryAll();
var
  s:string;
begin
  s:='select * from student';
  with Form1.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(s);
      Open;
    end;
end;