Печать из DBGrid1

[Rasta67]

Ничего не получается. как печатать из БДГрид? или тогда как вывести из бдгрид в мемо и печатать из мемо.

И сортировка не работает. помогите плиз. не могу написать дипломный проект.

Исходник прилагается: файл загрузил не полностью, только первую форму (на ней и есть печать док.)

[SQLPowerUser]

Rasta67, с большим трудом откомпилировал ваш проект. Там куча модулей на которые есть ссылки, а самих модулей нет. Если удалить каталог __history, то уверен, всё бы поместилось в архив. А кнопка Печать завалена в конструкторе другими компонентами, наверное, чтобы враг не нашел...
Под Сортировкой, наверное имелось ввиду фильтрация? Попробуйте так (у меня успешно отработал)

procedure TForm1.Button2Click(Sender: TObject);
begin
  Self.Label3.Caption := 'Сегодня';
  ADOTable1.Filter := 'data = ' + DateToStr(Now);
  ADOTable1.Filtered := true;

  if ADOTable1.RecordCount = 0 then ShowMessage('На сегодня никаких дел не запланировано.');
end;

Печать из DBGrid - лучше импортнуть в Word/Excel/HTML или использовать встроенный генератор отчетов в Delphi (RaveReport ???)

Я бы еще поменял цветовую гамму для таблицы (это сделаете по желанию)

procedure TForm1.FormActivate(Sender: TObject);
begin
  DBGrid1.FixedColor := $00B48246;
  DBGrid1.TitleFont.Color := clWhite;
  DBGrid1.Color := clWhite;
  DBGrid1.Columns[0].Title.Caption := ' Дата';
  DBGrid1.Columns[1].Title.Caption := ' Время';
  DBGrid1.Columns[2].Title.Caption := ' Наименование';
  DBGrid1.Columns[3].Title.Caption := ' Подробности';

  ADOConnection1.Open;
  ADOTable1.Open;
//Form5.Show;
end;

[Rasta67]

1) Нужно что бы из 7й формы данные записывались в 1ю форму в базу. что не пробовал, не получается. пишет ошибки разные при разных кодах.

2) нужно что бы авторизация (форма входа) проходила тоже через базу аксесс и работала.

Form1.ADOQuery1.Active:=True;
Form1.ADOQuery1.insert;
Form1.ADOQuery1.FieldByName('data').AsString:= MaskEdit1.Text;
Form1.ADOQuery1.FieldByName('vrema').AsString:= MaskEdit2.Text;
Form1.ADOQuery1.FieldByName('shto').AsString:= Edit1.Text;
Form1.ADOQuery1.FieldByName('podrobnee').AsString:= Memo1.Text;
Form1.ADOQuery1.Post;

Пишет: First chance exception at $7596B727. Exception class EOleException with message 'Ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' или 'UPDATE''. Process Org.exe (3504)

Файл программы прилагается: (уже в нормальном виде )

[Rasta67]

Извиняюсь за столь корявый архив. (просто думал что папка __history нужна)
Всё исправил и скинул в нормальном виде. Можете помочь? Диплом на носу, а я с базами не очень

[SQLPowerUser]

Я с Аксессом почти не работал...
В реальных проектах весьма сложные ситуации, я использую прямые insert/update с параметрами.
Попробуйте так (здесь ADOQuery заменил на ADOTable)

Form1.ADOTable1.insert;
Form1.ADOTable1.FieldByName('data').AsString:= MaskEdit1.Text;
Form1.ADOTable1.FieldByName('vrema').AsString:= MaskEdit2.Text;
Form1.ADOTable1.FieldByName('shto').AsString:= Edit1.Text;
Form1.ADOTable1.FieldByName('podrobnee').AsString:= Memo1.Text;
Form1.ADOTable1.Post;

Можно еще обратиться в раздел Фриланс

[Rasta67]

И снова вы меня спасаете ))) спасибо большое. я стараюсь сам разбираться, но тяжко. прогу свою уже в 3й раз переделываю с нуля ((

[Rasta67]

а по этому же проекту, как сделать что бы будильник играл в указанное время (напоминал о событии) т.е. время с базы минус время указанное "напоминать за..." и воспроизводило мелодию?

[Rasta67]

К будильнику и вообще к программе прилагается файл baza.ini . он в архиве