数据库应用技术SQL Server 2000 第10章 SQL Server应用实例

1,第10章 SQL Server 2000 应用实例,10.1 在Visual Basic中访问 SQL Server 2000 10.2 Delphi+SQL Server开发 图书管理系统,2,10.1 在Visual Basic中访问 SQL Server 2000,10.1.1 使用ADO控件访问 SQL Server数据库 10.1.2 使用ODBC连接SQL Server 数据库,3,10.1 在Visual Basic中访问 SQL Server 2000,按照前几章所讲述的方法，在企业管理器中创建数据库TSGL；登录数据库用户名和密码，分别为sa和空密码；创建“图书管理系统”所需要的数据表：读者表、图书表和借阅表，表的具体结构见表10-1、表10-2和表10-3。,4,表10-1 读者表,5,表10-2 图书表,6,表10-3 借阅表,7,使用ADO控件和ADO对象均可访问SQL Server数据库，在此使用ADO控件，主要设置ConnectionString属性，在连接资源中选择“使用ODBC”数据源名称，然后选择相应数据源名称，即可访问SQL Server数据库。,10.1.1 使用ADO控件访问 SQL Server数据库,8,具体步骤如下： （1）启动Visual Basic6.0，新建一个标准工程，默认名为“工程1”。在该工程中会自动创建一个窗体，默认名为“Form1”。 （2）单击“工程”菜单下的“部件”选项，在弹出的列表中选中“Microsoft ADO Data Control 6.0（OLEDB）”选项和“Microsoft DataGrid Control 6.0（OLEDB）”选项，然后单击“确定”按钮，Adodc控件和DataGrid控件将被添加到工具箱中。 （3）在“Form1”窗体上放置一个Adodc控件、一个DataGrid控件、一个CommandButton控件，设计的窗体如图10-1所示。主要控件对象的属性见表10-4,9,图10-1 使用ADO控件设计界面,10,表10-4 主要控件对象的属性列表,11,（4）设置Adodc1的ConnectionString属性：单击属性窗口中ConnectionString属性框右边的省略号按钮，将弹出如图10-2所示的“属性页”窗口，选中“使用连接字符串”选项。点击“生成”按钮，弹出如图10-3(a)所示的“数据链接属性”对话框。在此对话框中，在“提供者”选项卡中选择“Microsoft OLE DB provider for Server”；在“连接”选项卡中（见图10-3(b)）的“选择或输入服务器名称”列表框中输入“（local）”，在“用户名称”框中输入“sa”，并选择空密码；在“服务器上选择数据库”列表框中选择TSGL数据库。点击“测试连接”，如果正确，则连接成功；如果不正确，系统会指出具体的错误，应该重新检查配置的内容是否正确。,12,图10-2 属性页对话框,13,图10-3(a) 数据链接属性对话框,14,图10-3(b) 数据链接属性对话框,15,（5）设置RecordSource的属性：点击Adodc1属性窗口中的RecordSource属性框右边的省略号按钮，将出现如图10-4(a)所示的“记录源”对话框。在“命令类型”列表框中可以选择“命令文本”方式、“表”方式或“存储过程”方式；如果只是浏览数据表中的数据，可以设置RecordSource为读者表（如图10-4(a)所示）；如果程序中要对数据进行动态查询，应设置DataSource属性为文本方式的SQL语句，如：select * from 读者（如图10-4(b)所示。 （6）运行程序，结果如图10-5所示。,16,图10-4(a) 记录源设置对话框,17,图10-4(b) 记录源设置对话框,18,图10-5 使用ADO控件访问SQL Server数据库运行结果,19,ODBC即开放式数据库连接，是数据库服务器的一个标准协议。利用它可以在应用程序里连接多种类型的数据库系统，对于不同的数据库就要求使用不同的驱动程序，所以在使用ODBC时，应根据数据库类型的不同选择不同的DSN选项。,10.1.1 使用ODBC连接 SQL Server数据库,20,具体配置步骤如下： （1）单击“控制面板”中的“ODBC”数据源，打开“ODBC数据源管理器”，如图10-6所示。单击“添加”按钮来添加一个数据源。 （2）单击“添加”按钮后，系统将准备添加一个用户数据源。为了安装数据源，会弹出“创建新数据源”对话框，如图10-7所示。,21,图10-6 ODBC数据源管理器,22,图10-7创建新数据源对话框,23,（3）在“创建新数据源”对话框中，选择“SQL Server”后，单击“完成”按钮，进入“建立新的数据源到SQL Server”对话框，如图10-8所示。 在“名称”一栏中输入新的数据源名，这里输入TSGL作为新的数据源名称。在“说明”一栏中输入对数据源的描述，可以为空。在“服务器”一栏中输入想要连接的SQL Server服务器。如果要连接的服务器是安装在本机上的，那么可以选择local。,24,图10-8建立新的数据源到SQL Server对话框,25,（4）单击“完成”按钮，将完成新数据源的配置。单击“下一步”按钮将进行下一步的配置工作，在“建立新的数据源到SQL Server”对话框中（见图10-9(a)），输入相应登录的用户名（sa）和密码。 （5）单击“下一步”按钮，将出现图10-9(b)所示对话框，在“更改默认的数据库为：”列表框中，选择所需要的SQL Server数据库（如TSGL）。,26,图10-9(a) 建立新的数据源到SQL Server”对话框,27,图10-9(b) 建立新的数据源到SQL Server”对话框,28,（6）在图10-9(b)所示对话框中，单击“下一步”按钮，将出现如图10-10所示对话框，在该对话框中，单击“完成”按钮，将出现“测试数据源”对话框，单击“测试数据源”按钮，如果测试正确，则连接成功，如图10-11所示；如果测试不正确，系统会指出具体的错误，用户应该重新检查配置的内容是否正确。,29,图10-10建立新的数据源到SQL Server对话框,30,图10-11 SQL Server ODBC数据源测试,31,10.2 Delphi+SQL Server开发 图书管理系统,10.2.1 数据库设计 10.2.2 前台界面应用程序设计,32,10.2.1 数据库设计,按照前几章所讲述的方法，建立数据库TSGL。登录数据库用户名和密码（分别为sa和空密码）。在数据库TSGL中创建、生成系统所需要的数据表：“读者”表、“图书”表，“借阅”表，各个表的具体结构见表10-1、表10-2和表10-3。,33,10.2.2 前台界面应用程序设计,1设计主窗体 主窗体是各功能模块的入口，主窗体名为frm_main。设计界面如图10-12。 在该图中，放置了两个panel和5个SpeedButton，分别设置Caption属性，分别为5个按钮添加点击事件。 各按钮的功能和代码如下： （1）“新书入库”按钮用于打开新书入库管理窗口，为它添加OnClick事件，并添加如下代码： Frm_xsrk.ShowModal ;,34,图10-12 设计图书管理系统界面,35,（2）“办理借书证”按钮用于打开办理借书证管理窗口，为它添加OnClick事件，并添加如下代码： Frm_jsz.ShowModal ; （3）“图书借阅”按钮用于打开借阅管理窗口，为它添加OnClick事件，并添加如下代码： Frm_tsjy.ShowModal ; （4）“查询管理”按钮用于打开借书证信息、借阅查询窗口，为它添加OnClick事件，并添加如下代码： Frm¬_cx.ShowModal ; （5）“退出”按钮用于关闭主窗口，为它添加OnClick事件，并添加如下代码： close ;,36,2创建数据模块窗口 在应用程序中，对于一些经常使用的表、SQL语句，可以放在数据模块中，易于不同的模块引用。 创建数据模块的方法如下： （1）选择菜单File中New下的DataModule选项，新建一个数据模块窗体，窗体名为DataModule1。 （2）为窗体添加一个ADOConnection控件，如图10-13所示。,37,图10-13 添加ADOConnestion控件,38,（3）设置ADOConnection1的ConnectionString属性：Delphi与SQLL Server 2000的连接方式有多种方式，在此仅介绍使用ADO访问数据库的方法，即使用ADOConnection组件，最主要的参数是ConnectionString，这个属性是多个字符串的集合。设定ConnectionString属性可以使用“连接字符串编辑器”来实现。,39,具体方法如下： 单击“对象观察器”中ConnectionString属性框右边的“省略号”按钮，将弹出如图10-14所示的窗口，选中Use Connection String选项。 单击“Build”按钮，打开“数据库连接属性”编辑框，如图10-15（a）所示。在该对话框中，由于要连接SQL Server数据库，所以选择“Microsoft OLE BD Provider for SQL Server”项。,40,图 10-14 设置连接字符串窗口,41,图10-15 数据库连接属性编辑框,42,单击“下一步”按钮，将出现10-15（b）所示的“数据库链接属性”对话框，在此对话框可以确定数据源。如果是本地数据库，就填入（local），然后再填入用户名（sa）和密码（空），数据库名为TSGL。 然后单击“测试连接”按钮，如果连接成功，可以看到“测试成功提示”对话框，依次点击“确定” 按钮，即可完成ConnectionString参数设置。,43,图10-15 数据库连接属性编辑框,44,3创建“新书入库”管理窗口 新书入库管理窗口对应的单元文件为Uxsxx，窗体名为Frm_xsxx，设计窗体如图10-16所示。 整个界面分为3个部分，第一部分用来录入入库图书信息；第二部分用来浏览库内图书的相关信息；第三部分按钮主要用来实现清空、入库、删除、修改记录等操作。 主要控件及属性设置见表10-5。,45,图10-16 “新书入库”管理界面设计,46,表10-5 主要控件及属性设置,47,在窗体的FormShow事件添加如下代码： （2）在“入库”按钮的点击事件中加入代码，以实现新图书入库的功能。 在“修改”按钮的点击事件中加入代码，以实现对录入图书信息的修改功能。 （4）在“删除”按钮的点击事件中加入代码，以实现删除图书的功能。 （5）为了实现当前记录发生变化时，用于显示和编辑的控件内容能动态发生变化，在DataSource1 的DataSource1DataChange中添加代码： （6）为了防止在录入图书单价时误输入非数值型数据，可在Edt_price的KeyPress中添加代码： （7）在“关闭”按钮的点击事件中加入代码： 具体代码见教材P185188,48,4创建“办理借书证”管理窗口 “办理借书证”窗口同“新书入库”窗口类似，对应于单元U_jsz，设计的窗体如图10-17。 (1) 窗体名为Frm_jsz，主要控件及其属性见表10-6。,49,图10-17 借书证办理窗体设计界面,50,表10-6 主要控件及属性设置,51,在“办理”按钮的点击事件中添加如下代码，以实现插入记录的功能。（7）在“关闭”按钮的点击事件中加入代码： 为了防止在录入借书证号时误输入非数值型数据，可在Edt_card的KeyPress中添加代码： 具体代码见教材P189191,52,5