有关于VB的问题 - VB / 数据库(包含打印，安装，报表)
我要做一个进销存的软件 但是 第一个难题是怎么设置权限呢 比如超级管理员进入的话就可以进行所有操作但是普通管理
员进去的话 只能进行一些小操作 他操作的话就会提醒他 您无权操作这 个 怎么实现呢
数据库中的人员管理表加个标志位，如“1”表示超级管理员，“0”表示普通管理员等，然后在程序中进行判断区分功能。
设置一个全局+1楼的。
用一个用户表和功能表就可以实现了。
if 用户="超级用户" then
窗体或菜单.Enabled=true
else 用户="普通用户" then
部分窗体或菜单.Enabled=false
enidf
建立用户权限加密表，在程序中根据权限给于不同的操作功能。
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
