问答题在登录CTAIS生产机系统，输入用户名和密码后，系统提示“sqlca连接失败：ORA—12154：TNS：could not resolve service name请确认用户名或口令是否正确！”的错误提示，可能是什么原因？

【程序说明】假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。命令按钮“登录”的Click事件中的代码如下。

【程序】

USE 口令表

GO TOP

flag＝0

DO WHILE (3)

IF Alltrim (用户名)= ＝Alltrim(Thisform. Text1. Value)

IF Alltrim (口令)＝＝Alltrim(Thisform. Text2，Value)

WAIT“欢迎使用”WINDOW TTMEOUT2

ELSE

WATT“口令错误” WINDOW TIMEOUT2

ENDIF

flag＝1

EXIT

ENDIF

SKIF

ENDDO

IF (4)

WAIT“用户名错误”WINDOW TIMEOUT2

ENPIF

(3)

A．BOF()

B．.NOT.BOF()

C．EOF()

D．.NOT.EOF()

（ 13 ）现有用户登录界面如下：

窗体中名为 username 的文本框用于输入用户名 ， 名为 pass 的文本框用于输入用户的密码 。 用户输入用户名和密码后 ， 单击 “ 登录 ” 名为 login 的按钮 ， 系统查找名为 “ 密码表 ” 的数据表 ， 如果密码表中有指定的用户名且密码正确，则系统根据用户的 “ 权限 ” 分别进入 “ 管理员窗体 ” 和 “ 用户窗体 ” ：如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。

单击 “ 登录 ” 按钮后相关的事件代码如下，请补充完整。

Private Sub login_Click( )

Dim str As String

Dim rs As New ADODB.Recordset

Dim fd As ADODB.Field

Set cn=CurrentProject.Connection

logname=Trim(Me!uscrname)

pass=Trim(Mc!pass)

If Len(Nz(logname))=0 Then

MsgBox " 请输入用户名 "

ElseIf Len(Nz(pass))=0 Then

MsgBox " 请输入密码 "

Else

str="select*from 密码表 where 用户名 =' " & logname &

" ' and 密码 =' " & pass & " ' "

rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText

If ___ 【 14 】 ________ Then

MsgBox " 没有这个用户名或密码输入错误，请重新输入 "

Me.username=""

Mc.pass=""

Else

Set _____ 【 15 】 ______ =rs.Fields(" 权限 ")

If fd=" 管理员 " Then

DoCmd.Close

DoCmd.OpenForm. " 管理员窗体 "

MsgBox " 欢迎您，管理员 "

Else

DoCmd.Close

DoCmd.OpenForm. " 用户窗体 "

MsgBox " 欢迎使用会员管理系统 "

End If

End If

End If

End Sub

假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下： USE 口令表 GO TOP flag =0 DO WHILE .not.EOF（） IF Alltrim（用户名）==Alltrim（Thisform.Text1.value） If Alltrim（口令）＝＝Alltrim（Thisform.Text2.value） WAIT\"欢迎使用\"WINDOW TIMEOUT2 ELSE WAIT\"口令错误\"WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF —————— WAIT\"用户名错误\"WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是

A．flag=-1

B．flag=0

C．flag=1

D．flag=2