这是什么语言啊,还有什么地方出错了
ifDBText14.text='产科门诊'thenbeginValue:='请到一楼2区等候';endelseifDBText14.text='产科高危门诊'thenb...
if DBText14.text='产科门诊' then
begin
Value := '请到一楼2区等候';
end
else if DBText14.text='产科高危门诊' then
begin
Value :='请到一楼2区等候';
end
else if DBText14.text='优生优育门诊' then
begin
Value :='请到一楼2区等候';
end
else if DBText14.text='早孕建卡' then
begin
Value :='请到一楼2区等候';
end
else if DBText14.text='计生门诊' then
begin
if trim(Kshs['ghlb1'])='专家挂号' then
begin
Value :='请到三楼N区候诊';
end
else
Value :='请到三楼N区候诊';
end
else if DBText14.text='预约计生门诊' then
begin
Value :='请到三楼N区候诊';
end
else if DBText14.text='乳腺门诊' then
begin
Value :='请到二楼11区等候';
end
else if DBText14.text='预约乳腺门诊' then
begin
Value :='请到二楼11区等候';
end
else if DBText14.text='儿科门诊' then
begin
Value :='请到一楼6区等候';
end
else if DBText14.text='营养门诊' then
begin
Value :='请到一楼7区等候';
end
else if DBText14.text='妇科黄昏门诊' then
begin
Value :='请到一楼7区等候';
end
else if DBText14.text='预约妇科黄昏门诊' then
begin
Value :='请到一楼7区等候';
end
else if DBText14.text='口腔科' then
begin
Value :='请到一楼7区等候';
end 展开
begin
Value := '请到一楼2区等候';
end
else if DBText14.text='产科高危门诊' then
begin
Value :='请到一楼2区等候';
end
else if DBText14.text='优生优育门诊' then
begin
Value :='请到一楼2区等候';
end
else if DBText14.text='早孕建卡' then
begin
Value :='请到一楼2区等候';
end
else if DBText14.text='计生门诊' then
begin
if trim(Kshs['ghlb1'])='专家挂号' then
begin
Value :='请到三楼N区候诊';
end
else
Value :='请到三楼N区候诊';
end
else if DBText14.text='预约计生门诊' then
begin
Value :='请到三楼N区候诊';
end
else if DBText14.text='乳腺门诊' then
begin
Value :='请到二楼11区等候';
end
else if DBText14.text='预约乳腺门诊' then
begin
Value :='请到二楼11区等候';
end
else if DBText14.text='儿科门诊' then
begin
Value :='请到一楼6区等候';
end
else if DBText14.text='营养门诊' then
begin
Value :='请到一楼7区等候';
end
else if DBText14.text='妇科黄昏门诊' then
begin
Value :='请到一楼7区等候';
end
else if DBText14.text='预约妇科黄昏门诊' then
begin
Value :='请到一楼7区等候';
end
else if DBText14.text='口腔科' then
begin
Value :='请到一楼7区等候';
end 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询