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

unit WinForm1;

interface

uses

  System.Drawing, System.Collections, System.ComponentModel,

  System.Windows.Forms, System.Data,

  Borland.Eco.Windows.Forms, Borland.Eco.WinForm, Borland.Eco.Handles, Project4EcoSpace, Package_1Unit;

type

  TWinForm1 = class(System.Windows.Forms.Form)

  {$REGION 'Designer Managed Code'}

  strict private

    /// <summary>

    /// Required designer variable.

    /// </summary>

    Components: System.ComponentModel.Container;

    rhRoot: Borland.Eco.Handles.ReferenceHandle;

    EcoGlobalActions: Borland.Eco.WinForm.EcoActionExtender;

    EcoAutoForms: Borland.Eco.WinForm.EcoAutoFormExtender;

    EcoListActions: Borland.Eco.WinForm.EcoListActionExtender;

    EcoDragDrop: Borland.Eco.WinForm.EcoDragDropExtender;

    TabControl1: System.Windows.Forms.TabControl;

    TabPage1: System.Windows.Forms.TabPage;

    TabPage2: System.Windows.Forms.TabPage;

    TabPage3: System.Windows.Forms.TabPage;

    TabPage4: System.Windows.Forms.TabPage;

    TabPage5: System.Windows.Forms.TabPage;

    TabPage6: System.Windows.Forms.TabPage;

    TabPage7: System.Windows.Forms.TabPage;

    DataGrid1: System.Windows.Forms.DataGrid;

    Button1: System.Windows.Forms.Button;

    Pacientu: Borland.Eco.Handles.ExpressionHandle;

    Button2: System.Windows.Forms.Button;

    Button3: System.Windows.Forms.Button;

    Button4: System.Windows.Forms.Button;

    DataGrid2: System.Windows.Forms.DataGrid;

    lydu: Borland.Eco.Handles.ExpressionHandle;

    Likari: Borland.Eco.Handles.ExpressionHandle;

    DataGrid3: System.Windows.Forms.DataGrid;

    Button5: System.Windows.Forms.Button;

    Button6: System.Windows.Forms.Button;

    Button7: System.Windows.Forms.Button;

    DataGrid4: System.Windows.Forms.DataGrid;

    Likarna: Borland.Eco.Handles.ExpressionHandle;

    Button8: System.Windows.Forms.Button;

    Button9: System.Windows.Forms.Button;

    DataGrid5: System.Windows.Forms.DataGrid;

    Stag: Borland.Eco.Handles.ExpressionHandle;

    Button10: System.Windows.Forms.Button;

    Profesii: Borland.Eco.Handles.ExpressionHandle;

    DataGrid6: System.Windows.Forms.DataGrid;

    Button11: System.Windows.Forms.Button;

    Button12: System.Windows.Forms.Button;

    strahovka: Borland.Eco.Handles.ExpressionHandle;

    DataGrid7: System.Windows.Forms.DataGrid;

    Button13: System.Windows.Forms.Button;

    Button14: System.Windows.Forms.Button;

    Button15: System.Windows.Forms.Button;

    likarna_likari: Borland.Eco.Handles.CurrencyManagerHandle;

    stag_likari: Borland.Eco.Handles.CurrencyManagerHandle;

    likari_pacientu: Borland.Eco.Handles.CurrencyManagerHandle;

    profesii_lydu: Borland.Eco.Handles.CurrencyManagerHandle;

    strahovka_lydu: Borland.Eco.Handles.CurrencyManagerHandle;

    stag_lydu: Borland.Eco.Handles.CurrencyManagerHandle;

    OclVariables1: Borland.Eco.Handles.OclVariables;

    /// <summary>

    /// Required method for Designer support - do not modify

    /// the contents of this method with the code editor.

    /// </summary>

    procedure InitializeComponent;

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

  {$ENDREGION}

  strict private

    FEcoSpace: TProject4EcoSpace;

  strict protected

    /// <summary>

    /// Clean up any resources being used.

    /// </summary>

    procedure Dispose(Disposing: Boolean); override;

  public

    constructor Create;

    property EcoSpace: TProject4EcoSpace read FEcoSpace;

  end;

  [assembly: RuntimeRequired(TypeOf(TWinForm1))]

implementation

uses

  Borland.Eco.ObjectRepresentation, Borland.Eco.Services;

{$AUTOBOX ON}

{$REGION 'Windows Form Designer generated code'}

/// <summary>

/// Required method for Designer support - do not modify

/// the contents of this method with the code editor.

/// </summary>

procedure TWinForm1.InitializeComponent;

type

  TArrayOfBorland_Eco_Handles_AbstractColumn = array of Borland.Eco.Handles.AbstractColumn;

  TArrayOfBorland_Eco_Handles_OclVariable = array of Borland.Eco.Handles.OclVariable;

var

  OclVariable11: Borland.Eco.Handles.OclVariable;

  OclColumn12: Borland.Eco.Handles.OclColumn;

  OclColumn11: Borland.Eco.Handles.OclColumn;

begin

  OclColumn11 := Borland.Eco.Handles.OclColumn.Create;

  OclColumn12 := Borland.Eco.Handles.OclColumn.Create;

  OclVariable11 := Borland.Eco.Handles.OclVariable.Create('Variable1', Self.strahovka);

  Self.strahovka := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.rhRoot := Borland.Eco.Handles.ReferenceHandle.Create;

  Self.EcoGlobalActions := Borland.Eco.WinForm.EcoActionExtender.Create;

  Self.Button15 := System.Windows.Forms.Button.Create;

  Self.EcoAutoForms := Borland.Eco.WinForm.EcoAutoFormExtender.Create;

  Self.DataGrid3 := System.Windows.Forms.DataGrid.Create;

  Self.Likari := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.likarna_likari := Borland.Eco.Handles.CurrencyManagerHandle.Create;

  Self.DataGrid4 := System.Windows.Forms.DataGrid.Create;

  Self.Likarna := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.stag_likari := Borland.Eco.Handles.CurrencyManagerHandle.Create;

  Self.DataGrid5 := System.Windows.Forms.DataGrid.Create;

  Self.Stag := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.EcoListActions := Borland.Eco.WinForm.EcoListActionExtender.Create;

  Self.Button1 := System.Windows.Forms.Button.Create;

  Self.DataGrid1 := System.Windows.Forms.DataGrid.Create;

  Self.Pacientu := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.likari_pacientu := Borland.Eco.Handles.CurrencyManagerHandle.Create;

  Self.Button2 := System.Windows.Forms.Button.Create;

  Self.Button3 := System.Windows.Forms.Button.Create;

  Self.DataGrid2 := System.Windows.Forms.DataGrid.Create;

  Self.lydu := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.profesii_lydu := Borland.Eco.Handles.CurrencyManagerHandle.Create;

  Self.DataGrid6 := System.Windows.Forms.DataGrid.Create;

  Self.Profesii := Borland.Eco.Handles.ExpressionHandle.Create;

  Self.Button4 := System.Windows.Forms.Button.Create;

  Self.Button5 := System.Windows.Forms.Button.Create;

  Self.Button6 := System.Windows.Forms.Button.Create;

  Self.Button7 := System.Windows.Forms.Button.Create;

  Self.Button8 := System.Windows.Forms.Button.Create;

  Self.Button9 := System.Windows.Forms.Button.Create;

  Self.Button10 := System.Windows.Forms.Button.Create;

  Self.Button11 := System.Windows.Forms.Button.Create;

  Self.Button12 := System.Windows.Forms.Button.Create;

  Self.Button13 := System.Windows.Forms.Button.Create;

  Self.DataGrid7 := System.Windows.Forms.DataGrid.Create;

  Self.Button14 := System.Windows.Forms.Button.Create;

  Self.strahovka_lydu := Borland.Eco.Handles.CurrencyManagerHandle.Create;

  Self.EcoDragDrop := Borland.Eco.WinForm.EcoDragDropExtender.Create;

  Self.TabControl1 := System.Windows.Forms.TabControl.Create;

  Self.TabPage1 := System.Windows.Forms.TabPage.Create;

  Self.TabPage4 := System.Windows.Forms.TabPage.Create;

  Self.TabPage2 := System.Windows.Forms.TabPage.Create;

  Self.TabPage3 := System.Windows.Forms.TabPage.Create;

  Self.TabPage6 := System.Windows.Forms.TabPage.Create;

  Self.TabPage5 := System.Windows.Forms.TabPage.Create;

  Self.TabPage7 := System.Windows.Forms.TabPage.Create;

  Self.stag_lydu := Borland.Eco.Handles.CurrencyManagerHandle.Create;

  Self.OclVariables1 := Borland.Eco.Handles.OclVariables.Create;

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

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

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

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

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

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

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

  Self.TabControl1.SuspendLayout;

  Self.TabPage1.SuspendLayout;

  Self.TabPage4.SuspendLayout;

  Self.TabPage2.SuspendLayout;

  Self.TabPage3.SuspendLayout;

  Self.TabPage6.SuspendLayout;

  Self.TabPage5.SuspendLayout;

  Self.TabPage7.SuspendLayout;

  Self.SuspendLayout;

  //

  // strahovka

  //

  Self.strahovka.AddRootVariables := True;

  Self.strahovka.Expression := 'strahovka.allInstances.N_strahovku';

  Self.strahovka.RootHandle := Self.rhRoot;

  //

  // rhRoot

  //

  Self.rhRoot.EcoSpaceType := TypeOf(Project4EcoSpace.TProject4EcoSpace);

  //

  // EcoGlobalActions

  //

  Self.EcoGlobalActions.RootHandle := Self.rhRoot;

  //

  // Button15

  //

  Self.EcoGlobalActions.SetEcoAction(Self.Button15, Borland.Eco.WinForm.EcoAction.UpdateDatabase);

  Self.Button15.Location := System.Drawing.Point.Create(8, 232);

  Self.Button15.Name := 'Button15';

  Self.Button15.TabIndex := 1;

  Self.Button15.Text := 'Update DB';

  Include(Self.Button15.Click, Self.Button15_Click);

  //

  // DataGrid3

  //

  Self.DataGrid3.CaptionBackColor := System.Drawing.Color.Red;

  Self.DataGrid3.CaptionText := 'Лікарі';

  Self.DataGrid3.DataMember := '';

  Self.DataGrid3.DataSource := Self.Likari;

  Self.EcoAutoForms.SetEcoAutoForm(Self.DataGrid3, True);

  Self.DataGrid3.HeaderForeColor := System.Drawing.SystemColors.ControlText;

  Self.DataGrid3.Location := System.Drawing.Point.Create(8, 40);

  Self.DataGrid3.Name := 'DataGrid3';

  Self.DataGrid3.Size := System.Drawing.Size.Create(672, 144);

  Self.DataGrid3.TabIndex := 0;

  //

  // Likari

  //

  Self.Likari.Expression := 'self.likari';

  Self.Likari.RootHandle := Self.likarna_likari;

  //

  // likarna_likari

  //

  Self.likarna_likari.BindingContext := Self.DataGrid4;

  Self.likarna_likari.RootHandle := Self.Likarna;

  //

  // DataGrid4

  //

  Self.DataGrid4.CaptionBackColor := System.Drawing.Color.Red;

  Self.DataGrid4.CaptionText := 'Лікарня';

  Self.DataGrid4.DataMember := '';

  Self.DataGrid4.DataSource := Self.Likarna;

  Self.DataGrid4.HeaderForeColor := System.Drawing.SystemColors.ControlText;

  Self.DataGrid4.Location := System.Drawing.Point.Create(8, 48);

  Self.DataGrid4.Name := 'DataGrid4';

  Self.DataGrid4.Size := System.Drawing.Size.Create(672, 136);

  Self.DataGrid4.TabIndex := 1;

  //

  // Likarna

  //

  Self.Likarna.Expression := 'likarna.allinstances';

  Self.Likarna.RootHandle := Self.rhRoot;

  //

  // stag_likari

  //

  Self.stag_likari.BindingContext := Self.DataGrid5;

  Self.stag_likari.RootHandle := Self.Likari;

  //

  // DataGrid5

  //

  Self.DataGrid5.CaptionBackColor := System.Drawing.Color.Red;

  Self.DataGrid5.CaptionText := 'Стаж';

  Self.DataGrid5.DataMember := '';

  Self.DataGrid5.DataSource := Self.Stag;

  Self.DataGrid5.HeaderForeColor := System.Drawing.SystemColors.ControlText;

  Self.DataGrid5.Location := System.Drawing.Point.Create(8, 40);

  Self.DataGrid5.Name := 'DataGrid5';

  Self.DataGrid5.Size := System.Drawing.Size.Create(672, 144);

  Self.DataGrid5.TabIndex := 1;

  //

  // Stag

  //

  Self.Stag.Expression := 'stag.allinstances';

  Self.Stag.RootHandle := Self.stag_likari;

  //

  // Button1

  //

  Self.EcoListActions.SetBindingContext(Self.Button1, Self.DataGrid1);

  Self.EcoListActions.SetEcoListAction(Self.Button1, Borland.Eco.WinForm.ListAction.Add);

  Self.Button1.ImageIndex := 1;

  Self.Button1.Location := System.Drawing.Point.Create(8, 8);

  Self.Button1.Name := 'Button1';

  Self.EcoListActions.SetRootHandle(Self.Button1, Self.Pacientu);

  Self.Button1.Size := System.Drawing.Size.Create(48, 16);

  Self.Button1.TabIndex := 1;

  Self.Button1.Text := 'Add';

  //

  // DataGrid1

  //

  Self.DataGrid1.CaptionText := 'Пацієнти';

  Self.DataGrid1.DataMember := '';

  Self.DataGrid1.DataSource := Self.Pacientu;

  Self.DataGrid1.HeaderForeColor := System.Drawing.SystemColors.ControlText;

  Self.DataGrid1.Location := System.Drawing.Point.Create(8, 32);

  Self.DataGrid1.Name := 'DataGrid1';

  Self.DataGrid1.Size := System.Drawing.Size.Create(672, 152);

  Self.DataGrid1.TabIndex := 0;

  //

  // Pacientu

  //

  Self.Pacientu.Expression := 'self.pacientu';

  Self.Pacientu.RootHandle := Self.likari_pacientu;

  //

  // likari_pacientu

  //

  Self.likari_pacientu.BindingContext := Self.DataGrid3;

  Self.likari_pacientu.RootHandle := Self.Likari;

  //

  // Button2

  //

  Self.EcoListActions.SetBindingContext(Self.Button2, Self.DataGrid1);

  Self.EcoListActions.SetEcoListAction(Self.Button2, Borland.Eco.WinForm.ListAction.Delete);

  Self.Button2.ImageIndex := 2;

  Self.Button2.Location := System.Drawing.Point.Create(72, 8);

  Self.Button2.Name := 'Button2';

  Self.EcoListActions.SetRootHandle(Self.Button2, Self.Pacientu);