print1.cpp

来自「脑电信号分析软件」· C++ 代码 · 共 49 行

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "print1.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TQRListForm *QRListForm;
//---------------------------------------------------------------------
__fastcall TQRListForm::TQRListForm(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
/*void __fastcall TQRListForm::FormCreate(TObject *Sender)
{
 String  databasepath;
    databasepath= ExtractFilePath(Application->ExeName)+"dangan.mdb";
    if (ADOConnection1->Connected==false)
      {ADOConnection1->ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" + databasepath + ";Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
       }
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("SELECT * FROM Pinfo WHERE  编号='" + ID + "'" );
   ADOQuery1->Open();
   if(ADOQuery1->Eof==false)
    { QRLabel_bh->Caption=ADOQuery1->FieldByName("编号")->AsString;
      QRLabel_rq->Caption=ADOQuery1->FieldByName("日期")->AsDateTime;
      QRLabel_qssj->Caption=ADOQuery1->FieldByName("起始时间")->AsDateTime;
      QRLabel_xm->Caption=ADOQuery1->FieldByName("姓名")->AsString;
      QRLabel_xb->Caption=ADOQuery1->FieldByName("性别")->AsString;
      QRLabel_nl->Caption=ADOQuery1->FieldByName("年龄")->AsString;
      QRLabel_zy->Caption=ADOQuery1->FieldByName("左/右利")->AsString;
      QRLabel_ks->Caption=ADOQuery1->FieldByName("科室")->AsString;
      QRLabel_mzh->Caption=ADOQuery1->FieldByName("门诊号")->AsString;
      QRLabel_zyh->Caption=ADOQuery1->FieldByName("住院号")->AsString;
      QRLabel_bfh->Caption=ADOQuery1->FieldByName("病房号")->AsString;
      QRLabel_dls->Caption=ADOQuery1->FieldByName("导联数")->AsString;
      QRLabel_fy->Caption=ADOQuery1->FieldByName("检查前服药")->AsString;
      QRLabel_sz->Caption=ADOQuery1->FieldByName("检查时神志")->AsString;
      QRLabel_ys->Caption=ADOQuery1->FieldByName("医师")->AsString;
    }
}*/
//---------------------------------------------------------------------------


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