1. 在作为服务端的微机上新建一个本地用户,假设服务端的计算机名为server1,用户名为tmp,密码为12345
2. 假设数据库保存在服务端微机的D:\data文件夹下,将d:\data设为共享,共享名设为data,权限为“读取”和“修改”
3. 在客户端主程序的开头加入如下代码:
if !directory('\\server1\data')
cStr = 'net use \\server1\data "12345"/user:server1\tmp'
RUN &cStr
= inkey(0.5,'H')
if !directory('\\server1\data')
messagebox('无法访问服务端!',16,'提示')
retu
endif
endif