在程序中使用了XML文件用来保存用户相关的信息,由于不太熟悉Delphi的链表结构,就直接使用XMLDoc来保存用户列表.
在用户管理窗口中,有一"增加用户"按钮,其中使用了如下的代码
MainForm.XMLDoc.Active := True;
secNode := secRoot.AddChild('Section');
secNode.Attributes['name'] := Trim(edtName.Text);
secNode.Attributes['ip'] := edtServerIp.Text;
secNode.Attributes['user'] := edtUserName.Text;
secNode.Attributes['password'] := Encry