delphi中用Table表组件和Query查询组件配合进行的增删改查
一、打开数据库表进入检索状态
var Table1:TTable; //定义Table1为TTable类型的变量
begin
Table1:=TTable.Create(self);//自建表
Table1:=DatabaseName:=‘rsgl‘;//数据库名
Table1:=TableName:=‘operator.db‘ //打开数据库Table表 文件名是“operator.db”
Table1.Open; //Table1表开启状态
Table1.SetKey; //将系统设置成检索状态
Table1.FieldByName(‘name‘).AsString:=Edit1.Text; //Edit1的值与Table1表中字段为name的值进行匹配
Table1.GotoKey; //根据上面的条件进行检索的返回值，true为有值，这里一般用来判断如：if Table1.GotoKey then begin .......end.
二、Table表组件增添数据
Table1.Append; //在数据库表的末尾添加新的记录
Table1.Edit; //编辑数据库表中的当前记录
SaveToTable;
Table1.Post; //保存结果
三、Table表组件修改数据
Table1.Edit;
SaveToTable;
Table1.Post;
四、Table表组件删除数据
Table1.Edit;
Table1.Delete;
五、利用Query查询组件查询数据
在用Query查询组件查询数据时，切换窗体的代码编辑器，，在implementation关键字的下面添加 uses QueryDataModuleUnit语句。
begin
with QueryDataModule do
begin
with InfoQuery do
Close;
SQL.Append(‘where Number:=tt‘); //添加查询条件
ParamByName(‘tt‘).AsString:=Edit1.Text;
Prepare; //准备工作
Open; //执行的SQL语句，返回一个结果集