Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Проверьте в 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, Гульнара кызы Абай, Линь Хой
Пол иностранцы! ))


 
test ©   (2010-05-15 00:09) [9]

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


 
Германн ©   (2010-05-15 02:02) [10]


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

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


 
Германн ©   (2010-05-15 03:31) [11]


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

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


 
Anatoly Podgoretsky ©   (2010-05-15 13:53) [12]

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

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



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.132 c
15-1265078165
Дмитрий С
2010-02-02 05:36
2010.08.27
Подскажите телефон


6-1218572715
grisme
2008-08-13 00:25
2010.08.27
recv + HTTP в блокирующем режиме


2-1268985882
Boortwint
2010-03-19 11:04
2010.08.27
Программирование с использованием строк.


2-1269712810
ZeTToG350
2010-03-27 21:00
2010.08.27
Проблемма с окнами


15-1269293403
Юрий
2010-03-23 00:30
2010.08.27
С днем рождения ! 23 марта 2010 вторник