怎么实现用户登陆后能使用自己的信息? 需要在数据表里加入用户名字段? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 楼主问的是要实现"用户登陆后能使用自己的信息"的数据库表的设计方式吧.在数据库中增加一个用户表,字段的话一般是:用户ID,用户名,密码...其他数据表中的字段跟"用户ID"关联就可以取得这个用户自己相关的信息了. 建一个配置文件或者XML文件,登录成功后把登录信息保存到配置文件或者XML文件里,下次登录的时候可以先调用上次保存的信息!或者登录成功后也可以再调用保存了的信息!!是不是这个意思??? 能否将登陆信息存放到XML文件里?用户注册时,需要首先执行查询语句,clientdataset有没有这样的查询功能? 可能是这个意思。建表,用来存放用户信息,或每添加一个用户就在某个文件夹下添加一个INI,xml文件记录用户信息登陆后,从文件或表中读出数据放到全局变量中。 要么全局,要么保存到本地INI 貌似這樣? with sys_datamodule.qry_qry_login do begin Close; {SQL.Text := 'select * from SYS_LOGINUSER where ACCOUNT_ID='''+ cxte_userno.Text+''' and PSDWORD='''+cxte_password.Text+''''; Open; } SQL.Text:='select * from SYS_LOGINUSER where ACCOUNT_ID=:ACCOUNT_ID and PSDWORD=:PSDWORD'; Parameters.ParamByName('ACCOUNT_ID').Value:=cxte_userno.Text; Parameters.ParamByName('PSDWORD').Value:=cxte_password.Text; Open; if IsEmpty then begin FrmMsgBox('提示','登陸失敗!',MsgBox_OK_ERROR); cxte_password.SelectAll; cxte_password.SetFocus; Close; Exit; end; _UserNo := FieldByName('ACCOUNT_ID').AsString; _UserName := FieldByName('FULL_NAME').AsString; _UserBm := FieldByName('BM').AsString; _PLANER_ID:= FieldByName('PLANER_ID').AsString; _UserBmmc := FieldByName('by1').AsString; _MJ := FieldByName('by2').AsString; _email := FieldByName('Email').AsString; try Delphi编程初学者指南 动态产生的一个label,可是运行之后怎么只出现一个,其他的都哪去了????????????? TreeView的问题 结构指针问题 怎么判断oracle中一个字段的类型? demo验证 Adoquery的多表更新问题. 谁有delphi汉化文件?那个几十k的东东没有用?? 计算 Attention:安装Rxlib时出错,不是少文件就是 Intenal Error. 用WIN32 INTERNET API实现ftp上传文件报错 这个控件我已经安装了,怎么还报错啊?
是不是这个意思???
可能是这个意思。建表,用来存放用户信息,
或每添加一个用户就在某个文件夹下添加一个INI,xml文件记录用户信息登陆后,从文件或表中读出数据放到全局变量中。
with sys_datamodule.qry_qry_login do
begin
Close;
{SQL.Text := 'select * from SYS_LOGINUSER where ACCOUNT_ID='''+
cxte_userno.Text+''' and PSDWORD='''+cxte_password.Text+'''';
Open; }
SQL.Text:='select * from SYS_LOGINUSER where ACCOUNT_ID=:ACCOUNT_ID and PSDWORD=:PSDWORD';
Parameters.ParamByName('ACCOUNT_ID').Value:=cxte_userno.Text;
Parameters.ParamByName('PSDWORD').Value:=cxte_password.Text;
Open;
if IsEmpty then
begin
FrmMsgBox('提示','登陸失敗!',MsgBox_OK_ERROR);
cxte_password.SelectAll;
cxte_password.SetFocus;
Close;
Exit;
end;
_UserNo := FieldByName('ACCOUNT_ID').AsString;
_UserName := FieldByName('FULL_NAME').AsString;
_UserBm := FieldByName('BM').AsString;
_PLANER_ID:= FieldByName('PLANER_ID').AsString;
_UserBmmc := FieldByName('by1').AsString;
_MJ := FieldByName('by2').AsString;
_email := FieldByName('Email').AsString;
try