|
Вопрос # 3 902/ вопрос открыт / |
|
Здравствуйте!
Я только начинаю осваивать Delphi , поэтому заранее приношу извинения, если мой вопрос покажется глупым. Я с большими усилиями сделала БД для работы. Одной из функций я хотела сделать удаление выбранной группы. Написала код (таким, каким я его представляла) и... ПОЛНЫЙ ОБЛОМ!. Если вдруг вам не покажется зазорным общаться с таким "чайником" как я, буду очень признательна за подробное объяснение , почему я дура.
procedure Tfrm_DeliteVzvod.bbtn_1Click(Sender: TObject);
begin
fDM_1.ADOtbl_Glavn.First;
fDM_1.ADOtbl_Glavn.Edit;
while not fDM_1.ADOtbl_Glavn.Eof do
begin
if fDM_1.ADOtbl_Glavn['Взвод']=edt_1.Text then //если номер взвода соответствует выбранному
fDM_1.ADOtbl_Glavn.Delete; // Удаляем его
fDM_1.ADOtbl_Glavn.Next; //и переходим к следующей записи
end;
fDM_1.ADOtbl_Glavn.Post;
ShowMessage('Выбранный взвод кадет успешно удален');
end;
 |
Вопрос задала: marinochka_m (статус: Посетитель)
Вопрос отправлен: 20 марта 2010, 09:34
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 20 марта 2010, 15:00; участников в обсуждении: 2.
|
Мережников Андрей (статус: Абитуриент), 20 марта 2010, 11:32 [#1]:
во-первых:
исправьте строку:
if fDM_1.ADOtbl_Glavn['Взвод']=edt_1.Text
на
if fDM_1.ADOtbl_Glavn['Взвод'].value=edt_1.Text
во-вторых: для этих целей (удаление) лучше использовать SQL-запрос и компонент ADOQuery.
В-третьих - для наименования таблиц и полей в таблицах не рекомендуется использовать русские буквы.
|
|
Егор (статус: 10-ый класс), 20 марта 2010, 15:00 [#2]:
в данном случае методы Edit и Post излишни - вы ведь не редактируете запись, а удаляете её:
procedure Tfrm_DeliteVzvod.bbtn_1Click(Sender: TObject);
begin
fDM_1.ADOtbl_Glavn.First;
// fDM_1.ADOtbl_Glavn.Edit; <-- убрать
while not fDM_1.ADOtbl_Glavn.Eof do
begin
if fDM_1.ADOtbl_Glavn['Взвод'].value=edt_1.Text then //если номер взвода соответствует выбранному
fDM_1.ADOtbl_Glavn.Delete; // Удаляем его
fDM_1.ADOtbl_Glavn.Next; //и переходим к следующей записи
end;
// fDM_1.ADOtbl_Glavn.Post; <-- убрать
ShowMessage('Выбранный взвод кадет успешно удален');
end;
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
