基于SQL Server的C/S数据库应用系统（2）

7. 在SQL Server中为数据库用户设置访问权限

(1) 对于新开的数据库一定要为访问它的用户提供权限,否则这个数据库是不能被访问的。 

(2) 启动Microsoft SQL Server 6.5 EM ,选择适当的服务器以及数据库。

(3) 从Object菜单中选择Object Permission菜单项,再在弹出的对话框中列出了单击By Us er标签。

(4) 要想授予一个用户或用户组特定的权限,只要从User/Group下拉式列表中选定用户或用 户组,并单击相应权限的单元格。

(5) 最后单击“Set”按钮,保存设置。

另外,SQL Server 6.5也为系统管理员提供了功能强大的备份和恢复数据库功能。

但是,想从网络客户机访问SQL Server只设服务器方还不行。利用Visual Basic 对SQL Ser ver进行编程还需要对客户端的ODBC进行设置。
ODBC（开放数据库连接）是Microsoft为应用程序开发人员提供的一种策略。它采用 单一的API来辐射各种不同的数据库引擎、关系和非关系的DBMS（数据库管理系统）。它使 数据库开发人员在开发数据库应用系统的时候,可以使用熟悉的ODBC SQL语法,而不用考虑 数据源是什么。

8. 以下是客户端ODBC的设置和调试方法

(1) 对于USER DSN的设置

① 在系统的“开始”菜单上选择“设置”,单击其中的“控制面板”,弹出控制面板框。 

② 双击“32bit ODBC”图标,弹出“ODBC data source administrator”窗口,选择“USE R DSN”页,单击“Add...”按钮。

③ 在“Create New Data Source”窗口中选择“SQL SERVER”后,单击“完成”按钮,弹 出“ODBC SQL SERVER Setup”窗口。

④ 在 Data Source Name 中输入数据源名,如“pms”；在 Description 中输入描述信息 （可选）；在 Server 中输入SQL SERVER 服务器名,如“hfserver”；单击Option 按钮, 在 Database Name 中输入SQL SERVER 数据库名,如“PMS98”,单击“OK”按钮。

⑤ 单击“确定”按钮。

(2) 对于File DSN的调试

① 在系统的“开始”菜单上选择“设置”,单击其中的“控制面板”,弹出控制面板框。 

② 双击“32bit ODBC”图标,弹出“ODBC data source administrator”窗口,选择“Fil e DSN”页,单击“Add...”按钮。

③ 在“Create New Data Source”窗口中选择“SQL SERVER”后,单击“下一步”按钮, 在弹出的输入框中输入数据源名,如“pms”, 单击“下一步”按钮,在弹出的信息框中单 击“完成”按钮。

④ 在弹出的SQL Server Login对话框中：在“Server”栏中输入SQL Server服务器名；在 “Login ID”栏和“Password”栏中输入登陆SQL Server时用的用户名和用户口令；然后单 击“Options》”按钮,在Options框中的Database栏中选择所想登陆的SQL Server数据库名 。然后单击“OK”按钮。

Visual Basic 5.0 是Microsoft推出的一个功能强大的可视化编程工具。它凭借与ODBC良好 的接口和提供给用户极其完善的网络数据库访问控件,赢得国内外众多编程爱好者的青睐。 有了Visual Basic我们可以利用它的ODBC接口在几分钟内编制一个基于SQL Server的客户机 /服务器数据库应用软件。

9. 以下采用编程常用的DAO和RDO两种方法,为大家介绍 一下怎样使用Visual Basic 5.0访问远程SQL Server数据库

(1) 用DAO方法打开远程数据库

① 在本地ODBC的FileDSN中设置与SQL SERVER连接的数据源。

需要设：Data Source Name:数据源名,Server:SQL服务器名,Login ID:用户名,Password :用户口令,Database Name:数据库名。(这种设置不可在单机状态下设)

② 添加data控件,以及一个DBGrid控件

③ 在程序中添加如下代码：假定数据源名为pms;用户名为：test；用户口令为：355；SQL Server数据表为：工资情况。

Dim ssql As String

Data1.Connect=″ODBC;DSN=pms;uid=test;pwd=355″

ssql=″select*from 工资情况″

Data1.RecordSource=ssql

Data.Refresh
 
④ 运行程序即可。

(2) 用RDO方法打开远程数据库

① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。

需要设：Data Source Name:数据源名,Descrption:描述,Server:SQL Server服务器名,D atabase Name:数据库名。(这种设置可在单机状态下设)

② 在程序中添加：

Option Explicit

Private mrdoenv As rdoEnvironment

Private mrdoconn As rdoConnection

Private mrdors As rdoResultset

Private Sub Command1Click()

Dim ssql As String

Set mrdoenv=rdoEnvironments(0)

Set mrdoconn=mrdoenv.OpenConnection(″pms″,
rdDriverNoPrompt,False,″ODBC;UID=te st;PWD=355″)

ssql=″select*from 工资情况″

Set mrdors=mrdoconn.OpenResultset
ssql,rdOpenKeyset,rdConcurRowVer,0)

 
以后对mrdors对象进行操作即可。(如：可用Text控件与其相连,但不可用DBGrid。)。

(3) 用DAO控件打开远程数据库

① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。(下转第19页)

需要设：Data Source Name:数据源名,Description:描述,Server:SQL Server服务器名, Database Name:数据库名。(这种设置可在单机状态下设)

② 添加DAO控件和DBGrid控件。

DAO控件：在DataSourcename中添入相应的ODBC的DSN,如“pms”；

DBGrid:在Datasource中选择相应的DAO控件名。

③ 在程序中添加：

Data1.Connect=″UID=test;PWD=355″

ssql=″select*from 工资情况 where 姓名 like′*′″

Data1.RecordSource=ssql

Data1.Refresh

④ 运行程序即可。

(4) 用RDO控件打开远程数据库

① 在本地ODBC的UserDSN中设置与SQL SERVER连接的数据源。

需要设：Data Source Name:数据源名,Description:描述,Server:SQL Server服务器名, Database Name:数据库名。(这种设置可在单机状态下设)

② 添加RDO控件和DBGrid控件：

RDO控件：在DataSourcename中添入相应的ODBC的DSN；在SQL中添入SQL查询语句；在Passwo rd中添入访问此数据库的密码；在Username中添入访问此数据库的用户名。

DBGrid:在Datasource中选择相应的RDO控件名。

③ 运行程序即可。

注意：如果需要使用模糊查询功能,那么RDO的方法和控件均不适用。请选择DAO控件使用。

通过上述设置,我们可以用SQL Server和Visual Basic这两种功能强大的网络编程软件编制 出各种满足需要的Client/Server数据库应用系统。