盒子论坛 v2.1

我建了一个表（workflag），放登陆的用户名，登陆时间，操作权限，退出时间，删除命令（‘删除’的窗口关闭的同时，则记录为‘是’），但我每次操作完，再看表，最新一次的记录都把上一次的覆盖掉了，怎么让它一条一条的记录呢？
我的几个程序如下：

主窗口：
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
workflag.Open;
workflag.Edit;
workflag.FieldByName('退出时间').AsString:=statusbar1.Panels.Items[1].text+statusbar1.Panels.Items[2].Text;
workflag.FieldByName('操作权限').AsString:=statusbar1.Panels.Items[0].text;
//workflag.Append;
workflag.Post;
//workflag.Refresh;
workflag.Close;
end;
登陆窗口：
procedure TLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
workflag.Open;
workflag.Edit;
workflag.FieldByName('用户名').AsString:=mUserName.Text;
workflag.FieldByName('登陆时间').AsString:=mainform.statusbar1.Panels.Items[1].text+mainform.statusbar1.Panels.Items[2].Text;
workflag.Post;
//workflag.Refresh;
workflag.Close;
if flag=0 then mainform.Close ;{标志位为0时，则关闭主窗体}
end;
删除窗口：
procedure TDelRec.FormClose(Sender: TObject; var Action: TCloseAction);
begin
workflag.Open;
workflag.Edit;
workflag.FieldByName('删除命令').AsString:='是';
workflag.Post;
//workflag.Refresh;
workflag.Close;
end;

----------------------------------------------
-

作者：

hrbcw (hrbcw)	★☆☆☆☆	-
	盒子活跃会员

2004/5/29 11:22:53

1楼：

把workflag.Edit;改为workflag.append;试一试。
----------------------------------------------
你好

信息

登陆以后才能回复