用php作ssl证书用openssl的函数
发布网友
共1个回答
热心网友
Private Sub lvwUsers_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles lvwUsers.Click
Using objData As New DABase
Try
objData.SQL = "UserPackage.usp_SelectUser"
objData.InitializeCommand()
objData.AddParameter("inUserID", _
Data.OracleClient.OracleType.Char, _
36, lvwUsers.SelectedItems.Item(0).Tag)
objData.AddParameter("results_cursor", _
Data.OracleClient.OracleType.Cursor, _
Data.ParameterDirection.Output)
objData.OpenConnection()
objData.DataReader = objData.Command.ExecuteReader
If objData.DataReader.HasRows Then
objData.DataReader.Read()
txtUserID.Text = _
objData.DataReader.Item("UserID").ToString.ToUpper
txtName.Text = _
objData.DataReader.Item("Name")
txtPassword.Text = String.Empty
For intIndex = 0 To objRolesDS.Tables（"Roles").Rows.Count - 1
if objRolesDS.Tables("Roles").Rows(intIndex).Item( _
"RoleID").ToString.ToUpper = _
objData.DataReader.Item("oRoleID").ToString.ToUpper Then
cboUserRole.SelectedIndex = intIndex
Exit For
End If
Next
End If
objData.DataReader.Close()
Catch ExceptionErr As Exception
MessageBox.Show(ExceptionErr.Message, strAppTitle)
End Try
End Using
End Sub
