Delphi 数据库操作的简单封装
wptr33 2025-01-06 15:48 18 浏览
Delphi 数据库操作的简单封装
在日常开发中,经常会需要进行数据库操作,如执行一些 SQL 查询、或者执行一些 SQL 命令等,如果每次执行操作都按照 Delphi 数据库操作的步骤一步一步地组织语句去执行的话,又显得比较繁琐,所以,有必要对数据库的操作进行封装,以便于在进行数据库操作时,通过简单地调用即可实现。
在本节中,我们通过 Zeos 的数据库组件来实现一个简单的数据库操作封装。代码如下:
unit sqlunit;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, ZConnection, ZDataset, DB, Dialogs;
type
TSqlStatment = class
private
sSql: String;
public
Query: TZQuery;
// 构造函数
Constructor Create(Conn: TZConnection);
procedure SetSQL(sql: String);
procedure Execute;
procedure Open;
// 析构函数
Destructor Free;
end;
implementation
Constructor TSqlStatment.Create(Conn: TZConnection);
begin
Query:=TZQuery.Create(nil);
Query.Connection:=Conn;
end;
procedure TSqlStatment.SetSQL(sql: String);
begin
// 设置 SQL 语句,可以包含参数
sSql:=sql;
try
Query.Close;
Query.SQL.Clear;
Query.SQL.Text := sSql;
Query.Prepare;
except
on E: EDatabaseError do
MessageDlg('提示', 'DB ERROR: '+sSql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message, mtInformation, [mbOk], '');
on E: Exception do
MessageDlg('提示', 'ERROR: '+sSql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message, mtInformation, [mbOk], '');
end;
end;
procedure TSqlStatment.Execute;
begin
// 执行 SQL 语句,适合除 SELECT 语句之外的所有语句
try
Query.ExecSQL;
except
on E: EDatabaseError do
MessageDlg('提示', 'DB ERROR: '+sSql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message, mtInformation, [mbOk], '');
on E: Exception do
MessageDlg('提示', 'ERROR: '+sSql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message, mtInformation, [mbOk], '');
end;
end;
procedure TSqlStatment.Open;
begin
// 执行 SQL 查询,即 Select 语句
try
Query.Open;
except
on E: EDatabaseError do
MessageDlg('提示', 'DB ERROR: '+sSql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message, mtInformation, [mbOk], '');
on E: Exception do
MessageDlg('提示', 'ERROR: '+sSql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message, mtInformation, [mbOk], '');
end;
end;
Destructor TSqlStatment.Free;
begin
Query.Destroy;
end;
end.
通过一段更改用户密码的操作,来看一下通过 TSqlStatment 实例执行 SQL 语句的调用,代码如下:
procedure TPasswordForm.OkButtonClick(Sender: TObject);
var
SqlStatment: TSqlStatment;
Salt, SavedPassword, HashPassword: String;
begin
// 检查密码的输入情况
if Length(OldEdit.Text) <= 0 then
begin
MessageDlg('提示', '请输入旧密码!', mtInformation, [mbOk], '');
Exit;
end;
if Length(NewEdit.Text) <= 0 then
begin
MessageDlg('提示', '请输入新密码!', mtInformation, [mbOk], '');
Exit;
end;
if Length(OkEdit.Text) <= 0 then
begin
MessageDlg('提示', '请输入确认密码!', mtInformation, [mbOk], '');
Exit;
end;
// 检查旧密码是否正确
SqlStatment:=TSqlStatment.Create(DBDataModule.DBConnection);
SqlStatment.SetSQL('select pwd, salt from c_usrs where usr_id = :USR_ID');
SqlStatment.Query.Params.ParamByName('USR_ID').AsString:=CurrentUser.usr_id;
SqlStatment.Open;
if SqlStatment.Query.RecordCount <= 0 then
begin
MessageDlg('提示', '找不到用户,无法修改密码!', mtInformation, [mbOk], '');
SqlStatment.Free;
Exit;
end;
SqlStatment.Query.First;
Salt:=SqlStatment.Query.FieldByName('salt').AsString;
SavedPassword:=SqlStatment.Query.FieldByName('pwd').AsString;
HashPassword := MD5Print(MD5String(Salt+OldEdit.Text));
if HashPassword <> SavedPassword then
begin
MessageDlg('提示', '旧密码不正确, 请重新设置!', mtInformation, [mbOk], '');
SqlStatment.Free;
Exit;
end;
// 检查新密码与确认密码是否相同,如不相同则提示
if NewEdit.Text <> OkEdit.Text then
begin
MessageDlg('提示', '新密码与确认密码不符, 请重新设置!', mtInformation, [mbOk], '');
Exit;
end;
// 检查新密码与旧密码是否相同,如相同则没有必要去修改
if OldEdit.Text = NewEdit.Text then
begin
MessageDlg('提示', '新密码与旧密码相同, 没有必要修改!', mtInformation, [mbOk], '');
Exit;
end;
// 产生新的 SALT
Salt:=GenGUID;
// 计算新密码的 MD5 值
HashPassword := MD5Print(MD5String(Salt+NewEdit.Text));
// 更改密码
SqlStatment.SetSQL('update c_usrs set pwd=:PWD, salt=:SALT where usr_id = :USR_ID');
SqlStatment.Query.Params.ParamByName('PWD').AsString:=HashPassword;
SqlStatment.Query.Params.ParamByName('SALT').AsString:=Salt;
SqlStatment.Query.Params.ParamByName('USR_ID').AsString:=CurrentUser.usr_id;
SqlStatment.Execute;
SqlStatment.Free;
MessageDlg('提示', '密码已更新!', mtInformation, [mbOk], '');
ModalResult:=mrOk;
end;
相关推荐
- F103C8T6移植FATFS文件系统 版本R0.15
-
STM32F103C8T6芯片在W25Q64上移植FATFS(版本R0.15)实现过程:1、首先完成USART初始化和调试,用于传输信息到串口调试软件。2、完成SPI相关参数配置及调试,用于单片机和存...
- stm32使用MPU6050或ADXL345控制的车辆减速灯
-
本实验例程采用MPU6050六轴运动处理组件...
- STM32F103串口输出prtinf覆盖(stm32printf函数的串口输出)
-
采用正点原子的板子,有如下坑,记录如下:(1)main中应用头文件#include"stdio.h"(2)采用hal进行fputc和fgetc覆盖,如下intfputc(intc...
- STM32 学习8 USART串口通讯与printf重定向
-
一、串口通信介绍STM32F103ZET6包含多个UART、USART串口。...
- 教你如何使用SEGGER RTT优雅的实现日志系统
-
今天开始了BMS系统的软件代码部分的搭建,计划是分成三层:硬件驱动,AFE层和系统应用层。第一步肯定是先把底层的IIC通信调通,CG861xx的IIC通信和TI的BQ769X0...
- 终极调试利器,各种Link通吃(link4a调制方式)
-
今天继续更新一期KEIL调试方法。事实上,关于调试方法,鱼鹰写了一个系列,汇总文为《佛祖保佑,永无BUG,永不修改|KEIL调试系列总结篇》,对于KEIL方法感兴趣的可以看看。这个调试...
- 在 STM32 中使用 printf() 函数,别漏掉这几行代码!
-
问:在STM32上轻松使用printf函数除了点亮LED外,向串行控制台发送打印信息可能是调试嵌入式项目时最简单、最直接且最常用的技术。虽然大多数平台都拥有可以在UART总线上传输数据的API,但它们...
- 高性能异步io机制:io_uring(异步io select)
-
io_uring是linux内核5.10引入的异步io接口。相比起用户态的DPDK、SPDK,io_uring作为内核的一部分,通过mmap的方式实现用户和内核共享内存,并基于m...
- 精品博文ARM中打印函数print 的几种实现方法
-
1利用C库函数printf步骤:1)首先需要包含头文件stdio.h。2)然后定义文件句柄。实际上就是一个int型变量封装在结构体中。struct__FILE{inthandle;};3)定...
- C语言char的详解(c语言(char))
-
在C语言中,char是一种基础数据类型,用于表示字符或小整数值。对char的理解和处理非常重要,尤其是在字符串操作、文件读写或其他需要直接控制内存的应用场景中。下面从基本定义、存储方式、常见用法...
- C语言之文件操作(c语言文件操作实验总结)
-
文件操作是C语言中非常重要的功能,用于读取和写入文件中的数据。C语言提供了一组标准库函数(如fopen、fclose、fread、fwrite等)来实现文件操作。以下是针对C语言初学者的详细讲解。...
- STM32-ADC如何把采集的数据转换为小数
-
编辑一、代码原理解析这段代码围绕“STM32中ADC数据采集、整数与小数计算及串口输出”展开,核心是数据类型的使用(unsignedint/signedint/float)、ADC数...
- 循环队列原理及在单片机串口通讯中的应用(二)
-
前言书接上回,前文主要介绍了环形队列的实现原理以及C语言实现及测试过程,本文将回归到嵌入式平台的应用中,话不多说,淦,上干货!...
- STM32编程中printf函数重定向背后的原理
-
在C语言中,printf是一个非常好用的函数,尤其是在程序调试阶段,我们可以通printf打印变量的值来帮助查错。在学习C语言的时候我们的开发环境和运行环境都是PC机,printf函数打印到PC机...
- 一周热门
-
-
C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)
-
因果推断Matching方式实现代码 因果推断模型
-
git pull命令使用实例 git pull--rebase
-
git 执行pull错误如何撤销 git pull fail
-
面试官:git pull是哪两个指令的组合?
-
git pull 和git fetch 命令分别有什么作用?二者有什么区别?
-
git fetch 和git pull 的异同 git中fetch和pull的区别
-
git pull 之后本地代码被覆盖 解决方案
-
还可以这样玩?Git基本原理及各种骚操作,涨知识了
-
git命令之pull git.pull
-
- 最近发表
- 标签列表
-
- git pull (33)
- git fetch (35)
- mysql insert (35)
- mysql distinct (37)
- concat_ws (36)
- java continue (36)
- jenkins官网 (37)
- mysql 子查询 (37)
- python元组 (33)
- mybatis 分页 (35)
- vba split (37)
- redis watch (34)
- python list sort (37)
- nvarchar2 (34)
- mysql not null (36)
- hmset (35)
- python telnet (35)
- python readlines() 方法 (36)
- munmap (35)
- docker network create (35)
- redis 集合 (37)
- python sftp (37)
- setpriority (34)
- c语言 switch (34)
- git commit (34)