原创 使用Delphi調用WebServices接口的簡單應用實例
Delphi從6.0就開始支持Web Services的開發和應用了，本文通過使用Delphi 7.0調用新浪發送短信的Web Service進行短信應用程序開發這一實例詳細的介紹在Delphi中如何開發基於Web Servic
2020-06-23 22:27:20
原创 Oracle11g新特性導致空表不能導出問題
今天，做了一次ORACLE 11G在用EXP導出時，發現空表（沒有數據或者沒有用過的表）不能導出了。 查了一下資料，說是Oracle 11G中有個新特性，當表無數據時，不分配segment，以節省空間，所
2020-06-23 22:27:18
原创 DELPHI四捨五入函數
四捨五入是一種應用非常廣泛的近似計算方法，其有算術舍入法和銀行家舍入法兩種。 Delphi 的MATH單元的RoundTo 函數使用的是銀行家舍入法，沒有封裝的算術舍入法函數。 下面是本人自定義的算術舍入法函數。 Functio
2020-06-23 22:27:18
14
原创 StringGrid類詳解
事件句柄 1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string); Options.goEditing = true才能觸發此事件
2020-02-21 07:08:36
原创 一個很有用的DELPHI字符操作函數
Unit SysUtils LastDelimiter(const Delimiters, S: string): Integer; Returns the byte index of the last character that ma
2020-02-21 07:08:36
原创 SQL SERVER常用日期函數
0.獲取一個隨機的不重複的BIGINT數。 SELECT CONVERT(char(6),GETDATE(),12) + RIGHT(10000000000 + CONVERT(bigint, ABS(CHECKSUM(NEWID())
2020-02-21 07:08:35
原创 SQL SERVER數據庫快速轉ORACLE實戰
操作步驟如下，供參考。 數據庫轉型工作涉及的工作事項分析：表，表數據，索引，外鍵約束，字段默認值。 存儲過程、函數、觸發器、視圖等由於語法存在差異，只能自行改寫處理。 (一)在MS SQL SERVER服務器端的準備工作。1).
2020-02-21 07:08:35
原创 RAD XE反射機制的應用——只獲取父類的方法
應用：獲取父類的方法，不包括當前類中定義的方法。 uses Rtti,TypInfo; procedure TForm1.Button1Click(Sender: TObject); var ms: TArray<TRttiMet
2020-02-21 07:08:35
原创 用TWebBrowser抓取頁面
用DELPHI開發工具，在窗體上放一個TWebBrowser和Memo1控件。 USES MSHTML; procedure TForm1.RzButton1Click(Sender: TObject);begin //打開頁面地址
2020-02-21 07:08:35
原创 從Oracle 9i連接SQL Server數據庫
從Oracle 9i連接SQL Server2000，需要用透明網關(Transparent Gateway)，通過它，我們可以操縱其他數據庫，如 ms sqlserver 、 sybase 、 infomix 等，實現數據庫的異構服務。
2020-02-21 07:08:35
原创 一些特別的SQL語法
partition by語法。ORACLE纔有的。 查詢出表中的字段列表 Select max(SYS_CONNECT_BY_PATH(COLUMN_NAME, ', ')) From (select A.COLUMN_NAME,
2020-02-21 07:08:35
原创 SQL SERVER 系統表應用
0.查詢表字段的標題備註 SELECT A.COLID, UPPER(A.NAME) AS NAME,ISNULL(C.VALUE,A.NAME) AS REMARK , UPPER(B.NAME) AS DATATYPE, (CAS
2020-02-21 07:08:35
原创 在DLL中使用DevExpress的問題
在DLL中使用DevExpress的問題 在DLL中封裝了Form時使用了Devexpress控件.在程序運行時,主Exe程序可以顯示使用的皮膚。可是，調用DLL中的窗口時無法顯示皮膚的樣式。還是原始的Windows窗口樣式。
2020-02-21 07:08:35
原创 一段很有趣的代碼
兩段代碼， edit2.Text結果截然不同！ procedure TForm3.Button1Click(Sender: TObject); var tmpstr:string; begin tmpstr := funtest(
2020-02-21 07:08:35
原创 解析LoadLibrary,GetProcAddress,FreeLibrary
GetProcAddress(Hinstance,lpname)用來獲取指定的動態連接庫函數的地址 Hinstance爲由LoadLibrary返回的模塊句柄,lpname爲文件名/函數名，返回值，成功返回動態連接庫的地址，失敗返回N
2020-02-21 07:08:35
6