示範滾動刷新 2.0.3

Delphi 10.2 Tokyo - Delphi ListView 滾動刷新功能

使用 Delphi 10.2 Tokyo 開發 ListView 滾動刷新自動添加下方資料。
示範從 SQLite 資料庫動態選取資料，以 ListView 方式呈顯資料，並在滾動至最末端時，自動刷新添加下方資料內容。

測試手機：LG Nexus 5X
手機環境：Android 6.0.1
開發環境：RAD Studio 10.2.1 Tokyo Version 25.0.27659.1188
作業系統：Windows 10 專業版 (64 位元)

SQLite 資料庫：

CREATE TABLE [Categories] (
[CategoryID] VARCHAR(30) NOT NULL,
[CategoryName] VARCHAR(30) NOT NULL,
CONSTRAINT [Categories_Index] PRIMARY KEY ([CategoryID]));

CREATE TABLE [Products] (
[ProductID] VARCHAR(30) NOT NULL,
[ProductName] VARCHAR(30) NOT NULL,
[UnitPrice] INTEGER NOT NULL,
[Photo] BLOB NOT NULL,
[Description] VARCHAR(30),
CONSTRAINT [Products_Index] PRIMARY KEY ([ProductID]));

CREATE TABLE [MenuList] (
[CategoryID] VARCHAR(30) NOT NULL,
[ProductID] VARCHAR(30) NOT NULL,
CONSTRAINT [Categories_Index] PRIMARY KEY ([CategoryID], [ProductID]));

SELECT
A.CategoryID, A.ProductID, B.CategoryName,
C.ProductName, C.UnitPrice, C.Photo, C.Description
FROM MenuList A, Categories B, Products C
WHERE
(A.CategoryID = B.CategoryID) AND
(A.ProductID = C.ProductID)
ORDER BY A.CategoryID, A.ProductID

YouTube：
https://www.youtube.com/channel/UCdqhXsMD1Vyvp2769FPKCog
部落格：
http://nolanliao1965.pixnet.net/blog
http://nolanliao1965.blogspot.tw/
臉書：
https://www.facebook.com/NolanLiao1965
https://www.facebook.com/groups/1903734576514424/
Google+：
https://plus.google.com/114820935539769287269/posts
https://plus.google.com/u/0/communities/114911314106887760525
SlideShare：
http://www.slideshare.net/NolanLiao1965/