求教程源码:c/s模式的数据查询类程序(要调试通过)

Question

求教程源码:在c/s模式下有sql server数据查询功能程序,
另外求一套演示存储过程使用的教程源码,先行谢过各位大虾.调试通过马上给分．
[email protected]

Answer 1

c/s架构用这个方法连接数据库,然后就可以查询了
//AServerName, ADataName, AUser, Apass分别可以为服务器的IP地址\数据库名\用户名\密码
function getDataConnection(AServerName, ADataName, AUser, Apass:string);
begin
  Result := 'Provider=SQLOLEDB.1;Password=' + Apass 
            + ';Persist Security Info=True;User ID=' + AUser 
            + ';Initial Catalog=' + ADataName 
            + ';Data Source=' + AServerName;
end;
调用如下:
ADOConnection1.ConnectionString := getDataConnection(ServerName, DataName, User, pass);
ADOQuery1.connection := ADOConnection1;