view Examples/Nemerle/Main.n @ 4:f757da6161a1

!bug 100 + 2h fixed gregression
author cin
date Sun, 24 Aug 2014 17:57:42 +0400
parents f990fcb411a9
children
line wrap: on
line source

using System.Console;
using BLToolkit.Data;
using BLToolkit.Mapping;
using BLToolkit.Reflection;

namespace Test
{
  public enum Gender
  {
    [MapValue("F")] | Female
    [MapValue("M")] | Male
    [MapValue("U")] | Unknown
    [MapValue("O")] | Other
  }

  [MapField("PersonID", "ID")]
  public class Person
  {
    public mutable PersonID    : int;
    public mutable FirstName   : string;
    public mutable LastName    : string;
    public mutable MiddleName  : string;
    public mutable Gender      : Gender;
  }

  module Program
  {
    Main() : void
    {
      def p = Person();
      p.FirstName = "John";
      p.LastName  = "Pupkin";

      using (db = DbManager())
      {
        def p = db
          .SetSpCommand("Person_SelectByName", db.CreateParameters(p))
          .ExecuteObject() : Person;

        TypeAccessor.WriteConsole(p);
      }

        WriteLine("Press enter to continue...");
        _ = ReadLine();
    }
  }
}