|
Народ!
У меня тоже проблем с БД.
У меня есть 4 поля. Username, Password, Время присоединения и время отсоединения.
Во 'Время присоединения' время записывается вот так:
procedure TForm4.FormActivate(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
Label2.Caption:=str;
Form1.Table1.Edit;
Form1.Table1Время присоединения.Value:=Time;
А 'время отсоединения' не хочет корректно записываться. Т.е. для любой первой записи всё работает корректно, но когда происходит второе или н-ное присоединение,то 'время отсоединения' записывается в первое поле (первого присоединения). Никак не пойму в чём дело. Как понимаю - курсор стоит только на первом поле.Помогите плиз.
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Table1.Edit;
Form1.Table1времяотсоединения.Value:=Time;
Form1.Table1.Post;
end;
|