Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- inUser := 's1'.
- inPass := 'tet'.
- login := Login new database: PostgreSQLPlatform new;
- username: 'postgres';
- password: 'sticky';
- connectString: '127.0.0.1_CS2340'.
- accessor := DatabaseAccessor forLogin: login.
- accessor login.
- session := GlorpSession new.
- session system: (TablesDescriptor forPlatform: login database).
- session accessor: accessor.
- foundStudent := session readOneOf: Student where: [:st | st username = inUser AND: st pass = inPass].
- accessor logout.
Add Comment
Please, Sign In to add comment