原创 用Delphi加密Access文件頭
下面就用Delphi作個簡單的加密解程序： 用到的加密解函數如下： const titlestr:array[0..15] of byte=
2020-06-14 02:28:02
原创 Delphi語句轉換成批處理
var i,i1,i2: String;begin i := 'MyData.ini'; i1 := 'MyData1.ini'; i2 := 'MyData2.ini'; if FileExists(i1) then b
2020-06-14 02:28:02
2
原创 the second blog
這是我的第二個blog，記得blog風開始流行的時候，曾經在博客中國註冊過一個賬號，並寫了幾篇文章，但沒有堅持下來。這個也不打算用來寫博。只記錄自己曾經提問過的一些問題及回覆。
2020-06-14 02:28:02
原创 trigger for update
觸發器在 for update 時 select from inserted 或 deleted 都可以在select語句中是沒有updated的。(
2020-06-14 02:28:02
原创 八條編程的建議 (zt)
1。從睡眠獲得清醒的智力對我們有很大的幫助，順便記得把電腦擦拭一下，乾淨的盤子可以增加食慾。 2。連續編程不要超過二小時，或最多不超過三小時。然後就出去散散步，放鬆一下，將剛纔的思維進行很好的整理。每半小時就要稍微閉目休息一下，因爲半小時
2020-02-26 00:36:57
原创 怎麼把Listview中的記錄前checkbox打鉤的記錄選出來
procedure TForm1.Button1Click(Sender: TObject);varI: Integer;begin Caption:=''; For i:= 0 to
2020-02-26 00:36:57
3
原创 delphi調用sql存儲過程，並獲取結果
delphi調用sql存儲過程，並獲取結果 adostoredproc1.Close; adostoredproc1.ProcedureNam
2020-02-26 00:36:57
原创 Combobox不能正常輸入字符
我用一Combobox控件，預先在Items裏輸入一些內容，Style是csDropDown，Font是GB2312。在win2000下使用沒有問題，但在98下Combobox輸入漢字後出來一些亂符，在兩臺98上都是這樣？謝謝了！****
2020-02-26 00:36:57
原创 遊標小樣
cursor example declare @i int , @a varchar(20)declare cur_cursor cursor for select a
2020-02-26 00:36:57
原创 壓縮數據庫日誌
壓縮數據庫日誌方法： DUMP TRANSACTION [數據庫名] WITH NO_LOGBACKUP LOG [數據庫名] WITH NO_LOGDBCC SHRINKDATABASE([數據庫名]) 程序裏面的方法：壓縮數據庫
2020-02-26 00:36:57
原创 三九
我國民間把冬至過後的日子稱作“數九寒天”，並編成“冬九九歌”來描述氣候變化：“一九二九不出手；三九四九冰上走；五九六九沿河看柳；七九河開；八九雁來；九
2020-02-26 00:36:57
原创 窗口關閉時報錯：System Error Code 1400. 無效的窗口句柄
在Form Create的時候，我創建一多線程，來查詢數據。但當窗口關閉時報錯：System Error Code 1400. 無效的窗口句柄謝謝！*********************************************
2020-02-26 00:36:57
原创 全國各個省市數據庫
--各個省市資料http://www.xzqh.org/quhua/index.htm 出處：http://blog.csdn.net/shunzi110/archive/2007/03/09/1525479.aspx --不足：23山東
2018-08-31 10:11:31
原创 format函數的使用
function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能 返回按指定方式格式化一
2018-08-31 10:11:31
原创 精妙的SQL和SQL SERVER 與ACCESS、EXCEL的數據導入導出轉換
今天做個行列轉換 找到的好語句 解決了我的問題 * 說明：複製表(只複製結構,源表名：a 新表名：b) select * into b from a where 1<>1 * 說
2018-08-31 10:11:21
1