VB程序员博客

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

一共5个管理员，其中超级用户可以对其他4个管理员进行权限分配。就是超级用户比管理员更高一级的权限不同权限的人员作不同的标记就可以了
权限分级就是了
1级用户权限最高，可以创建其它等级的用户，
权限表设计
权限代码 权限用户 用户密码
1 系统管理员 ******
2 管理员 1234
3 来宾 1

代码控制,统管理员可以添加管理员,对其他4个管理员进行权限分配

我举个例子说下自己想做啥吧。
比如A1中的值为1月1日。我手工横向拖动鼠标，那么B1就会变为1月2日，C1就会变为1月3日。以此类推
现在想用VBA实现手工拖动的功能。再具体点就是：已知A1为1月1日，我怎么将A2赋值为1月2日。不能写死~
看了好久文档，实在看不出哪个方法像可以实现这个功能~~求助啊！万分感谢！

<

我举个例子说下自己想做啥吧。
比如A1中的值为1月1日。我手工横向拖动鼠标，那么B1就会变为1月2日，C1就会变为1月3日。以此类推
现在想用VBA实现手工拖动的功能。再具体点就是：已知A1为1月1日，我怎么将A2赋值为1月2日。不能写死~
看了好久文档，实在看不出哪个方法像可以实现这个功能~~求助啊！万分感谢！

<

就是需要对注册表下的键的数据值进行修改。。。
要如何实现，有没有相关的API

参考

在VB中修改注册表键值http://school.cfan.com.cn/pro/vb/2008-08-04/1217830764d193706.shtml

http://blog.csdn.net/YeHeng/archive/2007/08/30/1765644.aspx有一堆API,调用也不难,只是流程比较多而已.

如果不想自己封装,那就用我这里收集的一个封装吧,基本上都封装为一个函数了,直接调用即可:

http://www.m5home.com/bbs/thread-422-1-4.htmlhttp://download.csdn.net/source/1709681Shell.Script 库
或者
API

VB安装盘里面的setupkits源代码就有完整的源代码。

就是需要对注册表下的键的数据值进行修改。。。
要如何实现，有没有相关的API

参考

在VB中修改注册表键值http://school.cfan.com.cn/pro/vb/2008-08-04/1217830764d193706.shtml

http://blog.csdn.net/YeHeng/archive/2007/08/30/1765644.aspx有一堆API,调用也不难,只是流程比较多而已.

如果不想自己封装,那就用我这里收集的一个封装吧,基本上都封装为一个函数了,直接调用即可:

http://www.m5home.com/bbs/thread-422-1-4.htmlhttp://download.csdn.net/source/1709681Shell.Script 库
或者
API

VB安装盘里面的setupkits源代码就有完整的源代码。

我是大四学生，要做个设备管理系统的课程设计，可是啥也没学会所以请各位大侠指导一下啊···谢谢啊www.taobao.com去买一个
www.google.com去搜索一个我有啊qq8152456要钱不
LZ够粗糙啊~粗糙？我咋粗糙了
<
大四啊
把需求帖出来。

我的student.mdb中包含两张表
一张是 基本情况 ：
学号 姓名
1    张三
2    李四
3    王二
4    麻子

一张是 学生成绩表：
学号 语文 数学 英语
1    85  98  68
2    75  62  95
3    56  74  42
4    85  95  41

我在窗体上添加了 Adodc,MsChart,DataGrid 各一个想通过 MsChart,DataGrid 连接Adodc，然后通过代码操作Adodc的RecordSource来控制MsChart,DataGrid的显示：（DataGrid如下，MsChart的格式我不好写出来，就是横轴是姓名，纵轴是每人的最高最低分，直方图 ）

DataGrid：

姓名 平均成绩 最低分数

。。  。。。    。。。

我编写的代码如下：

Private Sub Form_Load()
Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql + " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql + " group by 学生成绩表.学号,基本情况.姓名 order by  avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
先坦白下，因为我是个菜鸟，所以不知道代码写的对不对？或者是不是在设计窗体时还要设置什么连接？总之的的代码运行总是出错，希望高手能指点下，刚注册的号，不能给你很多分，希望见谅，不过在此真心的对你表示感谢！！！select 学生成绩表.学号, 基本情况.姓名,Avg(成绩)Dim sql As String, mlink As String
sql = "select 基本情况.姓名,Avg(成绩) as 平均成绩,min(成绩) as 最低成绩"
sql = sql & " from 基本情况,学生成绩表 where 基本情况.学号=学生成绩表.学号"
sql = sql & " group by 学生成绩表.学号,基本情况.姓名 order by  avg(成绩) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:我的文档\桌面student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh<
<