在分布式多层结构中:
写出一下客户端程序的注释.
With CustomerData.SocketConnection1 do
begin
Address:=s_Address;
ServerName:=s_Name;
Connected:=True;
end;CustomerData.SocketConnection1.AppServer.LoginDB(d_Server,d_User,d_Password,d_Database);
with CustomerData do
begin
ClientDataSet1.ProviderName:='DataSetProvider1';
ClientDataSet2.ProviderName:='DataSetProvider2';
ClientDataSet3.ProviderName:='DataSetProvider3';
end;Q1:写出以上客户端程序的注释.
Q2:请运用ClientDataSet1 写出:查询Order1中Wordername为值X的程序.
写出一下客户端程序的注释.
With CustomerData.SocketConnection1 do
begin
Address:=s_Address;
ServerName:=s_Name;
Connected:=True;
end;CustomerData.SocketConnection1.AppServer.LoginDB(d_Server,d_User,d_Password,d_Database);
with CustomerData do
begin
ClientDataSet1.ProviderName:='DataSetProvider1';
ClientDataSet2.ProviderName:='DataSetProvider2';
ClientDataSet3.ProviderName:='DataSetProvider3';
end;Q1:写出以上客户端程序的注释.
Q2:请运用ClientDataSet1 写出:查询Order1中Wordername为值X的程序.
With CustomerData.SocketConnection1 do
begin
Address:=s_Address;
ServerName:=s_Name;
Connected:=True;
end;
//远端登录数据库
CustomerData.SocketConnection1.AppServer.LoginDB(d_Server,d_User,d_Password,d_Database);
//设置客户端ClientDataset的ProviderName;
with CustomerData do
begin
ClientDataSet1.ProviderName:='DataSetProvider1';
ClientDataSet2.ProviderName:='DataSetProvider2';
ClientDataSet3.ProviderName:='DataSetProvider3';
end;Q2:
ClientDataSet1.commandtext:='select * from order1 where '
+' wordername=''X''';
ClientDataset1.open;
这个需要将服务器端datasetprovider1.option里的poallowcommandtext选项选中