view tests/crud1.ur @ 338:e976b187d73a

SQL sequences
author Adam Chlipala <adamc@hcoop.net>
date Sun, 14 Sep 2008 11:02:18 -0400
parents 34847732cefc
children 075b36dbb1a4
line wrap: on
line source
table t1 : {Id : int, A : int, B : string, C : float, D : bool}

open Crud.Make(struct
        val tab = t1

        val title = "Crud1"

        val cols = {
                A = {Nam = "A", Show = txt _},
                B = {Nam = "B", Show = txt _},
                C = {Nam = "C", Show = txt _},
                D = {Nam = "D", Show = txt _}
        }
end)