首页 > 代码库 > delphi中用Table表组件和Query查询组件配合进行的增删改查
delphi中用Table表组件和Query查询组件配合进行的增删改查
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语句,返回一个结果集
DBNavigator.DataSource:=Info; //将查询到的信息放入DBNavigator的编辑框
delphi中用Table表组件和Query查询组件配合进行的增删改查