unit1.cpp

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

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

#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();
//****************整体状况**************
   //******************发育***************
 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;
   //******************营养*************
 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;
   //*********************姿态****************
  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();
//****************皮肤粘膜及淋巴结**************
   //******************皮肤***************
 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;
     //*********************浅表淋巴结****************
 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;
   //**********************压痛*************