大家好,我是新手。最近才上手Delphi数据库,需要做一个c\s模型进行远程登录。找了一些代码,但是使用时在客户端进行注册后 access的数据库 表的时间栏是空值,我想让它有一个默认值(注册的时间),当用客户端登录时:注册时间和当前时间比较一下,如果过期就登录失败. 有没有高手知道怎么改呀。这是部分代码
procedure TForm1.bsSkinButton3Click(Sender: TObject);
begin
if (bsskinedit4.Text='') then
begin
application.MessageBox('用户名不能为空!','提示',64);
end
else begin
dm.cx.Close;
dm.cx.Params.ParamByName('a').Value:=trim(bsskinedit4.Text);
dm.cx.Open;
if dm.cx.RecordCount>0 then
begin
edit1.Text:=dm.cx.FieldByName('密码').AsString;
bsSkinButton6.Enabled:=true;
bsSkinButton3.Enabled:=false;
bsskinedit4.Enabled:=false;
application.MessageBox('该帐号存在,可以充值!','提示',64);
end
else begin
bsskinedit4.Clear;
application.MessageBox('该帐号不存在,不可以充值!','提示',64);
end;
end;
end;
procedure TForm1.bsSkinButton3Click(Sender: TObject);
begin
if (bsskinedit4.Text='') then
begin
application.MessageBox('用户名不能为空!','提示',64);
end
else begin
dm.cx.Close;
dm.cx.Params.ParamByName('a').Value:=trim(bsskinedit4.Text);
dm.cx.Open;
if dm.cx.RecordCount>0 then
begin
edit1.Text:=dm.cx.FieldByName('密码').AsString;
bsSkinButton6.Enabled:=true;
bsSkinButton3.Enabled:=false;
bsskinedit4.Enabled:=false;
application.MessageBox('该帐号存在,可以充值!','提示',64);
end
else begin
bsskinedit4.Clear;
application.MessageBox('该帐号不存在,不可以充值!','提示',64);
end;
end;
end;
解决方案 »
- 难道是用qrytmp.fieldvalues['name']这个Variant类型的值在监视器中显示不准确?
- datetimepicker控件如何只取日期不取时间
- delphi中怎么进行表锁定?
- 怎么在stringgrid最后一行实现数据合计?
- [大侠们,快快救命阿!] Delphi7在使用informix时遇到的问题。急!
- 一个很经典的逻辑问题,高手进入啊!!!!!!!
- 在线等待!关于DELPHI6窗体设置问题????
- 怎样让ScrollBox响应鼠标滚轮的滚动?_...*((要求贴代码).
- 百分求解combobox问题。
- 关于DBGRID
- 问控件的东西
- 菜鸟再问一个关系数据库记录复制的问题!
用户名 文本
密码 文本
起始日期 日期/时间
终止日期 日期/时间我用Delphi的now()来设置注册时日期的默认时间,但是都是客户端的电脑的系统时间,能不能设置成服务器的系统时间。
而且怎么样用服务器的系统时间和终止时间住比较,判断过期没有?
大哥,帮帮忙……
sql server的是getdate()