Lazarus Database Tutorial/zh TW: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Lazarus 資料庫教學
2	2
3	3		## 導覽
4	4
5	5		本教材內容是關於如何於 Lazarus 下配合數種資料庫來工作。
6	6
7	7		Lazarus 支援數種非內建資料庫，而開發者仍應安裝各資料庫所對應的元件(Packages)。你可以透過程式碼或直接拉元件(components)至表單(from)來存取資料庫。資料感知 (data-aware) 元件代表資料庫欄位，並透過 TDataSource 設定指定的資料來源 (DataSource) 屬性物件來連接。資料來源代表一個資料表，是以連接至資料庫元件 (如：TPSQLDatabase, TSQLiteDataSet) 的 DataSet 屬性所選定的。資料感知元件位於「資料控制」籤頁內。資料來源及資料庫控制元件則位於「資料存取」的籤頁內。
8	8
9	9		## Lazarus 與 MySQL
10	10
11	11		### 讓 MySQL 在 Linux 或 Windows 中動起來
12	12
13	13		照著 MySQL 使用手冊裡的指示，讓 mysqld 程序於背景執行。對於所有潛在的主機來源 (包含本機 'localhost'，本機的名稱和其他透過網路連線的主機)，所有的用戶 (包含根使用者，mysql，你自己和其他所有會用到的人) 都要設定使用權限。也要儘可能的達到安全性要求，所有使用者，包含根使用者都要有一個密碼。接著使用手冊上的範例方法來測試確定所有使用者在系統上的權限都安全可靠。
14	14
15	15		### 在文字模式中讓 MySQL 為 FPC 工作
16	16
17		-	在 \$(fpc<b>src</b>dir)/packages/base/mysql/ 資料夾中有一個範例程式。你可以在 Lazarus 的 fpc 原始碼資料夾中找到：〔環境〕選單 -\> 〔環境〕選項 -\> 〔路徑〕籤頁 -\>〔FPC 原始碼目錄〕。 mysql 的範例資料夾可能的路徑為 /usr/share/fpcsrc/packages/base/mysql/ (rpm 安裝) 或者 C:\lazarus\fpcsrc\packages\base\mysql\\ (Windows)。這個資料夾也包含了 mysql.pp, mysql_com.pp 和 mysql_version.pp。執行這些指令碼前，你必須先建立一個 testdb 資料庫：請登入 mysql 監視器 (以根使用者登入來取得完整權限) 並執行以下 SQL 指令
	17	+	在 \$(fpcsrcdir)/packages/base/mysql/ 資料夾中有一個範例程式。你可以在 Lazarus 的 fpc 原始碼資料夾中找到：〔環境〕選單 -\> 〔環境〕選項 -\> 〔路徑〕籤頁 -\>〔FPC 原始碼目錄〕。 mysql 的範例資料夾可能的路徑為 /usr/share/fpcsrc/packages/base/mysql/ (rpm 安裝) 或者 C:\lazarus\fpcsrc\packages\base\mysql\\ (Windows)。這個資料夾也包含了 mysql.pp, mysql_com.pp 和 mysql_version.pp。執行這些指令碼前，你必須先建立一個 testdb 資料庫：請登入 mysql 監視器 (以根使用者登入來取得完整權限) 並執行以下 SQL 指令
18	18
19	19		`CREATE DATABASE testdb;`
20	20
21	21		接著確認所有相關使用者擁有適當的存取權限
22	22
23	23		`GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `
24	24
25	25		現在你應試著去執行一個叫 mkdb 的指令碼：
26	26
27	27		`sh ./mkdb`
28	28
29	29		這個指令應該會失敗, 因為系統不會允許匿名者存取資料庫。所以必須修改這個指令碼讓 mysql 讀取以下這行：
30	30
31	31		`mysql -u root -p ${1-testdb} << EOF >/dev/null`
32	32
33	33		接著試著再執行一次，系統提示要你輸入密碼。幸運的話你應該就可以管理剛建立的資料庫了。用以下的 mysql 指令測試一下(在 mysql 監視器中)：
34	34
35	35		`select * from FPdev;`
36	36
37	37		即可看到一個列有 ID，使用者名稱和 Email 地址的FPC 開發者資料表了。
38	38
39	39		現在可以執行測試程式 testdb.pp 了 (這檔也許還需要先編譯過，而且可能會在第一次編譯出錯！！)。
40	40
41	41		我找出這支程式可能無法連結 MySQL 的幾個原因：
42	42
43	43		- 我的系統 (SuSE Linux v9.0) 安裝的是 mysql v4.0.15，不同於安裝套件的版本 3。
44	44
45	45		- 程式需要輸入使用者和密碼來存取資料庫。
46	46
47	47		- 編譯器需要知道哪裡可以找到 MySQL 的函式庫 (如果你並沒有安裝 MYSQL 的開發函式庫，那現在快裝！)
48	48
49	49		我將 testdb.pp 另存成 trydb.pp，然後做修改 - 這樣代表原來那支還是可以隨後透過 CVS 更新。我另外也將在 mysql/ver40/ 子目錄下找到的那支另存成 mysql_v4.pp，mysql_com_v4.pp 和 mysql_version_v4.pp，記得你單元裡的程式也要改成適當的檔名。在 trydb.pp 裡我變更 uses 敘述句為
50	50
51	51		`uses mysql_v4`
52	52
53	53		mysql_v4.pp　的敘述句改為
54	54
55	55		`uses mysql_com_v4`
56	56
57	57		另外為要使用的函式庫加入一行到 /etc/fpc.cfg 裡：
58	58
59	59		`-Fl/lib;/usr/lib`
60	60
61	61		接下來的動作也許不必要做，因為你在安裝開發函式庫的時候應該會自動幫你建立連結，但檢查一下總是無仿。進行前需要先找到我的 MYSQL 用戶端函式庫是放在 /usr/lib 目錄下面的哪裡，我的狀況是先下 shell 指令：
62	62
63	63		`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
64	64
65	65		建立一個軟連結讓 FPC 可以找的到函式庫。為了更準確一些我再建立一個連結
66	66
67	67		`ln -s libmysqlclient.so.12.0.0 mysqlclient`
68	68
69	69		然後放一個相同的連結在不同的其他目錄裡：不是必需，視請況而定！然後有些使用者也許會需要增加如下的連結：
70	70
71	71		`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
72	72
73	73		我修改 trydb.pp 的內容，含括進使用者連線資訊，從上到下計的內容有主機，使用者與密碼：
74	74
75	75		`const`\
76	76		` host : Pchar= 'localhost';`\
77	77		` user : Pchar= 'myusername';`\
78	78		` passwd: Pchar = 'mypassword';`
79	79
80	80		我還發現我忽叫 mysql_connect() 還是無法連上 MySQL，但使用 mysql_real_connect() ，加上一堆參數後就可以了。未來還會更複雜，參數的數目似乎從 3 版（七個）換到 4 版（八個）還有變化。在使用 mysql_real_connect 之前我還得先使用 mysql_init()，但這在原始的 mysql.pp 裡並找不到，但出現於 mysql_v4.pp。
81	81
82	82		所以連線的程式碼將會是現在這樣：
83	83
84	84		`{加一些額外的變數}`\
85	85		`var`\
86	86		` alloc : PMYSQL;`\
87	87		` `\
88	88		`{主程式片段}`\
89	89		` `\
90	90		`begin`\
91	91		` if paramcount=1 then`\
92	92		` begin`\
93	93		` Dummy:=Paramstr(1)+#0;`\
94	94		` DataBase:=@Dummy[1];`\
95	95		` end;`\
96	96		` `\
97	97		`Writeln ('分派空間...');`\
98	98		` alloc := mysql_init(PMYSQL(@qmysql));`\
99	99		` Write ('連線到 MySQL...');`\
100	100		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
101	101		` if sock=Nil then`\
102	102		` begin`\
103	103		` Writeln (stderr,'無法連線到 MySQL.');`\
104	104		` Writeln (stderr, '錯誤是：', mysql_error(@qmysql));`\
105	105		` halt(1);`\
106	106		` end;`\
107	107		` Writeln ('完成。');`\
108	108		` Writeln ('連線資料：');`\
109	109		`{$ifdef Unix}`\
110	110		` writeln ('Mysql_port : ',mysql_port);`\
111	111		` writeln ('Mysql_unix_port : ',mysql_unix_port);`\
112	112		`{$endif}`\
113	113		` writeln ('Host info : ',mysql_get_host_info(sock));`\
114	114		` writeln ('Server info : ',mysql_stat(sock));`\
115	115		` writeln ('Client info : ',mysql_get_client_info);`\
116	116		` `\
117	117		` Writeln ('選擇資料庫 ',DataBase,'...');`\
118	118		` if mysql_select_db(sock,DataBase) < 0 then`\
119	119		` begin`\
120	120		` Writeln (stderr,'無法選取資料庫 ',Database);`\
121	121		` Writeln (stderr,mysql_error(sock));`\
122	122		` halt (1);`\
123	123		` end;`\
124	124		`{... 其他就如原來 testdb.pp 裡的內容}`
125	125
126	126		現在 - 準備好開始編譯 trydb.pp 了嗎？
127	127
128	128		` fpc trydb`
129	129
130	130		成功！現在執行：
131	131
132	132		` ./trydb`
133	133
134	134		哇！我讀取到 FPC 開發者的清單了！
135	135
136	136		想要更精進的話：將使用者連線資訊的部份與 MySQL 的指令做成互動的模式，使用變數而不使用常數，如此可以在你退出 MySQL 前輸入多個 SQL 指令：參見[[Lazarus Database Tutorial/TryDbpp\|所有程式一覽表]]，當使用者資訊是從主控台模式輸入取得時，程式將要利用迴圈，讓 SQL 的指令可以重覆輸入 (可以不用分號做結尾)，然後再將回應顯示出來，直到使用者鍵入 'quit' 為止。
137	137
138	138		參見[[Lazarus Database Tutorial/SampleListing\|主控台範例一覽表]]。
139	139
140	140		### 在 Lazarus 的應用程式裡連線到 MySQL
141	141
142	142		此教學將示範 Lazarus 如何連線到 MySQL 資料庫，並執行一段簡單的查詢，僅止使用 Lazarus 基本的元件；它並沒有用到任何資料感知元件，但已可想像連線到資料庫其介面的原理。
143	143
144	144		建立一個新的 Lazarus 專案：
145	145
146	146		`〔專案〕->〔新專案〕->〔應用程式〕`
147	147
148	148		將會自動產生出一份表單。
149	149
150	150		先把表單拉大到約半個畫面的大小，然後將表單的標題改名為 'TryMySQL'。
151	151
152	152		從標準元件的籤頁裡放置三個編輯方框到表單的左上，然後緊接著其下各放一個標籤。將標籤的標題改為「主機」(還有 HostLabel，HostEdit)，「使用者名稱」 (還有 UserLabel，UserEdit) 和「密碼」 (還有 PasswordLabel 和 PasswordEdit)。或是你可以使用附加籤頁裡的標籤編輯元件來取代。
153	153
154	154		選取密碼編輯的方框，找到 PasswordChar 這個內容：將其改為 * 或是其他字元，這樣當你鍵入你的密碼時你的畫面就會重覆顯示你這個字元來取代你真正的密碼。然後確定 Text 內容裡的值皆是空的。
155	155
156	156		然後現在再放置一個編輯方框和標籤到你表單的右上方。改變標籤成「輸入 SQL 命令」，並命名為 CommandEdit。
157	157
158	158		表單上再放三個按鈕：兩個在左邊，編框框的下面，另一個在右邊，命令框的下面。
159	159
160	160		將左邊的按鈕標記為「連結到資料庫」(ConnectButton) 與「離開」(ExitButton)，而右邊的那個記為「送出查尋」(QueryButton)。
161	161
162	162		再放一個大的記事框在右下，標名為「結果」(ResultMemo)，把送下能利用的空間都填滿給它。找到它捲軸條（ScrollBars）的內容，選為 ssAutoBoth，這樣捲軸條就可以為出現的文字自動調整空間。然後文字換行 (WordWrap) 的內容設為真 (True)。
163	163
164	164		再放一個狀態列 (從共通控制項籤頁裡) 在表單的下面，然後將其單純的文字 (SimpleText) 內容裡設為 'TryMySQL'。
165	165
166	166		擷圖將顯示表單長這個樣子：[Mysql 範例擷圖](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
167	167
168	168		現在我們要寫一些事件處理器。
169	169
170	170		這三個編輯框是用來輸入主機名稱，使用者名稱和密碼用的。當這三個都已輸入滿足條件後，將按下連線的按鈕。因此這按鈕 OnCLick 在事件處理器裡就是將在處理上述文字模式的 FPC 程式裡做的事情。
171	171
172	172		而資料庫回傳的訊息，現在就不能用 Pascal 的 write 和 writeln 這兩個敘述句來負責了：取而代之的是所有回應都將轉成字串然後丟到記事框裡。鑑於 Pascal 的 write 和 writeln 敘述句能「即時」地將資料型態轉換，因為在記事框要輸出的文字，在處理時也要能不含糊地都轉換成字串才送出，所以字元變數就要用 StrPass 轉換成字串變數，而數字就要用 IntToStr 去轉換。
173	173
174	174		在記事框裡顯示字串時將用
175	175
176	176		`procedure ShowString (S : string);`\
177	177		`(* display a string in a Memo box *)`\
178	178		`begin`\
179	179		` trymysqlForm1.ResultsMemo.Lines.Add (S)`\
180	180		`end;`
181	181
182	182		連線按鈕的事件處理器將會變成：
183	183
184	184		`procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);`\
185	185		`(* 使用主表單裡文字框裡輸入的使用者訊息來連線到 MySQL *)`\
186	186		`var strg: string;`\
187	187		` `\
188	188		`begin`\
189	189		` `\
190	190		` dummy1 := trymysqlForm1.HostEdit.text+#0;`\
191	191		` host := @dummy1[1];`\
192	192		` dummy2 := trymysqlForm1.UserEdit.text+#0;`\
193	193		` user := @dummy2[1] ;`\
194	194		` dummy3 := trymysqlForm1.PasswdEdit.text+#0;`\
195	195		` passwd := @dummy3[1] ;`
196	196
197	197		` alloc := mysql_init(PMYSQL(@qmysql));`\
198	198		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
199	199		` if sock=Nil then`\
200	200		` begin`\
201	201		` strg :='無法連線到 MySQL.'; showstring (strg);`\
202	202		` Strg :='錯誤是：'+ StrPas(mysql_error(@qmysql)); showstring (strg);`\
203	203		` end`\
204	204		` else`\
205	205		` begin`\
206	206		` trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';`\
207	207		` strg := '現在選擇資料庫：' + database; showstring (strg);`\
208	208		`{$ifdef Unix}`\
209	209		` strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);`\
210	210		` strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);`\
211	211		`{$endif}`\
212	212		` Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));`\
213	213		` showstring (strg);`\
214	214		` Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);`\
215	215		` Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);`\
216	216		` `\
217	217		` trymysqlForm1.statusbar1.simpletext := '選取資料庫 ' + DataBase +' 中...';`\
218	218		` if mysql_select_db(sock,DataBase) < 0 then`\
219	219		` begin`\
220	220		` strg :='無法選取資料庫 '+ Database; ShowString (strg);`\
221	221		` Strg := mysql_error(sock); ShowString (strg);`\
222	222		` end`\
223	223		` end;`\
224	224		`end;`
225	225
226	226		右方的文字框是用來輸入 SQL 語法的，不用在結尾加分號；當你輸入內容滿足語法條件是，按下送出查詢 (SendQuery) 按鈕，查詢即進行處理，然後結果都會寫進記事框 (ResultBox) 內。
227	227
228	228		而送出查詢按鈕在事件處理器裡要做的事也跟先前在 FPC 文字模式裡寫的一樣，但除了在字串回傳後要丟上記事框內之前，其型態轉換不得含糊。
229	229
230	230		這和文字模式的 FPC 程式唯一不一樣的地方在於當一但偵測到錯誤狀態時，程式不會中斷，MySQL 也不會關閉，取而代之的是事件處理又回到主表單，等待新的查詢再重新送出。程式只有在按下「離開」按鈕後，才會關閉 MySQL 的連線與整個應用程式。送出查詢 (SendQuery) 按鈕的程式碼如下：
231	231
232	232		`procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);`\
233	233		`var`\
234	234		` dumquery, strg: string;`\
235	235		`begin`\
236	236		` dumquery := TrymysqlForm1.CommandEdit.text;`\
237	237		` dumquery := dumquery+#0;`\
238	238		` query := @dumquery[1];`\
239	239		` trymysqlForm1.statusbar1.simpletext := '執行查詢中：'+ dumQuery +'...';`\
240	240		` strg := '執行查詢中：' + dumQuery; showstring (strg);`\
241	241		` if (mysql_query(sock,Query) < 0) then`\
242	242		` begin`\
243	243		` Strg :='查詢失敗 '+ StrPas(mysql_error(sock)); showstring (strg);`\
244	244		` end`\
245	245		` else`\
246	246		` begin`\
247	247		` recbuf := mysql_store_result(sock);`\
248	248		` if RecBuf=Nil then`\
249	249		` begin`\
250	250		` Strg :='查詢回傳的內容為空。'; showstring (strg);`\
251	251		` end`\
252	252		` else`\
253	253		` begin`\
254	254		` strg :='回傳資料筆數：' + IntToStr(mysql_num_rows (recbuf));`\
255	255		` Showstring (strg);`\
256	256		` Strg :='欄位記錄數：' + IntToStr(mysql_num_fields(recbuf));`\
257	257		` showstring (strg);`\
258	258		` rowbuf := mysql_fetch_row(recbuf);`\
259	259		` while (rowbuf <>nil) do`\
260	260		` begin`\
261	261		` Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +`\
262	262		` rowbuf[2] +')';`\
263	263		` showstring (strg);`\
264	264		` rowbuf := mysql_fetch_row(recbuf);`\
265	265		` end;`\
266	266		` end;`\
267	267		` end;`\
268	268		`end;`
269	269
270	270		儲存你的專案，然後按〔執行〕-\>〔執行〕
271	271
272	272		#### 下載 MYSQL 原始碼
273	273
274	274		所有程式的一覽表都可以在這裡取得：[範例程式碼](http://lazarus-ccr.sourceforge.net/kbdata/mysqldemo.tar.gz)
275	275
276	276		## 使用 TMySQL50Connection 元件的簡單 MySQL 示範
277	277
278	278		這程式碼是一個簡單快速的示範 (在 Win XP 下使用 Lighty2Go 執行)。libmysql.dll 放入 Lazarus 的專案，同樣置於與 lazarus.exe 相同的目錄裡 (可在 Lighty2Go 目錄下取得)。這裡在你的表單裡，除了三個編輯框，一個記事框和幾個按鈕外你什麼元件也不用再加進去。你先必須在 uses 敘述句裡加入 mysql50conn 和 sqldb 這兩項。Lazarus 放元件的目錄對於程式設計師的權限是可讀取和寫入 (rw)。MySQL dbm 使用者預設為 'root' 並沒有密碼，在一個名為 test1 的資料庫裡與名為 tPerson 的表格裡有三個欄位：personid (int)，surname (varchar(40)) 與 dob (datetime)。使用 phpMyAdmin (Lighty2Go 裡) 來建立資料庫，表格與欄位，然後插入一些測試資料。注意到在 phpMyAdmin 裡的日期應打成年年年年-月月-日日，不過我們下面建立的程式可以輸入一般格式的日期。在連線之前要先按 btnTest 按鈕，請注意每一行內容都可以套用更新－若不這麼做則這些資料不會再寫回資料庫裡，只是存放在記憶體內，用 btnFirst 和 btnNext 兩個按鈕來切換觀看。
279	279
280	280		unit unt_db;
281	281		//範例來源：
282	282		//http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=5761
283	283		//來自論壇的 tpglemur
284	284		{$mode objfpc}{$H+}
285	285		interface
286	286		uses
287	287		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
288	288		mysql50conn, sqldb, StdCtrls;
289	289		type
290	290		{ TForm1 }
291	291		TForm1 = class(TForm)
292	292		btnTest: TButton;
293	293		btnNext: TButton;
294	294		btnFirst: TButton;
295	295		btnNew: TButton;
296	296		edtPersonID: TEdit;
297	297		edtSurname: TEdit;
298	298		edtDOB: TEdit;
299	299		Memo1: TMemo;
300	300		procedure btnFirstClick(Sender: TObject);
301	301		procedure btnNewClick(Sender: TObject);
302	302		procedure btnNextClick(Sender: TObject);
303	303		procedure btnTestClick(Sender: TObject);
304	304		private
305	305		{ private declarations }
306	306		conn : TMySQL50Connection;
307	307		query : TSQLQuery;
308	308		transaction : TSQLTransaction;
309	309		procedure Display;
310	310		public
311	311		{ public declarations }
312	312		end;
313	313		var
314	314		Form1: TForm1;
315	315		implementation
316	316		{ TForm1 }
317	317		procedure TForm1.btnTestClick(Sender: TObject);
318	318		var
319	319		S: String;
320	320		begin
321	321		conn := TMySQL50Connection.Create(nil);
322	322		query := TSQLQuery.Create(nil);
323	323		transaction := TSQLTransaction.Create(nil);
324	324		try
325	325		try
326	326		conn.HostName := '127.0.0.1';
327	327		conn.UserName := 'root';
328	328		conn.Password := '';
329	329		conn.DatabaseName := 'test1';
330	330		conn.Connected := True;
331	331		conn.Transaction := transaction;
332	332		query.DataBase := conn;
333	333		//query.ParseSQL := true; //該行不必須，這是預設的方法
334	334		//query.ReadOnly := false; //該行不必須，這是預設的方法
335	335		query.SQL.Text := 'select * from tperson';
336	336		query.Open;
337	337
338	338		query.Last;
339	339		S := IntToStr(query.RecordCount) + #13#10;
340	340		query.First;
341	341
342	342		while not query.EOF do
343	343		begin
344	344		S := S + query.FieldByName('surname').AsString + #13#10;
345	345		query.Next;
346	346		end;
347	347		finally
348	348		//query.Free;
349	349		//conn.Free;
350	350		end;
351	351		except
352	352		on E: Exception do
353	353		ShowMessage(E.message);
354	354		end;
355	355		Memo1.Text:= S;
356	356		end;
357	357
358	358		procedure TForm1.Display;
359	359		begin
360	360		edtPersonID.Text := query.FieldByName('personid').AsString;
361	361		edtSurname.Text := query.FieldByName('surname').AsString;
362	362		edtDOB.Text := query.FieldByName('dob').AsString;
363	363		end;
364	364
365	365		procedure TForm1.btnFirstClick(Sender: TObject);
366	366		begin
367	367		query.First;
368	368		Display;
369	369		end;
370	370
371	371		procedure TForm1.btnNewClick(Sender: TObject);
372	372		begin
373	373		query.Append;
374	374		query.FieldValues['personid'] := edtPersonID.Text;
375	375		query.FieldValues['surname'] := edtSurname.Text;
376	376		query.FieldValues['dob'] := edtDOB.Text;
377	377		query.Post;
378	378		query.ApplyUpdates; //套用更新
379	379		//transaction.Commit; //該行不必須
380	380		end;
381	381
382	382		procedure TForm1.btnNextClick(Sender: TObject);
383	383		begin
384	384		query.Next;
385	385		Display;
386	386		end;
387	387
388	388		initialization
389	389		{$I unt_db.lrs}
390	390		end.
391	391
392	392		這是使用 TMySQL50Connection，TSQLQuery，TSQLTransaction，TDatasource 與 TDBGrid 元件的另一種片版本，可將他們直接拉到表單上：
393	393
394	394		unit unt_mysql2;
395	395		{$mode objfpc}{$H+}
396	396		interface
397	397		uses
398	398		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
399	399		mysql50conn, sqldb, StdCtrls, db, DBGrids, DbCtrls;
400	400		type
401	401		{ TForm1 }
402	402		TForm1 = class(TForm)
403	403		btnConnect: TButton;
404	404		btnSave: TButton;
405	405		btnNext: TButton;
406	406		btnPrior: TButton;
407	407		Datasource1: TDatasource;
408	408		DBGrid1: TDBGrid;
409	409		Memo1: TMemo;
410	410		MySQL50Connection1: TMySQL50Connection;
411	411		SQLQuery1: TSQLQuery;
412	412		SQLTransaction1: TSQLTransaction;
413	413		procedure btnConnectClick(Sender: TObject);
414	414		procedure btnNextClick(Sender: TObject);
415	415		procedure btnPriorClick(Sender: TObject);
416	416		procedure btnSaveClick(Sender: TObject);
417	417		procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
418	418		procedure FormCreate(Sender: TObject);
419	419		private
420	420		{ private declarations }
421	421		public
422	422		{ public declarations }
423	423		end;
424	424		var
425	425		Form1: TForm1;
426	426		implementation
427	427		{ TForm1 }
428	428
429	429		procedure TForm1.FormCreate(Sender: TObject);
430	430		begin
431	431		//設定元件內容：
432	432		//(可以從物件檢視器做到)
433	433		MySQL50Connection1.HostName := '127.0.0.1';
434	434		MySQL50Connection1.UserName := 'root';
435	435		MySQL50Connection1.Password := '';
436	436		MySQL50Connection1.DatabaseName := 'test1';
437	437		MySQL50Connection1.Transaction := SQLTransaction1;
438	438		//SQLQuery1.ParseSQL := true; //該行不必須，這是預設值
439	439		//SQLQuery1.ReadOnly := false; //該行不必須，這是預設值
440	440		SQLQuery1.SQL.Text := 'select * from tperson';
441	441		SQLQuery1.Transaction := SQLTransaction1;
442	442		SQLQuery1.UpdateMode := upWhereChanged;
443	443		Datasource1.Dataset := SQLQuery1;
444	444		DBGrid1.DataSource := Datasource1;;
445	445		end;
446	446
447	447		procedure TForm1.btnConnectClick(Sender: TObject);
448	448		var
449	449		S : string;
450	450		begin
451	451		try
452	452		MySQL50Connection1.Connected := true;
453	453		SQLQuery1.Open;
454	454
455	455		//測試一下是否都 OK：
456	456		SQLQuery1.Last;
457	457		S := IntToStr(SQLQuery1.RecordCount) + #13#10;
458	458		SQLQuery1.First;
459	459		while not SQLQuery1.EOF do
460	460		begin
461	461		S := S + SQLQuery1.FieldByName('surname').AsString + #13#10;
462	462		SQLQuery1.Next;
463	463		end;
464	464		except
465	465		on E: Exception do
466	466		ShowMessage(E.message);
467	467		end;
468	468		Memo1.Text:= S;
469	469		end;
470	470
471	471		procedure TForm1.btnNextClick(Sender: TObject);
472	472		begin
473	473		SQLQuery1.Next;
474	474		end;
475	475
476	476		procedure TForm1.btnPriorClick(Sender: TObject);
477	477		begin
478	478		SQLQuery1.Prior;
479	479		end;
480	480
481	481		procedure TForm1.btnSaveClick(Sender: TObject);
482	482		begin
483	483		SQLQuery1.ApplyUpdates;
484	484		end;
485	485
486	486		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
487	487		begin
488	488		//必要的，或是在關閉時取得 EDatabase 錯誤：
489	489		MySQL50Connection1.Connected := false;
490	490		end;
491	491
492	492		initialization
493	493		{$I unt_mysql2.lrs}
494	494		end.
495	495
496	496		## Lazarus 和 PostgreSQL
497	497
498	498		這個教學很簡短，告訴大家如何在 Lazarus 0.9.12 或更新的版本下使用 TPQConnection 連線到 PostgreSQL 資料庫，本地端或遠端都行。
499	499
500	500		在正確地安裝後，進行下列步驟：
501	501
502	502		- 從 SQLdb 籤頁裡放入 PQConnection
503	503		- 從 SQLdb 籤頁裡放入 SQLQuery
504	504		- 從 SQLdb 籤頁裡放入 SQLTransaction
505	505		- 從資料存取 (DataAccess) 籤頁裡放入資料來源 (DataSource)
506	506		- 從資料控制 (DataControl) 籤頁裡放入 DBGrid
507	507
508	508		- 在 PQConnection 裡填入：
509	509		- 每個 SQLTransaction 物件的交易內容
510	510		- 資料庫名稱
511	511		- 主機名稱
512	512		- 使用者名稱 + 密碼
513	513
514	514		- 檢查 SQLTransaction 已自動改為指向 PQConnection
515	515
516	516		- 在 SQLQuery 內填入：
517	517		- 每個物件的交易內容
518	518		- 每個物件的資料庫內容
519	519		- SQL (像是 'select * from anytable' 這樣的句子)
520	520
521	521		- 在資料庫來源物件內照著 SQLQuery 物件填入 DataSet 的內容
522	522
523	523		- 在 DBGrid 內依資料庫來源物件填入資料來源
524	524
525	525		將所有的物件都調為「已連線；connected」和「啟動；active」，DBGrid 應該還要填入設定好的時間。 TDBText 和 TDBEdit 看起來已經在運作，但（對我來說）他們只負責顯示資料。
526	526
527	527		要變更資料庫內容，需要使用下列程式碼來呼叫資料庫引擎：
528	528
529	529		` try`\
530	530		` sql:= 'UPDATE table SET setting=1';`\
531	531		` PQDataBase.Connected:=True;`\
532	532		` PQDataBase.ExecuteDirect('開始作業;');`\
533	533		` PQDataBase.ExecuteDirect(sql);`\
534	534		` PQDataBase.ExecuteDirect('交付作業');`\
535	535		` PQDataBase.Connected:=False;`\
536	536		` except`\
537	537		` on E : EDatabaseError do`\
538	538		` MemoLog.Append('資料庫錯誤：'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);`\
539	539		` on E : Exception do`\
540	540		` MemoLog.Append('錯誤'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);`\
541	541		` end;`
542	542
543	543		- 備註：
544	544		- 在 Windows 環境下測試，Lazarus 0.9.12 + PgSQL 8.3.1
545	545		- Linux 環境下部份測試，Lazarus 0.9.12 and PgSQL 8.0.x
546	546
547	547		- 安裝與錯誤：
548	548		- 在測試版本 Lazarus .12下，欄位型態為「文字」與「數字」時會有程式錯誤
549	549		- 在使用固定長度字元，整數與 8 位元浮點數時沒有問題
550	550		- 有時候有些愚蠢的錯誤需要你重啟 Lazarus ...
551	551		- 某些錯誤發生後，其交易仍在進行，而必須手動去關閉。
552	552		- Lazarus 一些更新會讓交易在交付之前都無法看見
553	553		- 內建的除錯器看起來也有些錯誤 (至少在 Windows 下時) - 有時候執行到 IDE 之外的會需要協助找尋錯誤
554	554		- 在 Linux 下某些錯誤訊息只會出現在主控台下 -- 用主控台模式下指令來執行程式，有時候你會因此而得到一些額外的除錯訊息。
555	555		- 錯誤：「無法載入 PostgreSQL 用戶端，libq.so 是否已安裝？」
556	556		- 在 PostgreSQL 安裝時加入可以搜尋到 libpq* 的路徑。
557	557		- 在 Linux 下，加入 libpq.so 檔案的路徑到你的函式庫 /etc/fpc.cfg 檔案裡，例如：-Fl/usr/local/pgsql/lib
558	558		- 在 Windows 下，將這些函式庫路徑加入到環境變數 Path 裡，或是專案的目錄裡
559	559		- 在 Windows 下，我將 C:\Program Files\PostgreSQL\8.1\bin 目錄下的 DLL 檔案都複製到另一個 PATH 變數裡的目錄。
560	560		- 或是加入 postgres\bin 目錄到路徑裡
561	561
562	562		## Lazarus 與 SQLite
563	563
564	564		by Luiz Americo
565	565
566	566		請至 [sqlite4fpc homepage](http://www.geocities.com/camara_luiz/) 取得 API reference 與更多的教材。
567	567
568	568		### 前言
569	569
570	570		TSqliteDataset 與 TSqlite3Dataset 繼承自 TDataset, 個自分別可存取 2.8.x 與 3.x.x sqlite 資料庫。以下是使用Sqlite主要的優缺點:
571	571
572	572		優點:
573	573
574	574		- 靈活: 程式設計師可以選擇使用或不使用SQL 語言,允許他們使用SQL/sqlite容許的簡單的表格配置或是任何複雜的配置
575	575		- 自動更新資料庫: 不需要手動更新資料庫使用SQL 述?, 單一方法來照顧它
576	576		- 快速: 它的快取資料是放在記憶體, 使的瀏覽資料集是相當的快速
577	577		- 沒有伺服器的安裝/設定: 只是包裝在sqlite 動態函式庫
578	578
579	579		缺點:
580	580
581	581		- 要求外部的檔案 (sqlite 函式庫)
582	582
583	583		### 需求
584	584
585	585		- sqlite2 資料庫：
586	586		- fpc 2.0.0
587	587		- Lazarus 0.9.10
588	588		- sqlite 執行期函式庫 2.8.15 或以上 (從 www.sqlite.org 獲得)
589	589
590	590		- sqlite3 資料庫：
591	591		- fpc 2.0.2
592	592		- Lazarus 0.9.11 (svn 修訂版 8443 或以上)
593	593		- sqlite 執行期函式庫 3.2.1 或以上 (從 www.sqlite.org 獲得)
594	594
595	595		開始一個 lazarus 專案前, 請先確認以下事項：
596	596
597	597		- SQLite 資料庫有在系統路徑 PATH 變數裡，或其它可執行的目錄
598	598		- 在 Linux 下，將 cmem 第一個放入主程式的 uses 語法內
599	599		- 在 Debian，Ubuntu 和其他 Debian-like 發佈版本裡，為了要建置 Lazarus IDE 你得先安裝 libsqlite-dev/libsqlite3-dev 套件，而不僅只有 sqlite/sqlite3 (對 OpenSuSe 也一樣)
600	600
601	601		### 使用方法 (基本)
602	602
603	603		安裝 /components/sqlite 資料夾中的套件 (安裝教材[[Install Packages\|在這裡]])
604	604
605	605		於設計模式下設定以下屬性
606	606
607	607		- FileName: sqlite 檔案的路徑 \[必要\]
608	608		- TableName: sql 語法中使用的表格(table)名稱 \[必要\]
609	609		- Sql: 一個 SQL 的 select 語法 \[非必要\]
610	610
611	611		建立一個資料表 (Dataset)
612	612
613	613		雙按元件圖示, 或點選右鍵選單中的「建立資料表」。便會出現一個簡單的表格編輯器。
614	614
615	615		` 以下是 TSqliteDataset 與 TSqlite3Dataset 所支援的所有欄位格式:`
616	616
617	617		` Integer`\
618	618		` AutoInc`\
619	619		` String`\
620	620		` Memo`\
621	621		` Bool `\
622	622		` Float`\
623	623		` Word`\
624	624		` DateTime`\
625	625		` Date`\
626	626		` Time`\
627	627		` LargeInt`\
628	628		` Currency`\
629	629		` `
630	630
631	631		取得資料
632	632
633	633		建立資料表後, 或者在已有的資料表。以 Open 方法開啟 dataset。如果 SQL 屬性沒有設定內容, 則所有的資料與欄位都會被傳回, 效果與以下指令相同:
634	634
635	635		` SQL:='Select * from TABLENAME'; `
636	636
637	637		為資料檔案套用更新
638	638
639	639		使用 ApplyUpdates 函式前，dataset 須包含至少一個主鍵欄位填入需求 (必須為唯一且非 NULL 值)
640	640
641	641		這可以由兩種方式來達成:
642	642
643	643		- 設定 PrimaryKey 屬性為主鍵欄位的名稱
644	644		- 新增一個 AutoInc 欄位(這比較簡單, 因為 TSqliteDataSet 會自行將此欄位當成主鍵)
645	645
646	646		以上兩個條件設定好其中一個後, 只要呼叫以下指令
647	647
648	648		` ApplyUpdates;`
649	649
650	650		備註一：若兩個條件都有設定, 則欄位會使用 PrimaryKey 來更新資料
651	651
652	652		備註二: 若 PrimaryKey 被指定的欄位不是主鍵, 則呼叫 ApplyUpdates 可能會造成資料的遺失, 所以請確定所選擇的欄位值是唯一且非 NULL 值。
653	653
654	654		### 註記
655	655
656	656		- 雖然此程式已經測試過 10000 筆的資料都運行的很好，TSqliteDataset 將所有的資料都留在記憶體裡，所以請記得只取出你所需要的資料就好 (特別是針對記事欄位)。
657	657		- 同一個資料檔案 (檔案的內容) 可以負責多個資料表／資料集合
658	658		- 數個資料集合 (不同的欄位合併後) 可以建立一個暫存的資料表
659	659		- SQL 允許你用 WHERE 的語法來篩選你要取出的資料，重覆開啟再關閉同一資料集合 (或是呼叫重新擷取資料 - RefetchData - 的方法)。但條件就是欄位的數量要一定
660	660		- 像使用一些複合的 SQL 敘述句，如 aliases，joins 同時檢視多個資料表 (請記得這麼做就是都分配在同一支資料檔案裡)，但在 ApplyUpdates 的情況裡卻行不通。如果有人想要使用這種複合的查詢而又要套用更新到資料檔案，請寄信給我，我會告訴你一些絕竅
661	661		- 當為不是從 TSqliteDataset 建立的 sqlite2.x 資料檔妹設定檔案名稱時，雖然檔案可以開啟，但有些欄位可能無法正確地偵測到，會被當成是字串欄位。
662	662
663	663		可以在 fpc/fcl/db/sqlite CVS 目錄下找到一個通用的範例
664	664
665	665		Luiz Americo pascalive(at)bol(dot)com(dot)br
666	666
667	667		## Lazarus 與 MSSQL
668	668
669	669		需要啟用 Zeoslib (最新版修訂版)，請見此頁下方的連結。
670	670
671	671		## Lazarus and Interbase / Firebird
672	672
673	673		請參看[[Install Packages\|安裝套件]]。該頁為解釋如何連線到 IB 或 FB 主機的簡短範例。
674	674
675	675		也可以使用最新的 Zeoslib 的版本 (取自 cvs)。
676	676
677	677		### FBLib Firebird 函式庫
678	678
679	679		\[<http://fblib.altervista.org/%7CFBLib%5D是一個不含資料感知元件的開放原始碼函式庫，使用> Borland Delphi，Freepascal 與 Lazarus 都可以直接對 Firebird 關聯資料庫做存取。
680	680
681	681		現有的特點包括：
682	682
683	683		- 直接對 Firebird 1.0.x 1.5.x Classic 或 SuperServer 版本做存取
684	684		- 跨平台工作 (Win32，Gnu/Linux，FreeBSD)
685	685		- 自動選取 'fbclient' 或 'gds32' 用戶端函式庫
686	686		- 支援參數查詢
687	687		- 支援 SQL 同源語 1/3
688	688		- LGPL 認證通過
689	689		- 解析前置檔頭資料
690	690		- 單一程式腳本解析
691	691		- EXE 末端僅只使用 100-150 KB
692	692		- 支援 BLOB 欄位
693	693		- SQL 腳本直接支援資料與 HTML 轉換
694	694		- 伺服器管理 (備份，還原，gfix...)
695	695		- 事件警告器
696	696
697	697		你可以從 [FBLib's website](http://fblib.altervista.org/) 下載文件。
698	698
699	699		## Lazarus and dBase
700	700
701	701		Tony Maro
702	702
703	703		You might also want to visit the beginnings of the [[Lazarus Tdbf Tutorial\|TDbf Tutorial page]]
704	704
705	705		FPC includes a simple database component that is similar in function to the Delphi TTable component called "TDbf" ([TDbf Website](http://tdbf.sourceforge.net/)) that supports a very basic subset of features for dBase files. It is not installed by default, so you will first need to install the Lazarus package from the "lazarus/components/tdbf" directory and rebuild your Lazarus IDE. It will then appear next to the TDatasource in your component palette (Data Access tab).
706	706
707	707		The TDbf component has an advantage over other database components in that it doesn't require any sort of runtime database engine. However it's not the best option for large database applications.
708	708
709	709		It's very easy to use. Simply drop a TDbf on your form, set the runtime path to the directory that your database files will be in, set the table name, and link it to your TDatasource component.
710	710
711	711		Real functionality requires a bit more effort, however. If a table doesn't already exist, you'll need to create it programmatically, unless there's a compatible table designer I'm not familiar with. Note: Current version of OpenOffice (2.0x) contains OpenOffice Base, which can create dbf files in a somewhat user-friendly way.
712	712
713	713		Attempting to open a nonexistent table will generate an error. Tables can be created programmatically through the component after the runtime path and table name are set.
714	714
715	715		For instance, to create a table called "dvds" to store your dvd collection you would drop it on your form, set the runtime path, and set the table name to "dvds". The resulting file will be called "dvds.dbf".
716	716
717	717		In your code, insert the following:
718	718
719	719		` Dbf1.FilePathFull := '/path/to/my/database';`\
720	720		` Dbf1.TableName := 'dvds';`\
721	721		` With Dbf1.FieldDefs do begin`\
722	722		` Add('Name', ftString, 80, True);`\
723	723		` Add('Description', ftMemo, 0, False);`\
724	724		` Add('Rating', ftString, 5, False);`\
725	725		` end;`\
726	726		` Dbf1.CreateTable;`
727	727
728	728		When this code is run, your DVD collection table will be created. After that, all data aware components linked through the TDatasource to this component will allow easy access to the data.
729	729
730	730		Adding an index is a little different from your typical TTable. It must be done after the database is open. You use the same method also to rebuild the indices. For instance:
731	731
732	732		` Dbf1.Exclusive := True;`\
733	733		` Dbf1.Open;`\
734	734		` Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);`\
735	735		` Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);`\
736	736		` Dbf1.Close;`
737	737
738	738		The first (primary) index will be a file called "dvdsname.mdx" and the second will be a file named "rating.ndx" so in a multiple table database you must be careful not to use the same file name again.
739	739
740	740		I will try to add a more detailed example at a later date, but hopefully this will get those old Delphi programmers up and running with databases in Lazarus!
741	741
742	742		### Searching and Displaying a data set
743	743
744	744		Simon Batty
745	745
746	746		In this example I wanted to search a database of books for all the titles an author has listed and then display the list in a memo box
747	747
748	748		` Dbf1.FilePathFull := '/home/somelocatio/database_location/'; // path to the database directory`\
749	749		` Dbf1.TableName := 'books.dbase'; // database file (including extension)`\
750	750		` DbF1.Open;`\
751	751		` memo1.Clear; // clear the memo box`
752	752
753	753		` Dbf1.FilterOptions := [foCaseInsensitive];`\
754	754		` Df1.Filter := 'AU=' + QuotedStr('anauthor'); // AU is the field name containing the authors`
755	755
756	756		` Dbf1.Filtered := true; // This selects the filtered set`\
757	757		` Dbf1.First; // moves the the first filtered data`\
758	758		` while not dbf1.EOF do // prints the titles that match the author to the memo box`\
759	759		` begin`\
760	760		` memo1.Append(Dbf1.FieldByName('TI').AsString); // TI is the field name for titles`\
761	761		` dbf1.next; // use .next here NOT .findnext!`\
762	762		` end;`\
763	763		` Dbf1.Close; `
764	764
765	765		Note that you can use Ddf1.findfirst to get the first record in the filtered set, then use Dbf1.next to move though the data. I found that using Dbf1.Findnext just causes the program to hang.
766	766
767	767		This database was generated using TurboBD that came with the Kylix 1. I cannot get TurboBD tables to work with Lazarus, however you can download a command line tool from TurboDB's website that allows you to convert TurboDB table to other formats.
768	768
769	769		## Using TSdfDataset and TFixedDataset
770	770
771	771		TSdfDataset and TFixedDataset are two simple datasets which offer a very simple textual storage format. These datasets are very convenient for small databases, because they are fully implemented as an object pascal unit, and thus require no external libraries, and because their textual format allows them to be easely edited with a text editor.
772	772
773	773		To start with this formats, a initial database file should be created. The format is very simple, so use a text editor to do this.
774	774
775	775		Bellow is a sample database for TSdfDataset. Note that the first line has the names of the fields and that we are using commas as separators:
776	776
777	777		ID,NAMEEN,NAMEPT,HEIGHT,WIDTH,PINS,DRAWINGCODE
778	778		1,resistor,resistor,1,1,1,LINE
779	779		2,capacitor,capacitor,1,1,1,LINE
780	780		3,transistor npn,transistor npn
781	781
782	782		And here is an example database for using with TFixedDataset. Each record occupies a fixed amount of space, and if the field is smaller then it, spaces should be used to fill the remaining size.
783	783
784	784		Name = 15 chars; Surname = 15 chars; Tell = 10 chars; e_mail = 20 chars;
785	785		Piet Pompies piet@pompies.net
786	786
787	787		### Using the datasets directly
788	788
789	789		Sometimes it is useful to create the dataset and work with it completely in code, and the following code will do exactly this. Note some peculiarities of TSdfDataset/TFixedDataset:
790	790
791	791		- The lines in the database can have a maximum size of about 300. A fix is being researched.
792	792		- It is necessary to add the field definitions. Some datasets are able to fill this information alone from the database file
793	793		- One should set FirstLineAsSchema to true, to indicate that the first line includes the field names and positions
794	794		- The Delimiter property holds the separator for the fields. It will not be possible to use this char in strings in the database. Similarly it will not be possible to have lineendings in the database because they mark the change between records. It's possible to overcome this by substituting the needed comma or line ending with another not often used char, like \# for example. So that when showing the data on screen all \# chars could be converted to line endings and the inverse when storing data back to the database. The ReplaceString routine is useful here.
795	795
796	796		``` pascal
797	797		constructor TComponentsDatabase.Create;
798	798		begin
799	799		inherited Create;
800	800
801	801		FDataset := TSdfDataset.Create(nil);
802	802		FDataset.FileName := vConfigurations.ComponentsDBFile;
803	803
804	804		// Not necessary with TSdfDataset
805	805		// FDataset.TableName := STR_DB_COMPONENTS_TABLE;
806	806		// FDataset.PrimaryKey := STR_DB_COMPONENTS_ID;
807	807
808	808		// Adds field definitions
809	809		FDataset.FieldDefs.Add('ID', ftString);
810	810		FDataset.FieldDefs.Add('NAMEEN', ftString);
811	811		FDataset.FieldDefs.Add('NAMEPT', ftString);
812	812		FDataset.FieldDefs.Add('HEIGHT', ftString);
813	813		FDataset.FieldDefs.Add('WIDTH', ftString);
814	814		FDataset.FieldDefs.Add('PINS', ftString);
815	815		FDataset.FieldDefs.Add('DRAWINGCODE', ftString);
816	816
817	817		// Necessary for TSdfDataset
818	818		FDataset.Delimiter := ',';
819	819		FDataset.FirstLineAsSchema := True;
820	820
821	821		FDataset.Active := True;
822	822
823	823		// Sets the initial record
824	824		CurrentRecNo := 1;
825	825		FDataset.First;
826	826		end;
827	827		```
828	828
829	829		When using TSdfDataset directly be aware that RecNo, although it is implemented, does not work as a way to move through the dataset whether reading or writing records. The standard navigation routines like First, Next, Prior and Last work as expected, so you need to use them rather than RecNo. If you are used to using absolute record numbers to navigate around a database you can implement your own version of RecNo. Declare a global longint variable called CurrentRecNo which will hold the current RecNo value. Remember that this variable will have the same convention as RecNo, so the first record has number 1 (it is not zero-based). After activating the database initialize the database to the first record with TSdfDataset.First and set CurrentRecNo := 1
830	830
831	831		``` pascal
832	832		{@@
833	833		Moves to the desired record using TDataset.Next and TDataset.Prior
834	834		This avoids using TDataset.RecNo which doesn't navigate reliably in any dataset.
835	835
836	836		@param AID Indicates the record number. The first record has number 1
837	837		}
838	838		procedure TComponentsDatabase.GoToRec(AID: Integer);
839	839		begin
840	840		// We are before the desired record, move forward
841	841		if CurrentRecNo < AID then
842	842		begin
843	843		while (not FDataset.EOF) and (CurrentRecNo < AID) do
844	844		begin
845	845		FDataset.Next;
846	846		FDataset.CursorPosChanged;
847	847		Inc(CurrentRecNo);
848	848		end;
849	849		end
850	850		// We are after the desired record, move back
851	851		else if CurrentRecNo > AID then
852	852		begin
853	853		while (CurrentRecNo >= 1) and (CurrentRecNo > AID) do
854	854		begin
855	855		FDataset.Prior;
856	856		FDataset.CursorPosChanged;
857	857		Dec(CurrentRecNo);
858	858		end;
859	859		end;
860	860		end;
861	861		```
862	862
863	863		### 使用資料感知控制元件
864	864
865	865		## 相關連結
866	866
867	867		- [[Databases\|在 Lazarus 下利用 DB-unit 建立資料庫應用程式]]\
868	868		- [[MySQLDatabases\|使用 MySQL 建立資料庫應用程式]]\
869	869		- [[Zeos tutorial\|使用 Zeos 元件建立資料庫應用程式]]
870	870		- [Pascal 資料物件集](http://pdo.sourceforge.net) 是為一資料庫 API，可在 FPC 下與 Delphi 下配合 MySQL 原始函式庫版 4.1 與 5.0，Firebird SQL 1.5 與 2.0 使用。這是來自 PHP PDO 類別的啟發。
871	871
872	872		## 貢獻與變更
873	873
874	874		本頁是從 epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase) 轉換過來的。
875	875
876	876		---
877	877		From the Free Pascal wiki, page "Lazarus Database Tutorial/zh TW", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history