DELPHI多层分布式开发(2)

日期：2007年5月2日作者：查看:[大字体中字体小字体]

// 取得BDE所有设置的数据库别名数据

DBNames := DCOMConnection1.AppServer.GetDatabaseNames;

// 假如有数据库别名数据，则将其一个一个地加到ComboBox控件内

if VarIsArray(DBNames) then

for I := 0 to VarArrayHighBound(DBNames, 1) do

ComboBox1.Items.Add(DBNames[I]);

//把默认的数据库显示在第一个

ComboBox1.Text:='mymdb';

end;

运行以后可以看到服务器端的所有的别名：

为了用这个别名列表调用其它的数据库，考虑到有的数据库需要输入密码和用户名，需要加入一个新的Form。

File->New->other->new-form 这就加入了一个Form2

加入相应的输入密码控件。

其中：CheckBox1的属性 Name=Check ；而两个Edit控件的Text属性为空字符串。

Form2的两个按钮事件可以写成：

procedure TForm2.Button1Click(Sender: TObject);

begin

Check.Checked:=True;

close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Check.Checked:=False;

close;

end;
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页
DELPHI多层分布式开发(2) 相关文章：
·DELPHI多层分布式开发(2)
DELPHI多层分布式开发(2) 相关软件