{权限判断 }
Function  IsPower(ADOConn: TADOConnection;Const PowerCode,UsrCode:string):Boolean;stdcall; external 'UserMan.dll';我看别人的程序发现了这段话,这些应该是个方法吧?可我怎么找不到它里面的语句在哪?就只有这么一句话,谁能给我讲讲?还有好多叱,比如:
Function  IsPower(ADOConn: TADOConnection;Const PowerCode,UsrCode:string):Boolean;stdcall; external 'UserMan.dll';
{调用日志管理}
procedure Call_LogMDI(MainForm:TForm;AdoConn:TADOConnection);  stdcall; external 'Log.dll';
{写日志}
procedure WriteLog(AdoConn:TADOConnection;const LogOperCode,LogModule,LogOperName,LogOperContent,LogOperUsrCode,LogOperUsrName:String); stdcall; external 'Log.dll';
//得到软件的授权
Function IsRightRegister(ADOConn:TADOConnection;moduleID:string):Boolean; stdcall; external 'P_RegisterDLL.dll';

解决方案 »

  1.   

    Screen.Cursor := crSQLWait;
      Try
        if ds_Mast.State in [dsInsert,dsEdit] then
           ds_Mast.DataSet.Post;
        CurrentDataSetStatus := opReading;
        showmessage('保存成功!');
      Finally
      Screen.Cursor := crDefault;
      RefreshAction;
      end;
     这段代码是保存功能实现?? 
    花→小鱼←心(39430984) 14:31:20
    我以前在学校里学的是在QUERY里面ADD SQL语句来完成增删改的 ,谁能给解释一下这段代码, 不难的
      

  2.   

    Screen.Cursor := crSQLWait;//改变鼠标状态为crSQLWait
      Try//
        if ds_Mast.State in [dsInsert,dsEdit] then//如果数据集状态是修改或者插入
           ds_Mast.DataSet.Post;//那么提交更改
        CurrentDataSetStatus := opReading;
        showmessage('保存成功!');//返回性信息,告诉用户更改了
      Finally//无论上面的操作是否发生异常,都执行下面的代码,与except对应
      Screen.Cursor := crDefault;//把鼠标变回默认状态
      RefreshAction;
      end;