VB连接SQL Server 2008数据库.ppt

（7）单击“读者查询”按钮时根据ReaderID控件中的借书证号从XS表中查询读者的信息并的窗口中显示，同时在窗口表格中同步显示该读者的记录。 （8）单击“读者追加”按钮时将用户输入的读者信息添加到TReader表中，如果读者已经存在则给出提示。 （9）单击“读者修改”按钮将修改当前读者的信息。 （10）单击“读者删除”按钮将删除当前读者的信息，如果读者存在借书记录则不允许删除，给出“删除失败”的提示。 Private Sub delete_Click() Ret = MsgBox(是否要删除 + ReaderADO.Recordset(借书证号) + 号读者的记录？, vbYesNo, 提示) If Ret = vbYes Then SqlCmd.CommandText = DELETE FROM XS WHERE 借书证号= + ReaderADO.Recordset(借书证号) + On Error GoTo HandErr 之后执行的语句如果出错则跳至标号HandErr Set SqlRes = SqlCmd.Execute Call MsgBox(删除成功！) ReaderADO.Refresh Exit Sub 标号 HandErr: Call MsgBox(删除失败！) End If End Sub 单击工具栏的运行按钮运行主界面，选择“读者管理”功能后运行的界面如图13.12所示。 图13.12 读者管理窗口 1．主要功能 用户输入读者的借书证号可以从视图RBL中查询该读者的所有借书记录，然后在ISBN输入框中输入要借图书的ISBN，在索书号输入框中输入所借该书的索书号，然后单击“借书”按钮，系统将调用存储过程Book_Borrow实现“图书借阅”功能。 2．实现过程 新建“借书管理”窗体，命名为borrow_manage，将其MDIChild属性设置为True，WindowState属性设置为2-Maximized。借书管理窗口运行的界面如图13.13所示。 图13.13 借书管理窗口 窗体中各个控件的命名与设置在表13.3中列出。 其中BorrowADO控件的RecordSource属性中输入的SQL语句如下： SELECT * FROM RBL 控件类别 控件名称 属性设置 说明 Label label1-label3 设置各自的Caption属性 标识借书证号、ISBN、索书号 TextBox ReaderID Text值清空 借书证号 CommandButton search 设置Caption属性为“查询” 查询按钮 TextBox T_ISBN Text值清空 ISBN ComboBox T_BookID Text值清空 索书号 CommandButton Borrow 设置Caption属性为“借书” 借书按钮 Adodc BorrowADO 设置正确的ConnectionString属性和RecordSource属性 连接数据库 DataGrid BorrowDG DataSource属性设置为BorrowADO 以列表方式显示借书信息 表13.3 borrow_manage窗体的控件设置 3．主要代码 （1）定义全局变量： Private SqlCon As New ADODB.Connection Private SqlRes As New ADODB.Recordset Private SqlCmd As New ADODB.Command （2）窗口加载时连接数据库： Private Sub Form_Load() Form加载时连接SQL Server数据库 SqlCon.Provider = SQLOLEDB SqlCon.Open User ID=sa;Password=123456;Initial Catalog=XSBOOK; Data Source=0BD7E57C949A420 SqlCmd.ActiveConnection = SqlCon End Sub （3）窗口卸载时关闭连接： Private Sub Form_Unload(Cancel As Integer) SqlCon.Close End Sub （4）单击“查询”按钮时重新定义BorrowADO控件的RecordSource属性： Private Sub serach_Click() 单击“查询”按钮 BorrowADO.RecordSource