看得出来,数据库已经连接好了。那就是说,数据库在本地。对吧?
既然会连接数据库,那就说明你应该知道DBNavigator1。
既然你没有选择DBNavigator1,那肯定是有原因的。
其实,使用button一样可以实现DBNavigator1的功能。
1、增加记录的命令:
table1.addend。 在table尾部添加一条记录;
table.insert。 在当前记录的前面插入一条记录;
2、修改记录的命令:
table1.edit 编辑当前记录
3、删除记录的命令:
table1.delete
4、撤销的命令:
table1.cancel
5、提交命令
table1.post
对数据库的所有曾、删、改的命令后都要进行提交!
var
Form1: TForm1;
sno:string;
implementation
{$R *.DFM}
procedure TForm1.Button3Click(Sender: TObject);
begin
//更新
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('select * from biao');
open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//删除
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('delete biao where no='''+sno+'''');
ExecSQL;
close;
end;
Button3Click(nil);
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
sno:=ADOQuery1.fieldbyname('no').asstring;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//修改
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
//取消
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//连接
try
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=shujuku;Data Source=服务器名或ip地址';
ADOConnection1.connected:=true;
except
showmessage('数据库连接失败');
end;
end;
end.
修改及取消不太好做