БД в Delphi 7

[Марина96]

У меня в БД необходимо скрыть DBGrid при запуске. Две таблички скрыла , а вот третья не получается!
Вот как две я скрывала:
Код:


procedure TForm1.N2Click(Sender: TObject);
begin
if DBGrid2.Visible = true then
DBGrid2.Visible := false;
DBGrid1.Visible := true;
DBNavigator1.Visible:= true;
DBNavigator2.Visible:= false;
Label2.Visible :=true;
Label3.Visible :=false;

end;

procedure TForm1.N3Click(Sender: TObject);
begin
if DBGrid1.Visible = true then
DBGrid1.Visible := false;
DBGrid2.Visible := true;
DBNavigator1.Visible:= false;
DBNavigator2.Visible:= true;
Label3.Visible :=true;
Label2.Visible :=false;
end;

[vovk]

в зависимости от условия выполняется только первое действие, остальные выполняются всегда. Подозреваю, что задумывалось так:

procedure TForm1.N2Click(Sender: TObject);
begin
if DBGrid2.Visible = true then
BEGIN
DBGrid2.Visible := false;
DBGrid1.Visible := true;
DBNavigator1.Visible:= true;
DBNavigator2.Visible:= false;
Label2.Visible :=true;
Label3.Visible :=false;
END;
end;

и соответственно

procedure TForm1.N3Click(Sender: TObject);
begin
if DBGrid1.Visible = true then
BEGIN
DBGrid1.Visible := false;
DBGrid2.Visible := true;
DBNavigator1.Visible:= false;
DBNavigator2.Visible:= true;
Label3.Visible :=true;
Label2.Visible :=false;
END;
end;

ТОлько вот не уверен что правильно вопос понял.
ЗЫ: незабываем оформлять код, и тема никакого отношения к БД не имеет.