比如我的重新登陆的程序如下:
if GetUser(UserID,Name,Pass,QxZ) then begin
cdsz ;
StatusBar.Panels[1].Text :='用户:'+Name;
StatusBar.Panels[3].Text :='用户登录';
User_Name:=Name;
User_ID:=UserID;
with DM_T do begin
Log_Add.Parameters.ParamByName('@User_ID').Value:=User_ID ;
Log_Add.ExecProc;
Log_Id:=Log_Add.Parameters.ParamByName('@Log_ID').Value;
End
End
Else
Close;
但我这样重新登陆了前面用户的窗体界面的内容还在,导致没关闭当前窗体的情况下,另外的用户还可以继续操作。请问该怎么样处理?
if GetUser(UserID,Name,Pass,QxZ) then begin
cdsz ;
StatusBar.Panels[1].Text :='用户:'+Name;
StatusBar.Panels[3].Text :='用户登录';
User_Name:=Name;
User_ID:=UserID;
with DM_T do begin
Log_Add.Parameters.ParamByName('@User_ID').Value:=User_ID ;
Log_Add.ExecProc;
Log_Id:=Log_Add.Parameters.ParamByName('@Log_ID').Value;
End
End
Else
Close;
但我这样重新登陆了前面用户的窗体界面的内容还在,导致没关闭当前窗体的情况下,另外的用户还可以继续操作。请问该怎么样处理?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货