快讯

一个实际的OLE服务器的开发

2004-02-14 09:34  出处:PConline  作者:hkbarton/CSDN  责任编辑:linjixiong 

  end;      functionTCustFormOLE.Get_ProductName:WideString;      begin      result:=CustForm.ProductEdit.Text;      end;      functionTCustFormOLE.Get_ProductNum:Integer;      begin      result:=CustForm.ProNumEdit.Value;      end;      functionTCustFormOLE.Get_Remark:WideString;      begin      result:=CustForm.Memo1.Lines.Text;      end;   procedureTCustFormOLE.AddToData;      begin      CustForm.AddButton.Click;      end;      procedureTCustFormOLE.DelData;      begin   CustForm.DelButton.Click;      end;      procedureTCustFormOLE.Set_CustName(constValue:WideString);      begin      CustForm.CustomEdit.Text:=Value;   end;      procedureTCustFormOLE.Set_ProductName(constValue:WideString);      var      i:integer;      begin      i:=CustForm.ProductEdit.Items.IndexOf(Value);      ifi<>-1then      CustForm.ProductEdit.ItemIndex:=i      else     希望看到更多更经典的开发技巧,请随时刷新《开发特区》栏目。
察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:
键盘也能翻页,试试“← →”键
IT热词搜索 来源:360新闻
软件论坛帖子排行
相关文章

相关软件:

腾讯QQ2012
大小:52.93 MB 授权:免费
腾讯QQ2012
立即下载
腾讯QQ2013
大小:49.32 MB 授权:免费
腾讯QQ2013
立即下载