原创 分組字符合並SQL語句
/* 標題：按某字段合併字符串之一(簡單合併) 描述：將如下形式的數據按id字段合併value字段。 id value ----- ------ 1 aa 1
2020-06-26 00:24:24
3
原创 一個簡易的加解密字符串函數
function StrDecrypt(s: string; key: word): string; var i:byte; const fc1=1; fc2=2; begin //result[0]:=s[0];
2020-06-26 00:24:24
原创 軟件在運行期，修改panel的位置與大小
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin R
2020-06-26 00:24:24
1
原创 uniGui 出現 [FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver]連接佔線導致另一個 hstmt
之前覺得好玩，用 UniGui 幫一個朋友（開一間小公司）弄了一個管理上的小東西。 使用的是 Delphi D10.1（Berlin）+ UniGui 1.0.0.1397 + fireDac + MSSQL2008 弄的，運行得還不錯；
2020-06-26 00:24:13
66
原创 delphi bpl插件系統開發
一個插件系統需要什麼? 一個最小的插件系統當然需要插件本身,調用插件的容器,最後需要契約. 契約是什麼呢?契約就是兩個對象相互溝通的一個標準,這個標準應該統一,這樣容器才能和不同的插件通訊.我們可以使用接口來表述這個契
2020-06-26 00:24:13
1
原创 Method pointer and regular procedure
This is the difference between a "procedure" and a "procedure of object" The OnClick is defined as a TNotifyEvent: typ
2020-06-26 00:24:13
原创 使用CleintDataset 蜂巢式主從結構，修改主表KEY字段出現 Cascaded updates not enabled
在provider的option屬性中將 opCascadeDeletes 與 opCascadeUpdates 設置爲 True 即可。
2020-06-08 16:23:28
原创 全國省市縣SQL數據庫（大全）
CREATE TABLE `city` ( `id` int(11) NOT NULL DEFAULT '0', `pid` int(11) DEFAULT NULL, `cityname` varchar(255) CHA
2020-06-08 16:23:28
原创 FireDAC 連接SQL Server需要注意的
TFDConnection: FetchOptions.Mode 設置爲fmAll, 返回全部結果, 否則默認只返回前50條, 效果與open以後再執行FetchAll一樣 ResourceOptions.SilentMode 設置爲Tr
2020-04-19 07:39:07
原创 ADOConnection數據庫連接池
幾種寫法，暫時還沒有細看。先轉了再說：1、 unit AdoconnectPool; interface uses Classes, Windows, SysUtils, ADODB, IniFiles, forms; type
2020-02-21 05:12:00
原创 判斷按鍵是否按下去了！
在一些較爲特殊的軟件中。 比如，人事軟件A/B賬的問題。會涉及到一些特殊的功能（例如：必須按住鍵盤左Ctrl鍵，再按鼠標右鍵。這樣纔出現菜單，否則不出現）而只是讓公司的人知道而讓查廠人員不知道，就需要隱藏或是另定義過程的功能，這樣，就皆大
2020-02-21 05:12:00
原创 使用 VisualSVN server 發生的一個問題
用着挺不錯的，一直用，前兩天突然發現出問題了。 客戶端總是連接不上，但是通過 telnet x.x.x.x 8433 能打開端口。檢查了服務器端，好象也非常正常。 於是困擾了好久，終於找到一個解決的方法
2020-02-21 05:11:59
原创 如何給註冊表添加右鍵菜單
原文鏈接：https://www.cnblogs.com/cheungxiongwei/p/7541447.html Win + R 組合鍵打開命令行 輸入 regedit 打開註冊表 找到 H
2019-08-06 17:05:17
原创 Delphi之MIDAS三層完美解決方案----中間層構建
思路：中間層與客戶端通過三個關鍵的接口過程進行交互操作(GetData,SetData,GetspData) GetData：獲取數據集。客戶端傳遞數據集名稱給中間層，中間層根據請求的數據集名稱從數據庫的配置文件中獲取相關信息，與客戶的的
2019-04-01 17:03:43
24