delphi高手来啊

procedure TFcprkgl_win.doshowview;
var
  tstr: string;
  i: integer;
begin
  inherited;
  cds.Close;
  cds.RemoteServer := SocketCon;
  cds.ProviderName := 'DataSetProvider1';//cds是clientdataset
帮忙逐句解释一下吧详细点哦

答案：procedure TFcprkgl_win.doshowview;   ///函数名
var
  tstr: string;   ///变量
  i: integer;
begin
  inherited;   // 继承父类  
  cds.Close;            ///数据库关闭，
  cds.RemoteServer := SocketCon;  ///连接远程
  cds.ProviderName := 'DataSetProvider1';//cds是clientdataset

其他：procedure TFcprkgl_win.doshowview;    //过程定义
var                                                          //开始局部变量定义
  tstr: string;                                            //定义tstr为字串类
  i: integer;                                              //定义i为整数类
begin                                                      //过程开始
  inherited;                                              //继承上级的方法
  cds.Close;
  cds.RemoteServer := SocketCon;
  cds.ProviderName := 'DataSetProvider1';//此3句是连接服务器端query的sql的方式 clientdataset通过
scocket 远程连接服务器代码 菜鸟，UP trim（）去空格函数，会将你字符串开头或者结尾的空格等特殊符号去掉，保留你完整准确的字符串。
fieldbyname（）dataset中提取数据库数据的一种表达函数，指将此dataset中的这个列名的数据取出来。
ASSTRING，表示函数，将你的数据表示成字符串形式表示，用于处理。
这样你就应该明白了吧，完整意思为：将表中CPBH（产品编号）字段中的内容取出来，让此数据表示成字符串形式，然后为保证取出的字符串不会因为人为输入的空格等破坏了原有数据，而对此字符串做一个trim的判断，去除多余的空格，然后保证取出来的就是正确的产品编号，然后去比较，产品编号是否为空。

这段程序估计是用来寻找到那些忘记数据产品编号的产品的小程序吧，需要补填上产品编号。
 

上一个：delphi中根据record记录集中一个排序后的记录值输出所有记录值可以用什么方法
下一个：delphi 提示接口返回错误,网络不对 是怎么回事