本文最后更新于 1301 天前,其中的信息可能已经有所发展或是发生改变。
一些上线ERP软件的公司会用Oracle Discoverer工具来实现自定义表单的打印,在使用时需要使用数据库管理员账号密码登入Oracle Discoverer Desktop。
在exe执行文件路径末尾添加登录的参数,可以实现自动登入操作,避免每次登入都需要输入账号密码。
但是这种方式,会让账号密码暴露在外。为了能够隐藏账号密码,又能够实现自动登入,我们用到了VB编程,给这个exe执行文件设定登录的参数后打开,就可以解决。
该方式需要用到VS2013或者其他支持VB编程的环境
代码如下:
Public Class Form1
REM:两个参数分别对应路径、传递参数
REM:两个变量可根据实际情况修改
Private Sub Form_Load()
Dim path, parameter
path = "C:\oracle\BIToolsHome_1\bin\dis51usr.exe"
parameter = " /connect userxx/password@oracledb"
Shell(path & parameter, AppWinStyle.Hide)
End
End Sub
REM:按钮点击事件,打开exe文件
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form_Load()
End Sub
End Class







