Delphi - cxGrid连接Oracle数据库 实现数据的增删改查

cxGrid连接Oracle数据库 实现数据的增删改查

cxGrid连接Oracle数据库

1：通过OraSession连接数据库、OraDataSet实现OraSession和OraDataSource的连接，OraDataSource绑定cxGrid；

2：按如下1、2、3、4实现cxGrid字段与数据库表/视图字段的绑定；

通过数据库表增删改查

OraQuery优先做如下配置：

1：查询

OraQuery做如下配置；

select * from tablename t where 1=1;

前台带有查询条件的代码如下：

    with oraquery1 do
    begin
        Close;
        sql.Clear;
        SQL.Text := 'select * from tableName t where 1=1 ';
        if Trim(RzEdit_xm.Text) <> '' then
        begin
            SQL.Add(' and t.name=:name ');
            ParamByName('name').AsString := Trim(RzEdit_xm.Text);
        end;
        SQL.Add('order by sysid ');
        Open;
    end;

2：增加

OraQuery做如下配置；

insert into tablesName(params1,...paramsN) values(values1,...valuesN);

前台按钮事件代码如下：

 OraQuery1.Open;
 OraQuery1.Append;

3:删除

OraQuery配置如下：

删除按钮事件代码如下：

 OraQuery1.Delete;
 OraQuery1.ApplyUpdates;

4：修改

OraQuery配置如下：

修改按钮代码如下：

OraQuery1.Edit;

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。