2024年8月18日
数据库的管理
摘要： 通过TFDSQLiteSecurity可以对数据库进行加密处理： with sqlSecurity do begin Database := 'x:\path_to_database\db.sdb'; Password := 'p@ssword'; ToPassword := 'p@ssword_c 阅读全文
posted @ 2024-08-18 10:15 沧江魅影 阅读(42) 评论(0) 推荐(0)
Firedac 在数据表中插入BLOB数据的方法
摘要： 准备在一个比较简单的数据表中插入图片。 该数据表的创建代码如下： CREATE TABLE "imagelist" ( "id" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, "name" ftstring(10) NOT NULL DEFAULT 'ima 阅读全文
posted @ 2024-08-18 10:11 沧江魅影 阅读(42) 评论(0) 推荐(0)
内存表（FDMEMTABLE）
摘要： 内存表的优点是快，非常快，号称比BDE的clientdataset快很多。内存表不但快，还可以另存为XML、BIN、CSV等数据。也可直接作为stream传送。所以，追求速度的时候，获得数据后即解除锁定的时候，都可能需要用到内存表。内存表也可用于把来自其他数据库管理系统的数据表存储为FIREDAC的 阅读全文
posted @ 2024-08-18 10:07 沧江魅影 阅读(315) 评论(0) 推荐(0)
2024年8月17日
delphi 常用控件属性设置说明
摘要： 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Cl 阅读全文
posted @ 2024-08-17 21:10 沧江魅影 阅读(438) 评论(0) 推荐(0)
2024年8月15日
手机号码验证
摘要： if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S 阅读全文
posted @ 2024-08-15 18:16 沧江魅影 阅读(54) 评论(0) 推荐(0)
cxgrid使用三问1cxgrid 如何动态创建列2cxGrid 通过字段名取得列3cxGrid动态创建的列里动态创建事件的方法
摘要： //1cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := v 阅读全文
posted @ 2024-08-15 18:15 沧江魅影 阅读(92) 评论(0) 推荐(0)
DELPHI四舍五入问题解决
摘要： 转自http://www.delphitop.com/html/jichu/153.html 感谢原作者。 这段时间在用DELPHI做一个财务系统时发现每一行的小计取了两位小数后与用SQL的ROUND查询出来的不一样，在程序中是用FormatFloat('0.00',ItemSum)函数来取值的，再 阅读全文
posted @ 2024-08-15 18:13 沧江魅影 阅读(248) 评论(0) 推荐(0)
在Delphi中使用正则表达式校验身份证号
摘要： 以下内容转自：https://my.oschina.net/ousinka/blog/3048132 如何定义身份证号的正则表达式呢？ 1、省份编码[1-9]\d{5}2、年份(18|19|20)?\d{2}3、月份为 1, 3, 5, 7, 8, 10, 12，天数范围为 01 - 31，匹配MM 阅读全文
posted @ 2024-08-15 18:12 沧江魅影 阅读(98) 评论(0) 推荐(0)
让delphi程序不受WINDOWS日期格式的影响
摘要： 如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 阅读全文
posted @ 2024-08-15 18:10 沧江魅影 阅读(37) 评论(0) 推荐(0)
Fdmemtable 内存表保存图片的例子
摘要： var aStream: TMemoryStream; LDataSet: TFDDataSet; // 申请一个FD数据集 MyStream: Tmemorystream; MyJPEG: TJpegImage; MyPng: TPngImage;begin inherited; if img2. 阅读全文
posted @ 2024-08-15 18:07 沧江魅影 阅读(47) 评论(0) 推荐(0)