clear
echo ""
  while true
  do
 echo "请输入现在的数据库名："
 read dbold
    if [ "$dbold" = "" ]
    then
      echo "错误的数据库名，请重输!"
    else
      break
    fi
  done

  while true
  do
 echo "请输入新的数据库名："
 read dbnew
    if [ "$dbnew" = "" ]
    then
      echo "错误的数据库名，请重输!"
    else
      break
    fi
  done

echo "正在更换程序中的数据库名，请稍候。。。"

for i in program/tj_globals.4gl
do
 sed -e "s/DATABASE $dbold/DATABASE $dbnew/g" < $i >$i.a
 mv $i.a $i
done

for i in form/*per
do
 sed -e "s/DATABASE $dbold/DATABASE $dbnew/g" < $i >$i.a
 mv $i.a $i
done

for i in ywprg/yw_globals.4gl
do
 sed -e "s/DATABASE $dbold/DATABASE $dbnew/g" < $i >$i.a
 mv $i.a $i
done

for i in sumprg/sum_globals.4gl
do
 sed -e "s/DATABASE $dbold/DATABASE $dbnew/g" < $i >$i.a
 mv $i.a $i
done

echo "更换程序中的数据库名完毕！！！"