100分请人教我写登陆对话框

Question

登陆后就保持数据库连接，直到退出断开，挺简单吧，那就快答复啊，主要告诉我那几个控件要怎么用，要增加或改写那些函数就行。还有sql server那里要怎么办？

Answer 1

uses Dialogs;function RemoteLoginDialog(var AUserName, APassword: string): Boolean;
function LoginDialog(const ADatabaseName: string; var AUserName, APassword: string): 
Boolean;
显示一个登录对话框。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

呵呵，看我的行不：
用个TDataBase控件来保持与数据库的连接，登录时配置好BDE，建立与数据的连接，退出时将控件的连接属性断开！配置BDE要用到TSession，我说的是动态配置！如果动态配置BDE有问题我们再联系！

Answer 3

怎么配置BDE?
就是拉一个控件出来,设置以下属性就好了

Answer 4

delphi 5.0 开发人员指南中用一个例子。
我的qq 64458008，我给你发一个过去

Answer 5

可以帮你做一个示范程序，包括怎么建立连接，怎么写动态SQL语句，查询、修改、删除、插入等等之类。如果你有兴趣，请另外发贴找我哦！