Розробка системи з роботою бази даних “Список хворих” з використанням елементів технології ЕСО та мови моделювання UML

  Self.ClientSize := System.Drawing.Size.Create(712, 262);

  Self.Controls.Add(Self.Button15);

  Self.Controls.Add(Self.TabControl1);

  Self.Name := 'TWinForm1';

  Self.Text := 'Список хворих';

  (System.ComponentModel.ISupportInitialize(Self.DataGrid3)).EndInit;

  (System.ComponentModel.ISupportInitialize(Self.DataGrid4)).EndInit;

  (System.ComponentModel.ISupportInitialize(Self.DataGrid5)).EndInit;

  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;

  (System.ComponentModel.ISupportInitialize(Self.DataGrid2)).EndInit;

  (System.ComponentModel.ISupportInitialize(Self.DataGrid6)).EndInit;

  (System.ComponentModel.ISupportInitialize(Self.DataGrid7)).EndInit;

  Self.TabControl1.ResumeLayout(False);

  Self.TabPage1.ResumeLayout(False);

  Self.TabPage4.ResumeLayout(False);

  Self.TabPage2.ResumeLayout(False);

  Self.TabPage3.ResumeLayout(False);

  Self.TabPage6.ResumeLayout(False);

  Self.TabPage5.ResumeLayout(False);

  Self.TabPage7.ResumeLayout(False);

  Self.ResumeLayout(False);

end;

{$ENDREGION}

procedure TWinForm1.Dispose(Disposing: Boolean);

begin

  if Disposing then

  begin

    if Components <> nil then

      Components.Dispose();

  end;

  inherited Dispose(Disposing);

end;

constructor TWinForm1.Create;

begin

  inherited Create;

  //

  // Required for Windows Form Designer support

  //

  InitializeComponent;

  FEcoSpace :=  TProject4EcoSpace.Create;

  // Note that you need to set the EcoSpace property for each ReferenceHandle you add to the form.

  rhRoot.EcoSpace := FEcoSpace;

  // The line below will automatically activate the ECO Space on form create.

  // Remove the line if you wish to activate it manually

  FEcoSpace.Active := True;

end;

procedure TWinForm1.Button15_Click(sender: System.Object; e: System.EventArgs);

begin

  EcoSpace.UpdateDataBase;

end;

end.

unit Project4EcoSpace;

interface

uses

  System.Threading,

  Borland.Eco.Services,

  Borland.Eco.UmlCodeAttributes,

  Borland.Eco.Handles,

  Package_1Unit, Borland.Eco.Persistence.SqlServer.Bdp,

  Borland.Eco.Persistence.ORMapping, Borland.Data.Provider,

  Borland.Eco.Persistence, Borland.Eco.Persistence.Configuration,

  Borland.Eco.Persistence.SqlServer, Borland.Eco.Persistence.Default;

type

  [EcoSpace]

  [EcoSpacePackage(TypeOf(Package_1Unit.Package_1))]

  TProject4EcoSpace = class(Borland.Eco.Handles.DefaultEcoSpace)

    class var fTypeSystemProvider: ITypeSystemService;

    class var fTypeSystemProviderLock: Tobject;

  strict protected

    function GetTypeSystemProvider: ITypeSystemService; override;

  public

    constructor Create;

    class constructor Create;

    class function GetTypeSystemService: ITypeSystemService; static;

    procedure UpdateDatabase;

    function get_PersistenceService: IPersistenceService;

    property PersistenceService: IPersistenceService read get_PersistenceService;

    function get_DirtyListService: IDirtyListService;

    property DirtyListService: IDirtyListService read get_DirtyListService;

    function get_UndoService: IUndoService;

    property UndoService: IUndoService read get_UndoService;

    function get_TypeSystemService: ITypeSystemService;

    property TypeSystemService: ITypeSystemService read get_TypeSystemService;

    function get_OclService: IOclService;

    property OclService: IOclService read get_OclService;

    function get_ObjectFactoryService: IObjectFactoryService;

    property ObjectFactoryService: IObjectFactoryService read get_ObjectFactoryService;

    function get_VariableFactoryService: IVariableFactoryService;

    property VariableFactoryService: IVariableFactoryService read get_VariableFactoryService;

  strict private

    PersistenceMapperBdp1: Borland.Eco.Persistence.PersistenceMapperBdp;

    BdpConnection1: Borland.Data.Provider.BdpConnection;

    procedure InitializeComponent; end;

  [assembly: RuntimeRequired(TypeOf(TProject4EcoSpace))]

implementation

{$AUTOBOX ON}

constructor TProject4EcoSpace.Create;

begin

  inherited Create;

  InitializeComponent;

  // TODO: Add any constructor code here

end;

class constructor TProject4EcoSpace.Create;

begin

  fTypeSystemProviderLock := TObject.Create;

end;

class function TProject4EcoSpace.GetTypeSystemService: ITypeSystemService;

begin

  if not Assigned(fTypeSystemProvider) then

  begin

    try

      Monitor.Enter(fTypeSystemProviderLock);

      if not Assigned(fTypeSystemProvider) then

        fTypeSystemProvider := MakeTypeService(typeOf(TProject4EcoSpace));

    finally

      Monitor.Exit(fTypeSystemProviderLock);

    end;

  end;

  Result := fTypeSystemProvider;

end;

function TProject4EcoSpace.GetTypeSystemProvider: ITypeSystemService;

begin

  Result := TProject4EcoSpace.GetTypeSystemService;

end;

procedure TProject4EcoSpace.UpdateDatabase;

begin

  if Assigned(PersistenceService) and Assigned(DirtyListService) then

    PersistenceService.UpdateDatabaseWithList(DirtyListService.AllDirtyObjects);

end;

function TProject4EcoSpace.get_PersistenceService: IPersistenceService;

begin

  Result := GetEcoService(typeof(IPersistenceService)) as IPersistenceService;

end;

function TProject4EcoSpace.get_DirtyListService: IDirtyListService;

begin

  Result := GetEcoService(typeof(IDirtyListService)) as IDirtyListService;

end;

function TProject4EcoSpace.get_UndoService: IUndoService;

begin

  Result := GetEcoService(typeof(IUndoService)) as IUndoService;

end;

function TProject4EcoSpace.get_TypeSystemService: ITypeSystemService;

begin

  Result := GetEcoService(typeof(ITypeSystemService)) as ITypeSystemService;

end;

function TProject4EcoSpace.get_OclService: IOclService;

begin

  Result := GetEcoService(typeof(IOclService)) as IOclService;

end;

function TProject4EcoSpace.get_ObjectFactoryService: IObjectFactoryService;

begin

  Result := GetEcoService(typeof(IObjectFactoryService)) as IObjectFactoryService;

end;

function TProject4EcoSpace.get_VariableFactoryService: IVariableFactoryService;

begin

  Result := GetEcoService(typeof(IVariableFactoryService)) as IVariableFactoryService;

end;

procedure TProject4EcoSpace.InitializeComponent;

type

  TArrayOfBorland_Eco_Persistence_Configuration_KeyMapperDefinition = array of Borland.Eco.Persistence.Configuration.KeyMapperDefinition;

  TArrayOfBorland_Eco_Persistence_Configuration_PersistenceMapperDefinition = array of Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

var

  PersistenceMapperDefinition125: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition124: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition123: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition122: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition121: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition120: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition119: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition118: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition117: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition116: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition115: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition114: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition113: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition112: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition111: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition110: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition19: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition18: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition17: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition16: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition15: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition14: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition13: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition12: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  PersistenceMapperDefinition11: Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition;

  KeyMapperDefinition14: Borland.Eco.Persistence.Configuration.KeyMapperDefinition;

  KeyMapperDefinition13: Borland.Eco.Persistence.Configuration.KeyMapperDefinition;

  KeyMapperDefinition12: Borland.Eco.Persistence.Configuration.KeyMapperDefinition;

  KeyMapperDefinition11: Borland.Eco.Persistence.Configuration.KeyMapperDefinition;

begin

  KeyMapperDefinition11 := Borland.Eco.Persistence.Configuration.KeyMapperDefinition.Create;

  KeyMapperDefinition12 := Borland.Eco.Persistence.Configuration.KeyMapperDefinition.Create;

  KeyMapperDefinition13 := Borland.Eco.Persistence.Configuration.KeyMapperDefinition.Create;

  KeyMapperDefinition14 := Borland.Eco.Persistence.Configuration.KeyMapperDefinition.Create;

  PersistenceMapperDefinition11 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition12 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition13 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition14 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition15 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition16 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition17 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition18 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition19 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition110 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition111 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition112 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition113 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition114 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition115 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition116 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition117 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition118 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition119 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition120 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition121 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition122 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition123 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition124 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  PersistenceMapperDefinition125 := Borland.Eco.Persistence.Configuration.PersistenceMapperDefinition.Create;

  Self.PersistenceMapperBdp1 := Borland.Eco.Persistence.PersistenceMapperBdp.Create;

  Self.BdpConnection1 := Borland.Data.Provider.BdpConnection.Create;

  //

  // PersistenceMapperBdp1

  //

  Self.PersistenceMapperBdp1.CompatibilityMode := Borland.Eco.Persistence.ORMapping.EcoCompatibilityMode.EcoIII;

  Self.PersistenceMapperBdp1.Connection := Self.BdpConnection1;

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.BooleanTrueLiteral := '1';

  Self.PersistenceMapperBdp1.SqlDatabaseConfig.DateTimeFormat := '"''"yyyyMM' +

  'dd"''"';