第三部分 数据库应用系统案例

数据库应用案例,包括商品信息系统、图书借阅管理系统等

第三部分 数据库应用系统案例

第1章 商品信息管理系统

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

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

Public gConnStr As String '连接字符串变量

Public txtSQL As String '存放SQL语句

Public DBSet As DataSet '查询得到的记录集

Public ErrorMsg As String '存放错误信息

Public intAuthority As Integer '权限值

Public currentUser As String '当前登录的用户

Public Sub main()

Dim mf As New frmLogin

gConnStr = "Data Source=202.197.77.2;Initial Catalog=Goods;User ID=xyj;Password=xyj; " mf.ShowDialog()

End Sub

Public Function ExecSQL (ByVal strSQL As String, ByRef errMsg As String) As Integer

'函数执行SQL的INSERT、DELETE、UPDATE和SELECT语句