数据库技术与应用实践教程案例程序.docVIP

第三部分 数据库应用系统案例 一、商品信息管理系统 1．SQL Server服务器端数据处理 1）存储过程proc_Prd设计 存储过程proc_Prd的作用是：当触发器tr_UpPrd调用存储过程proc_Prd时，proc_Prd接受调用时参数传来的商品信息编码，并将该值写入商品信息修改表Update_Log中，商品信息修改时间取默认值，即修改时的时间，由getdate()获得，创建存储过程proc_Prd的代码如下： USE Goods IF EXISTS(SELECT name FROM sysobjects WHERE name=proc_Prd and type=p) DROP PROCEDURE proc_Prd Go CREATE PROCEDURE proc_Prd @ProductsNo int AS INSERT Update_Log VALUES(@ProductsNo,DEFAULT) GO 2）触发器tr_UpPrd设计 触发器tr_UpPrd的作用是：当用户删除、更新商品信息的时候，该触发器触发，触发器从deleted表中取出商品编码，并调用存储过程proc_Prd完成商品修改信息的记录，其代码如下： USE Goods IF EXISTS(SELECT name FROM sysobjects WHERE name=tr_UpPrd and type=TR) DROP PROCEDURE tr_UpPrd Go CREATE TRIGGER tr_UpPrd ON Products FOR DELETE,UPDATE AS DECLARE @ProductsNo int SELECT @ProductsNo = 编码 FROM deleted EXEC proc_Prd @ProductsNo GO 2．VB创建工程与主窗体 1）创建VB工程与设置窗体属性 2）创建工程模块 在modulel模块的全局说明区定义公共变量，代码如下： Option Explicit Public gConnStr As String 在modulel模块中，定义Main子程序，当第一次进入应用程序时，Main子程序将激活，代码如下： Public Sub Main() gConnStr=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Goods frmLogin.Show End Sub 在modulel模块中，定义函数ExecSQL，用于处理数据库的连接和访问操作，代码如下。 Public Function ExecSQL(ByVal sql As String) As ADODB.Recordset On Error GoTo ErrHandler: Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim strArray() As String Set cn=New ADODB.Connection Set rs=New ADODB.Recordset strArray=Split(sql) cn.Open gConnStr 与数据库Goods建立连接 If StrComp(UCase$(strArray(0)),select,vbTextCompare)=0 Then rs.Open Trim$(sql),cn,adOpenKeyset,adLockOptimistic Set ExecSQL=rs 返回查询结果集 Else cn.Execute sql End If ExecSQl_Exit: Set rs = Nothing Set cn = Nothing Exit Function ErrHandler: 显示错误信息 MsgBox 错误号: Err.Number 错误信息: Err.Description,vbExclamation Resume ExecSQl_Exit End Function 在modulel模块中，定义过程ChangeFormPos，确定调用窗体在主窗体frmMain中的显示位置。 Public Sub ChangeFormPos(frmMai