（76）医院住院管理数据库中包含以下3个数据表．其结构如表1—1~表1-3所示.

（76）医院住院管理数据库中包含以下3个数据表．其结构如表1—1~表1-3所示.
图1-2为病人住院情况查询表单,“病房号”3个文本框的Name属性依次为txtsrbfh、txtbfh、txtcws.“病人床位”一览中共有6个文本框,其Name属性依次为txtl~txt5,最下面的文本框将显示该病房的空病床数,Name属性为txtres.“查向”按钮的Name属性为cmdcx．
在txtsrbfh文本框中输入要查询的病房号,单击”查询”按钮,即可在表单中显示相应信息,如表1—4所示.
完成下列相关程序,并填入适当内容.
①表单Init事件代码如下：
thisform.txt1.visible = F．
thisform.txt2.visible = F．
thisform.txt3.visible = F．
thisform.txt4.visible = F．
thisform.txt5.visible = F．
②查询按钮Click事件代码如下：
select bfb
______[25]______for bfh=alltrim (thisform．txtsrbfh．value)
If found( )
thisform．txtbfh．value = bfh．
thisform．txtcws．value = cws．
thisform．Txt1．value = bfh．
thisform．Txt2．vissble =．F．
thisform．Txt3．vissble =．F．
thisform．Txt4．vissble =．F．
thisform．Txt5．vissble =．F．
thisform．Txt6．vissble =．F．
bfhl = thisform．txtsrbfh．value．
select rzqk．
set filter to ______[26]______
goto top
Dimension brhl(1),xml(1)．xbl(1)
i = 0
do while not eof( ) and i < 7
brh1 = brh
select xm,xb from brb where brh = brhl into array xml,xbl
i = i + 1
do case
case i = 1
thisform．txt1．visible = ·T·
thisform．txt1．value = “病床l患者为：” + xml + “性别：” + xb1 + “病人编号为：” + str(brhl,6,1)
case i = 2
thisform．txt2．visible =·T·
thisform.txt2 .value=”病床2患者为：” + xml + “性别：” + xbl + “病人编号为：” + str(brhl,6,1)
case i = 3
thisform.txt3.visible =·T·
thisform.txt3.value = “病床3患者为：” + xml + ”性别：” + xbl + “病人编号为：” + str(brhl,6,1)
case i = 4
:
:
end case
______[27]______
end do
thisform．txtres．value=”病房”+ str(bfh1,6,0) + ”还剩” + str(6 - i,1,0) + ”个床位”
else
Messaye bex(“ 查无此人…”,1)
end if
thisform.______[28]______
return .T.
A)根据表单可知,该医院每间病房最多有床位______[29]______.
B)若某病房前共有两位患者,则程序执行完成后,i =______[30]______.

参考
1.防守干扰球,甲方得分有效
2.进攻干扰球,甲方得分无效
3.乙方抢篮板违例,甲方得分有效
4.乙1打手犯规,若乙队5次犯规或5次以上就罚球,4次以下则掷球入界
5.得分有效
6.比赛继续
7.没有恶意侵犯动作则比赛继续
8.进攻犯规
9.乙1防守犯规,若乙队5次犯规或5次以上就罚球,4次以下则掷球入界
10.甲1得分有效,并且再加罚一球
11.不罚球,但记犯规统计,比赛继续
12.得分无效,两队各罚一次篮,不允许抢篮板,罚完后中圈跳球
13.两队各罚一次篮,不允许抢篮板,罚完后乙队进攻
14.甲1进攻犯规+恶意犯规,甲1被驱逐出场,乙队罚一球,不允许抢篮板,罚完还有进攻权
15.乙1对甲1违体犯规,甲队罚两球,不允许抢篮板,罚完还有进攻权
16.甲1一次技术犯规,乙队罚一球,不允许抢篮板,罚完还有进攻权
17.合理防守
18.合理防守
19.甲6擅自离开板凳席,被判技术犯规,乙队罚一球,不允许抢篮板,罚完进攻权还给之前进攻那一方
20.不计
21.甲1属于进攻犯规,不计入本队犯规内,故不罚球
22.甲1属于进攻犯规,不计入本队犯规内,故不罚球
23.先前双方犯规互不罚球,甲队教练得到一次技术犯规后,乙队罚一球,不允许抢篮板,罚完后两队中圈跳球
24.乙1防守犯规,甲队先罚一球,不允许抢篮板,再罚2球,第二罚可以抢板
25.（看不懂你说什么）
26.宣判之后继续执行原判,不得改判