Скачать: CL | DM;

Добавление в базу записи, возникла проблема   Найти похожие ветки 

← →
neVIP   (2004-03-16 17:57) [0]

Доброго времени суток Мастера...
Возникла у меня такая проблема : Нужно изменить запись в базе, пишу я такой код :

procedure TMain_Form.EditSBClick(Sender: TObject);
var Dt : string;
begin
Dt:=MaskEdit1.Text;
if ((Copy(Dt,0,2)="  ")
or (Copy(Dt,4,2)="  ")
or (Copy(Dt,7,2)="  "))
then ShowMessage("""+MaskEdit1.Text+"" - неверная дата !")
else
if WorkSt.CanModify=true then
 begin
  WorkSt.Edit;
  WorkSt.FieldByName("Дата").AsString:=MaskEdit1.Text;
  WorkSt.Post;
end
else ShowMessage("Редактирование невозможно");
end;

А Delphi мне ругается : то "Index is read only",
то "Record locked by another user"...
И причём, CanModify всегда true, индекс по полю я убрал, но всё равно ругаеться, да я считаю что и не в этом дело.
Подскажите, как с этим справиться, заранее всем спасибо...

---

← →
Алхимик ©   (2004-03-16 20:48) [1]

А почему дату по человечески не хранить в таблице?
WorkSt что такое?
Структуру таблицы посмотреть бы...

---

← →
neVIP   (2004-03-16 23:28) [2]

WorkSt = ТTable
Поле "Дата" - тип Date.
Дата и так храниться в таблице, правда по машинному...
Мне нужно, что бы юзер мог изменить дату, а не меняеться она, млин..
Раньше у меня проблем с изменением записи не было, а тут - на тебе!

---

← →
Алхимик ©   (2004-03-16 23:37) [3]

TDateTimePicker для изменения даты не судьба использовать вместо извращений с MaskEdit?
Поля по русски называть тоже не есть гуд.

---

← →
neVIP   (2004-03-20 00:20) [4]

Короче забил я на Table и ушёл в Query... и Delphi больше не ругаеться...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c