unit1.h

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

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>


//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TPanel *Panel1;
        TPanel *Panel5;
        TButton *baocun;
        TButton *fanhui;
        TPageControl *PageControl1;
        TTabSheet *TabSheet1;
        TLabel *tiwen1;
        TLabel *huxi1;
        TLabel *xueya1;
        TLabel *maibo1;
        TLabel *Label16;
        TLabel *Label17;
        TLabel *Label18;
        TLabel *Label19;
        TLabel *Label20;
        TEdit *tiwenEdit;
        TEdit *huxiEdit;
        TEdit *xueyaEdit;
        TEdit *maiboEdit;
        TTabSheet *TabSheet2;
        TGroupBox *GroupBox1;
        TTabSheet *TabSheet3;
        TTabSheet *TabSheet4;
        TLabel *yanjian;
        TLabel *jiemo;
        TLabel *yanqiu;
        TLabel *gongmo;
        TLabel *jiaomo;
        TLabel *tongkong;
        TLabel *er;
        TLabel *toubu;
        TLabel *bi;
        TLabel *kouqiang;
        TLabel *kouqiangnianmo;
        TLabel *shetai;
        TLabel *yanchiyayin;
        TGroupBox *yanjianshuizhong;
        TRadioButton *yanshuizhongwuRadioButton;
        TRadioButton *yanshuizhongyouRadioButton;
        TGroupBox *yanjianxiachui;
        TRadioButton *xiachuiyouRadioButton;
        TRadioButton *xiachuiwuRadioButton;
        TGroupBox *yanjiandaojie;
        TRadioButton *RadioButton61;
        TRadioButton *RadioButton62;
        TRadioButton *daojieyouRadioButton;
        TRadioButton *daojiewuRadioButton;
        TGroupBox *jiemochengxue;
        TRadioButton *chengxueyouRadioButton;
        TRadioButton *chengxuewuRadioButton;
        TGroupBox *jiemoshuizhong;
        TRadioButton *jieshuizhongyouRadioButton;
        TRadioButton *jieshuizhongwuRadioButton;
        TGroupBox *jiemochuxue;
        TRadioButton *jiechuxueyouRadioButton;
        TRadioButton *jiechuxuewuRadioButton;
        TGroupBox *yanqiutuchu;
        TRadioButton *yantuchuyouRadioButton;
        TRadioButton *yantuchuwuRadioButton;
        TGroupBox *yanqiuaoxian;
        TRadioButton *aoxianyouRadioButton;
        TRadioButton *aoxianwuRadioButton;
        TGroupBox *yanqiuzhengchan;
        TRadioButton *zhenchanyouRadioButton;
        TRadioButton *zhenchanwuRadioButton;
        TGroupBox *yanqiuzhangai;
        TRadioButton *zhangaiyouRadioButton;
        TRadioButton *zhangaiwuRadioButton;
        TGroupBox *gongmohuangran;
        TRadioButton *c;
        TRadioButton *huangranwuRadioButton;
        TGroupBox *jiaomochuxue;
        TRadioButton *jiaochengxueyouRadioButton;
        TRadioButton *jiaochengxuewuRadioButton;
        TGroupBox *jiaomoboyi;
        TRadioButton *jiaoboyiyouRadioButton;
        TRadioButton *jiaoboyiwuRadioButton;
        TGroupBox *jiaomokuiyang;
        TRadioButton *jiaokuiyangyouRadioButton;
        TRadioButton *jiaokuiyangwuRadioButton;
        TGroupBox *tongkongdengda;
        TRadioButton *tongdengdashiRadioButton;
        TRadioButton *tongdengdafouRadioButton;
        TGroupBox *tongkongdengyuan;
        TRadioButton *tongdengyuanshiRadioButton;
        TRadioButton *tongdengyuanfouRadioButton;
        TGroupBox *tongkongduiguangfanshe;
        TRadioButton *tongguangzhengchangRadioButton;
        TRadioButton *tongguangchidunRadioButton;
        TRadioButton *tongguangxiaoshiRadioButton;
        TGroupBox *waierdaofenmiwu;
        TRadioButton *erwuyouRadioButton;
        TRadioButton *erwuwuRadioButton;
        TGroupBox *erruturatong;
        TRadioButton *ertongyouRadioButton;
        TRadioButton *ertongwuRadioButton;
        TGroupBox *ertinglicushizhangai;
        TRadioButton *erzhangaiyouRadioButton;
        TRadioButton *erzhangaiwuRadioButton;
        TGroupBox *toulu;
        TRadioButton *touludaRadioButton;
        TRadioButton *touluxiaoRadioButton;
        TGroupBox *toubujixing;
        TRadioButton *toujixingyouRadioButton;
        TRadioButton *toujixingwuRadioButton;
        TGroupBox *biwaixingyichang;
        TRadioButton *biyichangyouRadioButton;
        TRadioButton *biyichangwuRadioButton;
        TGroupBox *biyishandong;
        TRadioButton *bishandongyouRadioButton;
        TRadioButton *bishandongwuRadioButton;
        TGroupBox *bisai;
        TRadioButton *bisaiyouRadioButton;
        TRadioButton *bisaiwuRadioButton;
        TGroupBox *biyichangfenmiwu;
        TRadioButton *biwuyouRadioButton;
        TRadioButton *biwuwuRadioButton;
        TGroupBox *bipangdouyatong;
        TRadioButton *bitongyouRadioButton;
        TRadioButton *bitongwuRadioButton;
        TGroupBox *kouchun;
        TRadioButton *kouchunhongrunRadioButton;
        TRadioButton *kouchunfatianRadioButton;
        TRadioButton *kouchuncangbaiRadioButton;
        TRadioButton *kouchunpaozhenRadioButton;
        TRadioButton *kouchuncunlieRadioButton;
        TGroupBox *chuxuedian;
        TRadioButton *chuzuedianyouRadioButton;
        TRadioButton *chuxuedianwuRadioButton;
        TGroupBox *kuiyang;
        TRadioButton *koukuiyangyouRadioButton;
        TRadioButton *koukuiyangwuRadioButton;
        TGroupBox *shetaiyichang;
        TRadioButton *sheyichangyouRadioButton;
        TRadioButton *sheyichangwuRadioButton;
        TGroupBox *shenshezhengchan;
        TRadioButton *shechanyouRadioButton;
        TRadioButton *shechanwuRadioButton;
        TGroupBox *shetaipianxie;
        TRadioButton *pianxieyouRadioButton;
        TRadioButton *pianxiewuRadioButton;
        TGroupBox *quchi;
        TRadioButton *quchiyouRadioButton;
        TRadioButton *quchiwuRadioButton;
        TGroupBox *yayinhongzhong;
        TRadioButton *yazhongyouRadioButton;
        TRadioButton *yazhongwuRadioButton;
        TGroupBox *yineng;
        TRadioButton *yinengyouRadioButton;
        TRadioButton *yinnemgwuRadioButton;
        TGroupBox *yachiyayinchuxue;
        TRadioButton *chuxueyouRadioButton;
        TRadioButton *chuxuewuRadioButton;
        TGroupBox *yachiyayinqianxian;
        TRadioButton *qianxianyouRadioButton;
        TRadioButton *qianxianwuRadioButton;
        TGroupBox *GroupBox40;
        TTabSheet *TabSheet5;
        TLabel *jingbu;
        TLabel *jiazhungxian;
        TGroupBox *jingbuqiangzhi;
        TRadioButton *RadioButton139;
        TRadioButton *RadioButton140;
        TGroupBox *yichangjingdongmaibodong;
        TRadioButton *RadioButton141;
        TRadioButton *RadioButton142;
        TGroupBox *jingjingmainuzhang;
        TRadioButton *RadioButton143;
        TRadioButton *RadioButton144;
        TGroupBox *ganjingmaihuiliu;
        TRadioButton *RadioButton145;
        TRadioButton *RadioButton146;
        TGroupBox *jingbuqiguan;
        TRadioButton *RadioButton147;
        TRadioButton *RadioButton148;
        TRadioButton *RadioButton149;
        TGroupBox *jiazhuangxianzhongda;
        TRadioButton *RadioButton150;
        TRadioButton *RadioButton151;
        TGroupBox *jiazhuangxianjiejie;
        TRadioButton *RadioButton152;
        TRadioButton *RadioButton153;
        TGroupBox *jiazhungxianyatong;
        TRadioButton *RadioButton154;
        TRadioButton *RadioButton155;
        TGroupBox *xueguanzayin;
        TRadioButton *RadioButton156;
        TRadioButton *RadioButton157;
        TGroupBox *jiazhuangxianzhenchan;
        TRadioButton *RadioButton158;
        TRadioButton *RadioButton159;
        TGroupBox *GroupBox51;
        TTabSheet *TabSheet6;
        TTabSheet *TabSheet7;
        TTabSheet *TabSheet8;
        TLabel *jizhu;
        TLabel *sizhi;
        TGroupBox *jizhuqianhouao;
        TRadioButton *RadioButton182;
        TRadioButton *RadioButton183;
        TGroupBox *jizhuceao;
        TRadioButton *RadioButton184;
        TRadioButton *RadioButton185;
        TGroupBox *jizhuyatong;
        TRadioButton *RadioButton186;
        TRadioButton *RadioButton187;
        TGroupBox *jizhukoujitong;
        TRadioButton *RadioButton188;
        TRadioButton *RadioButton189;
        TGroupBox *jizhuhuodongshouxian;
        TRadioButton *RadioButton190;
        TRadioButton *RadioButton191;
        TGroupBox *sizhijixing;