orcal数据库表被锁了怎么解锁??

orcal数据库表被锁了怎么解锁??,第1张

1、在做Oracle监听程序测试时,发现帐户已经被锁定。

2、在数据库安装电脑上,点击开始打开运行窗口。

3、在运行窗口输入CMD,调出命令提示符界面。

3、在命令提示符下面,用管理员身份登入到数据库sqlplus / as sysdba。

4、输入解锁命令alter user Scott account unlock后回车。

5、看见用户已更改的字样,表示命令已成功执行。

6、再切换到监听程序验证,原来的ora-28000帐户被锁定的提示已经不存在了。用户解锁成功。

开启Windows Image Acquisition (WIA)服务就可以了

打开控制面板,打开管理工具,打开服务,找到Windows Image Acquisition (WIA)服务,在上面点右键,然后点属性,然后把启动类型改为自动,再按确定就可以了

当年我在这里也走了不少弯路,查了很多资料才发现问题很简单,下面就轻松实现锁定与解锁.

窗体页眉中新建一个复选框或单选框,这里我用的是复选框(我取的名叫ChkLock),下面是这个复选框的单击事件

Private Sub ChkLock_Click()

Dim ctl As Control

For Each ctl In Me.Section(0).Controls 'Section(0)是主体的意思

If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then

'或用类似下面这句

'If ctl.Name <> "ChkLock" And ctl.Name <> "TxtFind" And ctl.ControlType <> acLabel Then

ctl.Locked = Me.ChkLock '这里就是实现锁定或解锁

End If

Next

End Sub

上面实现锁定的代码,下面实现自动锁定,不管你有没有忘记.利用窗体的Current事件(成为当前事件),如果要新建记录要自动解锁

Private Sub Form_Current()

'检查是否要锁定

If Me.NewRecord Then  '如果是新建状态就可以编辑(将勾取消)

Me.ChkLock = False

Else

Me.ChkLock = True

End If

Call ChkLock_Click  '调用复选框的单击事件,在这里变成子程序

End Sub

最好把这个控制锁定的复选框放在窗体页眉上,不然连它都锁定了就没法解锁了.

附:

'Section(0)是主体的意思,这里就是指循环主体上的控件,页脚页眉上的控件就影响不到了,如你要,Section(1)表示是窗体页眉Section(2)表示是窗体页脚

ControlType 属性是用于指定控件类型的固有常量。

常量                   控件

acBoundObjectFrame    绑定对象框

acCheckBox            复选框

acComboBox            组合框

acCommandButton       命令按钮

acCustomControl       ActiveX(自定义)控件

acImage               图像

acLabel               标签

acLine                线条

acListBox             列表框

acObjectFrame         未绑定对象框或图表

acOptionButton        选项按钮

acOptionGroup         选项组

acPage                页

acPageBreak           分页符

acRectangle           矩形

acSubform             子窗体/子报表

acTabCtl              选项卡

acTextBox             文本框

acToggleButton        切换按钮


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/sjk/6685430.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-03-26
下一篇 2023-03-26

发表评论

登录后才能评论

评论列表(0条)

保存