【原创】LzjACCESS.DLL v1.0 2009-8-27

阿杰

<p><font face="Verdana">**阿杰编写于:2009年8月27日<br/>******共5条命令****<br/>*!*&nbsp;CreateAccess&nbsp;&nbsp;&nbsp; 创建ACCESS数据库<br/>*!*&nbsp;DelAccessPwd&nbsp;&nbsp;&nbsp; 删除ACCESS数据库密码<br/>*!*&nbsp;GetAccessPwd&nbsp;读取ACCESS数据库密码<br/>*!*&nbsp;IsAccess&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 判断是否为ACCESS数据库<br/>*!*&nbsp;SetAccessPwd&nbsp;&nbsp;&nbsp; 设置或更改ACCESS数据库密码<br/>CLEAR</font></p>
<p><font face="Verdana">#DEFINE DLL "LzjAccess.dll"</font></p>
<p><font face="Verdana">DECLARE string GetAccessPwd IN DLL STRING<br/>DECLARE short SetAccessPwd IN DLL STRING,string,string&amp;&amp;SetAccessPwd(FileName,"原密码","新密码") <br/>DECLARE short CreateAccess IN DLL STRING,string<br/>DECLARE short IsAccess IN DLL string<br/>DECLARE short DelAccessPwd IN DLL string</font></p><font face="Verdana">
<p><br/>FileName="ACCESS数据库.mdb"<br/>IF IsAccess(filename)=0<br/>&nbsp;?"创建ACCESS数据库:",CreateAccess(FileName,"") &amp;&amp;创建ACCESS数据库&nbsp; &amp;&amp;成功返回 1,失败返回0<br/>endif</p>
<p>? "设置ACCESS数据库密码:",SetAccessPwd(FileName,"","123456") &amp;&amp;成功返回 1,失败返回0<br/>?"获取ACCESS数据库密码:", GetAccessPwd(FileName) &amp;&amp;有密码返回 密码,没密码返回""<br/>?<br/>? "更改ACCESS数据库密码:",SetAccessPwd(FileName,"123456","我是新密码") &amp;&amp;成功返回 1,失败返回0<br/>*?"删除ACCESS数据库删除",DelAccessPwd(FileName)<br/>?"获取ACCESS数据库密码:", GetAccessPwd(FileName) &amp;&amp;有密码返回 密码,没密码返回""</p>
<p>ERASE (FileName)<br/>CLEAR DLLS </font></p>