数据库字段 ：username varchar 20，password varchar 20，optime datetime
点击添加后获取当前时间存入数据库表中。

管理员哪里去了？
这种低级问题，随便找本书不就得了。

function GetNowTime: TDateTime;
var
timeQ: TADOQuery;
begin
timeQ := TADOQuery.Create(nil);
timeQ.Connection := ADOCon;
with timeQ do
begin
close;
sql.Text := *select getdate() a*;
open;
end;
Result := timeQ.Fields[0].AsDateTime;
timeQ.Free;
end;这是获取当前时间

数据库本身就有获取时间的函数，何必要在外部取,SQL 语句存就完了.