AFromActn.Checked := True;

                ShowWindow(hWndPlugin,SW_SHOWDEFAULT);   //显示

            end

        else

            begin

                AFromActn.checked := False;

                ShowWindow(hWndPlugin,SW_HIDE) ;

            end;

        Exit;                                   //离开创建插件过程

    end;

    //初始化插件类实例

    if not InitializeMyPlugins(APlugin,sAlias) then

    begin

        showmessage(''''初始化插件类错误。'''');

        exit;

    end;

    //获得当前权限值

    APlugin.UserID := sUserID;

    //载入DLL窗口

    if not LoadShowPluginForm(APlugin) then

    begin

        showmessage(''''载入中心插件出错。'''');

        exit;

    end;

end;

//-----------------------------------------

//Name: InitializeMyPlugins

//Func: 初始化MYPLUGIN实例  (Caption | DllFileName | IsLoaded)

//Para: APlugin-TMyPlugins

//Rtrn: N/A

//Auth: CST

//Date: 2005-6-2

//-----------------------------------------

function TFormHall.InitializeMyPlugins(APlugin:TMyPlugins; sAlias:String):Boolean;

var

    strSQL:string;

    myDA:TMyDataAdapter;

begin

    Result:=False;

    myDA:=TMyDataAdapter.Create;

    strSQL:=''''SELECT * FROM SystemModuleList WHERE modAlias=''''+QuotedStr(sAlias);

    try

        myDA.RetrieveData(strSQL);

    except

        on E:Exception do

        begin

            result:=false;

            myDA.Free ;

            exit;

        end;

    end;

    try

        begin

            with myDA.MyDataSet do

            begin

                if Not IsEmpty then

                begin

&nbs

上一页  [1] [2] [3] [4] [5] [6] [7]  下一页