示範滾動刷新

RAD Studio 10.1 Berlin - Delphi ListView 滾動刷新功能

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

測試手機：LG Nexus 5X
手機環境：Android 6.0.1
開發環境：RAD Studio 10.1 Berlin Version 24.0.22858.6822
作業系統：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
Google+：
https://plus.google.com/114820935539769287269/posts RAD Studio 10.1 Berlin - Delphi ListView scroll refresh function

Developers use RAD Studio 10.1 Berlin ListView scroll refresh automatically add the information below.
Demonstration dynamically selected from SQLite database information to ListView way data was significant, and scroll to the very end, the automatic refresh add content material underneath.

Tested Phones: LG Nexus 5X
Environment phone: Android 6.0.1
Development Environment: RAD Studio 10.1 Berlin Version 24.0.22858.6822
Operating System: Windows 10 Professional Edition (64-bit)

SQLite database:

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
Blog:
http://nolanliao1965.pixnet.net/blog
http://nolanliao1965.blogspot.tw/
Facebook:
https://www.facebook.com/NolanLiao1965
Google+:
https://plus.google.com/114820935539769287269/posts