(NET) NET (2015)

FinancialBroker - MDI application with EF code first database.

1.Database.


In this page I describe start of one my interesting project. This project is huge, and this is only a start. First point is database. This is my first project I try to use EF Code First technology with deploy and migration to MS SQL server.

I try to describe CRUD pattern around one entity of this project - Person.



This is main class of definition Person.


   1:  Imports System.ComponentModel.DataAnnotations
   2:   
   3:  Public Class Person
   4:   
   5:      Public Sub New()
   6:          Permission = New HashSet(Of User)
   7:          Phones = New HashSet(Of Phone)
   8:          Type = New HashSet(Of ContactType)
   9:          Mails = New HashSet(Of eMail)
  10:          Sites = New HashSet(Of WebSite)
  11:      End Sub
  12:   
  13:      <Key()>
  14:      Public Property I As Integer
  15:      Public Property PersonID As Guid
  16:   
  17:      Public Overridable Property Permission As ICollection(Of User)
  18:   
  19:      Public Property CrDate As DateTime
  20:   
  21:      '<Required(AllowEmptyStrings:=False)>
  22:      Public Overridable Property Type As ICollection(Of ContactType)
  23:   
  24:      <Required(AllowEmptyStrings:=False)>
  25:      Public Property ToStatusType As StatusType
  26:   
  27:      <MaxLength(50)>
  28:      <Required(AllowEmptyStrings:=False)>
  29:      Public Property NameFirst As String
  30:   
  31:      <MaxLength(50)>
  32:      <Required(AllowEmptyStrings:=False)>
  33:      Public Property NameMiddle As String
  34:   
  35:      <MaxLength(50)>
  36:      <Required(AllowEmptyStrings:=False)>
  37:      Public Property NameLast As String
  38:   
  39:      Public Property Title As String
  40:      Public Property Company As String
  41:   
  42:      Public Overridable Property Phones As ICollection(Of Phone)
  43:      Public Overridable Property Mails As ICollection(Of eMail)
  44:      Public Overridable Property Sites As ICollection(Of WebSite)
  45:   
  46:      Public Property AssignedTo As String
  47:   
  48:      Public Property SourceCompany As String
  49:      Public Property SourceContact As String
  50:   
  51:      Public Property ToCampaign As Campaign
  52:   
  53:      <MaxLength(1000)>
  54:      Public Property AdditionalInfo As String
  55:   
  56:  End Class

Person has relation M:1 to Campaign and StatusType.


   1:  Imports System.ComponentModel.DataAnnotations
   2:  Public Class Campaign
   3:   
   4:      Public Sub New()
   5:   
   6:      End Sub
   7:   
   8:      <Key()>
   9:      Public Property I As Integer
  10:      <MaxLength(50)>
  11:      Public Property Name As String
  12:   
  13:      Public Overridable Property Persons As ICollection(Of Person) = New HashSet(Of Person)
  14:   
  15:  End Class

   1:  Imports System.ComponentModel.DataAnnotations
   2:  Imports System.ComponentModel.DataAnnotations.Schema
   3:   
   4:  Public Enum StatusTypeEnum
   5:      Lead = 1
   6:      Assigned = 2
   7:      Active = 3
   8:      Declined = 4
   9:  End Enum
  10:   
  11:  Public Class StatusType
  12:   
  13:      Public Sub New()
  14:   
  15:      End Sub
  16:   
  17:      Public Sub New(ByVal [Enum] As StatusTypeEnum)
  18:          Id = CInt([Enum])
  19:          Name = [Enum].ToString()
  20:      End Sub
  21:   
  22:      <Key, DatabaseGenerated(DatabaseGeneratedOption.None)>
  23:      Public Property Id As Integer
  24:   
  25:      <Required, MaxLength(100)>
  26:      Public Property Name As String
  27:   
  28:      <MaxLength(100)>
  29:      Public Property Description As String
  30:   
  31:  End Class

StatusType is not simple. It has interesting opportunities - it based on ENUM and ENUM type is sort out during database initialization (SEED) and StatusType catalog is fills by data.

This is a code of SEED method with enumeration ENUM definition.


   1:  Imports System
   2:  Imports System.Data.Entity
   3:  Imports System.Data.Entity.Migrations
   4:  Imports System.Linq
   5:   
   6:  Namespace Migrations
   7:   
   8:      Friend NotInheritable Class Configuration
   9:          Inherits DbMigrationsConfiguration(Of FbDbContext)
  10:   
  11:          Public Sub New()
  12:              AutomaticMigrationsEnabled = False
  13:          End Sub
  14:   
  15:          Protected Overrides Sub Seed(context As FbDbContext)
  16:   
  17:              For Each One As StatusTypeEnum In System.Enum.GetValues(GetType(StatusTypeEnum))
  18:                  context.StatusTypes.AddOrUpdate(New StatusType(One))
  19:              Next
  20:              For Each One As ContactTypeEnum In System.Enum.GetValues(GetType(ContactTypeEnum))
  21:                  context.ContactTypes.AddOrUpdate(New ContactType(One))
  22:              Next
  23:              For Each One As eMailTypeEnum In System.Enum.GetValues(GetType(eMailTypeEnum))
  24:                  context.eMailTypes.AddOrUpdate(New eMailType(One))
  25:              Next
  26:              For Each One As PhoneTypeEnum In System.Enum.GetValues(GetType(PhoneTypeEnum))
  27:                  context.PhoneTypes.AddOrUpdate(New PhoneType(One))
  28:              Next
  29:              context.Users.Add(New User With {.UserName = "all", .UserID = Guid.Parse("00000000-0000-0000-0000-000000000001")})
  30:              context.SaveChanges()
  31:          End Sub
  32:   
  33:   
  34:      End Class
  35:   
  36:  End Namespace

Also this data structure has five M:M relation to another type - Permission, Type, Phones, Mails, Sites.


   1:  Imports System.ComponentModel.DataAnnotations
   2:  Public Class User
   3:   
   4:      Public Sub New()
   5:          ToPerson = New HashSet(Of Person)
   6:      End Sub
   7:   
   8:      <Key()>
   9:      Public Property I As Integer
  10:   
  11:      Public Property UserID As Guid
  12:   
  13:      <MaxLength(50)>
  14:      Public Property UserName As String
  15:   
  16:      Public Overridable Property ToPerson As ICollection(Of Person)
  17:   
  18:  End Class

   1:  Imports System.ComponentModel.DataAnnotations
   2:  Imports System.ComponentModel.DataAnnotations.Schema
   3:   
   4:  Public Enum ContactTypeEnum
   5:      Funder = 1
   6:      Broker = 2
   7:      Merchant = 3
   8:      Collector = 4
   9:      CreditCardProcessor = 5
  10:      Vendor = 6
  11:      Investor = 7
  12:      General = 8
  13:      Other = 9
  14:  End Enum
  15:   
  16:   
  17:  Public Class ContactType
  18:   
  19:      Public Sub New()
  20:          ToPerson = New HashSet(Of Person)
  21:      End Sub
  22:   
  23:      Public Sub New(ByVal [Enum] As ContactTypeEnum)
  24:          Id = CInt([Enum])
  25:          Name = [Enum].ToString()
  26:          ToPerson = New HashSet(Of Person)
  27:      End Sub
  28:   
  29:      <Key, DatabaseGenerated(DatabaseGeneratedOption.None)>
  30:      Public Property Id As Integer
  31:   
  32:      <Required, MaxLength(100)>
  33:      Public Property Name As String
  34:   
  35:      <MaxLength(100)>
  36:      Public Property Description As String
  37:   
  38:      Public Overridable Property ToPerson As ICollection(Of Person)
  39:   
  40:  End Class

   1:  Imports System.ComponentModel.DataAnnotations
   2:  Public Class Phone
   3:   
   4:      Public Sub New()
   5:          ToPerson = New HashSet(Of Person)
   6:      End Sub
   7:   
   8:      <Key()>
   9:      Public Property I As Integer
  10:   
  11:      Public Property Type As PhoneType
  12:   
  13:      <MaxLength(50)>
  14:      Public Property Number As String
  15:   
  16:      Public Overridable Property ToPerson As ICollection(Of Person)
  17:   
  18:  End Class

   1:  Imports System.ComponentModel.DataAnnotations
   2:   
   3:  Public Class eMail
   4:   
   5:      Public Sub New()
   6:          ToPerson = New HashSet(Of Person)
   7:      End Sub
   8:   
   9:      <Key()>
  10:      Public Property I As Integer
  11:   
  12:      Public Property Type As eMailType
  13:   
  14:      <MaxLength(50)>
  15:      Public Property Mail As String
  16:   
  17:      Public Overridable Property ToPerson As ICollection(Of Person)
  18:   
  19:  End Class

   1:  Imports System.ComponentModel.DataAnnotations
   2:  Public Class WebSite
   3:   
   4:      Public Sub New()
   5:          ToPerson = New HashSet(Of Person)
   6:      End Sub
   7:   
   8:      <Key()>
   9:      Public Property I As Integer
  10:   
  11:      <MaxLength(50)>
  12:      Public Property URL As String
  13:   
  14:      Public Overridable Property ToPerson As ICollection(Of Person)
  15:   
  16:  End Class

And Mail and Phones has own catalogue types - eMailTypeEnum and PhoneTypeEnum with relation M:1.


   1:  Imports System.ComponentModel.DataAnnotations
   2:  Imports System.ComponentModel.DataAnnotations.Schema
   3:   
   4:  Public Enum eMailTypeEnum
   5:      Business = 1
   6:      Privates = 2
   7:  End Enum
   8:   
   9:  Public Class eMailType
  10:   
  11:      Public Sub New()
  12:   
  13:      End Sub
  14:   
  15:      Public Sub New(ByVal [Enum] As eMailTypeEnum)
  16:          Id = CInt([Enum])
  17:          Name = [Enum].ToString()
  18:      End Sub
  19:   
  20:      <Key, DatabaseGenerated(DatabaseGeneratedOption.None)>
  21:      Public Property Id As Integer
  22:   
  23:      <Required, MaxLength(100)>
  24:      Public Property Name As String
  25:   
  26:      <MaxLength(100)>
  27:      Public Property Description As String
  28:   
  29:      Public Overridable Property eMails As ICollection(Of eMail) = New HashSet(Of eMail)
  30:   
  31:  End Class

   1:  Imports System.ComponentModel.DataAnnotations
   2:  Imports System.ComponentModel.DataAnnotations.Schema
   3:   
   4:  Public Enum PhoneTypeEnum
   5:      Mobile = 1
   6:      Home = 2
   7:      Work = 3
   8:      Fax = 4
   9:  End Enum
  10:   
  11:   
  12:  Public Class PhoneType
  13:   
  14:      Public Sub New()
  15:   
  16:      End Sub
  17:   
  18:      Public Sub New(ByVal [Enum] As PhoneTypeEnum)
  19:          Id = CInt([Enum])
  20:          Name = [Enum].ToString()
  21:      End Sub
  22:   
  23:      <Key, DatabaseGenerated(DatabaseGeneratedOption.None)>
  24:      Public Property Id As Integer
  25:   
  26:      <Required, MaxLength(100)>
  27:      Public Property Name As String
  28:   
  29:      <MaxLength(100)>
  30:      Public Property Description As String
  31:   
  32:  End Class

This is all around Person entity, except fluent API code, generated to deployment this class to DB.


   1:  Imports System
   2:  Imports System.Data.Entity.Migrations
   3:  Imports Microsoft.VisualBasic
   4:   
   5:  Namespace Migrations
   6:      Public Partial Class _1
   7:          Inherits DbMigration
   8:      
   9:          Public Overrides Sub Up()
  10:              CreateTable(
  11:                  "dbo.Campaigns",
  12:                  Function(c) New With
  13:                      {
  14:                          .I = c.Int(nullable := False, identity := True),
  15:                          .Name = c.String(maxLength := 50)
  16:                      }) _
  17:                  .PrimaryKey(Function(t) t.I)
  18:              
  19:              CreateTable(
  20:                  "dbo.People",
  21:                  Function(c) New With
  22:                      {
  23:                          .I = c.Int(nullable := False, identity := True),
  24:                          .PersonID = c.Guid(nullable := False),
  25:                          .CrDate = c.DateTime(nullable := False),
  26:                          .NameFirst = c.String(nullable := False, maxLength := 50),
  27:                          .NameMiddle = c.String(nullable := False, maxLength := 50),
  28:                          .NameLast = c.String(nullable := False, maxLength := 50),
  29:                          .Title = c.String(),
  30:                          .Company = c.String(),
  31:                          .AssignedTo = c.String(),
  32:                          .SourceCompany = c.String(),
  33:                          .SourceContact = c.String(),
  34:                          .AdditionalInfo = c.String(maxLength := 1000),
  35:                          .ToCampaign_I = c.Int(),
  36:                          .ToStatusType_Id = c.Int(nullable := False)
  37:                      }) _
  38:                  .PrimaryKey(Function(t) t.I) _
  39:                  .ForeignKey("dbo.Campaigns", Function(t) t.ToCampaign_I) _
  40:                  .ForeignKey("dbo.StatusTypes", Function(t) t.ToStatusType_Id, cascadeDelete := True) _
  41:                  .Index(Function(t) t.ToCampaign_I) _
  42:                  .Index(Function(t) t.ToStatusType_Id)
  43:              
  44:              CreateTable(
  45:                  "dbo.eMails",
  46:                  Function(c) New With
  47:                      {
  48:                          .I = c.Int(nullable := False, identity := True),
  49:                          .Mail = c.String(maxLength := 50),
  50:                          .Type_Id = c.Int()
  51:                      }) _
  52:                  .PrimaryKey(Function(t) t.I) _
  53:                  .ForeignKey("dbo.eMailTypes", Function(t) t.Type_Id) _
  54:                  .Index(Function(t) t.Type_Id)
  55:              
  56:              CreateTable(
  57:                  "dbo.eMailTypes",
  58:                  Function(c) New With
  59:                      {
  60:                          .Id = c.Int(nullable := False),
  61:                          .Name = c.String(nullable := False, maxLength := 100),
  62:                          .Description = c.String(maxLength := 100)
  63:                      }) _
  64:                  .PrimaryKey(Function(t) t.Id)
  65:              
  66:              CreateTable(
  67:                  "dbo.Users",
  68:                  Function(c) New With
  69:                      {
  70:                          .I = c.Int(nullable := False, identity := True),
  71:                          .UserID = c.Guid(nullable := False),
  72:                          .UserName = c.String(maxLength := 50)
  73:                      }) _
  74:                  .PrimaryKey(Function(t) t.I)
  75:              
  76:              CreateTable(
  77:                  "dbo.Phones",
  78:                  Function(c) New With
  79:                      {
  80:                          .I = c.Int(nullable := False, identity := True),
  81:                          .Number = c.String(maxLength := 50),
  82:                          .Type_Id = c.Int()
  83:                      }) _
  84:                  .PrimaryKey(Function(t) t.I) _
  85:                  .ForeignKey("dbo.PhoneTypes", Function(t) t.Type_Id) _
  86:                  .Index(Function(t) t.Type_Id)
  87:              
  88:              CreateTable(
  89:                  "dbo.PhoneTypes",
  90:                  Function(c) New With
  91:                      {
  92:                          .Id = c.Int(nullable := False),
  93:                          .Name = c.String(nullable := False, maxLength := 100),
  94:                          .Description = c.String(maxLength := 100)
  95:                      }) _
  96:                  .PrimaryKey(Function(t) t.Id)
  97:              
  98:              CreateTable(
  99:                  "dbo.WebSites",
 100:                  Function(c) New With
 101:                      {
 102:                          .I = c.Int(nullable := False, identity := True),
 103:                          .URL = c.String(maxLength := 50)
 104:                      }) _
 105:                  .PrimaryKey(Function(t) t.I)
 106:              
 107:              CreateTable(
 108:                  "dbo.StatusTypes",
 109:                  Function(c) New With
 110:                      {
 111:                          .Id = c.Int(nullable := False),
 112:                          .Name = c.String(nullable := False, maxLength := 100),
 113:                          .Description = c.String(maxLength := 100)
 114:                      }) _
 115:                  .PrimaryKey(Function(t) t.Id)
 116:              
 117:              CreateTable(
 118:                  "dbo.ContactTypes",
 119:                  Function(c) New With
 120:                      {
 121:                          .Id = c.Int(nullable := False),
 122:                          .Name = c.String(nullable := False, maxLength := 100),
 123:                          .Description = c.String(maxLength := 100)
 124:                      }) _
 125:                  .PrimaryKey(Function(t) t.Id)
 126:              
 127:              CreateTable(
 128:                  "dbo.eMailPersons",
 129:                  Function(c) New With
 130:                      {
 131:                          .eMail_I = c.Int(nullable := False),
 132:                          .Person_I = c.Int(nullable := False)
 133:                      }) _
 134:                  .PrimaryKey(Function(t) New With { t.eMail_I, t.Person_I }) _
 135:                  .ForeignKey("dbo.eMails", Function(t) t.eMail_I, cascadeDelete := True) _
 136:                  .ForeignKey("dbo.People", Function(t) t.Person_I, cascadeDelete := True) _
 137:                  .Index(Function(t) t.eMail_I) _
 138:                  .Index(Function(t) t.Person_I)
 139:              
 140:              CreateTable(
 141:                  "dbo.UserPersons",
 142:                  Function(c) New With
 143:                      {
 144:                          .User_I = c.Int(nullable := False),
 145:                          .Person_I = c.Int(nullable := False)
 146:                      }) _
 147:                  .PrimaryKey(Function(t) New With { t.User_I, t.Person_I }) _
 148:                  .ForeignKey("dbo.Users", Function(t) t.User_I, cascadeDelete := True) _
 149:                  .ForeignKey("dbo.People", Function(t) t.Person_I, cascadeDelete := True) _
 150:                  .Index(Function(t) t.User_I) _
 151:                  .Index(Function(t) t.Person_I)
 152:              
 153:              CreateTable(
 154:                  "dbo.PhonePersons",
 155:                  Function(c) New With
 156:                      {
 157:                          .Phone_I = c.Int(nullable := False),
 158:                          .Person_I = c.Int(nullable := False)
 159:                      }) _
 160:                  .PrimaryKey(Function(t) New With { t.Phone_I, t.Person_I }) _
 161:                  .ForeignKey("dbo.Phones", Function(t) t.Phone_I, cascadeDelete := True) _
 162:                  .ForeignKey("dbo.People", Function(t) t.Person_I, cascadeDelete := True) _
 163:                  .Index(Function(t) t.Phone_I) _
 164:                  .Index(Function(t) t.Person_I)
 165:              
 166:              CreateTable(
 167:                  "dbo.WebSitePersons",
 168:                  Function(c) New With
 169:                      {
 170:                          .WebSite_I = c.Int(nullable := False),
 171:                          .Person_I = c.Int(nullable := False)
 172:                      }) _
 173:                  .PrimaryKey(Function(t) New With { t.WebSite_I, t.Person_I }) _
 174:                  .ForeignKey("dbo.WebSites", Function(t) t.WebSite_I, cascadeDelete := True) _
 175:                  .ForeignKey("dbo.People", Function(t) t.Person_I, cascadeDelete := True) _
 176:                  .Index(Function(t) t.WebSite_I) _
 177:                  .Index(Function(t) t.Person_I)
 178:              
 179:              CreateTable(
 180:                  "dbo.ContactTypePersons",
 181:                  Function(c) New With
 182:                      {
 183:                          .ContactType_Id = c.Int(nullable := False),
 184:                          .Person_I = c.Int(nullable := False)
 185:                      }) _
 186:                  .PrimaryKey(Function(t) New With { t.ContactType_Id, t.Person_I }) _
 187:                  .ForeignKey("dbo.ContactTypes", Function(t) t.ContactType_Id, cascadeDelete := True) _
 188:                  .ForeignKey("dbo.People", Function(t) t.Person_I, cascadeDelete := True) _
 189:                  .Index(Function(t) t.ContactType_Id) _
 190:                  .Index(Function(t) t.Person_I)
 191:              
 192:          End Sub
 193:          
 194:          Public Overrides Sub Down()
 195:              DropForeignKey("dbo.ContactTypePersons", "Person_I", "dbo.People")
 196:              DropForeignKey("dbo.ContactTypePersons", "ContactType_Id", "dbo.ContactTypes")
 197:              DropForeignKey("dbo.People", "ToStatusType_Id", "dbo.StatusTypes")
 198:              DropForeignKey("dbo.People", "ToCampaign_I", "dbo.Campaigns")
 199:              DropForeignKey("dbo.WebSitePersons", "Person_I", "dbo.People")
 200:              DropForeignKey("dbo.WebSitePersons", "WebSite_I", "dbo.WebSites")
 201:              DropForeignKey("dbo.Phones", "Type_Id", "dbo.PhoneTypes")
 202:              DropForeignKey("dbo.PhonePersons", "Person_I", "dbo.People")
 203:              DropForeignKey("dbo.PhonePersons", "Phone_I", "dbo.Phones")
 204:              DropForeignKey("dbo.UserPersons", "Person_I", "dbo.People")
 205:              DropForeignKey("dbo.UserPersons", "User_I", "dbo.Users")
 206:              DropForeignKey("dbo.eMails", "Type_Id", "dbo.eMailTypes")
 207:              DropForeignKey("dbo.eMailPersons", "Person_I", "dbo.People")
 208:              DropForeignKey("dbo.eMailPersons", "eMail_I", "dbo.eMails")
 209:              DropIndex("dbo.ContactTypePersons", New String() { "Person_I" })
 210:              DropIndex("dbo.ContactTypePersons", New String() { "ContactType_Id" })
 211:              DropIndex("dbo.WebSitePersons", New String() { "Person_I" })
 212:              DropIndex("dbo.WebSitePersons", New String() { "WebSite_I" })
 213:              DropIndex("dbo.PhonePersons", New String() { "Person_I" })
 214:              DropIndex("dbo.PhonePersons", New String() { "Phone_I" })
 215:              DropIndex("dbo.UserPersons", New String() { "Person_I" })
 216:              DropIndex("dbo.UserPersons", New String() { "User_I" })
 217:              DropIndex("dbo.eMailPersons", New String() { "Person_I" })
 218:              DropIndex("dbo.eMailPersons", New String() { "eMail_I" })
 219:              DropIndex("dbo.Phones", New String() { "Type_Id" })
 220:              DropIndex("dbo.eMails", New String() { "Type_Id" })
 221:              DropIndex("dbo.People", New String() { "ToStatusType_Id" })
 222:              DropIndex("dbo.People", New String() { "ToCampaign_I" })
 223:              DropTable("dbo.ContactTypePersons")
 224:              DropTable("dbo.WebSitePersons")
 225:              DropTable("dbo.PhonePersons")
 226:              DropTable("dbo.UserPersons")
 227:              DropTable("dbo.eMailPersons")
 228:              DropTable("dbo.ContactTypes")
 229:              DropTable("dbo.StatusTypes")
 230:              DropTable("dbo.WebSites")
 231:              DropTable("dbo.PhoneTypes")
 232:              DropTable("dbo.Phones")
 233:              DropTable("dbo.Users")
 234:              DropTable("dbo.eMailTypes")
 235:              DropTable("dbo.eMails")
 236:              DropTable("dbo.People")
 237:              DropTable("dbo.Campaigns")
 238:          End Sub
 239:      End Class
 240:  End Namespace

2. MDI Form control.

This is conception of MDI-form MDI.avi. This is main form code fragment.


   1:  Imports System.Windows.Forms
   2:   
   3:  Partial Public Class MainMDI
   4:   
   5:      Public AddApplicationForm1 As AddApplicationForm
   6:      Public AddCompanyForm1 As AddCompanyForm
   7:      Public AddDealToolForm1 As AddDealToolForm
   8:      Public AddLeadForm1 As AddLeadForm
   9:      Public AddPersonForm1 As AddPersonForm
  ...   
  49:      Public ReportHistoryForm1 As ReportHistoryForm
  50:      Public ReportsDefaultForm1 As ReportsDefaultForm
  51:      Public ReportsForm1 As ReportsForm
  52:      Public ReportsPerformanceForm1 As ReportsPerformanceForm
  53:      Public ReportsPipelineForm1 As ReportsPipelineForm
  54:      Public ReportsPortfolioForm1 As ReportsPortfolioForm
  55:      Public ReportsRenewalForm1 As ReportsRenewalForm
  56:      Public ReportsRepaidForm1 As ReportsRepaidForm
  57:      Public ReportsRepaymentForm1 As ReportsRepaymentForm
  58:      Public ReportsSyndicationForm1 As ReportsSyndicationForm
  59:   
  60:      Public WithEvents Timer1 As New Timer
  61:      Public LoginForm1 As New LoginForm
  62:   
  63:      Private Sub MainMDI_Load(sender As Object, e As EventArgs) Handles Me.Load
  64:          Text &= " (" & My.Application.Info.Version.ToString & ")"
  65:          Me.WindowState = FormWindowState.Maximized
  66:          Timer1.Interval = 100
  67:          Timer1.Start()
  68:      End Sub
  69:   
  70:      Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  71:          Timer1.Stop()
  72:          LoginForm1.WindowState = FormWindowState.Normal
  73:          LoginForm1.TopMost = True
  74:          LoginForm1.StartPosition = FormStartPosition.CenterScreen
  75:          LoginForm1.ShowDialog()
  76:      End Sub
  77:   
  78:  #Region "Toolbars"
  79:   
  80:      Private Sub AddCompanyStripButton_Click(sender As Object, e As EventArgs) Handles AddCompanyStripButton.Click
  81:          AddCompanyForm_Open()
  82:      End Sub
  83:   
  84:      Private Sub AddPersonToolStripButton_Click(sender As Object, e As EventArgs) Handles AddPersonToolStripButton.Click
  85:          AddPersonForm_Open()
  86:      End Sub
  87:   
  88:      Private Sub AddApplicationToolStripButton_Click(sender As Object, e As EventArgs) Handles AddApplicationToolStripButton.Click
  89:          AddApplicationForm_Open()
  90:      End Sub
  91:   
  92:      Private Sub AddDealToolStripButton_Click(sender As Object, e As EventArgs) Handles AddDealToolStripButton.Click
  93:          AddDealToolForm_Open()
  94:      End Sub
  95:   
  96:  #End Region
  97:   
  98:  #Region "Home"
  99:   
 100:      Private Sub HomeTaskToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HomeTaskToolStripMenuItem.Click
 101:          HomeTaskForm_Open()
 102:      End Sub
 103:   
 104:      Private Sub HomeMyDealsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HomeMyDealsToolStripMenuItem.Click
 105:          HomeMyDealsForm_Open()
 106:      End Sub
 107:   
 108:      Private Sub HomeNotificationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HomeNotificationToolStripMenuItem.Click
 109:          HomeNotificationForm_Open()
 110:      End Sub
 111:   
 112:   
 113:  #End Region
  ...   
 346:   
 347:  #Region "Help"
 348:   
 349:      Private Sub HelpContentsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpContentsToolStripMenuItem.Click
 350:          HelpContentsForm_Open()
 351:      End Sub
 352:   
 353:      Private Sub HelpIndexToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpIndexToolStripMenuItem.Click
 354:          HelpIndexForm_Open()
 355:      End Sub
 356:   
 357:      Private Sub HelpSearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpSearchToolStripMenuItem.Click
 358:          HelpSearchForm_Open()
 359:      End Sub
 360:   
 361:      Private Sub HelpAboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpAboutToolStripMenuItem.Click
 362:          HelpAboutForm_Open()
 363:      End Sub
 364:   
 365:   
 366:  #End Region
 367:   
 368:  End Class

Some function I created my own macroprocessor and placed it to second file co continue main form definition file.


   1:  Partial Public Class MainMDI
   2:   
   3:      Public Sub AddApplicationForm_Open()
   4:          If Not (Me.MdiChildren.Any(Function(X) X Is AddApplicationForm1)) Then
   5:              AddApplicationForm1 = AddApplicationForm1.OpenAsMDI
   6:          Else
   7:              AddApplicationForm1.WindowState = FormWindowState.Normal
   8:          End If
   9:          AddApplicationForm1.BringToFront()
  10:      End Sub
  11:   
  12:   
  13:      Public Sub AddCompanyForm_Open()
  14:          If Not (Me.MdiChildren.Any(Function(X) X Is AddCompanyForm1)) Then
  15:              AddCompanyForm1 = AddCompanyForm1.OpenAsMDI
  16:          Else
  17:              AddCompanyForm1.WindowState = FormWindowState.Normal
  18:          End If
  19:          AddCompanyForm1.BringToFront()
  20:      End Sub
  21:   
  ...   
 531:   
 532:   
 533:      Public Sub ReportsSyndicationForm_Open()
 534:          If Not (Me.MdiChildren.Any(Function(X) X Is ReportsSyndicationForm1)) Then
 535:              ReportsSyndicationForm1 = ReportsSyndicationForm1.OpenAsMDI
 536:          Else
 537:              ReportsSyndicationForm1.WindowState = FormWindowState.Normal
 538:          End If
 539:          ReportsSyndicationForm1.BringToFront()
 540:      End Sub
 541:   
 542:   
 543:   
 544:  End Class

Third part of MDI-form control is polymorphism extension functions. It also automatically generated by my own macroprocessor.


   1:  Imports System.Runtime.CompilerServices
   2:   
   3:  Module MDIextension1
   4:   
   5:      <Extension>
   6:      Public Function OpenAsMDI(X As AddApplicationForm) As AddApplicationForm
   7:          OpenAsMDI = New AddApplicationForm
   8:          OpenAsMDI.MdiParent = MainMDI
   9:          OpenAsMDI.Show()
  10:          OpenAsMDI.BringToFront()
  11:      End Function
  12:   
  13:   
  14:      <Extension>
  15:      Public Function OpenAsMDI(X As AddCompanyForm) As AddCompanyForm
  16:          OpenAsMDI = New AddCompanyForm
  17:          OpenAsMDI.MdiParent = MainMDI
  18:          OpenAsMDI.Show()
  19:          OpenAsMDI.BringToFront()
  20:      End Function
  21:   
  ...   
 481:   
 482:      <Extension>
 483:      Public Function OpenAsMDI(X As ReportsSyndicationForm) As ReportsSyndicationForm
 484:          OpenAsMDI = New ReportsSyndicationForm
 485:          OpenAsMDI.MdiParent = MainMDI
 486:          OpenAsMDI.Show()
 487:          OpenAsMDI.BringToFront()
 488:      End Function
 489:   
 490:   
 491:   
 492:  End Module

3.CRUD form for Person entity.

This is Add form.



   1:  Imports Microsoft.VisualBasic
   2:   
   3:  Public Class AddPersonForm
   4:   
   5:      Dim db1 As New FbDbContext
   6:   
   7:      Private Sub AddPersonForm_Load(sender As Object, e As EventArgs) Handles Me.Load
   8:          Dim A = db1.Campaigns.ToList
   9:          CampaignsComboBox.DataSource = A
  10:          CampaignsComboBox.DisplayMember = "Name"
  11:          Dim S = db1.StatusTypes.ToList
  12:          StatusComboBox.DataSource = S
  13:          StatusComboBox.DisplayMember = "Name"
  14:          Dim P() As String = {"All", My.Settings.UserName1, My.Settings.UserName2}
  15:          PermissionListView.CheckBoxes = True
  16:          PermissionListView.View = View.Details
  17:          PermissionListView.Columns.Add("User", 120, HorizontalAlignment.Left)
  18:          P.ToList.ForEach(Sub(X) PermissionListView.Items.Add(X))
  19:          Dim T = db1.ContactTypes.ToList
  20:          TypeListView.CheckBoxes = True
  21:          TypeListView.View = View.Details
  22:          TypeListView.Columns.Add("User", 120, HorizontalAlignment.Left)
  23:          T.ForEach(Sub(X) TypeListView.Items.Add(X.Name))
  24:          For Each One As ListViewItem In PermissionListView.Items
  25:              If One.Text = "All" Then
  26:                  One.Checked = True
  27:                  Exit For
  28:              End If
  29:          Next
  30:      End Sub
  31:   
  32:      Dim X As Person
  33:      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  34:          X = New Person
  35:          Try
  36:              With X
  37:                  Dim ListContactType As New List(Of ContactType)
  38:                  For Each One As ListViewItem In TypeListView.Items
  39:                      If One.Checked Then
  40:                          ListContactType.Add(db1.ContactTypes.Where(Function(Q) Q.Name = One.Text).FirstOrDefault)
  41:                      End If
  42:                  Next
  43:   
  44:                  Dim ListPermission As New List(Of User)
  45:                  For Each One As ListViewItem In PermissionListView.Items
  46:                      If One.Checked Then
  47:                          ListPermission.Add(db1.Users.Where(Function(Q) Q.UserName = One.Text).FirstOrDefault)
  48:                      End If
  49:                  Next
  50:   
  51:                  If Not String.IsNullOrWhiteSpace(CampaignsComboBox.Text) Then
  52:                      Dim Camp = db1.Campaigns.Add(New Campaign())
  53:                      Camp.Name = CampaignsComboBox.Text
  54:                      .ToCampaign = Camp
  55:                  Else
  56:                      .ToCampaign = Nothing
  57:                  End If
  58:   
  59:   
  60:                  Dim ST As String() = SiteTextBox.Text.Split(vbCrLf)
  61:                  Dim ListWebSite As New List(Of WebSite)
  62:                  For Each One In ST
  63:                      If Not String.IsNullOrWhiteSpace(One) Then
  64:                          Dim uriResult As Uri
  65:                          Dim ValidURL As Boolean = Uri.TryCreate(One, UriKind.Absolute, uriResult) AndAlso (uriResult.Scheme = Uri.UriSchemeHttp Or uriResult.Scheme = Uri.UriSchemeHttps)
  66:                          If Not ValidURL Then
  67:                              MsgBox(One & vbCrLf & "is not valis URL")
  68:                              Exit Sub
  69:                          End If
  70:                          ListWebSite.Add(New WebSite With {.URL = One})
  71:                      End If
  72:                  Next
  73:   
  74:                  Dim PhoneType1 As PhoneType = db1.PhoneTypes.Where(Function(a) a.Id = PhoneTypeEnum.Home).FirstOrDefault
  75:                  Dim PT As String() = PhonesTextBox.Text.Split(vbCrLf)
  76:                  Dim ListPhone As New List(Of Phone)
  77:                  For Each One In PT
  78:                      If Not String.IsNullOrWhiteSpace(One) Then
  79:                          ListPhone.Add(New Phone With {.Number = One, .Type = PhoneType1})
  80:                      End If
  81:                  Next
  82:   
  83:                  Dim MailType1 As eMailType = db1.eMailTypes.Where(Function(a) a.Id = eMailTypeEnum.Business).FirstOrDefault
  84:                  Dim MT As String() = MailsTextBox.Text.Split(vbCrLf)
  85:                  Dim ListMail As New List(Of eMail)
  86:                  For Each One In MT
  87:                      If Not String.IsNullOrWhiteSpace(One) Then
  88:                          Try
  89:                              Dim M As New Net.Mail.MailAddress(One)
  90:                          Catch ex As FormatException
  91:                              MsgBox(One & vbCrLf & "is not valis eMail")
  92:                              Exit Sub
  93:                          End Try
  94:                          ListMail.Add(New eMail With {.Mail = One})
  95:                      End If
  96:                  Next
  97:   
  98:                  Dim TT = db1.StatusTypes.Where(Function(A) A.Name = StatusComboBox.Text).FirstOrDefault
  99:   
 100:                  .PersonID = Guid.NewGuid
 101:                  .CrDate = Now
 102:                  .Type = ListContactType
 103:                  .ToStatusType = TT
 104:                  .NameFirst = FirstNameTextBox.Text
 105:                  .NameMiddle = MiddleTextBox.Text
 106:                  .NameLast = LastNameTextBox.Text
 107:                  .Title = TitleTextBox.Text
 108:                  .Company = CompanyTextBox.Text
 109:                  .Phones = ListPhone
 110:                  .Mails = ListMail
 111:                  .Sites = ListWebSite
 112:                  .AssignedTo = AssignedToTextBox.Text
 113:                  .SourceCompany = SourceCompanyTextBox.Text
 114:                  .SourceContact = SourceContactTextBox.Text
 115:                  .AdditionalInfo = AdditionalInfoTextBox.Text
 116:                  .Permission = ListPermission
 117:              End With
 118:              db1.Persons.Add(X)
 119:              db1.SaveChanges()
 120:   
 121:              AddPersonStatusLabel.Text = "Person """ & FirstNameTextBox.Text & " " & MiddleTextBox.Text & " " & LastNameTextBox.Text & """ added, ID=" & Guid.NewGuid.ToString
 122:              ToolStrip1.Refresh()
 123:   
 124:              CampaignsComboBox.Text = ""
 125:              FirstNameTextBox.Text = ""
 126:              MiddleTextBox.Text = ""
 127:              LastNameTextBox.Text = ""
 128:              TitleTextBox.Text = ""
 129:              CompanyTextBox.Text = ""
 130:              AdditionalInfoTextBox.Text = ""
 131:              PhonesTextBox.Text = ""
 132:              MailsTextBox.Text = ""
 133:              SiteTextBox.Text = ""
 134:              AssignedToTextBox.Text = ""
 135:              SourceCompanyTextBox.Text = ""
 136:              SourceContactTextBox.Text = ""
 137:              For Each One As ListViewItem In TypeListView.Items
 138:                  One.Checked = False
 139:              Next
 140:              For Each One As ListViewItem In PermissionListView.Items
 141:                  If One.Text = "All" Then
 142:                      One.Checked = True
 143:                  Else
 144:                      One.Checked = False
 145:                  End If
 146:              Next
 147:   
 148:          Catch ex As Exception
 149:              MsgBox(ex.Message)
 150:              db1 = New FbDbContext
 151:          End Try
 152:      End Sub
 153:   
 154:      Private Sub PeoplesToolStripButton_Click(sender As Object, e As EventArgs) Handles PeoplesToolStripButton.Click
 155:          MainMDI.ContactsPeoplesForm_Open()
 156:      End Sub
 157:   
 158:      Private Sub SecurityInfoToolStripButton_Click(sender As Object, e As EventArgs) Handles SecurityInfoToolStripButton.Click
 159:          MainMDI.ContactsSecurityInfoForm_Open()
 160:      End Sub
 161:   
 162:      Private Sub CorrenspondenceToolStripButton_Click(sender As Object, e As EventArgs) Handles CorrenspondenceToolStripButton.Click
 163:          MainMDI.ContactsCorrespondenceForm_Open()
 164:      End Sub
 165:   
 166:      Private Sub QuestionsToolStripButton_Click(sender As Object, e As EventArgs) Handles QuestionsToolStripButton.Click
 167:          MainMDI.ContactsQuestionsForm_Open()
 168:      End Sub
 169:   
 170:      Private Sub PersonalDetailsToolStripButton_Click(sender As Object, e As EventArgs) Handles PersonalDetailsToolStripButton.Click
 171:          MainMDI.ContactsPersonalDetailsForm_Open()
 172:      End Sub
 173:  End Class

This is list form to read and delete.



   1:  Public Class ContactsPeoplesForm
   2:   
   3:      Dim db1 As FbDbContext
   4:      Dim Rows As List(Of Person)
   5:   
   6:      Public Enum nColumn
   7:          Status = 0
   8:          Type = 1
   9:          Name = 2
  10:          Phones = 3
  11:          Email = 4
  12:          Campaign = 5
  13:          Title = 6
  14:          Company = 7
  15:          AssignedTo = 8
  16:          Sites = 9
  17:          Edit = 10
  18:          Del = 11
  19:      End Enum
  20:   
  21:      Private Sub ContactsPeoplesForm_Load(sender As Object, e As EventArgs) Handles Me.Load
  22:          DataGridView1_RowFefresh()
  23:      End Sub
  24:   
  25:      Public Sub DataGridView1_RowFefresh()
  26:          db1 = New FbDbContext
  27:          'db1.Configuration.LazyLoadingEnabled = False
  28:          Rows = db1.Persons.Include("ToStatusType").Include("ToCampaign").ToList
  29:          DataGridView1.AutoGenerateColumns = False
  30:          DataGridView1.DataSource = Rows
  31:          DataGridView1.Refresh()
  32:      End Sub
  33:   
  34:      Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
  35:          Dim senderGrid = DirectCast(sender, DataGridView)
  36:          Dim CurCell As DataGridViewCell = senderGrid(e.ColumnIndex, e.RowIndex)
  37:          If e.ColumnIndex = nColumn.Status Then
  38:              If Rows(e.RowIndex).ToStatusType IsNot Nothing Then
  39:                  CurCell.Value = Rows(e.RowIndex).ToStatusType.Name
  40:              End If
  41:          ElseIf e.ColumnIndex = nColumn.Type Then
  42:              If Rows(e.RowIndex).Type IsNot Nothing Then
  43:                  Dim Str1 As String = ""
  44:                  For Each One As ContactType In Rows(e.RowIndex).Type
  45:                      Str1 &= One.Name & ","
  46:                  Next
  47:                  CurCell.Value = Str1.TrimEnd(New Char() {","})
  48:              End If
  49:          ElseIf e.ColumnIndex = nColumn.Name Then
  50:              CurCell.Value = Rows(e.RowIndex).NameFirst & " " & Rows(e.RowIndex).NameMiddle & " " & Rows(e.RowIndex).NameLast
  51:              CurCell.ToolTipText = Rows(e.RowIndex).AdditionalInfo
  52:          ElseIf e.ColumnIndex = nColumn.Phones Then
  53:              If Rows(e.RowIndex).Phones IsNot Nothing Then
  54:                  Dim Str1 As String = ""
  55:                  For Each One As Phone In Rows(e.RowIndex).Phones
  56:                      Str1 &= One.Number & ","
  57:                  Next
  58:                  CurCell.Value = Str1.TrimEnd(New Char() {","})
  59:              End If
  60:          ElseIf e.ColumnIndex = nColumn.Email Then
  61:              If Rows(e.RowIndex).Mails IsNot Nothing Then
  62:                  Dim Str1 As String = ""
  63:                  For Each One As eMail In Rows(e.RowIndex).Mails
  64:                      Str1 &= One.Mail & ","
  65:                  Next
  66:                  CurCell.Value = Str1.TrimEnd(New Char() {","})
  67:              End If
  68:          ElseIf e.ColumnIndex = nColumn.Campaign Then
  69:              If Rows(e.RowIndex).ToCampaign IsNot Nothing Then
  70:                  CurCell.Value = Rows(e.RowIndex).ToCampaign.Name
  71:              End If
  72:          ElseIf e.ColumnIndex = nColumn.Title Then
  73:          ElseIf e.ColumnIndex = nColumn.Company Then
  74:          ElseIf e.ColumnIndex = nColumn.AssignedTo Then
  75:          ElseIf e.ColumnIndex = nColumn.Sites Then
  76:              If Rows(e.RowIndex).Sites IsNot Nothing Then
  77:                  Dim Str1 As String = ""
  78:                  For Each One As WebSite In Rows(e.RowIndex).Sites
  79:                      Str1 &= One.URL & ","
  80:                  Next
  81:                  CurCell.Value = Str1.TrimEnd(New Char() {","})
  82:              End If
  83:          End If
  84:      End Sub
  85:   
  86:   
  87:      Private Sub AddPersonToolStripButton_Click(sender As Object, e As EventArgs) Handles AddPersonToolStripButton.Click
  88:          MainMDI.AddPersonForm_Open()
  89:      End Sub
  90:   
  91:      Private Sub SecurityInfoToolStripButton_Click(sender As Object, e As EventArgs) Handles SecurityInfoToolStripButton.Click
  92:          MainMDI.ContactsSecurityInfoForm_Open()
  93:      End Sub
  94:   
  95:      Private Sub CorrespondenceToolStripButton_Click(sender As Object, e As EventArgs) Handles CorrespondenceToolStripButton.Click
  96:          MainMDI.ContactsCorrespondenceForm_Open()
  97:      End Sub
  98:   
  99:      Private Sub QuestionsToolStripButton_Click(sender As Object, e As EventArgs) Handles QuestionsToolStripButton.Click
 100:          MainMDI.ContactsQuestionsForm_Open()
 101:      End Sub
 102:   
 103:      Private Sub PersonalDetailToolStripButton_Click(sender As Object, e As EventArgs) Handles PersonalDetailToolStripButton.Click
 104:          MainMDI.ContactsPersonalDetailsForm_Open()
 105:      End Sub
 106:   
 107:      Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
 108:          If e.RowIndex >= 0 Then
 109:              Dim senderGrid = DirectCast(sender, DataGridView)
 110:              Dim CurRow As Person = Rows(e.RowIndex)
 111:              If TypeOf senderGrid.Columns(e.ColumnIndex) Is DataGridViewImageColumn AndAlso e.ColumnIndex = nColumn.Edit Then
 112:                  MsgBox("this future under development" & "will be form like 'add person', but for edition contact")
 113:              ElseIf TypeOf senderGrid.Columns(e.ColumnIndex) Is DataGridViewImageColumn AndAlso e.ColumnIndex = nColumn.Del Then
 114:                  If MsgBox("Do you really want to delete" & CurRow.NameFirst & " " & CurRow.NameMiddle & " " & CurRow.NameLast, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
 115:                      db1.Persons.Remove(CurRow)
 116:                      db1.SaveChanges()
 117:                      DataGridView1_RowFefresh()
 118:                  End If
 119:              End If
 120:          End If
 121:      End Sub
 122:   
 123:      Private Sub RefreshToolStripButton_Click(sender As Object, e As EventArgs) Handles RefreshToolStripButton.Click
 124:          db1 = New FbDbContext
 125:          Rows = db1.Persons.Include("ToStatusType").Include("ToCampaign").ToList
 126:          DataGridView1.AutoGenerateColumns = False
 127:          DataGridView1.DataSource = Rows
 128:          DataGridView1.Refresh()
 129:      End Sub
 130:  End Class

to be continue....

Comments ( )
<00>  <01>  <02>  <03>  <04>  <05>  <06>  <07>  <08>  <09>  <10>  <11>  <12>  <13>  <14>  <15>  <16>  <17>  <18>  <19
Link to this page: http://www.vb-net.com/FinancialBroker/Index.htm
<SITEMAP>  <MVC>  <ASP>  <NET>  <DATA>  <KIOSK>  <FLEX>  <SQL>  <NOTES>  <LINUX>  <MONO>  <FREEWARE>  <DOCS>  <ENG>  <MAIL ME>  <ABOUT ME>  < THANKS ME>