三层结构,零点起飞请进,欢迎各位大虾来讨论
我按照零点起飞如下的方法已经初步测试成功三层结构,
我想做进一步的实际应用,谁能给我做一些详尽说明呢?或者详细的代码或设计思路.毕竟下面这点代码太初步了
服务器的远程数据模块:
1、ADOConnection1 ConnectionString属性为要连接的数据库
2、DataSetProvider1 DataSet属性为ADODataSet1
3、ADODataSet1 Connection为ADOConnection1 CommandText为选择表
客户端数据模块:
1、DCOMConnetion1 设置ServerName(运行服务器了才有)
2、ClientDataSet1
3 DAtaSource1
————————————————————————
1.把服务器端的DataSetProvider11的Options\PoAllowCommadText属性设为 Ture
2、它的OnDAtaRequet事件的代码为:
ADODataSet1->Close();
ADODataSet1->CommandText=Input;
ADODataSet1->Open();
return ((TProvider*)Sender)->Data;
3.在客户端查询表单的头文件公有变量定义:AnsiString sql;
4.“查询”按钮代码:
int x;
try
{
sql="select * from xshxjhj where";
sql=sql+" xingm like '"+Edit1->Text+"%'";
sql=sql+" and xueh like '"+Edit2->Text+"%'";
sql=sql+" and minz like'"+Edit3->Text+"%'";
sql=sql+" and jig like '"+Edit4->Text+"%'";
sql=sql+" and kebbj like '"+Edit5->Text+"%'";
sql=sql+" and xingb like '"+Edit6->Text+"%'";
DataModule1->ClientDataSet1->Close();
DataModule1->ClientDataSet1->DataRequest(sql);
DataModule1->ClientDataSet1->Open();
DBGrid1->DataSource=DataModule1->DataSource1;
}
catch(...)
{
ShowMessage("对不起操作不能执行");
}
}