Практическое задание на тему: База данных «Компьютерный магазин»

      end;

    var

      Form1: TForm1;

    implementation

    uses Unit2;

    {$R *.dfm}

    procedure TForm1.RadioGroup1Click(Sender: TObject);

    begin

     if RadioGroup1.ItemIndex=0 then

    begin

    DBGrid1.Visible:=True;

    DBGrid2.Visible:=False;

    DBGrid3.Visible:=False;

    DBNavigator1.DataSource:=DataSource1;

    end;

    if RadioGroup1.ItemIndex=1 then

    begin

    DBGrid1.Visible:=False;

    DBGrid2.Visible:=True;

    DBGrid3.Visible:=False;

    DBNavigator1.DataSource:=DataSource2;

    end;

    if RadioGroup1.ItemIndex=2 then

    begin

    DBGrid1.Visible:=False;

    DBGrid2.Visible:=False;

    DBGrid3.Visible:=True;

    DBNavigator1.DataSource:=DataSource3;

    end; 

    end;

    procedure TForm1.N6Click(Sender: TObject);

    begin

     FontDialog1.Execute;

    DBGrid2.Font:=FontDialog1.Font;

    end; 

    procedure TForm1.N7Click(Sender: TObject);

    begin

     ColorDialog1.Execute;

    DBGrid2.Color:=ColorDialog1.Color;

    end; 

    procedure TForm1.N3Click(Sender: TObject);

    begin

     PrintDialog1.Execute;

    end; 

    procedure TForm1.N9Click(Sender: TObject);

    begin

    Form2.showmodal;

    end; 

    procedure TForm1.N10Click(Sender: TObject);

    begin

    ShowMessage('Создал Сахаров Андрей Николаевич');

    end; 

    procedure TForm1.N11Click(Sender: TObject);

     begin

      ShellExecute(Handle, nil, ‘Руководство пользователя БД.docx’, nil, nil, SW_SHOW);

    end;

    procedure TForm1.N5Click(Sender: TObject);

    begin

    Form1.Close;

    end;

    end.