Проверьте в Delphi 7.

← →
Дмитрий С © (2010-05-14 20:29) [0]

Проверьте, пожалуйста, компилируется/работает ли программа в delphi 7?

http://dashaeliseeva.com/StaffList.7z (17кб).

П. С. Попросили решить контрольную (работа с бд через компоненты адо), сделал в Delphi 2010, а желательно чтобы 7 работало. Прошу проверить.

← →
turbouser © (2010-05-14 20:41) [1]

А чего без датамодуля?
TADOCommand.Create(Self); - зачем такие трудности?
Проверка пола - это весьма увлекательное занятие, и совсем не 3 строчки кода :)
По сабжу не проверял :) Дома нет дельфей

← →
Дмитрий С © (2010-05-14 20:52) [2]

> А чего без датамодуля?

А зачем он тут? :)

> TADOCommand.Create(Self); - зачем такие трудности?

В чем трудности? ИМХО проще несколько строк кода написать, чем компонент кидать.

> Проверка пола - это весьма увлекательное занятие, и совсем
> не 3 строчки кода :)

Это фича-прикол. Если отчество заканчивается на вич или ьич - то это однозначно Муж. (или Гадя), если вна - Жен. :)

> По сабжу не проверял :) Дома нет дельфей

А жаль :)

← →
turbouser © (2010-05-14 20:59) [3]

> Дмитрий С © (14.05.10 20:52) [2]

> А зачем он тут? :)

Для порядка

> В чем трудности? ИМХО проще несколько строк кода написать,
> чем компонент кидать.

Ну, может быть в рамках К/р - нормально. Но вообще, для динамических запросов (кстати, там нет динамических запросов) - логичнее сделать отдельную процедуру, возвращающую или рекордсет, или TADO** и т.п.

← →
AlexDan © (2010-05-14 21:02) [4]

> Дмитрий С © (14.05.10 20:29)
Не очень он работает в D7, вот проблемная срочка -
if mrYes = MessageDlg("Вы действительно хотите удалить сотрудника?", mtConfirmation, mbYesNo, 0) then
mbYesNo - ундеклар.
и там ещё куча компнентов на игнорирование запрашивается.. ну это комплктация видно, внимание не обращал, хотя может это взаимосвязано), лень проверять).

← →
Дмитрий С © (2010-05-14 21:11) [5]

> AlexDan © (14.05.10 21:02) [4]

Спасибо.

MessageDlg заменил на MessageBox, winapi точно везде одинаковое :)

> и там ещё куча компнентов на игнорирование запрашивается

Странно, использовал стандартные, ADO и DB компоненты ну еще TDateTimePeaker.

Интересно как D7 встретил юникод в DFM-ах.

игнорирование, наверное было не компонентов, а свойств компонентов.

← →
turbouser © (2010-05-14 21:13) [6]

> Дмитрий С © (14.05.10 21:11) [5]

> Интересно как D7 встретил юникод в DFM-ах.

Так там и не юникод

← →
turbouser © (2010-05-14 21:14) [7]

По крайней мере не в нативном виде :)

← →
test © (2010-05-15 00:06) [8]

Delphi 7
Не знает что такое mbYesNo исправил на [mbYes, mbNo]

procedure TStaff.Button3Click(Sender: TObject); begin if not MainForm.dStaff.IsEmpty then if mrYes = MessageDlg("Вы действительно хотите удалить сотрудника?", mtConfirmation, mbYesNo, 0) then MainForm.dStaff.Delete; end;

Ошибка при запуске
"Не удается найти файл MDB"

Delphi 7 не знает что такое
Application.MainFormOnTaskbar := True;

Дмитрий С © (14.05.10 20:52) [2]
>>Это фича-прикол. Если отчество заканчивается на вич или ьич - то это
>>однозначно Муж. (или Гадя), если вна - Жен. :)

Mary Cay, john Smith, Гульнара кызы Абай, Линь Хой
Пол иностранцы! ))

ExplictLeft у кнопки нету.

> Интересно как D7 встретил юникод в DFM-ах.
>
> игнорирование, наверное было не компонентов, а свойств компонентов.
>
>

А там действительно юникод?

> test © (15.05.10 00:06) [8]
>
> Delphi 7
> Не знает что такое mbYesNo исправил на [mbYes, mbNo]
>
>

А справку прочитать?
Д7 знает что такое MB_YESNO.
Да и не только Д7

> Германн (15.05.2010 02:02:10) [10]

Какой там Юникод, частично Паскаль нотация.

Проверьте в Delphi 7. Найти похожие ветки