L
loutian
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现一个记录用户登录的情况,我先用insert... select.... where语句,然后用
update...set...where语句代码如下:
with dm2.query2 do
begin
close;
sql.clear;
sql.add('insert table1 (用户名,用户类型,登录时间,离开时间)');
sql.Add('select 用户名,用户类型,getdate(),getdate() from tablename2 ');
sql.add('where 用户名=:username');
parambyname('username').asstring:=edit1.text;
prepare;
execsql;
end;
name:=edit1.Text;
with dm2.query2 do
begin
close;
sql.clear;
sql.add('update 工作日志');
sql.Add('set 离开时间=getdate()');
sql.add('where 登录时间=离开时间');
prepare;
execsql;
end;
这是我编的一段代码,当用户登录时,先在table1中记录用户名和用户时间及登录时间
其中我把离开时间和登录时间的值符为一样,然后再通过一个update来修改离开时间的
,值上面那段代码是可以执行的,可是不太合理,我想在修改离开时间时要实现用户名
和登录时间的验证,在insert中就把用户名和登录时间符给两个变量,在update中与表
中的信息进行比较,望能手,多多留言
update...set...where语句代码如下:
with dm2.query2 do
begin
close;
sql.clear;
sql.add('insert table1 (用户名,用户类型,登录时间,离开时间)');
sql.Add('select 用户名,用户类型,getdate(),getdate() from tablename2 ');
sql.add('where 用户名=:username');
parambyname('username').asstring:=edit1.text;
prepare;
execsql;
end;
name:=edit1.Text;
with dm2.query2 do
begin
close;
sql.clear;
sql.add('update 工作日志');
sql.Add('set 离开时间=getdate()');
sql.add('where 登录时间=离开时间');
prepare;
execsql;
end;
这是我编的一段代码,当用户登录时,先在table1中记录用户名和用户时间及登录时间
其中我把离开时间和登录时间的值符为一样,然后再通过一个update来修改离开时间的
,值上面那段代码是可以执行的,可是不太合理,我想在修改离开时间时要实现用户名
和登录时间的验证,在insert中就把用户名和登录时间符给两个变量,在update中与表
中的信息进行比较,望能手,多多留言