Delphi实现数据库查询编辑功能

原创 2017年01月03日 09:51:57

在开始之前我们先看下功能

运行时:


点击搜索:


点击编辑:


步骤如下:

首先要有安装UniDAC控件(具体安装方式参考UniDAC的安装和使用博文

然后在Form添加几个控件:TUniDataSource,TUniConnection,TMySQLUniProvider,TUniQuery,TDBText,TDBEdit,TDBMemo,TDBGrid,TButton,TButton

接着设置:

UniConnection1,双击UniConnection1选项Connect设置相关参数和Options的UseUnicode设置为True(这样中文会正常显示)

UniQuery1设置Connection选择UniConnection1,双击UniQuery1输入SQL语句select * from tablename

UniDataSource1设置DataSet选择UniQuery1

最后代码如下:


unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, UniProvider, MySQLUniProvider, DB, DBAccess,
  Uni, MemDS, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls;


type
   TForm1 = class(TForm)
    UniConnection1: TUniConnection;
    UniQuery1: TUniQuery;
    UniDataSource1: TUniDataSource;
    MySQLUniProvider1: TMySQLUniProvider;
    Button1: TButton;
    DBEdit1: TDBEdit;
    DBText1: TDBText;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
 begin
 UniQuery1.Active:=True;
 end;


procedure TForm1.Button2Click(Sender: TObject);
begin
     UniDataSource1.DataSet.Post;
     showmessage('修改成功!');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin


end;


end.




版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Delphi ADOQuery连接数据库的查询、插入、删除、修改

//查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADO...

MySQL中数据结果集分页功能的实现方法;数据库查询返回特定结果即分页查询

MySQL中数据结果集分页功能的实现方法;数据库查询返回特定结果即分页查询

Delphi多线程学习:多线程数据库查询(ADO)

 ADO多线程数据库查询通常会出现3个问题:    1、CoInitialize 没有调用 (CoInitialize was not called);所以,在使用任何dbGo对象前,必须手...

jsp单页面数据库查询模板:支持分页、排序、简单搜索、设置每页显示页数功能

不多说,直接贴代码 show.jsp(显示页面) ">

实现分布式数据库查询

  • 2008-09-26 10:28
  • 64KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)