|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
Цитата:
Цитата:
|
#32
|
|||
|
|||
А как тогда он срабатывает если я создаю новый файл sbor.dbf он же изночально пустой?
|
#33
|
||||
|
||||
Цитата:
Цитата:
|
#34
|
|||
|
|||
а почему тогда вот такой запрос выполнятеся.
Код:
Query1.SQL.Text:='SELECT o.dpo, m.nist, m.fio, m.date_wz, m.dp, m.dw, d.name, d.kodn, m.otd FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z, mklh.dbf m WHERE (d.type = o.type and d.subtype = o.subtype and d.kod = o.kod) AND'+ '(d.type = z.type and d.subtype = z.subtype and d.kod = z.kod) AND (o.n = m.nk and o.otd = m.otd)'; Код:
if Query1.RecordCount>=0 |
#35
|
||||
|
||||
Цитата:
|
#36
|
|||
|
|||
Чет я так и не разобрался. Вот файлик, как сделать (например на кнопке выход) чтобы после всех манипуляций над файлом закрыли программу и файл стал опять таким же как был до начала работы с программой.
|
#37
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Table1.Close; Table1.EmptyTable; Table1.Open; end; Если тебе нужно именно восстановить таблицу в первоначальное состояние, то лучше файл sbor.dbf вообще не трогать, а вместо этого создавать его копию типа sbor_temp.dbf и в программе работать с ним, а когда он больше не нужен, то просто удалять с диска. |