работа с Grid

Не совсем конечно понятно для чего убирать горизонтальный. в опциях таблицы вроде нет этого но можно задать размер колонок в % отношении от размера грида. при сумме % = 100% горизонтальный скрол уберется сам

надо скрипт писать
сперва задаете переменную по общей длине таблицы типа
var
table: integer

потом создате процедуру на отрытии той формы где табля типа
procedure main_OnShow
begin
table:= main.TableGrid1.Width;
end;

туда же вписываете размеры колонок типа
main.TableGrid1.Columns[0].Width := table/100*30;
main.TableGrid1.Columns[1].Width := table/100*30;
main.TableGrid1.Columns[2].Width := table/100*40;

чтобы в итоге получилось:
procedure main_OnShow
begin
table:= main.TableGrid1.Width;
main.TableGrid1.Columns[0].Width := table/100*30;
main.TableGrid1.Columns[1].Width := table/100*30;
main.TableGrid1.Columns[2].Width := table/100*40;
end;

не уверен конечно но думается что должно получиться.
можно конечно проще пойти если у вас размер формы не зависит от размера экрана - статитеская то есть.
тогда проще - без всяких переменных задаете размер колонок
к примеру длина таблицы 1200 пикселей
main.TableGrid1.Columns[0].Width := 300;
main.TableGrid1.Columns[1].Width := 500;
main.TableGrid1.Columns[2].Width := 400;

1. К сожалению не смог понять вопрос.

2. http://myvisualdatabase.com/forum/viewtopic.php?id=1059

Я думаю задача проста если у вас структура базы еще не завершена.
создаете еще 1 таблицу (newtable) где всего параметр - дата (date).
на форму 2 (открытие записи из грида) навешиваете скрипт procedure form2_OnShow
куда вносите всего 1 строку
SQLExecute('insert into newtable (date) VALUES (nau));

на главной форме создаете несколько надписей Label1, Label2 и т.д

на закрытие  формы показа записи навешиваете скрипт подсчета количества записей в таблице по условиям (за день, месяц, год)
типа
form1.Label1.Caption :=SQLExecute('SELECT count(id) FROM newtable where date=' ____';')

ну и все
синтаксис как и раньше с косяками но принцип должен быть понятен.
Если будут траблы с синтаксисом скриптов - пишите. Хотя я всегда пытаюбсь сперва сам решить а потом уже беспокоить форумчан

По-моему, решений много. Я в силу своего мизерного опыта добавил бы поле в таблицу (допустим "count") и сделал бы событие на двойной клик по гриду, где

var
   sCount: integer;
begin
   sCount := SQLExecute('SELECT count FROM таблица WHERE id='+IntToStr(форма.TableGrid1.dbItemID)+1;
   SQLExecute('UPDATE таблица SET count='+sCount+' WHERE id='+IntToStr(форма.TableGrid1.dbItemID);
end;

Проверить сейчас возможности нет, да и, уверен, Дмитрий может оптимизировать решение. )

Но... Для начала. Это не может быть качественным показателем интереса. Ошибочный выбор, еще что-то... Тут, правда, по проекту смотреть надо. Может, на какое-то конкретное действие в открывшейся форме лучше бы действие привязал, чтоб погрешность "интереса" уменьшить, если я правильно понимаю. Если там выполняются какие-то действия.