原创 delphi中Ms Sql數據庫異常捕獲問題
My Sql數據庫 ，在存儲過程中使用 RAISERROR（） 主動觸發異常, 在delphi中用TADOQuery調用執行。 如果在執行 RAISERROR（）前對數據庫物理表有寫操作， 則在Delphi中捕捉不到此異常，但在查詢分析器
2020-06-14 00:30:07
原创 ACCESS年月日時分秒格式化語句
select 字段 from 表名 Where format$(CREATETIME,"General Date") = '2019-10-30 14:50:09' 或 select 字段 from 表名 Where format
2020-06-14 00:30:07
15
原创 字符串類型數字前面去0
function trim0(s:string):string; begin while copy(s,1,1)='0' do s:=copy(s,2,length(s)-1); trim0:=s; end;
2020-06-14 00:30:07
原创 access替換SQL語句
select Replace(PickData, '/', '-') from result 註釋： 將表result的字段PickData中值得‘/’替換爲‘-’
2020-06-14 00:29:57
原创 Delphi用IE瀏覽器打開網址鏈接的三種
簡單點可以用默認瀏覽器打開，方法如下： uses shellapi procedure TForm1.Button2Click(Sender: TObject); begin ShellExecut(Application.Handle,
2020-06-14 00:29:57
12
原创 sql server 中syscolumns表內的xtype的數字與數據類型對應表
查了一下,這些東西都是存於每一個數據庫的syscolumns表裏面得,name就是列名,xtype就是數據類型,但是這個xtype是數字的,下面是數字和數據類型對應的關係; xtype=34 'image' xtype= 35 'tex
2020-04-10 08:06:50
10
原创 Delphi中的fieldbyname和fieldvalues
FieldValues接收和返回的都是variant類型字段,可以自己處理轉換字段類型.比如: Customers.FieldValues['CustNo'] := Edit1.Text; 上面的CustNo是個數字類型,但你可以把字
2020-04-01 19:07:59
原创 Delphi中currery和double比較解析問題說明
交流學習：2609715119由於currery和double屬於不同的字段類型，因此在明面上雖然都是一樣的，例如：0.2，但是double類型的0.2會大於currery類型的0.2.解決這樣的問題就需要一個comparevalue數學
2020-02-21 08:07:26
原创 delphi 中 dxdbgrid 中customdraw改變符合條件的行字體或者背景顏色
交流QQ:26097151191、如果數據庫中字段值爲null 使用Anode，values[字段] <> ''，可能會報 (null) not into ……(string)的錯誤解決辦法就是: ANode.values[15] <>
2020-02-21 08:07:16
原创 Delphi 讀取PNG base64編碼文件生成圖片
uses NetEncoding,PNGImage; procedure TForm1.FormCreate(Sender: TObject); var LInputStream: TFileStream; LOutput
2020-02-21 08:07:15
30
原创 DELPHI中的完整快捷方式一覽
1.SHIFT+鼠標左鍵 先選中任一控件,按鍵後可選中窗體(選中控件後按Esc效果一樣) 2.Shift+F8 調試時彈出CPU窗口。 3.Shift+F10 等於鼠標右鍵（Windows快捷鍵）。
2019-09-26 17:08:45
原创 delphi的exports語句
delphi中的exports是個關鍵字，用於dll項目，指出dll的輸出函數，只有在exports中聲明的函數才能在dll的外部進行調用。 下面是個簡單的dll項目： library dllTest; uses SysUtils,Cla
2019-09-26 17:08:45
1
原创 Delphi中使用@取函數地址的問題
例如以下代碼： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
2019-09-26 17:08:45
原创 解析多字節的壓縮BCD碼算法
function getbcdnumber(str: string): string; var str1, str2: string; i, j: Integer; m: double; begin str2 := '';
2019-08-06 02:44:25
原创 Orcale執行update時忘了加條件的數據回退操作
今天寫update的SQL忘了加where條件,全更新,真是悲催,還好找到一個好的方法,回退回來; 在次記錄下來; 1.查詢最近更新數據之前的數據（以便確定是不是Commit之前的數據） select * from 表名 as of
2019-08-06 02:44:25