Delphi系統(tǒng)開發(fā)實例精粹

Part 1　系統(tǒng)編程篇

Example 01　右鍵注冊程序　2
1.1　設計思路　2
1.2　編程原理　2
1.2.1　注冊表簡介　2
1.2.2　Delphi讀注冊表的相關操作函數(shù)簡介　4
1.2.3　Delphi寫注冊表的相關操作函數(shù)簡介　4
1.2.4　Delphi操作注冊表的其他相關函數(shù)簡介　5
1.3　實例詳解　6
1.3.1　程序運行時顯示用戶注冊信息　6
1.3.2　右鍵注冊詳解　7

Example 02　記事本程序　8
2.1　設計思路　8
2.2　編程原理　9
2.2.1　TRichEdit組件　9
2.2.2　“查找”對話框　10
2.2.3　“替換”對話框　11
2.2.4　Perform函數(shù)　11
2.3　實例詳解　11
2.3.1　聲明變量和對象　12
2.3.2　檢查當前文件是否需要保存　12
2.3.3　“保存當前文件”功能　13
2.3.4　“打開文檔”功能　13
2.3.5　“字體設置”功能　13
2.3.6　“撤銷”功能　14
2.3.7　“查找”功能　14
2.3.8　“自動換行”功能　15

Example 03　系統(tǒng)托盤程序　15
3.1　設計思路　15
3.2　系統(tǒng)托盤程序原理詳解　16
3.2.1　Shell_NotifyIcon函數(shù)　16
3.2.2　消息處理機制　17
3.2.3　動態(tài)改變圖標　18
3.2.4　資源文件的制作與使用　19
3.2.5　在任務欄上隱藏應用程序　21
3.3　實例詳解　21
3.3.1　程序運行時在托盤上添加圖標　22
3.3.2　變換托盤圖標　23
3.3.3　鼠標單擊的消息處理　23
3.3.4　系統(tǒng)菜單中最小化按鈕的實現(xiàn)　25
3.3.5　系統(tǒng)退出的實現(xiàn)　25

Example 04　簡易計算器　26
4.1　設計思路　26
4.2　操作DLL編程原理　26
4.2.1　DLL原理　26
4.2.2　DLL的特點　26
4.2.3　可執(zhí)行程序與DLL的區(qū)別　27
4.2.4　編寫DLL注意事項　27
4.3　實例詳解　28
4.3.1　創(chuàng)建動態(tài)鏈接庫　28
4.3.2　兩個DLL的具體實現(xiàn)　29
4.3.3　使用動態(tài)鏈接庫　30
4.3.4　調(diào)試動態(tài)鏈接庫　32

Example 05　電子秒表系統(tǒng)　33
5.1　設計思路　33
5.2　編程原理　33
5.2.1　CLX應用程序概述　33
5.2.2　TLCDNumber控件　34
5.2.3　FormatDateTime函數(shù)　35
5.3　實例詳解　35
5.3.1　聲明變量和對象　36
5.3.2　響應定時器事件　36
5.3.3　“開始”事件　36
5.3.4　“暫?！笔录?7
5.3.5　“繼續(xù)”事件　37
5.3.6　“停止”事件　37
5.3.7　設置已選定的電子秒表的邊框樣式　37
5.3.8　設置已選定的電子秒表的數(shù)字片段類型　38

Example 06　硬件信息獲取系統(tǒng)　38
6.1　設計思路　38
6.2　編程原理　39
6.2.1　獲取CPU頻率　39
6.2.2　獲取顯示器刷新頻率　39
6.2.3　獲取內(nèi)存信息　39
6.2.4　獲取顯示卡信息　40
6.2.5　獲得驅動器信息　40
6.3　實例詳解　41
6.3.1　實現(xiàn)獲取CPU頻率　41
6.3.2　實現(xiàn)獲取顯示器刷新頻率　42
6.3.3　實現(xiàn)獲取內(nèi)存信息　42
6.3.4　實現(xiàn)獲取顯示卡信息　42
6.3.5　實現(xiàn)檢查指定驅動器是否準備就緒　42
6.3.6　實現(xiàn)獲取驅動器信息　43

Example 07　屏幕保護系統(tǒng)　45
7.1　設計思路　45
7.2　編程原理　45
7.2.1　實現(xiàn)圖像的隨機出現(xiàn)　45
7.2.2　獲取桌面位圖　46
7.2.3　設置窗口置頂和隱藏鼠標　46
7.3　實例詳解　47
7.3.1　聲明變量和對象　47
7.3.2　防止屏保程序重復運行　48
7.3.3　創(chuàng)建窗體　48
7.3.4　按空格鍵后彈出密碼框　49
7.3.5　播放啟動聲音　49
7.3.6　定時器響應事件　49
7.3.7　重畫事件　50

Example 08　批量制作邀請函　50
8.1　設計思路　50
8.2　編程原理　51
8.2.1　Word組件　51
8.2.2　Delphi中操作Word文件的方法　53
8.3　實例詳解　53
8.3.1　聲明變量和對象　54
8.3.2　窗體顯示　54
8.3.3　選擇文件　55
8.3.4　制作文件　56

精彩實例賞析　58

Part 2　多媒體/圖形圖像篇

Example 09　狀態(tài)欄上加入可視構件　64
9.1　設計思路　64
9.2　編程原理　64
9.2.1　狀態(tài)欄組件　64
9.2.2　TAnimate組件　65
9.3　實例詳解　65
9.3.1　聲明變量和對象　66
9.3.2　創(chuàng)建可視構件對象　66
9.3.3　響應狀態(tài)欄的重畫事件　66
9.3.4　設置進度條和圖像參數(shù)　66
9.3.5　定時器響應事件　67

Example 10　圖像動畫系統(tǒng)　68
10.1　設計思路　68
10.2　編程原理　68
10.2.1　定時器組件　68
10.2.2　圖像組件　69
10.3　實例詳解　69
10.3.1　圖像列表中的“增加”功能　70
10.3.2　圖像列表中的“刪除”功能　71
10.3.3　圖像列表中的“確定”功能　71
10.3.4　播放動畫　71
10.3.5　播放控制功能　72

Example 11　媒體播放系統(tǒng)　74
11.1　設計思路　74
11.2　編程原理　75
11.2.1　TMediaPlayer組件　75
11.2.2　文件選擇組件　76
11.3　實例詳解　77
11.3.1　選擇媒體文件　78
11.3.2　綁定媒體文件　79
11.3.3　“單擊”媒體播放器　79

Example 12　按鍵發(fā)音系統(tǒng)　80
12.1　設計思路　80
12.2　編程原理　80
12.2.1　鍵盤編程　80
12.2.2　聲音資源文件的制作與調(diào)用　82
12.2.3　PlaySound的使用方法　82
12.3　實例詳解　83
12.3.1　處理鍵盤事件　83
12.3.2　添加一個字符　84
12.3.3　刪除一個字符　84
12.3.4　播放聲音　84
12.3.5　伴隨音樂啟動和退出　84

Example 13　Flash動畫播放系統(tǒng)　85
13.1　設計思路　85
13.2　編程原理　86
13.2.1　在Delphi中使用ActiveX控件　86
13.2.2　TShockwaveFlash控件　87
13.2.3　替換Flash彈出菜單　88
13.3　實例詳解　88
13.3.1　選擇新的Flash文件　89
13.3.2　Flash文件的播放、暫停和停止　89
13.3.3　替換右鍵彈出菜單　89
13.3.4　全屏播放Flash　90
13.3.5　普通視圖播放Flash　91

Example 14　圖像處理系統(tǒng)——點運算篇　91
14.1　設計思路　91
14.2　編程原理　92
14.2.1　TBitmap組件　92
14.2.2　像素化圖像　92
14.3　實例詳解　93
14.3.1　聲明變量和對象　93
14.3.2　像素化圖像　93
14.3.3　膨脹效果　94
14.3.4　腐蝕效果　95
14.3.5　提取輪廓　95
14.3.6　細化圖像　97
14.3.7　Sobel邊緣檢測　98

Example 15　圖像處理系統(tǒng)——幾何變換篇　99
15.1　設計思路　99
15.2　編程原理　101
15.2.1　位圖和位圖對象　101
15.2.2　SetBrushOrgEx函數(shù)　101
15.2.3　SetStretchBltMode函數(shù)　101
15.3　實例詳解　102
15.3.1　聲明變量和對象　102
15.3.2　打開位圖文件　103
15.3.3　順時針旋轉90°　103
15.3.4　逆時針旋轉90°　103
15.3.5　任意角度旋轉　104
15.3.6　縮小　104
15.3.7　放大　105
15.3.8　扭曲效果　105
15.3.9　波浪效果　106
15.3.10　遠視圖效果　108
15.3.11　水平鏡像　108
15.3.12　垂直鏡像　109
15.3.13　裁剪圖像　109
15.3.14　還原圖像　110

Example 16　圖像處理系統(tǒng)——特效篇　110
16.1　設計思路　110
16.2　編程原理　112
16.2.1　CopyRect函數(shù)　112
16.2.2　BitBlt函數(shù)　112
16.3　實例詳解　113
16.3.1　聲明變量和對象　114
16.3.2　實現(xiàn)飛入效果的函數(shù)　114
16.3.3　實現(xiàn)拉伸效果的函數(shù)　116
16.3.4　實現(xiàn)百葉窗效果的函數(shù)　118
16.3.5　堆沙效果　119

Example 17　圖像處理系統(tǒng)——色彩通道篇　120
17.1　設計思路　120
17.2　編程原理　120
17.2.1　RGB顏色空間　120
17.2.2　Delphi操作RGB顏色空間　121
17.3　實例詳解　121
17.3.1　聲明變量和對象　121
17.3.2　選擇色彩通道　122
17.3.3　單一色彩通道　122
17.3.4　調(diào)節(jié)通道分量　123

精彩實例賞析　125

Part 3　網(wǎng)絡通信篇

Example 18　網(wǎng)絡測速系統(tǒng)　132
18.1　設計思路　132
18.2　編程原理　132
18.2.1　ICMP協(xié)議介紹　132
18.2.2　在Delphi中實現(xiàn)ICMP協(xié)議　133
18.2.3　WinSock網(wǎng)絡編程接口　134
18.3　實例詳解　135
18.3.1　對單個目標地址進行Ping操作　136
18.3.2　處理返回信息　136
18.3.3　獲得兩個目標地址之間的數(shù)量值　137
18.3.4　獲得下一個目標地址　138
18.3.5　實現(xiàn)目標地址群Ping操作　138

Example 19　局域網(wǎng)聊天系統(tǒng)　139
19.1　設計思路　139
19.2　編程原理　139
19.2.1　UDP協(xié)議簡介　139
19.2.2　TIdUDPClient組件　140
19.2.3　TIdUDPServer對象　140
19.3　實例詳解　141
19.3.1　程序初始化　141
19.3.2　發(fā)送數(shù)據(jù)　142
19.3.3　接收數(shù)據(jù)　143
19.3.4　增加聊天人員　143
19.3.5　刪除聊天人員　144

Example 20　E-mail發(fā)送系統(tǒng)　144
20.1　設計思路　144
20.2　編程原理　145
20.2.1　SMTP協(xié)議　145
20.2.2　TIdSmtp組件　145
20.2.3　TIdMessage組件　146
20.3　實例詳解　147
20.3.1　發(fā)送郵件　147
20.3.2　增加附件　148
20.3.3　刪除附件　148
20.3.4　顯示當前狀態(tài)　149

Example 21　文件傳遞系統(tǒng)　149
21.1　設計思路　149
21.2　編程原理　150
21.2.1　Socket工作原理　150
21.2.2　Delphi中的Socket組件　151
21.2.3　TClientSocket組件　151
21.2.4　TServerSocket組件　152
21.2.5　使用Socket傳送文件的順序圖　153
21.3　實例詳解　153
21.3.1　聲明變量和對象　153
21.3.2　客戶端發(fā)送文件　154
21.3.3　客戶端接收文件　154
21.3.4　服務器端接收文件　156
21.3.5　取消發(fā)送　157

精彩實例賞析　158

Part 4　數(shù)據(jù)庫篇

Example 22　數(shù)據(jù)庫的圖表統(tǒng)計　164
22.1　設計思路　164
22.2　編程原理　165
22.2.1　圖表組件　165
22.2.2　TDBChart組件　165
22.2.3　Series對象　167
22.3　實例詳解　168
22.3.1　聲明變量和對象　168
22.3.2　窗口顯示　169
22.3.3　顯示圖表　170
22.3.4　顯示直方圖　170
22.3.5　顯示3D效果　172
22.3.6　顯示旋轉效果　172

Example 23　商品管理系統(tǒng)——BDE篇　173
23.1　設計思路　173
23.2　編程原理　173
23.2.1　基于BDE的體系結構　174
23.2.2　BDE控件　174
23.2.3　TDatabase控件　175
23.2.4　建立連接　176
23.2.5　TTable控件　176
23.3　實例詳解　178
23.3.1　增加　178
23.3.2　修改　179
23.3.3　刪除　179
23.3.4　保存　180
23.3.5　退出　181

Example 24　商場收銀系統(tǒng)——ADO篇　181
24.1　設計思路　181
24.2　ADO數(shù)據(jù)庫編程原理　182
24.2.1　基于ADO的體系結構　182
24.2.2　ADO控件　183
24.2.3　連接ADO數(shù)據(jù)庫　183
24.2.4　TADOConnection控件　185
24.2.5　TADOQuery控件　185
24.2.6　TADOStoredProc控件　186
24.3　實例詳解　188
24.3.1　增加　189
24.3.2　修改　189
24.3.3　刪除　190
24.3.4　保存　190
24.3.5　退出　191

Example 25　用戶管理系統(tǒng)——InterBase篇　191
25.1　設計思路　191
25.2　編程原理　192
25.2.1　InterBase數(shù)據(jù)庫　192
25.2.2　InterBase控件　193
25.2.3　建立連接　194
25.3　實例詳解　194
25.3.1　聲明變量和對象　195
25.3.2　創(chuàng)建窗體　195
25.3.3　顯示用戶信息界面　195
25.3.4　數(shù)據(jù)錄入　195
25.3.5　數(shù)據(jù)查詢　196

Example 26　用戶管理系統(tǒng)——DbExpress篇　197
26.1　設計思路　197
26.2　編程原理　198
26.2.1　DbExpress簡介　198
26.2.2　DbExpress組件　199
26.2.3　建立連接　199
26.2.4　TSQLConnection組件　200
26.2.5　TSQLDataSet組件　200
26.2.6　TSimpleDataSet組件　201
26.2.7　TSQLMonitor組件　201
26.3　實例詳解　202
26.3.1　聲明變量和對象　202
26.3.2　顯示窗體　202
26.3.3　更新　203
26.3.4　排序　203
26.3.5　顯示DbExpress與后臺數(shù)據(jù)庫之間傳遞的信息　204

Example 27　數(shù)據(jù)庫備份系統(tǒng)　204
27.1　設計思路　204
27.2　編程原理　205
27.2.1　系統(tǒng)數(shù)據(jù)庫master　205
27.2.2　Backup命令　205
27.3　實例詳解　206
27.3.1　聲明變量和對象　207
27.3.2　窗體顯示　207
27.3.3　選擇備份目錄　208
27.3.4　選擇抄送目錄　208
27.3.5　設置參數(shù)　208
27.3.6　備份數(shù)據(jù)庫　209

Example 28　數(shù)據(jù)庫恢復系統(tǒng)　210
28.1　設計思路　210
28.2　編程原理　210
28.2.1　Drop Database命令　211
28.2.2　Restore命令　211
28.3　實例詳解　212
28.3.1　聲明變量和對象　213
28.3.2　窗體顯示　213
28.3.3　選擇恢復文件　214
28.3.4　恢復數(shù)據(jù)庫　214

Example 29　數(shù)據(jù)導出系統(tǒng)　215
29.1　設計思路　215
29.2　編程原理　216
29.2.1　Excel組件　216
29.2.2　使用ADO直接訪問Excel數(shù)據(jù)文件　217
29.3　實例詳解　218
29.3.1　窗體顯示　219
29.3.2　導出數(shù)據(jù)　219
29.3.3　查看Excel文件　221
29.3.4　查看導出數(shù)據(jù)　221

Example 30　數(shù)據(jù)庫模糊查詢系統(tǒng)　221
30.1　設計思路　221
30.2　編程原理　222
30.2.1　設定搜索條件　222
30.2.2　Like運算符　223
30.2.3　Between運算符　224
30.3　實例詳解　224
30.3.1　窗體顯示　225
30.3.2　選擇Between的情況　225
30.3.3　限制只能輸入數(shù)字　225
30.3.4　運行“模糊查詢”　226

Example 31　報表打印——QuickReport篇　227
31.1　設計思路　227
31.2　編程原理　228
31.2.1　QuickReport組件　228
31.2.2　TQuickRep控件　229
31.2.3　TQRBand控件　230
31.2.4　TQRSysData控件　231
31.2.5　QuickReport安裝方法　231
31.3　實例詳解　231
31.3.1　窗體顯示　232
31.3.2　預覽　232
31.3.3　打印　232
31.3.4　根據(jù)字段值調(diào)整顯示內(nèi)容　232

Example 32　報表打印——Rave篇　233
32.1　設計思路　233
32.2　編程原理　234
32.2.1　Rave組件　234
32.2.2　TRvProject組件　234
32.2.3　TRvSystem組件　235
32.2.4　報表設計器　236
32.2.5　DataText組件　237
32.2.6　DataMemo組件　237
32.2.7　Region組件　237
32.2.8　DataBand組件　237
32.2.9　DataCycle組件　237
32.2.10　Bitmap組件　238
32.3　實例詳解　238
32.3.1　窗體顯示　239
32.3.2　預覽和打印　240

Example 33　超市票據(jù)打印——FastReport篇　241
33.1　設計思路　241
33.2　編程原理　241
33.2.1　FastReport組件　241
33.2.2　TfrReport控件　243
33.2.3　TfrDBDataSet控件　244
33.2.4　報表設計器　244
33.2.5　Text對象　245
33.2.6　Band對象　245
33.2.7　Line對象　245
33.3　實例詳解　246
33.3.1　窗體顯示　247
33.3.2　“商品數(shù)量”輸入框失去焦點事件　247
33.3.3　結賬事件　248
33.3.4　“結賬付款”界面中的窗體顯示　249
33.3.5　“結賬付款”界面中的付款確定　249
33.3.6　“顯示找零”界面中的窗體顯示　250
33.3.7　“顯示找零”界面中的打印預覽　250

精彩實例賞析　251

Part 5　MIS開發(fā)篇

Example 34　個人通訊錄管理系統(tǒng)　254
34.1　設計思路　254
34.2　編程原理　254
34.2.1　系統(tǒng)功能分析　254
34.2.2　系統(tǒng)模塊設計　254
34.2.3　數(shù)據(jù)庫需求分析　255
34.2.4　數(shù)據(jù)庫邏輯結構設計　255
34.2.5　第三方控件XPMenu的安裝　256
34.3　實例詳解　257
34.3.1　系統(tǒng)設計概述　257
34.3.2　用戶登錄身份驗證模塊　257
34.3.3　數(shù)據(jù)模塊　258
34.3.4　系統(tǒng)主窗體　259
34.3.5　分類管理模塊　263
34.3.6　名片管理模塊　265
34.3.7　查詢模塊　268

Example 35　圖書進銷存管理系統(tǒng)　271
35.1　設計思路　271
35.2　編程原理　271
35.2.1　系統(tǒng)功能分析　271
35.2.2　系統(tǒng)模塊設計　271
35.2.3　數(shù)據(jù)庫需求分析　271
35.2.4　數(shù)據(jù)庫邏輯結構設計　272
35.3　實例詳解　275
35.3.1　系統(tǒng)設計概括　275
35.3.2　用戶登錄身份驗證模塊　276
35.3.3　數(shù)據(jù)模塊　277
35.3.4　公用函數(shù)單元　278
35.3.5　入庫管理模塊　278
35.3.6　出庫管理模塊　286
35.3.7　庫存維護模塊　289
35.3.8　庫存預警模塊　291
35.3.9　供應商維護模塊　292
35.3.10　數(shù)據(jù)字典維護模塊　292
35.3.11　會員信息維護模塊　293
35.3.12　報表統(tǒng)計模塊　293

Example 36　倉庫信息管理系統(tǒng)　297
36.1　設計思路　297
36.2　編程原理　300
36.2.1　系統(tǒng)功能分析　300
36.2.2　系統(tǒng)模塊設計　300
36.2.3　UML系統(tǒng)建?！?03
36.2.4　數(shù)據(jù)庫需求分析　306
36.2.5　數(shù)據(jù)庫邏輯結構設計　308
36.3　實例詳解　310
36.3.1　系統(tǒng)設計概述　310
36.3.2　系統(tǒng)主界面設計　311
36.3.3　用戶登錄身份驗證模塊　312
36.3.4　系統(tǒng)主模塊　312
36.3.5　倉庫入庫模塊　313
36.3.6　倉庫出口模塊　316
36.3.7　倉庫盤點模塊　316
36.3.8　庫存查詢模塊　317
36.3.9　商品銷售查詢模塊　318
36.3.10　倉庫歷史記錄查詢模塊　319
36.3.11　供應商信息模塊　319

Example 37　學生學籍信息管理系統(tǒng)　321
37.1　設計思路　321
37.2　 編程原理　323
37.2.1　系統(tǒng)功能分析　323
37.2.2　系統(tǒng)模塊設計　324
37.2.3　UML系統(tǒng)建?！?28
37.2.4　數(shù)據(jù)庫需求分析　331
37.2.5　數(shù)據(jù)庫邏輯結構設計　332
37.3　實例詳解　337
37.3.1　系統(tǒng)設計概述　337
37.3.2　第3方控件安裝　338
37.3.3　用戶登錄模塊　339
37.3.4　學生基本信息輸入模塊　339
37.3.5　入學成績輸入模塊　340
37.3.6　專業(yè)管理模塊　341
37.3.7　成績錄入、修改模塊　342
37.3.8　學生信息變動輸入和查詢模塊　344
37.3.9　學生學位初審模塊　344
37.3.10　獎勵情況錄入模塊　346
37.3.11　畢業(yè)情況錄入模塊　346
37.3.12　統(tǒng)計模塊　346
37.3.13　數(shù)據(jù)模塊的使用　347

Example 38　醫(yī)院信息系統(tǒng)　347
38.1　設計思路　347
38.2　編程原理　350
38.2.1　系統(tǒng)功能分析　350
38.2.2　系統(tǒng)模塊設計　351
38.2.3　UML系統(tǒng)建?！?55
38.2.4　數(shù)據(jù)庫需求分析　360
38.2.5　數(shù)據(jù)庫邏輯結構設計　363
38.3　實例詳解　369
38.3.1　系統(tǒng)設計概述　369
38.3.2　程序技術要點說明　370
38.3.3　系統(tǒng)主界面實現(xiàn)　371
38.3.4　數(shù)據(jù)庫服務器配置和數(shù)據(jù)模塊　378
38.3.5　通用組合查詢模塊　381
38.3.6　門診管理模塊　384
38.3.7　藥品管理模塊　391
38.3.8　住院管理模塊　393
38.3.9　醫(yī)務人員管理模塊　393
38.3.10　輔助資料管理模塊　395
38.3.11　安全管理模塊　396
38.3.12　幫助文件設計　396

精彩實例賞析　397

Part 6　游戲篇

Example 39　五子棋游戲　408
39.1　設計思路　408
39.2　編程原理　408
39.2.1　圖像重疊顯示　408
39.2.2　將鼠標坐標轉換為棋盤上的棋格位置　410
39.3　實例詳解　411
39.3.1　聲明變量和對象　412
39.3.2　創(chuàng)建窗體　412
39.3.3　響應點擊棋盤事件　412
39.3.4　判斷勝負　414

精彩實例賞析　416