第8章 采购系统面向过程方法的实施.ppt

第8章 采购系统面向过程方法的实施 §8.1 数据库连接 §8.2 登录 §8.3 增加、删除和修改订单 §8.4查询功能 §8.1 数据库连接 §8.1.1 新建 DBConnStr.txt 文本文件 §8.1.2 定义函数 §8.1.3 数据库连接代码 §8.1.1 新建 DBConnStr.txt 文本文件 在文件中写出连接数据库的字符串： Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登录数据库用户名;Initial Catalog=数据库名;Data Source=数据库服务器名或IP 登录数据库用户名是登录 SQL Server 2000用户；数据库名是采购管理系统数据库，本书中数 据库名为 cggl；数据库服务器名或 IP 是安装 SQL Server 2000 的机器名或 IP 地址。 §8.1.2 定义函数 实现从 DBConnStr.txt 文件中取出字符串，并赋值给全局变量 ConnStr，该变量是数据库连接 变量，在实现对数据库操作时都要使用它。 程序代码如下： Private Function GetDBConnStr() Dim FSO1 As New FileSystemObject Dim TxtFile1 As TextStream Set TxtFile1= FSO1.OpenTextFile(App.Path+\DBConnStr.txt, ForReading, True) If(Not TxtFile1.AtEndOfLine)Then GetDBConnStr=TxtFile1.ReadLine Else MsgBox 连接字符串文件未找到！ End End If End Function §8.1.3 数据库连接代码 数据库连接的程序代码如下： 创建Connection对象实例 Set myConn=New ADODB.Connection 设定ConnectionString属性连接数据库 myConn.ConnectionString=ConnStr myConn.Open §8.2 登录 §8.2.1 登录代码 §8.2.2 查询指定用户名的记录 §8.2.3 判断输入密码是否正确 登录界面图 §8.2.1 登录代码 登录的程序代码如下： 用来存放SQL语句 Dim txtSQL As String 用来存放记录集语句 Dim mrc As ADODB.Recordset 用来存放返回信息 Dim MsgText As String 判断输入用户是否为空 If Trim(Text1.Text=)Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus §8.2.2 查询指定用户名的记录 查询指定用户名的记录的程序代码如下： txtSQL=select * from login where userid=Text1.Text 执行查询语句 Set mrc=ExecuteSQL(txtSQL, MsgText) If mrc.EOF=True Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly+vbExclamation, 警告 Text1.SetFocus Else §8.2.3 判断输入密码是否正确 程序代码如下 If Trim(mrc.Fields(1))=Trim(Text2.Text)Then UserGrd=mrc.Fields(2) mrc.Close MainF.Show Unload Me Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Text2.Text= End If End If End If §8.3 增加、删除和修改订单 §8.3.1 增加功能 §8.3.2 删除功能 §8.3.3 保存功能 增加、删除和修改订单界面 §8.3 增加、删除和修改订单 1．增加功能 实现订单明细表的增加操作，主要使用 ADO编程对象实现该功能