Ув. Дмитрий. На вашем примере (пост 9) есть 2 нюанса, которые не учитывается. Напишу порядок действий.
1. Если оставить поле DateTimePicker пустым, сохраняем, далее экспорт, затем импорт, затем при открытии этой записи выскакивает сообщение о том, что поле не может быть пустым.
2. Если оставить поле ComboBox пустым, сохраняем, далее экспорт, затем при импорте возникает ошибка - 'FOREIGN KEY constraint failed'. Т.е. здесь на этапе импортирования возникает ошибка.

Ув. Дмитрий. Является ли слово foreign резервным словом в MVD?

Спасибо большое

можете сделать на примере того проекта, который уже имеется http://myvisualdatabase.com/forum/misc. … ownload=1?

Спасибо. Есть один нюанс. Объясню на примере прикрепленной выше.
У меня имеется несколько отделов, которым я даю эту программу и они вводят данные и делают экспорт, а я импортирую их данные. Теперь в списке Ivan Ivanov. У него заработная плата 6000,5. Сделали экспорт данных и принесли мне. Я делаю импорт, все ок. Теперь заработная плата Иванова изменился на 5000. Сделали экспорт, принесли мне, а у меня все еще стоит 6000,5. Т.е. так как у меня уже ранее был Иванов, то его другие параметры были игнорированы. Надо чтобы при импорте были импортированы другие параметры если имеются изменения в них.
Еще раз спасибо.

Уважаемы Дмитрий. Где то была тема про импорт и экспорт, но там был запрет дубликата записей. Можете дать ссылку?

7

(24 replies, posted in General)

thanks

8

(24 replies, posted in General)

where can i find conversion script?

9

(33 replies, posted in Russian)

Уважаемый админ. Команда Vacuum не работает в версии 4.1.

10

(1 replies, posted in Russian)

Дорогой админ и пользователи. Есть ли пример проекта учета и отпуска препаратов в аптеке или любой другой складской учет? Дайте пожалуйста ссылку.
Спасибо заранее.

можете прикрепить проект для изучения?

12

(3 replies, posted in Russian)

можно пример проекта и для чего она нужна?

13

(25 replies, posted in General)

Look here - http://myvisualdatabase.com/forum/viewtopic.php?id=3211

if Form1.Edit1.Value = ";

k245 wrote:

Пример проверки рекурсии:

function load(var A:integer):integer;
var
  i: integer;
begin
  i := A;
  if A<5 then
    result := load(A+1) + i
  else
    result := A;
end;

begin
  ShowMessage('Recursive = '+inttostr(load(1)));
end.

Результат верный:

http://f6.s.qip.ru/SwgAVRCr.png


Если это возможно, прошу проверить реализацию создания объекта с результатом (TDataSet) в функции SQLQuery().

Для чего нужна рекурсия и что даст данный код, объясните чайнику.

16

(2 replies, posted in Russian)

спасибо но это не та

17

(2 replies, posted in Russian)

Привет всем. Надо программа для учета пациентов в поликлинике. Когда то видел здесь образец. Можете дать ссылку?

18

(7 replies, posted in Russian)

Уважаемый Дмитрий!
Функкция Uppercase делает заглавными все буквы, а надо чтобы сделать только первую. Как быть?
Спасибо заранее.

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

Огромное спасибо. Отличный пример.
На счет дублирования записей, можете сделать на примере имени и фамилии?

21

(9 replies, posted in General)

May be Dmitriy can help with this case.

22

(9 replies, posted in General)

AD1408 wrote:

Please see the attached sample project below:


I changed a bit the procedure. Take a look!

Уважаемый Админ.
Я бы хотел вам напомнить про пример проекта импорт и экспорт данных, который указывался на втором посте. Спс. заранее.

24

(9 replies, posted in General)

i dont understand your purpose, why you need to pop-up the message. Try this.
procedure Form1_Edit1_OnClick (Sender: string; var Cancel: boolean);
begin
if Form1.Edit1.Enabled = False then ShowMessage ('Custom message ....');
end;

25

(9 replies, posted in General)

what do you mean Disabled?