mumps-demo/06-databases/basic-sql-crud/Main.m

77 lines
1.5 KiB
Mathematica

zlink "routines/Database"
zlink "routines/User"
; create users
s ok=$$set^User(1,"alice~password~alice-jones@no-reply.com~Alice Jones")
i ok=1 d
. w "User created:",!
. zwrite ^users(1)
e d
. w "Whoops! The user could not be created.",!
s ok=$$set^User(2,"bob~password~bob-smith@no-reply.com~Bob Smith")
i ok=1 d
. w !,"User created:",!
. zwrite ^users(2)
e d
. w !,"Whoops! The user could not be created.",!
; fetch a user
s id=1
s ok=$$fetch^User(id,.data)
i ok=1 d
. w !,"User fetched (",id,"):",!
. zwrite data
e d
. w !,"Whoops! The user could not be fetched.",!
; update a user
s id=1
s ok=$$set^User(id,"amelia~password~amelia-roberts@no-reply.com~Amelia Roberts")
i ok=1 d
. w !,"User updated (",id,"):",!
. zwrite ^users(1)
e d
. w !,"Whoops! The user could not be updated.",!
; fetch a user
s id=1
s ok=$$fetch^User(id,.data)
i ok=1 d
. w !,"User fetched (",id,"):",!
. zwrite data
e d
. w !,"Whoops! The user could not be fetched.",!
; delete a user
s id=2
s ok=$$remove^User(id)
i ok=1 d
. w !,"User deleted (",id,")",!
e d
. w !,"Whoops! The user could not be deleted.",!
; fetch a user
s id=2
s ok=$$fetch^User(id,.data)
i ok=1 d
. w !,"User fetched (",id,"):",!
. zwrite data
e d
. w !,"Whoops! The user could not be fetched.",!
; drop database
s ok=$$drop^Database()
i ok=1 d
. w !,"Database successfully dropped!",!
e d
. w !,"Whoops! The database could not be dropped.",!