nder: TObject)
Рисунок 3 - procedure TForm1.N4Click (Sender: TObject)
Рисунок 4 - procedure TForm1.N7Click (Sender: TObject)
Рисунок 5 - procedure TForm1.N5Click (Sender: TObject)
Малюнок 6 - procedure TForm1.N6Click (Sender: TObject)
Малюнок 7 - procedure TForm1.FormCreate (Sender: TObject);
Додаток 2
Лістинг программиUnit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Menus,, MPlayer; = class (TForm ): TADOConnection;: TADOTable;: TDataSource;: TDBGrid;: TDBNavigator;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TMenuItem;: TMediaPlayer; N5Click (Sender: TObject); N6Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N7Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2, Unit3;
{$ R *. dfm} TForm1.N5Click (Sender: TObject);. show; TForm1.N6Click (Sender: TObject);. Close; TForm1.N2Click (Sender: TObject);. Show ; Form3 do.Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False ;. Visible: = False;. Visible: = true;. Visible: = true;. Visible: = true;;; TForm1.N3Click (Sender: TObject);. Show; Form3 do.Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = true ;. Visible: = true;. Visible: = true;;; TForm1.N4Click (Sender: TObject);. Show; Form3 do.Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = true;. Visible: = true;. Visible: = true ;;; TForm1.N7Click (Sender: TObject),. Show; Form3 do.Visible: = False,. Visible: = False,. Visible: = False,. Visible: = False,. Visible: = False,. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = False;. Visible: = true;. Visible: = true;. Visible: = true;;; TForm1.FormCreate (Sender: TObject); . FileName: = 'H: МИСиС ІС Курсова робота Film_film_film.mp3';. Open;. Play;;. Unit2; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,,...
