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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::TabSheet1Hide(TObject *Sender)
{
  ADOTable1->Open();
  ADOTable1->Last();
  ADOTable1->Append();
  ADOTable1->Edit();
//***************體格檢查******
  ADOTable1->FieldByName("tigejiancha")->AsString=ADOTable1->FieldByName("tigejiancha")->AsString+tiwenEdit->Text;
  ADOTable1->FieldByName("tigejiancha")->AsString=ADOTable1->FieldByName("tigejiancha")->AsString+" "+maiboEdit->Text;
  ADOTable1->FieldByName("tigejiancha")->AsString=ADOTable1->FieldByName("tigejiancha")->AsString+" "+huxiEdit->Text;
  ADOTable1->FieldByName("tigejiancha")->AsString=ADOTable1->FieldByName("tigejiancha")->AsString+" "+xueyaEdit->Text;

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

void __fastcall TForm1::TabSheet2Hide(TObject *Sender)
{
   ADOTable1->Open();
  ADOTable1->Last();
  ADOTable1->Append();
  ADOTable1->Edit();
//****************整體狀況**************
   //******************發(fā)育***************
 if(fayuzhengchang1RadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+fayuzhengchang1RadioButton->Caption;
 if(fayulianghaoRadioButton->Checked)
  ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+fayulianghaoRadioButton->Caption;
 if(fayuchaochangRadioButton->Checked)
  ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+fayuchaochangRadioButton->Caption;
   //******************營養(yǎng)*************
 if(yingyanglianghaoRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+yingyanglianghaoRadioButton->Caption;
 if(yingyangzhongdengRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+yingyangzhongdengRadioButton->Caption;
 if(yingyangbuliangRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+yingyangbuliangRadioButton->Caption;
   //******************神智*************
 if(shenzhiqingchuRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+shenzhiqingchuRadioButton->Caption;
 if(shenzhimohuRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+shenzhimohuRadioButton->Caption;
 if(shenzhiyiwangRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+shenzhiyiwangRadioButton->Caption;
   //*********************體位****************
  if(tiweiziranRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+tiweiziranRadioButton->Caption;
  if(tiweibeidongRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+tiweibeidongRadioButton->Caption;
  if(tiweiqiangzhiRadioButton->Checked)
    ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+tiweiqiangzhiRadioButton->Caption;
   //*********************姿態(tài)****************
  if(zitaizhengchangRadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+zitaizhengchangRadioButton->Caption;
  if(zitaiqita1RadioButton->Checked)
   ADOTable1->FieldByName("zhengtizhuangkuang")->AsString=ADOTable1->FieldByName("zhengtizhuangkuang")->AsString+" "+zitaiqitaEdit->Text;

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

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


void __fastcall TForm1::zitaiqita1RadioButtonClick(TObject *Sender)
{
  zitaiqitaEdit->Visible=true;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::zitaiqitaEditDblClick(TObject *Sender)
{
zitaiqitaEdit->Visible=false;        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::TabSheet3Hide(TObject *Sender)
{
  ADOTable1->Open();
  ADOTable1->Last();
  ADOTable1->Append();
  ADOTable1->Edit();
//****************皮膚粘膜及淋巴結(jié)**************
   //******************皮膚***************
 if(pifuzhengchangRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+pifuzhengchangRadioButton->Caption;
 if(pifuchaohongRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifuchaohongRadioButton->Caption;
 if(pifucangbaiRadioButton->Checked)
  ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifucangbaiRadioButton->Caption;
  if(pifuziganRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifuziganRadioButton->Caption;
 if(pifuhuangranRadioButton->Checked)
  ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifuhuangranRadioButton->Caption;
 if(pifusesuchenzhuoRadioButton->Checked)
  ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifusesuchenzhuoRadioButton->Caption;
   //*****************皮疹****************
 if(pizhenwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+pizhenwuRadioButton->Caption;
 if(pizhenyouRadioButton->Checked)
  {
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pizhenyouRadioButton->Caption;
  }

   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+zhenleixingjifenbuEdit->Text;
   //******************皮下出血*************
  if(pixiachuxuewuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pixiachuxuewuRadioButton->Caption;
 if(pixiachuxueyouRadioButton->Checked)
  {
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pixiachuxueyouRadioButton->Caption;
  }

   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+ButtonxueleixingjifenbuEdit->Text;

   //***************皮膚彈性*****************
  if(pifutanxingzhengchangRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifutanxingzhengchangRadioButton->Caption;
 if(pifutanxingjiantuiRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+pifutanxingjiantuiRadioButton->Caption;
   //*****************溫濕度******************
  if(wenshidushiyunRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+wenshidushiyunRadioButton->Caption;
 if(wenshiduganzaoRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+wenshiduganzaoRadioButton->Caption;
 if(wenshidureRadioButton->Checked)
  ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+wenshidureRadioButton->Caption;
  if(wenshidulengRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+wenshidulengRadioButton->Caption;
 if(wenshiduzhengchangRadioButton->Checked)
  ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+wenshiduzhengchangRadioButton->Caption;
  //************************彈性*******************
  if(tanxingzhengchangRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+tanxingzhengchangRadioButton->Caption;
 if(tanxingjiantuiRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+tanxingjiantuiRadioButton->Caption;
   //******************** 水腫***************
 if(shuizhongyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+shuizhongyouRadioButton->Caption;
 if(shuizhongwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+shuizhongwuRadioButton->Caption;

   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+shuizhongbuweiEdit->Text;
 //*******************肝掌*****************
  if(ganzhangwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+ganzhangwuRadioButton->Caption;
 if(ganzhangyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+ganzhangyouRadioButton->Caption;
  //*******************蜘蛛痣*******************
 if(zhizhuzhiyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+zhizhuzhiyouRadioButton->Caption;
 if(zhizhuzhiwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+zhizhuzhiwuRadioButton->Caption;
     //*********************淺表淋巴結(jié)****************
 if(qianyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+qianyouRadioButton->Caption;
 if(zqianwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+qianwuRadioButton->Caption;

  ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+zhongdabuweiEdit->Text;
 ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+shumuEdit->Text;
 ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+daxiaoEdit->Text;
 ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+zhidiEdit->Text;
 ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+yidongduEdit->Text;

  //*******************表面光滑度**************
  if(biaowuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+biaowuRadioButton->Caption;
 if(biaoyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+biaoyouRadioButton->Caption;
   //******************紅腫***************
  if(hongzhongyouRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+hongzhongyouRadioButton->Caption;
 if(hongzhongwuRadioButton->Checked)
   ADOTable1->FieldByName("pifunianmojilinbajie")->AsString=ADOTable1->FieldByName("pifunianmojilinbajie")->AsString+" "+hongzhongwuRadioButton->Caption;
   //**********************壓痛*************