blob: f9d67ed830ae645f342b16ad2b3e23df41952512 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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)
|
