这是我的调用语句
Function OpenPPS(hndApplication:THandle;Parent:TWinControl;Connect1:TADOConnection;Connect2:TAdoconnection;Company:String;Department:String;Per_no:String;Per_name:String):LongInt;
begin
Result:=-1;
Application.Handle:=hndApplication;
Main_F:=TMain_F.Create(Application);