{权限判断 }
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';
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';
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语句来完成增删改的 ,谁能给解释一下这段代码, 不难的
Try//
if ds_Mast.State in [dsInsert,dsEdit] then//如果数据集状态是修改或者插入
ds_Mast.DataSet.Post;//那么提交更改
CurrentDataSetStatus := opReading;
showmessage('保存成功!');//返回性信息,告诉用户更改了
Finally//无论上面的操作是否发生异常,都执行下面的代码,与except对应
Screen.Cursor := crDefault;//把鼠标变回默认状态
RefreshAction;
end;