百度360必应搜狗淘宝本站头条
当前位置:网站首页 > IT技术 > 正文

Delphi 数据库操作的简单封装

wptr33 2025-01-06 15:48 19 浏览

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机...

MySQL 避坑指南之隐式数据类型转换

...