任务1：用VB读取EXCEL某一单元格中数据，并显示在文本框中,并可以修改后保存在原文件中。

★单击打开具体的操作步骤

这个程序的完整代码如下：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

Private Sub Command2_Click()

Dim VBExcel As Excel.Application ‘定义application对象

Dim VBExcelbook As Excel.Workbook ‘定义workbook对象

Dim VBExcelsheet As Excel.Worksheet ‘定义sheet对象

‘设置EXCEL对象，打开文件并显示

Set VBExcel = Excel.Application

If Text1.Text <> “” Then

      Set VBExcelbook = VBExcel.Workbooks.Open(Text1.Text)

Else: MsgBox “请设置文件！”

      Exit Sub

End If

Dim sheetnumber As Integer

Dim sheethang As Integer

Dim sheetlie As Integer

sheetnumber = Text3.Text

sheethang = Text4.Text

sheetlie = Text5.Text

VBExcelbook.Worksheets(sheetnumber).Activate

Text2.Text = VBExcelbook.ActiveSheet.Cells(sheethang, sheetlie).Value

‘VBExcelbook.ActiveSheet.Cells(2, 1).Value = “=rand()”

‘VBExcelbook.Save

VBExcelbook.RunAutoMacros (xlAutoClose) ‘执行EXCEL关闭宏

VBExcelbook.Close (True)

VBExcel.Quit

Set VBExcelbook = Nothing

Set VBExcel = Nothing

End Sub

Private Sub Command3_Click()

Dim VBExcel As Excel.Application ‘定义application对象

Dim VBExcelbook As Excel.Workbook ‘定义workbook对象

Dim VBExcelsheet As Excel.Worksheet ‘定义sheet对象

‘设置EXCEL对象，打开文件并显示

Set VBExcel = Excel.Application

If Text1.Text <> “” Then

      Set VBExcelbook = VBExcel.Workbooks.Open(Text1.Text)

Else: MsgBox “请设置文件！”

      Exit Sub

End If

Dim sheetnumber As Integer

Dim sheethang As Integer

Dim sheetlie As Integer

sheetnumber = Text3.Text

sheethang = Text4.Text

sheetlie = Text5.Text

VBExcelbook.Worksheets(sheetnumber).Activate

VBExcelbook.ActiveSheet.Cells(sheethang, sheetlie).Value = Text2.Text

‘VBExcelbook.ActiveSheet.Cells(2, 1).Value = “=rand()”

VBExcelbook.Save

VBExcelbook.RunAutoMacros (xlAutoClose) ‘执行EXCEL关闭宏

VBExcelbook.Close (True)

VBExcel.Quit

Set VBExcelbook = Nothing

Set VBExcel = Nothing

End Sub

Private Sub Command4_Click()

End

End Sub

任务1：用VB读取EXCEL某一单元格中数据，并显示在文本框中,并可以修改后保存在原文件中。

步骤：

1、新建一个VB工程，添加一个common dialog 控件，便于打开指定文件，如下图（图1）：

这样在工具栏上就多了一个common dialog控件，如下图（图2）：

接下来将此控件拖入表单。在界面上添加一个文本框和一个按钮，按钮caption命名为：指定文件。输入如下代码：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

这样就可以指定任意EXCEL文件作为操作对象。

2、读取指定文件第1个工作表第1行第1个单元格的值，并显示在text2中。

添加文本框TEXT2，将其text属性设为空。添加一个按钮，将其caption设为“显示内容”。接下引用EXCEL类型库，如下图（图3）：

双击“显示内容”按钮，输入如下代码：

Private Sub Command2_Click()

Dim VBExcel As Excel.Application ‘定义application对象

Dim VBExcelbook As Excel.Workbook ‘定义workbook对象

Dim VBExcelsheet As Excel.Worksheet ‘定义sheet对象

‘设置EXCEL对象，打开文件并显示

Set VBExcel = Excel.Application

If Text1.Text <> “” Then

      Set VBExcelbook = VBExcel.Workbooks.Open(Text1.Text)

Else: MsgBox “请设置文件！”

      Exit Sub

End If

VBExcelbook.Worksheets [1].Activate

Text2.Text = VBExcelbook.ActiveSheet.Cells(1, 1).Value

End Sub

运行后出现错误提示，如下图（图4）：

提示为：编译错误：属性的使用无效。错误代码提示为：VBExcelbook.Worksheets [1].Activate中的Worksheets [1]属性。改为VBExcelbook.Worksheets(“sheet1″).Activate或者VBExcelbook.Worksheets(1).Activate就能正常显示了。

3、及时关闭EXCEL工作簿

上述代码中，只是打开了EXCEL，这将导致EXCEL一直在进程中，因此有必要关闭，在“显示内容”按钮中增加如下代码：

VBExcelbook.Close (True)

VBExcel.Quit

Set VBExcelbook = Nothing

Set VBExcel = Nothing

  　　VBExcelbook.RunAutoMacros (xlAutoClose) ‘执行EXCEL关闭宏

  　　VBExcelbook.Close (True) ‘关闭EXCEL工作簿　

  　　VBExcel.Quit ‘关闭EXCEL

★这个程序的完整代码

1、启动设置界面，运行命令“control userpassWords2”

    点击“开始”→运行→输入control userpasswords2→确定

2、接上一步，单击确定后出现如下对话框（图1）：

去掉“要使用本机，用户必须输入用户名和密码”前面的钩，单击应用。

3、设置登陆账号密码

在上一步单击“应用”后，出现如下对话框（图2）：

输入你要用来自动登陆的账号和密码，单击确定。重启计算机就发现能自动登陆了。

1、发表文章功能；

2、发表评论功能；

3、提升问题为“协作问题”功能，将问题归为相关问题并实现静态化的功能；

4、分类导航，文章运用JS动态归类（静态文章，动态调用）；

5、管理员、学校管理层、教师、协作组长、家长委员会、家长、协作成员、注册用户逐层管理；

6、添加修改广告功能；

7、管理友情链接、备案信息；

8、管理文章功能。

数据库结构设计如下：

用户表：

用户ID、呢称、密码、真实姓名、简介、协作组ID、级别、协作组名称

文章表：

文章ID、标题、发表时间、是否修改、修改时间、简介、文章级别、隶属协作问题文章ID、隶属协作组ID、评论条数。

评论表：

评论ID、被评文章ID、评论标题、评论作者、评论时间、评论内容

协作问题表：

协作问题ID、文章ID

协作组信息表：

协作组ID、协作组创建者、协作者名称

协作组成员表：

协作组ID、协作组成员ID、协作组成员呢称

家校通文章表：

家校文章ID、文章发表时间、是否修改、修改时间、标题、简介、作者、级别、评论

心理辅导表：

心理辅导文章ID、文章发表时间、是否修改、修改时间、标题、简介、作者、级别、评论

友情链接表：

友情链接ID、URL、标题、简介、图片地址

广告表：

广告ID、广告代码、广告是否显示

备案及其他信息表：

备案信息、站长联系方式。

首先在网上搜索“为什么不能显示数据库中的表”，找了近3个小时，没有找到对应的答案；

实在无奈的情况下，退出MySQL，重新进入，打开帮助文件，硬着头皮看那些英文，发现这样一句：Note that all text commands must be first on line and end with ‘;’这句的意思是：要在命令后面加上“；”，猛然发现我的所有命令都没有加“；”，立即尝试一下，运行成功。

问题终于找到了——原来是命令后面没有加分号。

执行MySQL命令——分号很重要。

经验反思：

1、要仔细观察，本例中我之前没有仔细看提示，命令行中没有提示结果，一般是命令没有结束，我没有注意到这一点。

2、遇到问题，首先要看系统的帮助文件，我就是因为开始没有看帮助文件，才导致白白浪费了3个小时。

1、首先创建一个数据库，命名为myblog；

2、打开db.sql文件，在第一行添加代码：use myblog；

3、这个db.sql文件还有一个错误，就是多一个use，在CREATE TABLE article这一行后面，这将导致article这个表无法创建，删掉其中的use就行。

修改完成后，进入mysql，执行source  路径\db.sql 就可以安装好数据库了。

经验反思：

1、不要迷信书，书中也常会有错误；

2、要动手，更要发现书中的错误；

3、根据实践中错误提示找问题，是一条捷径。上面的例子中，根据MySQL系统提示，思考为什么没有数据库选取呢，后来发现文件中没有相应的命令，然后就搜索如何选取数据库。按这条线进行，很快就解决了问题。

配置任务1：Apache服务器安装在C:\Apache；网站文件存放在C:\Apache\blog\WebRoot；现在指定本机的8080端口访问该网站。

操作步骤如下：

1．打开C:\Apache\conf\httpd.conf；

2．添加如下代码：

Listen 8080

NameVirtualHost *:8080

<VirtualHost *:8080>

  DocumentRoot “C:\Apache\blog\WebRoot”

</VirtualHost>

3．保存httpd.conf，重启Apache服务器。

在浏览器中打开http://localhost:8080，发现打不开，究竟哪里出了问题呢？

这是目录访问权限的问题，在上述代码的上方加入如下代码：

<Directory “C:/Apache/blog/WebRoot”>

    AllowOverride None

    Options None

    Order allow,deny

    Allow from all

</Directory>

保存后重启Apache服务器，一切正常。

经验反思：

1．设置虚拟主机，首先要考虑磁盘目录的访问权限；设置目录权限用Directory命令；

2．配置虚拟主机端口用VirtualHost命令；*可以代表本机的任意IP地址；

3．配置虚拟主机的目录用DocumentRoot命令。

配置任务2：设置本网站的默认文档为index.html default.html

此任务需要在httpd.conf配置文件中修改Dir_module模块，修改后代码如下：

<IfModule dir_module>

    DirectoryIndex default.html index.html

</IfModule>

修改后保存httpd.conf文件，重启Apache服务器，打开http://localhost:8080/,将显示此目录下的default.html文件。

经过这两个步骤，已经网站已经能正常运行了。

下一步就是添加数据库。

这时，该选择哪一项呢？这三项的大致含义分别如下：

Developer Machine：开发者的机器

Server Machine：服务器的机器

Dedicated MySQL Server Machine：专门的MySQL服务器。

由于我安装MySQL是为了博客网站服务的，所以当然选择第2项，作为一个服务器。然后单击next，进入下一个步骤。出现如下界面（图2）：

这是服务器环境配置对话框，三项的含义分别如下：

Multifunctional Database：多功能数据库

Transactional Database Only：事务数据库

Non-Transactional Database Only：非事务数据库。

因为我的数据库是用于网站的，所以选择第一项。单击next，出现如下界面（图3）

这是服务器环境配置对话框，其中的三项分别是：

Decision Support (DSS)/OLAP：决策支持系统；

Online Transaction Processing (OLTP)：在线事务处理

Manual Setting：手工调节。

因此，在这里应该选择第2项。

补充概念：

1、DSS的英文全称为Decision Support System，中文翻译为决策支持系统。相当于基于数据仓库的应用。决策支持就是在收集所有有关数据和信息，经过加工整理，来为企业决策管理层提供信息，为决策者的决策提供依据

2、OLAP联机分析处理(OLAP)的概念最早是由关系数据库之父E.F.Codd于1993年提出的。当时，Codd认为联机事务处理(OLTP)已不能满足终端用户对数据库查询分析的需要，SQL对大数据库进行的简单查询也不能满足用户分析的需求。用户的决策分析需要对关系数据库进行大量计算才能得到结果，而查询的结果并不能满足决策者提出的需求。因此Codd提出了多维数据库和多维分析的概念，即OLAP。

接下来，单击next，进入下一个界面（图4）

这是设置网络选项，其中的两项分别是：

Enable TCP/IP Networking：打开TCP/IP网络

Enable Strict Mode：打开精确模式

这里要选上Add firewall exception for this port，这样可以让防火墙开放3306端口。单击next，进入选择字符编码的界面：（图5）

由于是中文网站，所以选择第3项，Manual Selected Default Character Set/Collation，将Character Set 设为GBK。

接下来单击next，安装MySQL windows服务，再点击下一步，进入设置管理员密码的界面，如下图：（图6）

单击next，进入准备执行的界面，单击Execute按钮，执行配置文件。

执行完成后，MySQL就安装好了。

那么数据库设计的主要问题是什么呢？从目标考虑，设计数据库具体表现为设计数据库的“表”。“表”与实体是一一对应的关系。教科书上讲过数据库设计过程的10个步骤如下：

设计关系数据库系统的过程涉及1 0个基本步骤：

1) 确定数据库系统将要表达的对象（数据源）。

2) 发现对象间的关联（当有多个对象时）。

3) 决定对象的重要属性和行为。

4) 确定对象的属性如何相关。

5) 创建一个初级数据字典来定义形成数据库基础的那些表。

6) 基于表中数据对象之间的关联来指定数据库表之间的关系，并把这种信息集成到数据

字典。

7) 建立创建和修改表中数据的更新和事务的类型，包括必要的数据完整性需求。

决定如何使用索引来加速查询操作，而无须大幅度地降低往表中添加数据的速度或占用

太多硬盘空间。

9) 决定谁可以访问和更改每个表中数据（数据安全性），如果有必要还包括决定谁可以更

改表的结构以保证数据安全性。

10) 完整地记录数据库设计，完成包含数据库和其中每个表的数据字典以及编写用于数据

库维护的过程，包括文件备份和恢复。

在以上的这10个步骤中，最麻烦的当属第一个步骤，这与经验有很大的关系。下面就谈谈如何分析、设计网站的数据库。

一、实体分析

用户实体：用户ID、用户呢称、用户密码、博客名、用户级别、博客地址、QQ号、邮箱、

文章实体：标题、作者、简介、时间、编号、地址、类别、评论地址

协作组实体：创立者、协作组长、成员、

评论实体：所评论文章、评论作者、评论时间、评论标题、评论内容

一、需求分析

网站主要是为课题《用博客进行协作学习的方法研究》服务的。核心功能是：师生进行协作学习。基本功能列表如下：

1、游客功能：

查看文章；

查看作者部分信息；

2、注册用户功能：

注册用户可以查看文章；

可以加入某个协作组；

注册用户可以发表评论；

注册用户未加入协作组的不能发表文章，加入协作组的可以发表文章；

注册用户可以更新个人资料，添加博客链接，上传头像（限制大小）；

3、协作组长

拥有注册用户的功能；可以发表文章；

可以推荐文章到首页；

4、家长

拥有注册用户的基本功能，并可以发表文章（文章后面将注明家长）；

家长的文章将出现在专门的家长反馈一栏中；

5、教师功能

拥有注册用户的基本功能；可以发表文章；

可以创建协作组（最多10个）；

可以查看作者的真实姓名；

可以指定某个协作组内成员为协作组长；

可以邀请某个注册用户加入协作组；

可以邀请某个注册用户作为家长加入；

6、管理员功能：

管理员可以提升某个用户为协作组长；可以指定某用户为教师；

管理员可以查看作者的真实姓名；

二、系统设计

1、系统结构

网站系统分为：首页、类别页、文章页三层结构。首页显示各类别的最新6篇文章链接以及各协作组最新文章；类别页显示最新类别的所有文章列表。

2、系统流程分析

用户登陆之前：

可以浏览文章；

用户登陆以后：

可以浏览文章、发表评论；

在个人信息中，可以设置加入协作组（需审核）；

在个人信息中，可以设置个人真实姓名、博客链接、呢称、座右铭。

协作组用户、教师、家长登陆后：

可以浏览文章、发表评论；可以给文章、回复评分。

可以登陆后台发表文章、管理文章；

协作组用户、家长登陆后：

可以在个人信息设置中，加入协作组（加入需审核）或退出协作组；（每人不超过3个组）；

协作组长登陆后：

可以修改、删除组内成员的文章；

教师、管理员登陆后：

可以浏览文章、发表评论；

可以创建或解散协作组、审核协作组成员、邀请家长；

可以指定协作组长。

管理员登陆后：

可以审核是否为教师；