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]  下一页