需要在数据表里加入用户名字段?

解决方案 »

  1.   

    楼主问的是要实现"用户登陆后能使用自己的信息"的数据库表的设计方式吧.在数据库中增加一个用户表,字段的话一般是:用户ID,用户名,密码...其他数据表中的字段跟"用户ID"关联就可以取得这个用户自己相关的信息了.
      

  2.   

    建一个配置文件或者XML文件,登录成功后把登录信息保存到配置文件或者XML文件里,下次登录的时候可以先调用上次保存的信息!或者登录成功后也可以再调用保存了的信息!!
    是不是这个意思???
      

  3.   

    能否将登陆信息存放到XML文件里?用户注册时,需要首先执行查询语句,clientdataset有没有这样的查询功能?
      

  4.   


    可能是这个意思。建表,用来存放用户信息,
    或每添加一个用户就在某个文件夹下添加一个INI,xml文件记录用户信息登陆后,从文件或表中读出数据放到全局变量中。
      

  5.   

    要么全局,要么保存到本地INI
      

  6.   

    貌似這樣?
     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