SQL Server基础教程 教学课件 作者 董翔英 等 第13章.pptVIP

第1步　将图13.16中Command1对 象的各字段拖放到窗体From1中， 并添加一个标签组件和三个按钮组 件，各组件分布如图13.17。 三、用户界面设计 第2步　双击“上一记录”按钮， 添加以下代码： Private Sub Command1_Click() With DataEnvironment1.rsComma Nd1 .MovePrevious If .BOF Then .MoveLast End If End With End Sub 第3步　双击“下一记录”按钮， 添加以下代码： Private Sub Command2_Click() With DataEnvironment1.rsComma Nd1 .MoveNext If .EOF Then .MoveFirst End If End With End Sub 第4步　双击“退出”按钮，添加 以下代码： Private Sub Command3_Click() Unload Form1 End Sub。 第5步　单击VB6工具栏上启动 按钮，运行程序，其结果如图 13.18。 　　在Delphi中使用BDE管理 器来连接数据库。 第1步　在“控制面板”中双击 BDE管理器，即打开BDE管理 器，如图13.19。 一、数据库连接 第2步　双击Database标签卡中 的数据源mySQLServer，在打 开的数据库登录对话框中输入用 户名和口令，如图13.20，单击 “OK”按钮，BDE管理器右边窗 口的连接定义信息为黑体显示。 第3步　启动Delhphi7，单击菜 单栏Database/ Explor，如图 13.21，在打开的数据库浏览器 左边窗口中展开mySQLServer 数据源，单击Table对象，可在 右边窗口看到连接的数据库中的 所有表，如图13.22。 　　下面以查询traffic数据库表 cl数据为例，介绍用户界面的设 计步骤： 第1步　启动Delphi7，系统自 动新建工程。 第2步　在窗体Form1中放上1 二、用户界面设计 个Lable组件、1个Edit组件、2 个Button组件、1个 DataSource组件、1个Query组 件和1个DBGrid组件，各组件属 性设置如表13.1，组件在窗体 Form1中的分布如图13.23， DataSource1 DataSource DBGrid1 Name DBGrid select * from cl SQL mySQLServer DatabaseName True Active Query1 Name Query Query1 DataSet DataSource1 Name DataSource bntExit Name 退　出 Caption Button bntQuery Name 查　询 Caption Button Edit1 Name Caption Edit Label1 Name 请输入类别 Caption Lable 取 值 属 性 对 象 * 第十三章 SQL Server综合应用 13.1 在VB环境中应用开发 13.2 在Delphi7环境中应用开发 （一）创建ODBC数据源 　　VB6.0中的数据库管理器以 ODBC方式连接SQL Server，需要 先在Windows 2000中创建ODBC数 据源，操作步骤如下： 第1步　在“控制面板”的“管理工具” 数据源设置窗口，单击system DNS标签卡，如图。 一、数据库连接 第2步　单击“添加”按钮，在打开的窗口中选择驱动程序为“SQL　Server”，如图13.2。单击“完成”按钮。 第3步　在打开的数据源定义窗 口中，在名称栏中输入”mySQLServer”，单击服 务器栏右边的下拉列表，选择 “DXY”，如图13.3。单击“下一 步”按钮。 第4步　选择SQL　Server登录的身份验证方式为SQL Server模式，在登录ID中输入“sa”，在口令栏中输入sa用户的口令，如图13.4。单击“下一步”按钮。 第5步　勾选改变默认数据库选 项，在下拉列表中选择“traffic” 数据库，如图13.5。单击下一 步。 第6步　在打开的窗口中单击“下 一步”。 第7步　在打开的窗口中单击“完 成”按钮。此时新建数据源设置 完毕，如图13.6。 系统数据源mySQLServer建立 后可以被多个用户连接使用。 （二）连接SQL　Server 　　创建了ODBC数据源后，即 可通过VB6.0提供的数据库管理 器，连接SQL　Server数据库，按以下步骤进行： 第1