本文最后更新于 1012 天前,其中的信息可能已经有所发展或是发生改变。
一些上线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