DELPHI多层分布式开发(2)

• //显示表名，这段程序是新加的
  
  ComboBox2.Clear;
  
  DBTables := DCOMConnection1.AppServer.GetTableNames;
  
  if VarIsArray(DBTables) then
  
  for I := 0 to VarArrayHighBound(DBTables, 1) do
  
  ComboBox2.Items.Add(DBtables[I]);
  
  ComboBox2.Text:=ComboBox2.items[0];
  
  end;
  
  end;

  给ComboBpx2加一个双击事件，可以把表的名字加入SQL 语言：

  procedure TForm1.ComboBox2DblClick(Sender: TObject);
  
  begin
  
  Memo1.text:=Memo1.text+combobox2.text;
  
  end;

  效果就完全不同了，你可以方便的选择数据库和表：
  
  然后组合适当的SQL语言，最终打开一个合适的表。
  
  进一步考虑，组合新的SQL语言的时候最好要有字段名的数据，这不需要从服务器得到，因为在多层情况下，ClientDataSet实际上起着Ttable或者Tquery相似的作用，对数据库的控制上，有几乎相同的语言，例如记录指针的移动，字段数据的取得和写入等等，这样一来，你也可以直接使用这些方法来操纵数据库。
  
  再一次提醒大家，ClientDataSet是个功能强大非常重要的控件，在Delphi的很多高级场合，都要使用到它。
  
  当然，利用ClientDataSet，被打开数据库的字段名表也很容易得到。
  
  首先再加一个Combbox控件Combbox3。

  把SQL 查询的Button事件作如下修改：

  procedure TForm1.Button1Click(Sender: TObject);
  
  //首先要定义两个变量
  
  var i,N:integer;
  
  begin
  
  ClientDataSet1.Close;
  
  ClientDataSet1.CommandText := Memo1.Lines.Text;
  
  ClientDataSet1.Open;

• 上一页 [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

特别推荐