unit1.cpp

这是一个医院门诊的检查窗口这是一个医院门诊的检查窗口这是一个医院门诊的检查窗口

  if(yatongyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+yatongyouRadioButton->Caption;
 if(yatongwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+yatongwuRadioButton->Caption;
   //********************波动*************
  if(bodongyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+bodongyouRadioButton->Caption;
 if(bodongwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+bodongwuRadioButton->Caption;

    ADOTable1->UpdateRecord();
   ADOTable1->Post();

}


//---------------------------------------------------------------------------


void __fastcall TForm1::baocunClick(TObject *Sender)
{   ADOTable1->Open();
  ADOTable1->Last();
  ADOTable1->Append();
  ADOTable1->Edit();
     //***********************眼睑*************
 if(yanshuizhongyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+yanshuizhongyouRadioButton->Caption;
 if(yanshuizhongwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+yanshuizhongwuRadioButton->Caption;

  if(xiachuiyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+xiachuiyouRadioButton->Caption;
  if(xiachuiwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+xiachuiwuRadioButton->Caption;

   if(daojieyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+daojieyouRadioButton->Caption;
  if(daojiewuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+daojiewuRadioButton->Caption;
    //*****************结膜************
  if(chengxueyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+chengxueyouRadioButton->Caption;
  if(chengxuewuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+chengxuewuRadioButton->Caption;

  if(jieshuizhongyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jieshuizhongyouRadioButton->Caption;
  if(jieshuizhongwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jieshuizhongwuRadioButton->Caption;

   if(jiechuxueyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiechuxueyouRadioButton->Caption;
  if(jiechuxuewuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiechuxuewuRadioButton->Caption;
     //****************眼球**********
  if(yantuchuyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+yantuchuyouRadioButton->Caption;
  if(yantuchuwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+yantuchuwuRadioButton->Caption;

  if(aoxianyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+aoxianyouRadioButton->Caption;
  if(aoxianwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+aoxianwuRadioButton->Caption;

  if(zhenchanyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+zhenchanyouRadioButton->Caption;
  if(zhenchanwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+zhenchanwuRadioButton->Caption;

    if(zhangaiyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+zhangaiyouRadioButton->Caption;
  if(zhenchanwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+zhenchanwuRadioButton->Caption;
    //*************巩膜*************
  if(huangranyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+huangranyouRadioButton->Caption;
  if(huangranwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+huangranwuRadioButton->Caption;
     //**************角膜*********
    if(jiaochengxuewuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiaochengxuewuRadioButton->Caption;
 if(jiaochengxuewuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiaochengxuewuRadioButton->Caption;

  if(jiaoboyiyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiaoboyiyouRadioButton->Caption;
  if(jiaoboyiwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiaoboyiwuRadioButton->Caption;

   if(jiaokuiyangyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiaokuiyangyouRadioButton->Caption;
  if(jiaokuiyangwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+jiaokuiyangwuRadioButton->Caption;
   //*****************瞳孔*****************
      if(tongdengdashiRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongdengdashiRadioButton->Caption;
 if(tongdengdafouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongdengdafouRadioButton->Caption;

  if(tongdengyuanshiRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongdengyuanshiRadioButton->Caption;
  if(tongdengyuanfouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongdengyuanfouRadioButton->Caption;

   if(tongguangzhengchangRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongguangzhengchangRadioButton->Caption;
  if(tongguangchidunRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongguangchidunRadioButton->Caption;
    if(tongguangxiaoshiRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+tongguangxiaoshiRadioButton->Caption;
     //**************耳**************
       if(erwuyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+erwuyouRadioButton->Caption;
 if(erwuwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+erwuwuRadioButton->Caption;

  if(ertongyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+ertongyouRadioButton->Caption;
  if(ertongwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+ertongwuRadioButton->Caption;

   if(erzhangaiyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+erzhangaiyouRadioButton->Caption;
  if(erzhangaiwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+erzhangaiwuRadioButton->Caption;
   //******************头部************
   if(touludaRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+touludaRadioButton->Caption;
  if(touluxiaoRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+touluxiaoRadioButton->Caption;

  if(toujixingyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+toujixingyouRadioButton->Caption;
  if(toujixingwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+toujixingwuRadioButton->Caption;
   //*******************鼻*****************

 if(biyichangyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+biyichangyouRadioButton->Caption;
 if(biyichangwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+biyichangwuRadioButton->Caption;

  if(bishandongyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+bishandongyouRadioButton->Caption;
  if(bishandongwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+bishandongwuRadioButton->Caption;

   if(bisaiyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+bisaiyouRadioButton->Caption;
  if(bisaiwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+bisaiwuRadioButton->Caption;

     if(biwuyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+biwuyouRadioButton->Caption;
  if(biwuwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+biwuwuRadioButton->Caption;

  if(bitongyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+bitongyouRadioButton->Caption;
  if(bitongwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+bitongwuRadioButton->Caption;
    //****************口腔***************
  if(kouchunhongrunRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+kouchunhongrunRadioButton->Caption;
 if(kouchunfatianRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+kouchunfatianRadioButton->Caption;
  if(kouchuncangbaiRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+kouchuncangbaiRadioButton->Caption;
  if(kouchunpaozhenRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+kouchunpaozhenRadioButton->Caption;
  if(kouchuncunlieRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+kouchuncunlieRadioButton->Caption;
   //****************口腔粘膜**********
     if(chuzuedianyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+chuzuedianyouRadioButton->Caption;
  if(chuxuedianwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+chuxuedianwuRadioButton->Caption;

  if(koukuiyangyouRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+koukuiyangyouRadioButton->Caption;
  if(koukuiyangwuRadioButton->Checked)
   ADOTable1->FieldByName("toumianbu")->AsString=ADOTable1->FieldByName("toumianbu")->AsString+" "+koukuiyangwuRadioButton->Caption;







   ADOTable1->UpdateRecord();
   ADOTable1->Post();

}
//---------------------------------------------------------------------------