VB开发助手发布,请大家测试

Question

'==================================================================
' 程  序:  VB 开发助手
' 版  本:  1.0.105
' 出  品:  贝特软件
' 网  站:  www.betterp.com
'===================================================================
Option Explicit
Dim CN As Connection
Const Server = "(local)"
Const DataBase = "pubs"
Const User = "sa"
Const PWD = ""
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            Set GRID.DataSource = GetOP(sqlUpdate, CN, txtMasterTable.Text, txtPrimaryKeys.Text, txtCurrentModule.Text)
            txtSrc = "GetOP(sqlUpdate, CN, " & txtMasterTable.Text & ", " & txtPrimaryKeys.Text & "," & txtCurrentModule.Text & ")"
            txtResult = "PK 字段为1是表示可以继续操作,为0时表示正被其他用户修改," & vbCrLf _
            & "Hostname为修改资料的主机," & vbCrLf _
            & "logtime 表示开始修改时间," & vbCrLf _
            & "modu表示修改模块(unknow表示不确定)"
        Case 1
            Set GRID.DataSource = GetOP(sqlLockInfo, CN)
            txtSrc = "GetOP(sqlLockInfo, CN)"
            txtResult = "本功能可以查看数据库中有哪些表正被SQL SERVER 锁住" & vbCrLf _
            & "Hostname为修改操作主机," & vbCrLf _
            & "loguser 为用户," & vbCrLf _
            & "object  为数据库对象名称(函数或表)," & vbCrLf _
            & "objtype 为函数或表 " & vbCrLf _
            & "app 应用程序名称" & vbCrLf _
            & "breakdown 中止连线命令"
            
        Case 2
            Set GRID.DataSource = GetOP(sqlLogDetail, CN)
            txtSrc = "GetOP(sqlLogDetail, CN)"
            txtResult = "本功能可以查看当前服务器有哪些用户连线" & vbCrLf _
            & "Hostname为登录主机," & vbCrLf _
            & "dbname 连线数据库," & vbCrLf _
            & "logtime 连线开始时间," & vbCrLf _
            & "program_name 连线应用程序 logname 连线用户 net_address 网络地址"
        Case 3
            Set GRID.DataSource = GetOP(sqlOnline, CN)
            txtSrc = "GetOP(sqlOnline, CN)"
            txtResult = "本功能可以查看哪些资料是经过本软件登记后在修改" & vbCrLf _
            & "Hostname为修改资料的主机," & vbCrLf _
            & "logtime 表示开始修改时间," & vbCrLf _
            & "modu表示修改模块(unknow表示不确定)," & vbCrLf _
            & "tables 表示修改表,values 表示主键资料"
            
        Case 4
            Set GRID.DataSource = GetOP(sqlPrimaryKey, CN, txtMasterTable.Text)
            txtSrc = "GetOP(sqlPrimaryKey, CN, " & txtMasterTable.Text & ")"
            txtResult = "查看指定的表的主键信息"
        Case 5
            Set GRID.DataSource = GetOP(sqlSaveCancel, CN, txtMasterTable.Text, txtPrimaryKeys.Text)
            txtSrc = "GetOP(sqlSaveCancel, CN," & txtMasterTable.Text & ", " & txtPrimaryKeys.Text & ")"
            txtResult = "PK 字段为1是表示操作成功,为0时表示操作失败."
        Case 6
            Call GetOP(sqlAbout)
            txtSrc = "GetOP(sqlAbout)"
            txtResult = "关于本软件"
    End Select
End SubPrivate Sub Command2_Click()
     GetOP (sqlOnline)
End Sub
Private Sub Form_Load()
    Set CN = New Connection
    CN.CursorLocation = adUseClient
    CN.Open "Provider=SQLOLEDB.1;Password=" & PWD & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & DataBase & ";Data Source=" & Server & ""
End Sub
******************************
*http://www.mysticboy.com.cn *
*http://www.purebasic.cn     *
******************************

Answer 1

我只看到这个东西.
别的没看到.还有个dll
Function GetOP(OP As sqlOperation, [Connect As Object], [CheckTable As String], [CheckPrimaryKeys As String], [CurrentModl As String]) As Object
    VBShared.Betterp 的成员然后一堆枚举.涉及的都是数据库的.
可是名字为什么取成vb开发助手呢.不明白.******************************
*http://www.mysticboy.com.cn *
*http://www.purebasic.cn     *
******************************

Answer 2

回:mysticboy(麦壳饼) ( ) 信誉：100 该软件主要是解决多用户下面操作数据库的问题的,所以涉及倒数据库为什么叫做VB开发助手,因为该软件主要是运行在VB环境下,

Answer 3

支持，看看。
╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯