关闭

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

标签: delphi数据库dataset搜索
493人阅读 评论(0) 收藏 举报
分类:

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

运行时:


点击搜索:


点击编辑:


步骤如下:

首先要有安装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.




0
0
查看评论
发表评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场

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

//查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADO...
  • chinazhd
  • chinazhd
  • 2015-04-14 21:04
  • 13756

SQLiteDatabase 自带添加、删除、更新、查询的操作方

Android学习笔记----SQLiteDatabase 自带添加、删除、更新、查询的操作方法:实现添加,删除,更新, 7.除了前面给大家介绍的execSQL()和rawQuery()方法...
  • qingfeng45697
  • qingfeng45697
  • 2016-10-08 14:53
  • 2341

Delphi开发学习二:使用ADOQuery控件对SQL数据库表进行操作

在delphi学习一中,已经使用ADOConnection控件设置属性连接数据库SQL了。 在这里开始使用ADOQuery控件对SQL数据库表进行操作。 首先我们在SQL中创建数据库名为PERSONN...
  • u011846249
  • u011846249
  • 2015-08-17 20:28
  • 2691

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

MySQL中数据结果集分页功能的实现方法;数据库查询返回特定结果即分页查询
  • just3do
  • just3do
  • 2017-03-14 11:07
  • 491

awk实现数据库查询功能

本文主要讲述如何在 awk 中实现 SQL 的常用操作,当做个简单的 awk 入门分享。 虽然文中部分 awk 会有其它更简洁高效的 shell 命令去完成,亦或是其它语言去完成, 但这都不在本文的讨...
  • u013660039
  • u013660039
  • 2016-12-19 13:51
  • 934

Delphi 数据库查询(TADOQuery)

Delphi 数据库查询(TADOQuery) 在一个程序中你会多次查询数据库的,因此在你写的查询方法中定义一个局部的ADOQuery就可以了,它返回一个数据集_RecordSet。最简单的应用如下...
  • qq_31209383
  • qq_31209383
  • 2017-03-29 19:56
  • 652

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

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

delphi 2010 sqlite数据库查询并读取BOLB图片例子

  • 2017-11-12 23:55
  • 1.91MB
  • 下载

多线程与数据库查询的融合(Delphi)

  • 2007-08-31 17:20
  • 442B
  • 下载

有关Java从数据库查询出的数据导出Excel POI分页功能总结

Java导出Excel及POI 对sheet分页操作
  • qq_25391785
  • qq_25391785
  • 2017-03-17 15:46
  • 1925
    个人资料
    • 访问:55014次
    • 积分:968
    • 等级:
    • 排名:千里之外
    • 原创:44篇
    • 转载:11篇
    • 译文:0篇
    • 评论:8条
    文章分类
    最新评论