财务软件版1楼: delphi 进入系统后 如何更新密码！
代码能帮助下吗？

2楼: 密码肯定是要存到数据库中，当然就是代码修改数据库中的数据了，如：update ？ set a=？ where a=1 如sql进销存管理系统

3楼: 如楼上所说，更新存放密码的表中所对应此用户的数据。

4楼: 在系统中有一个界面。是用来修改密码的。密码可以是进行加密之后再存到数据库中。怎么用就看客户的需要了。

5楼: 我想得到你们的代码 ，这样我会更明白些！
eg： 数据库：xsda(学生档案) 表为 user（用户，密码）
进入系统后，显示更改密码的界面
帮帮忙！

6楼: 在窗体上放置AdoConnection控件、AdoQuery控件
设置Adoconnection的连接属性，保证数据库连接成功，并且允许保存数据库访问密码
在窗体上放置Edit1（用户名），Edit2（密码，psswordChar =*）,edit3(同2） Button1（修改），Button2（关闭）等。
设置Adoquery的连接属性为Adoconnection
procedure button1Click();
begin
with self.adoquery1 do
begin
clsoe;
sql.clear;
sql.add(＇＇select * from user＇＇);

open;
if locate(＇＇用户＇＇,＇＇self.edit1.text) then
begin
if fields.fieldbyname(＇＇密码＇＇).asstring=self.edit2.text then
begin
if self.edit2.text<>self.edit3.text then
begin
messagebox(0,pchar(＇＇新密码和确认密码不相同＇＇),＇＇修改密码＇＇,mb_ok+mb_iconinformation);
end
else
begin
edit;
//至于用户名不存在的情况，我就不给你写了，只是简单介绍一下过程
fields.fieldbyname(＇＇密码＇＇).asstring:=self.edit2.text; //也可以把密码加密后再修改，那么在判断密码匹配时就要将输入密码同数据库内经过加密处理的密码比较了
post;
end;
end;
end;

财务软件版7楼: 见笑
登陆窗口 进去后在主界面 中存在 更新密码窗口 此窗口 有2个 edit控件 分别是
旧密码 和 新密码
如何添加代码 从而作到 点击button更新按纽后 得到 修改旧密码的 功能！

8楼: 一般来说,都是放在表里的,,,但也可以放在别处,,,如 注册表 文件 等等

9楼: 我现在以做出来了 但是 是在 登陆窗口隐藏的 情况下 代码如下：

if e1.Text=fmdl.Edit1.Text then
begin
fmdl.ADOQ1.Edit;
fmdl.ADOQ1.FieldByName(＇＇密码＇＇).AsString:=e2.Text;
fmdl.ADOQ1.Post;
e2.Text:=＇＇＇＇;
messagebox(handle,＇＇修改成功！＇＇,＇＇密码修改＇＇,mb_ok);
end
else
begin
messagebox(handle,＇＇输入与原密码不一致！＇＇,＇＇密码修改＇＇,mb_ok);
e1.Clear;
e1.SetFocus;
exit;
end;
end;
但是如果 登陆窗口是关闭的情况 那代码该如何写呢？需要用到全局变量吧？
跪求哦！

10楼: 恩，如果关闭，就得用全局变量，这个你可以在窗口未关闭的时候就把数据赋值啊

11楼: 嘿嘿 这也是我疑惑的地方
拜托 能把代码copy下吗？
谢谢

12楼: 你完全可以再添一个AdoQuery控件啊？！
用的时候指定，不用就close，clear等 如免费服装店管理软件

13楼: 分给我，我可以给你代码！
要给分啊！！

//edit1是旧密码，Edit2是新密码，edit3是密码验证

procedure TFChgPas.BitBtnModifyClick(Sender: TObject);
begin
if self.Edit2.Text <> self.Edit3.Text then

begin
Messagebox(GetActiveWindow,＇＇密码不一致！＇＇,＇＇修改密码＇＇,mb_ok+mb_iconInformation );
self.Edit2.SetFocus;
exit;
end;
if self.Edit1.Text = self.Edit3.Text then
begin
Messagebox(GetActiveWindow,＇＇新密码与原密码相同！＇＇,＇＇修改密码＇＇,mb_ok+mb_iconInformation );
self.Edit2.SetFocus;
exit;
end;
if length(self.Edit2.Text) > 20 then
begin
Messagebox(GetActiveWindow,＇＇密码长度超出范围（0~20）！＇＇,＇＇修改密码＇＇,mb_ok+mb_iconInformation );
self.Edit2.SetFocus;
exit;
end;

with self.ADOTable1 do
begin
Open;
if Locate(＇＇LoginName＇＇,UFMain.mLogPar.CUserName,[loCaseInsensitive]) then
begin

if Trim(Fields.fieldbyname(＇＇Password＇＇).AsString) = self.edit1.text then
begin
edit;

Fields.FieldByName(＇＇Password＇＇).AsString := self.edit2.text ;
post;
self.ADOTable1.UpdateBatch();
close;
Messagebox(GetActiveWindow,＇＇密码已经更改，请记住新密码！＇＇,＇＇修改密码＇＇,mb_ok+mb_iconInformation );
FChgPas.Close;
end else
begin
Messagebox(GetActiveWindow,＇＇原密码不正确！＇＇,＇＇修改密码＇＇,mb_ok+mb_iconInformation );
Edit1.SetFocus;
end;
end else
begin
Messagebox(GetActiveWindow,＇＇您的帐号丢失！＇＇,＇＇修改密码＇＇,mb_ok+mb_iconInformation );
FLogin.Close;
end;
Close;
end;
end;

财务软件版14楼: ok 给你 分
我还有 70分 嘿嘿