delphi 数据库登录 印证

delphi 数据库登录 验证
我想用delphi模拟实现数据库登录操作，不知道怎么实现，希望有类似经验的朋友帮帮忙。
[解决办法]
自己做一个登陆的form（包含账号、密码等控件）就行了
[解决办法]
不一定用注册表。很多方法，xml，ini，甚至txt都行。
[解决办法]
获取所有数据库，你可以先连接master数据库，然后使用SQL语句，查询出所有的其他的数据库，下面的事情，你自己就知道了。
xml,ini，txt这些只是存储方式。除非你想要保存什么东西，否则不要也没什么不可。
[解决办法]

引用:

Quote: 引用:

自己做一个登陆的form（包含账号、密码等控件）就行了

这些我都做好了，如果是我自己的数据表，里面有用户，密码，我倒是会搞，但现在不是我的表，我就不知道要怎么实现。登录成功后，我还想可以列出服务器下的数据库，这又怎么实现要?

使用用户输入的账号、密码去通过adoconnection之类的数据库控件连接数据库
失败就报错
成功则返回database列表
[解决办法]

引用:

Quote: 引用:

获取所有数据库，你可以先连接master数据库，然后使用SQL语句，查询出所有的其他的数据库，下面的事情，你自己就知道了。
xml,ini，txt这些只是存储方式。除非你想要保存什么东西，否则不要也没什么不可。

我只想模拟SQL SERVER数据库登录，输入服务器，用户名，密码，选择登录方式，点击登录，如果登录成功就出一个新的界面，上面可以列出该服务器上的数据库，如果登录不成功就提示。

关于你的2个问题，登陆MSSQL服务器和列出服务器下的数据库，具体如下：
1、登陆服务器。
你可以做一个form，在form里面用edit控件（或其他控件）填写登陆用户名称，用户密码，服务器地址等信息，然后做一个button控件，在控件里面写入代码，登陆服务器的master：

  try
    你的连接代码
    showmessage('连接成功');//或者不用提示
  except
     showmessage('服务器连接失败');//或者不用提示
  end;

这里解释一下，有很多数据控件都要求连接数据库的时候，要提供数据库名称，所以你的登陆MSSQL的时候，可以选择master数据库，后面会用到。

2、列出该服务器上的数据库

这句MsSql语法是：
 Select Name From Master..SysDatabases order By Name


如果你还要列出某个数据库下面的表，那么语法是：
Select TABLE_NAME FROM 你的数据库名称.INFORMATION_SCHEMA.TABLES Where TABLE_TYPE='BASE TABLE' 




你的问题都在这里了。

如果你要问这么实现这个form，你可以考虑做一个from，里面有listbox控件（或其他控件），把所有的数据库名称ADD进listbox控件。当点击listbox控件里面某个数据库名称是，触发Select TABLE_NAME FROM 你的数据库名称.INFORMATION_SCHEMA.TABLES Where TABLE_TYPE='BASE TABLE'

然后将查出来的数据库表add进一个memo控件。诸如此类。

查看更多 下一篇