7.4  网络数据库操作

前面的示例程序虽然能够浏览一个数据库中的数据信息，但是它只能够在本地机上浏览数据，随着网络技术的发展，经常需要开发一些支持网络操作的数据库程序，在Internet上发表数据等。为此，下面举了一个把数据库操作移植到网络上的应用程序示例，具体的程序设计步骤如下所示：

1．开始工作

首先，在Visual Basic 的集成开发环境中用鼠标选择菜单“文件”中的“新建工程”选项，在屏幕上就会弹出一个如图7-19所示的“新建工程”对话框。

图7-19  “新建工程”对话框

在“新建工程”对话框中选择“ActiveX文档 EXE”选项，单击OK按钮，在Visual Basic 中就新建了一个ActiveX文档项目，同时打开了一个空白的窗体。

窗体的属性设置如下所示：

Begin Visual Basic.UserDocument UserDocument1

         AutoRedraw       =       -1

         ClientHeight        =       4995

         ClientLeft  =       0

         ClientTop  =       0

         ClientWidth        =       7005

   BeginProperty Font

         Name         =       "Times New Roman"

         Size   =       10.5

         Charset      =       0

         Weight       =       400

         Underline   =       0

         Italic =       0

         Strikethrough      =       0

   EndProperty

         HScrollSmallChange     =       255

         KeyPreview        =       -1

         ScaleHeight         =       4995

         ScaleWidth =       7005

End

经过以上属性设置后的ActiveX文档设计窗口如图7-20所示。

图7-20  属性设置后的ActiveX文档设计窗口

2．添加数据显示控件

在本示例程序中，首先要利用利用数据控件Data及其TextBox控件和Label控件来进行数据库中的信息显示操作，所以在程序设计的过程中要向空白的窗体上添加一个Data控件、四个Label控件和四个TextBox控件，它们的作用在后面会加以叙述，添加到窗体上的各个控件的属性设置如下所示：

   Begin Visual Basic.TextBox Text4

         DataField   =       "Address"

         DataSource          =       "Data1"

         Text  =       "Text4"

   End

   Begin Visual Basic.TextBox Text3

         DataField   =       "Telephone"

         DataSource          =       "Data1"

         Text  =       "Text3"

   End

   Begin Visual Basic.TextBox Text2

 

         DataField="Company Name"

         DataSource          =       "Data1"

         Text  =       "Text2"

   End

   Begin Visual Basic.TextBox Text1

         DataField   =       "Name"

         DataSource          =       "Data1"

         Text  =       "Text1"

   End

   Begin Visual Basic.Data Data1

         Connect     =       "Access"

         DatabaseName    = D:\Microsoft

           VisualStudio\Visual Basic98\Biblio.mdb"

         ReadOnly  =       0

         RecordsetType   =       1

         RecordSource      =       "Publishers"

   End

   Begin Visual Basic.Label Label4

         Caption      =       "公司地址："

   End

   Begin Visual Basic.Label Label3

         Caption      =       "公司电话："

   End

   Begin Visual Basic.Label Label2

         Caption      =       "公司全名："

   End

   Begin Visual Basic.Label Label1

         Caption      =       "公司名称："

   End

添加到窗体上的各个控件的作用如下所示：

n          Data控件：在程序设计和运行的过程中，为用户和数据库中间提供一个接口，通过这个接口，用户可以对数据库进行操作；

n          Label控件：在程序运行的过程中显示固定的提示文本“公司名称：”、“公司全名：”、“公司地址：”和“公司电话：” ；

n          Text1控件：在程序运行的过程中，显示指定数据库位置的名称信息；

n          Text2控件：在程序运行的过程中，显示指定数据库位置的公司名称信息；

n          Text3控件：在程序运行的过程中，显示指定数据库位置的公司电话信息；

n          Text4控件：在程序运行的过程中，显示指定数据库位置的公司地址信息。

添加了数据显示控件后的窗体如图7-21所示。

图7-21  添加数据显示控件后的窗体

3．添加控制按钮

注意：

@        同前面的程序不同，在本示例程序运行的过程中，用户不但可以通过数据控件Data1来浏览数据库中的信息，还可以通过控制按钮来进行添加信息、删除记录等操作。

为此，在程序设计的过程中，向窗体上添加三个CommandButton控件，它们的属性设置如下所示：

   Begin Visual Basic.CommandButton Command1

         Caption      =       "保存数据"

   End

   Begin Visual Basic.CommandButton Command3

         Caption      =       "删除数据"

   End

   Begin Visual Basic.CommandButton Command2

         Caption      =       "追加数据"

   End

添加了控制按钮后的程序窗体如图7-22所示。

图7-22  添加控制按钮后的程序窗体