帮帮忙：天价（两零零零分整）求控件(300分)

哪位大侠能帮我做一个控件：把通常的Login窗口做成Component。
老板让做的，手潮，不会做
要求一定是自己做的、全部源码。在两星期内。
具体技术要求：

TPassword = Class(TForm)
要求的属性有：
Published:
User：它包括：UserName: String;
UserPolicyNum:Integer
和UserPassword: String;
在DesignTime下：
点User的property，要出来一个自定义的属性编辑器，编辑器
内容类似于OpenDialog的Filter Editor，只是三列：
+--------------+--------------+------------+
| User Name | Password | Policy |
+--------------+--------------+------------+
| | | |
+--------------+--------------+------------+
其他属性可作者随意
在Method里，要有：
AddUser(UserName, Password, Policy);
DeleteUser(UserName);
ChangeUserPolicy(UserName)
ChangePassword(UserName)
Login(UserName, Password):
将显示Login窗口，等待用户输入，按OK键后检查密码，密码
通过则返回TRUE，否则三次OK后，则返回FALSE
SaveToFile；
将把所有用户名、密码、和PolicyNUM加密（加密算法自定，别太简单
就行），写入二进制文件。
LoadFromFile
将所有的用户名、密码、和PolicyNum解密，填入User的List里。
其他Method可根据需要自定。（原则是越简洁越好）
先付300，这个BBS连400都付不出去，保证言而有信，共2000分

哦，对不起，忘了，请和我EMAIL联系：tianhai@hotmail.com

大暴发户果然出手不凡。RxLib2.75里有一个啦，不过不完全符全你的要求，不过有
源程序自已修改修改吧。

receyes: thanks...but still want to have our own.

我带你写了一个，先寄一份b版的bpl,如能用付1000分（500也
行啊)定金，最终完成后把源码给你，再拿剩下的分。
备注:
AttmptNumber为提示次数；
Active为是否开启；
User启动自定义的属性编辑对话框，第一次打开时会提示找
不到某文件（因为此时数据为空），加入一些数据后就好了。
目前Bug:
1。程序主窗体启动后，必须重新创建一个TPassword的实例才能
调用其属性和方法，争取正式版改正。
2。一些方法如AddUser和ChangePassword我尚未经过测试，也许
会有错误，明天再改（现在好困）

补充，目前定义最大用户数为10，UserName和Password长度也为10，
在源码里有常量可以设置。

To All: 请不要再回答此问题，谢谢大家。我将只等Cheka做的结果。
To Cheka：
一、为了方便讨论问题，我将不关闭这个问题，而另开三个300分的问题
（最高问题的分数为300分），作为定金。请你进入那三个问题，以便我
给你分。
二、付定金后，麻烦您把程序的源码给我，请体谅一个低手的理解能力，
麻烦给加一些注释。因为，我老板看了后，肯定又会要求我再改这儿改那
儿的。所以，不好意思，我必须能看懂和修改你的代码。特别是Property
Dialog的部分，我以前从没做过，所以拿到源码后，可能还会麻烦你，向
你请教问题。
三、因为目前没有源码，所以我还无法提出对那控件的意见，不过，从
我试验的结果上看，我已经很满意了。但有以下想法供你参考：
1. 用户个数为什么固定死为最多十个？不能用TList?
2. 关于PW文件，似乎不应该是跟Component，而是应该和Project的，比如
让设计者在用控件时定义Password的文件名，且存入Project的路径下。
而不是都存在控件的路径下，不然，如何区分是哪个项目的？
我不在意你把未完成的先源码给我（恰恰相反，我愿意你把你的每个开发
进展的版本都寄给我，这样我能更好的理解你的代码。）如果可能，在你
收到定金后，我希望能尽快得到代码，然后再根据我的看法，请你对相应
的部分进行修改。可以么？

第二个版本的源码发了，收到了吗？

基本解决了用户限制,我没用TList(要用指针我怕），用的是动态数组，
你试试效果。
还有完善了User的属性编辑框，
路径问题还没解决，因为Project在Design阶段是在Borland的目录下面,
只有save all以后才能得到当前路径。
这个问题得想想。

yeah, I got it, answer your mail, and thanks.

接受答案了.