原创 數據表內的數據上下移動的方法；
一個很笨的方法 procedure PubP_SetDatasetToEditStat(const D: TDataSet); begin if not (D.State in [dsEdit,dsInsert]) then D
2019-03-14 16:22:17
原创 全國省市縣SQL數據庫（大全） MSSQL
CREATE TABLE [dbo].[Base_Area]( [ID] [INT] NOT NULL, [PID] [INT] NULL, [CityName] [VARCHAR](50) NULL, [Type] [INT]
2019-03-12 16:04:22
1
原创 FireDAC返回多結果集
以前使用ADO, 如果SQL返回的結果集有多個 可以通過NextRecordset來依次獲取 代碼移植到FireDAC, 對於多結果集處理差不多, 但是還是有一些不一樣的地方: 1.TDataSet本身是不支持多結果集的, 所以不要再這個
2019-02-02 01:43:38
原创 在Delphi中怎麼實現排列組合
procedure TForm1.Button1Click(Sender: TObject); var s1,s2:string; str,str1:TStrings; i,j,m,n:Integer; begin s
2018-12-07 13:08:16
5
原创 MSSQL將字符串轉換成列表格式
SET NOCOUNT ON DECLARE @SCDH VARCHAR(200),@BDBH VARCHAR(200) DECLARE @T TABLE(SCDH VARCHAR(20)) SET @BDBH='HS180800
2018-11-26 09:59:06
原创 windows2003
Q2hpbmVzZSBWZXJzaW9uczoNClN0YW5kYXJkIDY0Yml0DQplZDJrOi8vfGZpbGV8Y25fd2luX3Ny dl8yMDAzX3IyX3N0YW5kYXJkX
2018-09-04 01:22:01
原创 MySQL的學習(1)查詢結果帶行號的方法
從MSSQL轉到MYSQL，有很多的不同。初次接觸MYSQL，要學習的東西不少。 MS寵壞了開發人員，它的產品均帶有非常好的用戶UI，比起其它數據庫系統來說，MSSQL就有一個非常強大的管理工具。 其它的數據庫系統，如ORACAL。M
2018-09-04 01:22:00
原创 啓動DELPHI2007出現 EditorLineEnds.ttr 錯誤的解決方法
在網上找到了很多方法。其實解決這個問題的方法， 最簡單的就是把 EditorLineEnds.ttr 改名爲 EditorLineEnds.ttf 然後，安裝它， 安裝完成後就OK了。
2018-09-04 01:22:00
2
原创 sql server cross/outer apply 用法
這是 sql server 幫助文檔關於apply的描述： 使用 APPLY 運算符(2005或以上版本)可以爲實現查詢操作的外部表表達式返回的每個行調用表值函數。表值函數作爲右輸入，外部表表達式作爲左輸入。通過對右輸入求值來
2018-09-04 01:22:00
原创 關於在MEMO處理Ctrl + A
其實 Ctrl + A 的 ASCII 碼爲 1，只需要這樣就好。 procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if Key = #1
2018-09-04 01:21:59
3
原创 SQL語句，找最近的值；
在一個項目中，， 由於產品的單價經過會變，，但是在爲員工計算提成時，需要使用做貨時的單價來計算他的工資。 這就要找到最近的單價來進行計算。 （以下代碼在 SQL2008R2中測試) CREATE TABLE #TEMP_A ( CPB
2018-09-04 01:21:59
原创 SQL Server 2005/2008 觸發器的管理和查看
1、通過可視化操作來管理和查看觸發器 在Microsoft SQL Server Management Studio中，選中某一數據庫的某一張表時，在“對象資源管理器詳細”窗口中有“觸發器”項。 通過“觸發器”的右鍵菜單功能，我們可以新建
2018-09-04 01:21:59
原创 初學sql server 2008之觸發器
觸發器(trigger)：是一種特殊的存儲過程，可以用來對錶實施複雜的完整性約束，保持數據的一致性。當觸發器所保護的數據發生改變時，觸發器會自動被激活，並執行觸發器中所定義的相關操作，從而保證對數據的不完整性約束或不正確的修改。
2018-09-04 01:21:59
原创 delphi 各版本編譯器判斷
Delphi conditional VER<nnn>ProductProduct VersionPackage VersionVER300Delphi Seattle / C++Builder Seattle(Delphi:Win32/
2018-09-04 01:21:59
1
原创 關於ADOQuery 莫名其妙的問題；
在寫數據庫軟件時。 希望使用 ADOQuery 的緩存技術來處理數據；可是在軟件開發過程中，出現了一個莫名其妙的問題； 具體的設置等如下： ADOQuery 連接 ADOConnection (等。。這些不多說了） ADOQuery
2018-09-04 01:21:59