одати () {}//## ModelId=5286497F0269 Dogovor :: переглянути () {}//## ModelId=5289C0F80222 Dogovor :: укладення договору () {}//## ModelId=5289C1B302BF Dogovor :: занесення даних () {} #include Klient.h // ## ModelId=52864A2603AE Klient :: додати () {}//## ModelId=5289B678031C Klient :: переглянути () {}
Додаток В. Код головної форми
# include lt; vcl.h gt;
# pragma hdrstop
# include glavnaya.h
# include Unit2.h
# include Unit3.h
# include Unit4.h
# include Unit5.h
# include Unit6.h
# include Unit7.h
# include sotrudn.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm1 :: KnVyhodClick (TObject * Sender)
{();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: KnKlientyClick (TObject * Sender)
{ gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: KnDogovoraClick (TObject * Sender)
{ gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: KnPomesceniyaClick (TObject * Sender)
{ gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)
{- gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button2Click (TObject * Sender)
{- gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button3Click
(TObject * Sender)
{- gt; ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button6Click (TObject * Sender)
{- gt; ShowModal ();
}
//---------------------------------------------------------------------------
