在设计数据窗口时，在所有列的Background.Color属性中编写如下表达式：

if ( IsRowNew(), 1090519039, Long(Describe("Datawindow.Color")))

这样可以让用户知道这些行的数据为原始记录，不准修改与删除。然后在每列的protect属性中编写如下表达式：

if ( isRowNew(), 0, 1)

这样用户就无法修改原始记录了。为了让数据窗口在查询模式下用户可以输入数据，可以将上面表达式相应该为：

Background.Color：if ( Describe("Datawindow.QueryMode") = "yes" or isRowNew(), 1090519039, Long(Describe("Datawindow.Color"))) 与 Protect： if ( Describe("Datawindow.QueryMode") = "yes" or isRowNew(), 0, 1)