unit_fileappend.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_FileAppend.h"
#include "Unit_DM.h"
#include "Jpeg.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileAppendfrm *FileAppendfrm;
//---------------------------------------------------------------------------
__fastcall TFileAppendfrm::TFileAppendfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFileAppendfrm::SpeedButton6Click(TObject *Sender)
{
  if(SpeedButton4->Enabled)
  {
    ShowMessage("请保存后退出!!");
    return;
  }
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TFileAppendfrm::SpeedButton2Click(TObject *Sender)
{
  FileEnabled(true);
  Image1->Picture->Assign(NULL);
  DM->files->Append();
  DM->filesidh->Value=Now().FormatString("yyyymmddhhmmss");
  DateTimePicker1->Date =Date();
  DateTimePicker2->Time =Time();
  DBEdit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton5Click(TObject *Sender)
{
  DM->files->Cancel();
  FileEnabled(false);
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::FormCreate(TObject *Sender)
{
//  DM->files->Close();
//  DM->files->Open();
  LabelShow();
  FileEnabled(false);
  PhotoShow();
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::FormKeyPress(TObject *Sender, char &Key)
{
  if (Key==13)
  {
    Key=9;
    Perform(WM_NEXTDLGCTL, 0, 0);
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton3Click(TObject *Sender)
{
  FileEnabled(true);
  DM->files->Edit();
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton4Click(TObject *Sender)
{
  DM->filesmztime->Value =StrToDateTime(DateTimePicker1->Date.DateString()+" "+DateTimePicker1->Time.TimeString());
  DM->files->Post();
  FileEnabled(false);
}
//---------------------------------------------------------------------------
void TFileAppendfrm::FileEnabled(bool file)
{
  if(!file){
    TabSheet1->Enabled =false;
    SpeedButton1->Enabled=false;
    SpeedButton2->Enabled=true;
    SpeedButton3->Enabled=true;
    SpeedButton4->Enabled=false;
    SpeedButton5->Enabled=false;
    DBEdit1->Color =clMoneyGreen;
    DBEdit2->Color =clMoneyGreen;
    DBEdit3->Color =clMoneyGreen;
    DBEdit4->Color =clMoneyGreen;
    DBEdit5->Color =clMoneyGreen;
    DBEdit6->Color =clMoneyGreen;
    DBEdit7->Color =clMoneyGreen;
    DBEdit8->Color =clMoneyGreen;
    DBEdit9->Color =clMoneyGreen;
    DBEdit10->Color =clMoneyGreen;
    DBEdit11->Color =clMoneyGreen;
    DBEdit12->Color =clMoneyGreen;
    DBEdit13->Color =clMoneyGreen;
    DBEdit14->Color =clMoneyGreen;
    DBEdit15->Color =clMoneyGreen;
    DBComboBox1->Color =clMoneyGreen;
    DBComboBox2->Color =clMoneyGreen;
    DBComboBox3->Color =clMoneyGreen;
    DBComboBox4->Color =clMoneyGreen;
    DBComboBox5->Color =clMoneyGreen;
    DBComboBox6->Color =clMoneyGreen;
    DBComboBox7->Color =clMoneyGreen;
    DateTimePicker1->Color =clMoneyGreen;
    DateTimePicker2->Color =clMoneyGreen;
  }
  else{
    TabSheet1->Enabled =true;
    SpeedButton1->Enabled=true;
    SpeedButton2->Enabled=false;
    SpeedButton3->Enabled=false;
    SpeedButton4->Enabled=true;
    SpeedButton5->Enabled=true;
    DBEdit1->Color =clWindow;
    DBEdit2->Color =clWindow;
    DBEdit3->Color =clWindow;
    DBEdit4->Color =clWindow;
    DBEdit5->Color =clWindow;
    DBEdit6->Color =clWindow;
    DBEdit7->Color =clWindow;
    DBEdit8->Color =clWindow;
    DBEdit9->Color =clWindow;
    DBEdit10->Color =clWindow;
    DBEdit11->Color =clWindow;
    DBEdit12->Color =clWindow;
    DBEdit13->Color =clWindow;
    DBEdit14->Color =clWindow;
    DBEdit15->Color =clWindow;
    DBComboBox1->Color =clWindow;
    DBComboBox2->Color =clWindow;
    DBComboBox3->Color =clWindow;
    DBComboBox4->Color =clWindow;
    DBComboBox5->Color =clWindow;
    DBComboBox6->Color =clWindow;
    DBComboBox7->Color =clWindow;
    DateTimePicker1->Color =clWindow;
    DateTimePicker2->Color =clWindow;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::SpeedButton1Click(TObject *Sender)
{
  OpenDialog1->DefaultExt = ".JPG";
  OpenDialog1->Filter = "JPEG Image File (*.jpg)|*.jpg";
  OpenDialog1->Options << ofOverwritePrompt << ofFileMustExist << ofHideReadOnly;
  OpenDialog1->InitialDir=ExtractFilePath(Application->ExeName)+"\photo";
  if(OpenDialog1->Execute())
  {
    TJPEGImage *pi=new TJPEGImage();
    try
    {
      pi->LoadFromFile(OpenDialog1->FileName);
      Image1->Picture->Assign(pi);
      Image1->Picture->SaveToFile(OpenDialog1->FileName);
      DM->Query1->Close();
      DM->Query1->SQL->Clear();
      DM->Query1->SQL->Add("update files set photo=:mphoto where idh=:midh");
      DM->Query1->Parameters->ParamByName("mphoto")->Value=OpenDialog1->FileName.SubString(OpenDialog1->InitialDir.Length()+2,OpenDialog1->FileName.Length());
      DM->Query1->Parameters->ParamByName("midh")->Value=DM->filesidh->Value.Trim();
      DM->Query1->ExecSQL();
    }
    __finally
    {
      delete pi;
    }
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileAppendfrm::DBEdit3Exit(TObject *Sender)
{
AnsiString a,b,c,d,f;
AnsiString EditText = DBEdit3->Text;
int e;
e=StrLen(EditText.c_str());
if (e==18)
{
  DBEdit3->SelStart=0;
  DBEdit3->SelLength=6;
  f=DBEdit3->SelText;
  DBEdit3->SelStart=6;
  DBEdit3->SelLength=4;
  a=DBEdit3->SelText;
  DBEdit3->SelStart=10;
  DBEdit3->SelLength=2;
  b=DBEdit3->SelText;
  DBEdit3->SelStart=12;
  DBEdit3->SelLength=2;
  c=DBEdit3->SelText;
  DBEdit3->SelStart=16;
  DBEdit3->SelLength=1;
  d=DBEdit3->SelText;
  if((StrToInt(d)%2)==1)
  {
     DBComboBox1->Text ="男";
  }
  else
  {
     DBComboBox1->Text ="女";
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from IDCard where IDh=:mIDh");
  DM->Query1->Parameters->ParamByName("mIDh")->Value=f.Trim();
  DM->Query1->Open();
  DBEdit12->Text =DM->Query1->FieldByName("name")->AsString.Trim();  //籍贯
}
else if (e==15)
{
  DBEdit3->SelStart=0;
  DBEdit3->SelLength=6;
  f=DBEdit3->SelText;
  DBEdit3->SelStart=6;
  DBEdit3->SelLength=2;
  a="19"+DBEdit3->SelText;
  DBEdit3->SelStart=8;
  DBEdit3->SelLength=2;
  b=DBEdit3->SelText;
  DBEdit3->SelStart=10;
  DBEdit3->SelLength=2;
  c=DBEdit3->SelText;
  DBEdit3->SelStart=14;
  DBEdit3->SelLength=1;
  d=DBEdit3->SelText;
  if((StrToInt(d)%2)==1)
  {
    DBComboBox1->Text ="男";
  }
  else
  {
    DBComboBox1->Text ="女";
  }
  DM->Query1->Close();
  DM->Query1->SQL->Clear();
  DM->Query1->SQL->Add("select * from IDCard where IDh=:mIDh");
  DM->Query1->Parameters->ParamByName("mIDh")->Value=f.Trim();
  DM->Query1->Open();
  DBEdit12->Text =DM->Query1->FieldByName("name")->AsString.Trim();  //籍贯
}
else ShowMessage("输入的身份证号不正确！");
}
//---------------------------------------------------------------------------
void TFileAppendfrm::LabelShow()
{
  for(int i=1;i<=28;i++)
  {
    DM->Query1->Close();
    DM->Query1->SQL->Clear();
    DM->Query1->SQL->Add("select czd,flag from items where bh=:mbh");
    DM->Query1->Parameters->ParamByName("mbh")->Value=i;
    DM->Query1->Open();
    bool show=DM->Query1->FieldByName("flag")->AsBoolean;
    switch(i)
    {
      case 1:
      {
        Label1->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label1->Visible =show;
        DBEdit1->Visible =show;    //编号
      }
      break;
      case 2:
      {
        Label2->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label2->Visible =show;
        DBEdit2->Visible =show;     //姓名
      }
      break;
      case 3:
      {
        Label3->Caption =DM->Query1->FieldByName("czd")->AsString.Trim();
        Label3->Visible =show;
        DBComboBox1->Visible =show;     //性别
      }
      break;
      case 4:
      {