|
protected
function Get_CustName: WideString; safecall;
function Get_ProductName: WideString; safecall;
function Get_ProductNum: Integer; safecall;
function Get_Remark: WideString; safecall;
procedure AddToData; safecall;
procedure DelData; safecall;
procedure Set_CustName(const Value: WideString); safecall;
procedure Set_ProductName(const Value: WideString); safecall;
procedure Set_ProductNum(Value: Integer); safecall;
procedure Set_Remark(const Value: WideString); safecall;
end;
implementation
uses ComServ,CustFormUnit;
function TCustFormOLE.Get_CustName: WideString;
begin
result:=CustForm.CustomEdit.Text;
//可以看到，我们只是用了最初程序窗体的控件和属性，这里的接口实现相当于
//只是简单的封状了我们的原始程序，下面的代码情况类似。
end;
function TCustFormOLE.Get_ProductName: WideString;
begin
result:=CustForm.ProductEdit.Text;
end;
function TCustFormOLE.Get_ProductNum: Integer;
begin
result:=CustForm.ProNumEdit.Value;
end;
function TCustFormOLE.Get_Remark: WideString;
begin
result:=CustForm.Memo1.Lines.Text;
end;
procedure TCustFormOLE.AddToData;
begin
CustForm.AddButton.Click;
end;
procedure TCustFormOLE.DelData;
begin
CustForm.DelButton.Click;
end;
procedure TCustFormOLE.Set_CustName(const Value: WideString);
begin
CustForm.CustomEdit.Text:=Value;
end;
procedure TCustFormOLE.Set_ProductName(const Value: WideString);
var
i:integer;
begin
i:=CustForm.ProductEdit.Items.IndexOf(Value);
if i<>-1 then
CustForm.ProductEdit.ItemIndex:=i
else
begin
messagebox(CustForm.Handle,''''你在客户程序指定的商品类型并不存在！'''',''''CustProOLE常规错误'''',MB_ICONWARNING);
CustForm.ProductEdit.ItemIndex:=0;
end;
上一页 [1] [2] [3] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
