unit_fileappend.cpp

本系统里面包含数据库（SQL SERVER2000）

        Label4->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label4->Visible =show;
        DBComboBox2->Visible =show;     //科室
      }
      break;
      case 5:
      {
        Label5->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label5->Visible =show;
        DBEdit3->Visible =show;      //身份证
      }
      break;
      case 6:
      {
        Label6->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label6->Visible =show;
        DBComboBox3->Visible =show;    //学历
      }
      break;
      case 7:
      {
        Label7->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label7->Visible =show;
        DBEdit4->Visible =show;     //毕业院校
      }
      break;
      case 8:
      {
        Label8->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label8->Visible =show;
        DBEdit5->Visible =show;   //所学专业
      }
      break;
      case 9:
      {
        Label9->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label9->Visible =show;
        DBComboBox4->Visible =show;    //执业级别
      }
      break;
      case 10:
      {
        Label10->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label10->Visible =show;
        DBComboBox5->Visible =show;    //执业类别
      }
      break;
      case 11:
      {
        Label11->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label11->Visible =show;
        DBEdit6->Visible =show;   //执业范围
      }
      break;
      case 12:
      {
        Label12->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label12->Visible =show;
        DBEdit7->Visible =show;    //资格证书
      }
      break;
      case 13:
      {
        Label13->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label13->Visible =show;
        DBEdit8->Visible =show;    //执业证书
      }
      break;
      case 14:
      {
        Label14->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label14->Visible =show;
        DBComboBox6->Visible =show;    //职    称
      }
      break;
      case 15:
      {
        Label15->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label15->Visible =show;
        DBComboBox7->Visible =show;    //职务
      }
      break;
      case 16:
      {
        Label16->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label16->Visible =show;
        DBEdit9->Visible =show;    //社会兼职
      }
      break;
      case 17:
      {
        Label17->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label17->Visible =show;
        DBEdit10->Visible =show;    //专科专长
      }
      break;
      case 18:
      {
        Label18->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label18->Visible =show;
        DateTimePicker1->Visible =show;    //门诊时间
        DateTimePicker2->Visible =show;
      }
      break;
      case 19:
      {
        Label19->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label19->Visible =show;
        DBEdit11->Visible =show;    //备    注
      }
      break;
      case 22:
      {
        Label21->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label21->Visible =show;
        DBEdit12->Visible =show;     //
      }
      break;
      case 23:
      {
        Label20->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label20->Visible =show;
        DBEdit15->Visible =show;    //
      }
      break;
      case 24:
      {
        Label22->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label22->Visible =show;
        DBEdit13->Visible =show;    //预    留
      }
      break;
      case 25:
      {
        Label23->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label23->Visible =show;
        DBEdit14->Visible =show;    //预    留
      }
      break;
    }
  }
}
//---------------------------------------------------------------------------


void __fastcall TFileAppendfrm::FormShow(TObject *Sender)
{
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from DataWh where flag='KS' order by bh");
  DM->Query1->Open();
  DBComboBox2->Items->Clear();
  while(!DM->Query1->Eof){
    DBComboBox2->Items->Add(DM->Query1->FieldByName("name")->AsString.Trim());
    DM->Query1->Next();
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from DataWh where flag='XL' order by bh");
  DM->Query1->Open();
  DBComboBox3->Items->Clear();
  while(!DM->Query1->Eof){
    DBComboBox3->Items->Add(DM->Query1->FieldByName("name")->AsString.Trim());
    DM->Query1->Next();
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from DataWh where flag='JB' order by bh");
  DM->Query1->Open();
  DBComboBox4->Items->Clear();
  while(!DM->Query1->Eof){
    DBComboBox4->Items->Add(DM->Query1->FieldByName("name")->AsString.Trim());
    DM->Query1->Next();
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from DataWh where flag='LB' order by bh");
  DM->Query1->Open();
  DBComboBox5->Items->Clear();
  while(!DM->Query1->Eof){
    DBComboBox5->Items->Add(DM->Query1->FieldByName("name")->AsString.Trim());
    DM->Query1->Next();
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from DataWh where flag='ZC' order by bh");
  DM->Query1->Open();
  DBComboBox6->Items->Clear();
  while(!DM->Query1->Eof){
    DBComboBox6->Items->Add(DM->Query1->FieldByName("name")->AsString.Trim());
    DM->Query1->Next();
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from DataWh where flag='ZW' order by bh");
  DM->Query1->Open();
  DBComboBox7->Items->Clear();
  while(!DM->Query1->Eof){
    DBComboBox7->Items->Add(DM->Query1->FieldByName("name")->AsString.Trim());
    DM->Query1->Next();
  }
}
//---------------------------------------------------------------------------
void TFileAppendfrm::PhotoShow()
{
  if(DM->filesphoto->IsNull || DM->filesphoto->Value.IsEmpty())
  {
    Image1->Picture->Assign(NULL);
    return;
  }
  OpenDialog1->InitialDir=ExtractFilePath(Application->ExeName)+"\photo";
  AnsiString PicFile=DM->filesphoto->Value.Trim();
  OpenDialog1->FileName=OpenDialog1->InitialDir+"\\"+PicFile;
  if(!FileExists(OpenDialog1->FileName))
  {
    ShowMessage("图片不存在!!");
    return;
  }
  //Graphics::TBitmap *tp=new Graphics::TBitmap(); //BMP
  TJPEGImage *tp=new TJPEGImage();               //JPG
  try
  {
    tp->LoadFromFile(OpenDialog1->FileName);
    Image1->Picture->Assign(tp);
  }
  __finally
  {
    delete tp;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton7Click(TObject *Sender)
{
  DM->files->First();
  if(DM->files->Bof){
    SpeedButton7->Enabled =false;
    SpeedButton8->Enabled =false;
    SpeedButton9->Enabled =true;
    SpeedButton10->Enabled =true;
  }
  PhotoShow();
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton8Click(TObject *Sender)
{
  DM->files->Prior();
  if(DM->files->Bof){
    SpeedButton7->Enabled =false;
    SpeedButton8->Enabled =false;
    SpeedButton9->Enabled =true;
    SpeedButton10->Enabled =true;
  }
  PhotoShow();
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton9Click(TObject *Sender)
{
  DM->files->Next();
  if(DM->files->Eof){
    SpeedButton7->Enabled =true;
    SpeedButton8->Enabled =true;
    SpeedButton9->Enabled =false;
    SpeedButton10->Enabled =false;
  }
  PhotoShow();
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton10Click(TObject *Sender)
{
  DM->files->Last();
  if(DM->files->Eof){
    SpeedButton7->Enabled =true;
    SpeedButton8->Enabled =true;
    SpeedButton9->Enabled =false;
    SpeedButton10->Enabled =false;
  }
  PhotoShow();
}
//---------------------------------------------------------------------------