DELPHI多层分布式开发(2)

• // 由于后台数据库是SQL base的关系型数据库，所以您必须
  
  // 通过Form2输入UserName及Password，并且把这些数据
  
  // 通过应用程序服务器提供的SetDatabaseName传给后台数
  
  // 据库验证。

  on E: Exception do
  
  if E.Message = 'Password Required' then
  
  begin
  
  if InputDialog(UserName, Password) then
  
  DCOMConnection1.AppServer.SetDatabaseName(ComboBox1.Text,
  
  UserName, Password);
  
  end else raise;
  
  end;
  
  end;
  
  end;
  
  以后就可以利用服务器端的别名列表选择数据库了。
  
  双击该列表框实际上已经实现了联接，但是，窗口除关闭掉数据库显示以外，并没有其它的反应，这就是说，这个程序使用上还有若干不方便的地方，最重要的就是当连结上数据库以后，无法知道表的名字。这样，也无法方便的构造查询数据集的SQL语言。
  
  下面解决这个问题。
  
  现在，在服务器上再做一个方法： GetTableNames ，准备向客户端送表名。
  
  注意，要用Add加入一个传出参数。

  刷新后产生一个新的方法：

  function GetTableNames: OleVariant; safecall;

  现在可以写方法程序了：

  function TPcSQL.GetTableNames: OleVariant;
  
  var
  
  I: Integer;
  
  DBTables: TStrings;
  
  begin
  
  // 建立一个字符串数组存放所有表名。
  
  DBTables := TStringList.Create;
  
  try
  
  // 利用Database控件取得当前所有表名数据。
  
  Database1.GetTableNames(DBTables , False);

• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• DELPHI多层分布式开发(2) 相关文章：
• ·DELPHI多层分布式开发(2)
• DELPHI多层分布式开发(2) 相关软件

上一篇:Delphi中的包（三）：bpl和dll

下一篇:Delphi 与SQL编程(二)(1)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐