DBA组件---ADO数据库编程利器

DBA组件---ADO数据库编程利器

一、何谓DBA
    DBA即Database Assistant，其实就是数据库编程助手。它是完全采用接口、OO理念用VB6.0编译的DLL COM组件。
    它的好处在于使数据库的编程和维护都仅仅在表现层，便于数据库字段的反复增减，修改（客户需求无常），使代码更为规范，
    也使得程序的总体代码减少，运行效率提高。

二、DBA的功能
    DBA主要有四大特色功能：
    1、自动生成对数据库中单个表的新增、更新SQL语句，并完成其操作
    2、提供对外扩展的接口ifaceDbConnectionBuilder,可以实现对任何数据库的操作(只要ADO允许)
    3、提供安全可靠、简单易用的用户、角色、权限访问体系
    4、提供对字串的加密、解密，支持中文密码，加密长度可以是32位、64位、128位

三、DBA的使用
          A〉配置INI文件
       DBA与数据库的连接，依赖于INI文件的配置。要求在项目的当前路径下建立与执行文件同名，且节名也与执行文件同名的INI文件。
       如：执行文件为myPrj.exe，则INI文件必须为myPrj.ini，且与myPrj.exe位于相同路径。使用默认连接时，INI文件中必须包含
       以下节（以SQL Server配置为例）：
       '********* myPrj.ini *********
       [myPrj]
       SpecialIniFilePath=

 ServerName=AppSrv
       DatabaseName=AppDb
       UserID=07AIQY6Vow5xph2075bjrz7uPX4WOG7767CKS08Tqy3vnf5013dlt19sRZ2UME67
       UserPassword=066EMU2Zs91tld929E3fnv3yT80SKC67667GOW4Xu7zrjb49653hpx5wV6YQIA77
       Timeout=100

 如果是Access，则INI文件配置应如下示
       '********* myPrj.ini *********
       [myPrj]
       SpecialIniFilePath=

 DatabaseName=d:/db1.mdb
       DatabasePassword=
       SystemDatabase=
       UserID=Admin
       UserPassword=
       Timeout=100

 如果想自由配置节内容如下也行，此时你将不能使用默认方式打开数据库，而必须实现ifaceDbConnectionBuilder接口，
       然后以指定方式打开数据库，详见C(2)所叙，这也是打开其它数据库的方法！
       '********* myPrj.ini *********
       [myPrj]
       SpecialIniFilePath=

 服务器=AppSrv
       数据库=AppDb
       用户=07AIQY6Vow5xph2075bjrz7uPX4WOG7767CKS08Tqy3vnf5013dlt19sRZ2UME67
       密码=066EMU2Zs91tld929E3fnv3yT80SKC67667GOW4Xu7zrjb49653hpx5wV6YQIA77
       超时=100

    B〉DBA注册、引用
       DBA是用VB6.0编写DLL COM组件，所以需先将DBA注册然后再引用到项目工程中（如是VB6项目则可直接引用，VB6会自动完成注册）

    C〉DBA四大功能的使用
       以下描述均以SQL Server为例，为此你需要建立最基本的数据库表，请在SQL查询分析器运行附件中的脚本CreateDbTable.sql，
       下面就四大功能的使用，作简要的说明：
       1、自动生成对数据库中单个表的新增、更新SQL语句，并完成其操作
          现假定对数据库表sys_User实现新增、更新操作，界面控件从略，其规范代码如下
          '代码是用自己写的代码生成器生成，你也自己写一个，编程就会变得轻松美妙。。。

1. '初始化
2. Private Sub IniFieldValue(dt As ifaceDbTable)
3.     dt.AddField "UserID", Character, "", 25
4.     dt.AddField "UserName", Character, "", 50
5.     dt.AddField "UserPwd", Character, "", 50
6.     dt.AddField "LastModifyDate", Character, "", 8
7. End Sub
9. '设定DbTable字段值
10. Private Sub SetFieldValue(dt As ifaceDbTable)
11.     dt.AddField "UserID", Character, Me.txtUserID.Text, 25
12.     dt.AddField "UserName", Character, Me.txtUserName.Text, 50
13.     dt.AddField "UserPwd", Character, Me.txtUserPwd.Text, 50
14.     dt.AddField "LastModifyDate", Character, Me.txtLastModifyDate.Text, 8
15. End Sub
17. '获取DbTable字段值，并赋值给界面控件
18. Private Sub GetFieldValue(dt As ifaceDbTable)
19.     Me.txtUserID.Text = dt.Fields("UserID").FieldValue
20.     Me.txtUserName.Text = dt.Fields("UserName").FieldValue
21.     Me.txtUserPwd.Text = dt.Fields("UserPwd").FieldValue
22.     Me.txtLastModifyDate.Text = dt.Fields("LastModifyDate").FieldValue
23. End Sub
25. '新增
26. Private Sub btnInsertData_Click()
27.     Dim dt As Dim dt As ifaceDbTable
28.     Set dt = New clsDbTable
29.     dt.TableName = "sys_User"
30.     '请用主键字段名替换PrimaryKeyName
31.     dt.AddPrimaryKey "SysID", Anyinteger, 0, 4
32.     SetFieldValue dt
34.     Dim b As Boolean
35.     Dim dba As ifaceDBA
36.     Set dba = New clsDBA
37.     dba.OpenConnectionByDbType
38.     b = dba.InsertDataRow(dt)
40.     dba.Dispose
41.     Set dba = Nothing
42.     Set dt = Nothing
43. End Sub
45. '更新
46. Private Sub btnUpdateData_Click()
47.     Dim dt As Dim dt As ifaceDbTable
48.     Set dt = New clsDbTable
49.     dt.TableName = "sys_User"
50.     '请用主键字段名替换PrimaryKeyName
51.     dt.AddPrimaryKey "SysID", Anyinteger, Me.txtSysID.Text, 4
52.     SetFieldValue dt
54.     Dim b As Boolean
55.     Dim dba As ifaceDBA
56.     Set dba = New clsDBA
57.     dba.OpenConnectionByDbType
58.     b = dba.UpdateDataRow(dt)
60.     dba.Dispose
61.     Set dba = Nothing
62.     Set dt = Nothing
63. End Sub
65. '删除
66. Private Sub btnDeleteData_Click()
67.     Dim b As Boolean
68.     Dim sql As String
69.     Dim dba As ifaceDBA
70.     Set dba = New clsDBA
71.     dba.OpenConnectionByDbType
72.     sql = "delete from sys_User where SysID=333"
73.     b = dba.ExecSqlNonQuery(sql)
74.     dba.Dispose
75.     Set dba = Nothing
76. End Sub

       2、自己实现接口ifaceDbConnectionBuilder,操作任何数据库(只要ADO允许)
          假定myPrj.exe要实现对Oracle数据库的操作，可以这样：
          (a)设置myPrj.ini节内容如下
          '********* myPrj.ini *********
          [myPrj]
          SpecialIniFilePath=

    数据源=mySrv
          用户=myName
          用户密码=myPwd
          超时=100

          (b)创建一个新类，不妨命名为clsDbOracleConnString.cls,见下：

1.           '*************************************************************
2.           '文件 : clsDbOracleConnString.cls
3.           '类名 : clsDbOracleConnString
4.           '功能 : 实现接口ifaceDbConnectionString定义的方法
5.           '版本 : 1.0
6.           '*************************************************************
8.           Option Explicit
9.           Implements ifaceDbConnectionBuilder   '继承接口
11.           '构造Oracle数据库连接字串
12.           Private Function ifaceDbConnectionBuilder_GetConnectionString(IniFile As ifaceIniFile) As String
13.               Dim conStr As String
14.               On Error GoTo err_exit
15.               conStr = "Provider=MSDAORA.1;Data Source=" & IniFile.Items("数据源").KeyValue & _
16.                        ";User ID=" & IniFile.Items("用户").KeyValue & _
17.                        ";Password=" & IniFile.Items("用户密码").KeyValue
18.              
19.               ifaceDbConnectionBuilder_GetConnectionString = conStr
20.               Exit Function
21.     
22.           err_exit:
23.               ifaceDbConnectionBuilder_GetConnectionString = ""
24.           End Function

          上述代码并未对用户名和密码进行加密、解密，你可以使用DBA提供的加密、解密方法，也可以使用自己的加密、解密方法。

          (c)使用如下代码即可对数据库进行操作

1.           Dim connStr As ifaceDbConnectionBuilder   '定义为接口型
2.           Set connStr = New clsDbOracleConnString   '创建时指向自己的实现类
3.     
4.           Dim dba As ifaceDBA
5.           Set dba = New clsDBA
6.           dba.OpenConnectionByBuilder connStr   '注意这里的打开方式
8.           Dim sql as string
9.           sql = "select * from sys_User"
10.           Set MSHFlexGrid1.Recordset = dba.ExecSqlToRecordSet(sql)
12.           dba.Dispose
13.           Set dba = Nothing
14.           set connStr=Nothing

       3、用户、角色、权限的访问

            角色权限保存在数据库表Sys_RoleRight的RightID字段中,权限以字串按如下格式存贮 ：000000000000000， 0-无效、1-有效

           从左向右依次为:View、AddNew、Update、Delete、Query、Import、Export、Print、Preview、Submit、Upload、Download、Send、Accept、Reject
            使用如下代码即可对用户角色的访问权限进行控制

1.       Dim dba As ifaceDBA
2.       Set dba = New clsDBA
3.       dba.OpenConnectionByDbType
5.       Dim usr As ifaceUracUsers
6.       Set usr = New clsUracUsers
7.       Set usr.ActiveDBA = dba
8.       usr.LoadUserRoles UserID   '请用实际用户替换UserID
9.       usr.Roles.GetRight FormName   '请用实际窗体名或类名替换FormName
11.       '权限控制
12.       btnQueryData.Enabled = usr.Roles.AllowView
13.       btnInsertData.Enabled = usr.Roles.AllowAddNew
14.       btnUpdateData.Enabled = usr.Roles.AllowUpdate
15.       btnDeleteData.Enabled = usr.Roles.AllowDelete
17.       '角色成员访问
18.       Dim i As Long
19.       For i = 1 To usr.Roles.Count
20.           Debug.Print usr.Roles.Items(i).RoleID & " ; " & usr.Roles.Items(i).RoleName
21.           Debug.Print
22.       Next i
24.       Set usr = Nothing
25.       dba.Dispose
26.       Set dba = Nothing

       4、提字串的加密、解密，支持中文密码，加密长度可以是32位、64位、128位
             使用如下代码即可对字符串进行加密、解密

1.       Dim cls As New clsSecurity
2.       Text1 = cls.EncryptString(Text1, Encrypt128)   '128位加密
4.       Text1 = cls.DecryptString(Text1, Encrypt128)   '128位解密
5.       Set cls = Nothing

四、DBA的补充说明
    1、INI文件的接口、实现类见文《VB6.0接口,转转转 (用VB6.0接口实现INI文件的读取组件) 》
    2、DBA中ifaceDbConnectionBuilder接口的Access、dBASE、SQL Server、Oracle的实现类见附件包，供扩展参考。
          其中Oracle的实现类clsDbConnStrOracle.cls仅仅返回一个空串，要自己去重新实现。^_^
    3、希望DBA使你的数据库编程变得轻松和愉悦。。。
    4、附件请从这里下载http://download.csdn.net/source/835035