olecon.Open()
olecom.CommandType = CommandType.StoredProcedure
olecom.CommandText = "innerreg"
Dim UserName As OracleParameter = New OracleParameter("UserName", OracleType.VarChar, 50)
UserName.Direction = ParameterDirection.Input
UserName.Value = TextName.Text
olecom.Parameters.Add(UserName)
Dim UserID As OracleParameter = New OracleParameter("UserID", OracleType.VarChar, 50)
UserID.Direction = ParameterDirection.Input
UserID.Value = TextID.Text
olecom.Parameters.Add(UserID)
Dim Password As OracleParameter = New OracleParameter("Password", OracleType.VarChar, 32)
Password.Direction = ParameterDirection.Input
Password.Value = TextPwd.Text
olecom.Parameters.Add(Password)
'Dim UserImg As OracleParameter = New OracleParameter("UserImg", OracleType.Blob)
'UserName.Direction = ParameterDirection.Input
'UserImg.Value = DBNull.Value
'olecom.Parameters.Add(UserImg)
Dim Address As OracleParameter = New OracleParameter("Address", OracleType.VarChar, 96)
Address.Direction = ParameterDirection.Input
Address.Value = TextAdd.Text
olecom.Parameters.Add(Address)
Dim BirthDay As OracleParameter = New OracleParameter("BirthDay", OracleType.VarChar, 32)
BirthDay.Direction = ParameterDirection.Input
BirthDay.Value = DropDownList1.SelectedValue & DropDownList2.SelectedValue & DropDownList3.SelectedValue
olecom.Parameters.Add(BirthDay)
Dim Sign As OracleParameter = New OracleParameter("Sign", OracleType.VarChar, 96)
Sign.Direction = ParameterDirection.Input
Sign.Value = TextSign.Text
olecom.Parameters.Add(Sign)
Dim IsSys As OracleParameter = New OracleParameter("IsSys", OracleType.Number)
IsSys.Direction = ParameterDirection.Input
If RadioButton1.Checked = True Then
IsSys.Value = 1
Else
IsSys.Value = 0
End If
olecom.Parameters.Add(IsSys)
Dim RoleGrpID As OracleParameter = New OracleParameter("RoleGrpID", OracleType.VarChar, 32)
RoleGrpID.Direction = ParameterDirection.Input
RoleGrpID.Value = ""
olecom.Parameters.Add(RoleGrpID)
Dim ShowRange As OracleParameter = New OracleParameter("ShowRange", OracleType.Number)
ShowRange.Direction = ParameterDirection.Input
ShowRange.Value = 0
olecom.Parameters.Add(ShowRange)
Dim Tel As OracleParameter = New OracleParameter("Tel", OracleType.VarChar, 32)
Tel.Direction = ParameterDirection.Input
Tel.Value = TextTel.Text
olecom.Parameters.Add(Tel)
Dim QQ As OracleParameter = New OracleParameter("QQ", OracleType.VarChar, 20)
QQ.Direction = ParameterDirection.Input
QQ.Value = TextQQ.Text
olecom.Parameters.Add(QQ)
Dim Email As OracleParameter = New OracleParameter("Email", OracleType.VarChar, 64)
Email.Direction = ParameterDirection.Input
Email.Value = TextMail.Text
olecom.Parameters.Add(Email)
Dim SecPwd As OracleParameter = New OracleParameter("SecPwd", OracleType.VarChar, 32)
SecPwd.Direction = ParameterDirection.Input