delphi中用Table表组件和Query查询组件配合进行的增删改查

标签：self   关键字   语句   编辑   执行   状态   利用   ring   ext   

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查询组件配合进行的增删改查

标签：self   关键字   语句   编辑   执行   状态   利用   ring   ext   

原文地址：http://www.cnblogs.com/skyfly666/p/6618750.html