- 博客(564)
- 资源 (11)
- 收藏
- 关注

原创 FastReport 合并2份(或多份)报表一同打印
frxReport1.LoadFromFile('1.fr3');frxReport1.PrepareReport;frxReport1.LoadFromFile('2.fr3');frxReport1.PrepareReport(False);frxReport1.ShowPreparedReport;
2021-08-08 11:46:26
1550

转载 MSSQL2005+分组添加序号
表名:a字段1 字段21 a2 a3 a4 b5 b7 c8 cselect 字段1=row_number()over(partition by 字段2 order by getdate()),字段2from a得到字段1 字段21...
2019-07-16 16:02:43
362

原创 SQL的日期格式
备用SELECT CONVERT(VARCHAR(40),GETDATE(),1) AS 时间,CAST('1' AS VARCHAR(10)) AS 格式代码 UNION ALLSELECT CONVERT(VARCHAR(40),GETDATE(),2),'2'UNION ALLSELECT CONVERT(VARCHAR(40),GETDATE(),3),'3'UNIO
2016-12-14 15:51:06
6687

原创 分组字符合并SQL语句
SQL code/*标题:按某字段合并字符串之一(简单合并)描述:将如下形式的数据按id字段合并value字段。id value----- ------1 aa1 bb2 aaa2 bbb2 ccc需要得到结果:id value------ -----------1 aa,bb2 aaa
2011-05-10 08:25:00
1083
1
原创 开发复合组件TLabel + TwwDBLookupCombo
我个人就非常喜欢这套组件包,它的DBGrid(TwwDBGrid)的例可以绑入twwdbedit,twwcombobox,twwLookupcombo,twwButton 等等组件包内的其它很多自身的组件,有人说 DevExpress 也可以。Inofpower 很久也没有更新了,只是作了新版DELPHI的适配,组件的功能从D2007那些开始到现在,可以说几乎没有任何的改变;大部分的属性或者事件,都可以简单的 get、set解决;说说我踩坑(其实不算坑,只是我太菜水平有限遇到的困难,花了不小时间才解决的)
2025-03-28 15:58:16
352
原创 DELPHI编译软件时带上当前IDE的版本号
即可得到一个大小为 90K左右的控制台程序 GetIDEVER.exe(这就是为什么用D2007编译的原因,目前我的电脑最低是2007,用最新的DXE12,编译出来得有4.5MB左右)我想得到的是IDE的版本号,比如当前最新版本的DELPHI是:Embarcadero® RAD Studio 12 Version。IDE提供的API中,好象没有与之相关的东西;想要得到这个版本号,也许只能用变通的方式。此时,只需要在你的单元文件中导入这个INC即可直接读取了。得到的也只是编译器的版本号。
2024-09-21 09:27:14
732
原创 ADOQuery 查询MSSQL存储过程一个莫名其妙的错误;
也能正常的返回想要的数据,,然后通过 ADO 查询时,总是提法 某 字段不存在的问题;在某过程调用另一过程时,切记两过程不要存在同名临时表名,否则就会出现类似的问题;只需要修改其中一个过程的 #T01 为其它名字即可解决问题;在 SSMS 中执行完成正常的的存储过程。这个才是造成问题的根本存在。
2024-07-09 21:34:05
210
原创 ADOQuery中使用Resync解决读取lookup数据不正确的问题
但仍然不完美,使用 Resync 会遍历QRY1 的每一行数据,最终会定位到最后一行数据。在 ADOQuery的fields 属性中,增加两个lookup字段 L_NAME ,L_QTY ,LOOKUP数据集 QTY_LOOK 到QTY1中。此时虽然可以刷新(相当于重新统计QRY1)的数据,但是这要重新在后台执行那个存储过程来”重置“QRY1的数据是可以解决这个问题。在使用 Delphi2007 的ADOQuery时,遇到一个看到的数据与读取 lookup 数据不一样的问题。就完美的解决了这种“
2024-06-14 15:45:33
470
原创 在使用FRP做内网穿透时,客户端FRPC经常莫名退出的解决方法
然后上官方( github.com/fatedier/frp )去查,也有人反馈问题,作者仿佛也很无奈的相子,此问题在2017年就提出来了,直至今天好象也没有得到解决;在家里自建了一个私人网络云盘,由于家里上网IP都是服务商动态分配的,所以公网IP地址是不固定的。(免费的限制挺在的),由于我自己有一个固定公网IP的电脑可以使用,所以就选择了免费开源的 frp。在使用过程中,发一个问题,frpc.exe 会经常莫名的退出了。服务端也可以这么做。把相关的“写死”在代码里面的东西,弄一个配置,这样就灵活些了。
2023-07-25 15:48:54
3871
原创 unigui 的 TUniDBLookupComboBox 只能选择不能输入的解决
都只能下拉选择,无法手工输入。虽然设置为 csDropDown 但是在实际运行中,却是:csDropDownList 的效果。在 ClinetEvents->ExtEvents 中添加下面代码即可实现。解决这个的办法就很简单;无论在这里设置为什么。
2023-06-06 09:28:08
530
原创 一个让人郁闷的DELPHI编译器错误:[dcc32 致命错误] Main.pas(1305): F2084 内部错误:URW1302
[dcc32 致命错误] Main.pas(1305): F2084 内部错误:URW1302[dcc32 致命错误] F2084 内部错误:AV097D960B(09760000)-R3AC6FF18-0[dcc32 致命错误] Main.pas(1305): F2084 内部错误:AV097D95CB(09760000)-R0000020E-0[dcc32 致命错误] Main.pas(1305): F2084 内部错误:AV097D95CB(09760000)-R00000003-0......
2022-06-19 20:27:26
1035
原创 ADOConnection 打开EXCEL
'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + Edt_ExcelFilePath.Text + ';' + 'Extended Properties=Excel 8.0;';
2022-01-20 11:16:06
790
原创 MSSQL FLOAT 的问题挺郁闷的
图中的 905 * 0.815 正常的计算结果为 737.575 ,四舍五入保留两位小数就应该是:737.58但是呢,如:jjjjj2 所显示竟然是:737.57 。其实真实的计算结果如:jjjj1所示:737.574999999。四舍五入保留两位小数自然就是不是预期应该的数了;这个名字,就是 float 的精度差的问题。将其转换为精度较好的类型后果再取四舍五入就好了。...
2021-07-09 10:51:01
294
原创 取字符串中第一个数字 与 最后一个数字的位置
DECLARE @str NVARCHAR(255) = 'YX807.起8款小折盒各入1个配件(其中7仔入3种),起大折盒,放8个小折盒入盒放板。'SELECT PATINDEX('%[0-9]%', @str) AS 第一个数字位置 , LEN(@str) - PATINDEX('%[0-9]%', REVERSE(@str)) + 1 AS 最后一个数字位置...
2021-06-11 10:12:55
930
1
原创 InpubQuery的高级用法
procedure ShowErrorMsg(Amsg:string);begin Application.MessageBox(PChar(Amsg), 'error', MB_OK); abort;end;procedure TFrm_Main.Btn_1Click(Sender: TObject);var ss:array of string;begin SetLength(ss,3); if InputQuery('密码修改',[Chr(0)+'旧 密 码',Chr.
2021-04-30 21:36:28
243
1
原创 unigui 通过点击按钮打开一个新的网页
不能用 ShellExecute要用:unisession.addjs('window.open("http://www.163.com","newwindow")')
2021-04-27 13:56:56
722
原创 去掉 unigui 服务器端的 UniGUI Server 字样
uses uniGUIServerFormprocedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);begin uniGUIServerForm.ServerForm.Caption :='测试一下效果,哈哈哈。';end;
2021-03-23 10:54:42
510
原创 FDQuery 不能通过TRY...except 捕获错误的解决方法
procedure TDM_SYS.PubP_BatchSaveStdData(MastTbl: TFDQuery);var n:Integer;begin try if MastTbl.State in [dsedit,dsinsert] then MastTbl.Post; MastTbl.ApplyUpdates(0); //通过DEBUG,可以定位错在这里 except on e:Exception do begin ShowErrorMsg...
2021-01-11 10:18:35
496
转载 unigui 验证码生成
转载自:https://blog.youkuaiyun.com/tvmerp/article/details/107736457//验证码生成单元unit AuthenticodeGenerate;interfaceuses SysUtils, Windows, ExtCtrls, Graphics;function GenerateAuthenticode(const Img: TImage; const Len: Integer = 4): string;implementati.
2020-08-21 22:53:04
404
原创 使用CleintDataset 蜂巢式主从结构,修改主表KEY字段出现 Cascaded updates not enabled
在provider的option属性中将 opCascadeDeletes 与 opCascadeUpdates 设置为 True 即可。
2020-06-04 13:31:53
283
转载 FireDAC 连接SQL Server需要注意的
TFDConnection:FetchOptions.Mode 设置为fmAll, 返回全部结果, 否则默认只返回前50条, 效果与open以后再执行FetchAll一样ResourceOptions.SilentMode 设置为True, 就不需要FDGUIxWaitCursor之类的东西了, 同样也不再会自动改变鼠标样式, 默认是需要的TFDQuery:Resour...
2020-04-17 14:12:50
619
转载 delphi bpl插件系统开发
一个插件系统需要什么?一个最小的插件系统当然需要插件本身,调用插件的容器,最后需要契约.契约是什么呢?契约就是两个对象相互沟通的一个标准,这个标准应该统一,这样容器才能和不同的插件通讯.我们可以使用接口来表述这个契约.例如type IPlugin =interface['{48BF4000-B028-4B57-9955-B1A8305DA39...
2019-12-14 22:50:41
764
转载 Method pointer and regular procedure
This is the difference between a "procedure" and a "procedure of object"TheOnClickis defined as aTNotifyEvent:type TNotifyEvent = procedure(Sender: TObject) of object;You cannot assign a pro...
2019-12-07 11:18:22
710
原创 uniGui 出现 [FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver]连接占线导致另一个 hstmt
之前觉得好玩,用 UniGui 帮一个朋友(开一间小公司)弄了一个管理上的小东西。使用的是 Delphi D10.1(Berlin)+ UniGui 1.0.0.1397 + fireDac + MSSQL2008 弄的,运行得还不错;后来新版本的DELPHI D10.3.2(RIO)版出来,就想玩玩。然后发现 UniGui 1.0.0.1397版安装不上,就装了 1.9.0.0.1506...
2019-11-14 09:17:08
2345
转载 Delphi出现 No mapping for the Unicode character exists in the target multi-byte code page 处理方法
当调用 TStrings.LoadFromFile(html_file_name, TEncoding.UTF8); 出现 No mapping for the Unicode character exists in the target multi-byte code page错误。这种错误在调用非UTF8编码的文件时会出错。处理方法如下 try tmpS...
2019-10-09 14:53:17
2090
转载 如何给注册表添加右键菜单
Win + R 组合键打开命令行 输入 regedit 打开注册表 找到 HKEY_CLASSES_ROOT\*\shell 目录,新建 name 项 来到 name 项目录,新建 command 项 来到 command 项目录,新建一个 字符串值 复制应用程序 *.exe 路径到 command 默认值 字符串值name 层新建一个 icon 项,键值添加图标路径即可给右键菜单添加...
2019-08-05 21:16:50
870
转载 Delphi之MIDAS三层完美解决方案----中间层构建
思路:中间层与客户端通过三个关键的接口过程进行交互操作(GetData,SetData,GetspData)GetData:获取数据集。客户端传递数据集名称给中间层,中间层根据请求的数据集名称从数据库的配置文件中获取相关信息,与客户的的条件集合一起给合成SQL语句SetData:提交数据集。客户端传递修改后的数据集Delta与名称给中间层,中间层根据请求的数据集名称从数据库的配置文件中获取相关...
2019-04-01 08:27:13
2208
1
原创 数据表内的数据上下移动的方法;
一个很笨的方法procedure PubP_SetDatasetToEditStat(const D: TDataSet);begin if not (D.State in [dsEdit,dsInsert]) then D.Edit;end;//MoveType=0上移否则下移//NoMoveField 不移动数据列表,比如:主键列procedure PubP_Da...
2019-03-13 16:26:26
1281
转载 全国省市县SQL数据库(大全) MSSQL
CREATE TABLE [dbo].[Base_Area]( [ID] [INT] NOT NULL, [PID] [INT] NULL, [CityName] [VARCHAR](50) NULL, [Type] [INT] NULL, CONSTRAINT [PK_Base_Area] PRIMARY KEY CLUSTERED ( [ID] ASC) ON [PRIMAR...
2019-03-12 13:34:41
7162
转载 全国省市县SQL数据库(大全)
CREATE TABLE `city` ( `id` int(11) NOT NULL DEFAULT '0', `pid` int(11) DEFAULT NULL, `cityname` varchar(255) CHARACTER SET utf8 DEFAULT NULL, `type` int(11) DEFAULT NULL, PRIMARY KEY (`id`)...
2019-03-12 13:25:52
3037
2
转载 FireDAC返回多结果集
以前使用ADO, 如果SQL返回的结果集有多个 可以通过NextRecordset来依次获取代码移植到FireDAC, 对于多结果集处理差不多, 但是还是有一些不一样的地方:1.TDataSet本身是不支持多结果集的, 所以不要再这个上面浪费精力2.切换到下一个结果集, ADO.NextRecordset 对应 FD.NextRecordSet3.判断是否有下一个结果集, ADO的...
2019-01-31 08:53:35
1119
转载 在Delphi中怎么实现排列组合
procedure TForm1.Button1Click(Sender: TObject);var s1,s2:string; str,str1:TStrings; i,j,m,n:Integer;begin s1:=Trim(self.Edit1.Text);//这里就是你的字符串‘4,6,8,12,16,17,20,28,29,30,31’ s2:=Trim(se...
2018-12-03 11:32:27
1857
原创 MSSQL将字符串转换成列表格式
SET NOCOUNT ONDECLARE @SCDH VARCHAR(200),@BDBH VARCHAR(200)DECLARE @T TABLE(SCDH VARCHAR(20))SET @BDBH='HS18080045/HS18080047'SET @SCDH=@BDBH--方法1PRINT '方法1'IF CHARINDEX('/',@SCDH)=0 ...
2018-11-22 13:54:37
987
转载 delphi 各版本編譯器判斷
Delphi conditional VER<nnn>ProductProduct VersionPackage VersionVER300Delphi Seattle / C++Builder Seattle(Delphi:Win32/Win64/OSX/iOS32/iOS64/Android) (C++Builder:Win32/Win64/OSX/iOS32/iOS64/Andr...
2018-05-01 11:09:52
1303
原创 DELPHI XE 调用 DELPHI 7 写的DLL的问题
字符串,在原来 DELPHI7直到 DELPHI2007调用时。直接使用 PCHAR()就好。但是从DELPHI2009开始支持了unicode。调用 以前旧版的DLL时,传参数就不能使用 PCHAR前者是: PansiChar 后者是 PWideChar如果将 PCHAR 直接换成 PAnsiChar 来传也是不会成功,需要选使用 AnsiStri
2017-09-22 16:06:18
6879
CrossVcl 1.53.7z
2021-05-28
FlyTreeViewPro.Suite.7z
2020-06-02
控件开发基础.rar
2020-06-02
InfoPower 4K v20.0.2.3 for XE10.3 RIO_ByJoe.7z
2019-08-04
TscExcelExport 3.6 full source
2008-12-23
Ehlib 4.3.2.1 (完整源代码)
2008-12-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人