在 powerbuilder 中實現上一條和下一條功能，可以輕松瀏覽數據庫中的記錄。在窗口中設置兩個按鈕，分別為“上一條”和“下一條”。連接到數據庫后，在“上一條”按鈕的事件腳本中使用 sqlca1.setpos(sqlca1.cursorpos – 1)將記錄指針移動到上一條記錄；在“下一條”按鈕的事件腳本中使用 sqlca1.setpos(sqlca1.cursorpos + 1)將記錄指針移動到下一條記錄。啟用 datawindow 的導航功能，必要時禁用按鈕并考慮使用菜單項提供便利。

如何在 PB 中編寫上一條和下一條

在 PowerBuilder 中編寫上一條和下一條功能可以輕松地在數據庫中導航記錄。以下是如何實現：

上一條記錄

1. 創建導航按鈕：在窗口中放置兩個命令按鈕，并分別為其設置 Caption 為 “上一條” 和 “下一條”。
2. 連接到數據庫：使用 DataWindow 或 SQLCA 組件連接到數據庫并加載數據。
3. 編寫事件腳本：雙擊 “上一條” 按鈕，然后在 Event: clicked 事件中輸入以下代碼：

DataWindow1.SetTransObject(SQLCA1) SQLCA1.SetPos(SQLCA1.CursorPos - 1)

下一條記錄

1. 雙擊 “下一條” 按鈕，然后在 Event: clicked 事件中輸入以下代碼：

DataWindow1.SetTransObject(SQLCA1) SQLCA1.SetPos(SQLCA1.CursorPos + 1)

其他注意事項

• 確保已在 DataWindow 中啟用導航功能（例如，設置 Scroll 屬性為 True）。
• 如果當前記錄是第一條或最后一條，則相應按鈕應禁用。
• 可以使用事件腳本或外部函數來控制按鈕的啟用/禁用狀態。
• 還可以在 PowerBuilder 的菜單設計器中創建導航菜單項，從而提供更便捷的導航方式。