Delphi-BDE

Delphi中数据库使用技术
一、数据库组件
Delphi的组件面板中关于数据库的是BDE、Data Access、Data Controls。

其中BDE、Data Access是非可视化组件，Data Controls是可视化组件。

BDE：提供了以BDE方式访问数据库的数据表和查询数据库等的组件。

如TTable、TQuery;
Data Access：提供数据源的连接的组件；如DataSource;
Data Controls:用来浏览和编辑数据，为用户提供使用数据库的接口。

如TDBGrid;
二、数据库的操作
1、选择的组件有DataSource(EmpDataSource)、TTable(EmpTable)、TBGrid(EmpDBGrid)。

将这三个组件关联起来。

显示的结果如下图所示：
2、进行数据的DML操作
（1）insert:在当前记录的前面添加一条记录。

//添加信息
procedureTEmpForm.BtnInsertClick(Sender: TObject);
begin
EmpDBGrid.ReadOnly:=false;//表格可写
EmpDM.EmpTable.Insert;
end;
（2）append：在文件的尾部增加一条记录。

//追加信息
procedureTEmpForm.BtnAppendClick(Sender: TObject);
begin
EmpDBGrid.ReadOnly:=false;
EmpDM.EmpTable.Append;
end;
（3）delete:删除当前记录。

//删除信息
procedureTEmpForm.BtnDelClick(Sender: TObject);
begin
if messagedlg('您确定要删除当前记录吗？',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
EmpDBGrid.ReadOnly:=false;
EmpDM.EmpTable.Delete;
EmpDBGrid.ReadOnly:=True;
end;
end;
（4）edit:修改当前记录。

//修改信息
procedureTEmpForm.BtnEditClick(Sender: TObject);
begin
EmpDBGrid.ReadOnly:=false;
EmpDM.EmpTable.Edit;
end;
(5)post:保存当前记录。

//保存信息
procedureTEmpForm.BtnSaveClick(Sender: TObject);
begin
EmpDM.EmpTable.Post;
EmpDBGrid.ReadOnly:=true;// 表格可读
showmessage('保存成功');
end;
3、进行Select的查询操作。

其中用到组件：TQuery。

显示的结果如下图所示：
（1）第一种查询方法。

procedure TForm1.BtnSearch1Click(Sender: TObject); begin
withEmpQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from employee');
SQL.Add('where ID=:ID1');
ParamByName('ID1').AsString:=EdNo.Text;
Prepare;
Open;
end;
end;
（2）第二种查询方法。

procedure TForm1.BtnSearch2Click(Sender: TObject); begin
withEmpQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from employee'); SQL.Add('where ID="'+EdNo.Text+'"'); Prepare;
Open;
end;
end;。