unit_filenote.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_FileNote.h"
#include "Unit_DM.h"
#include "Jpeg.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileNotefrm *FileNotefrm;
//---------------------------------------------------------------------------
__fastcall TFileNotefrm::TFileNotefrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFileNotefrm::SpeedButton6Click(TObject *Sender)
{
  if(SpeedButton4->Enabled)
  {
    ShowMessage("请保存后退出!!");
    return;
  }
  Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFileNotefrm::SpeedButton2Click(TObject *Sender)
{
  FileEnabled(true);
  SpeedButton4->Enabled=true;
  SpeedButton5->Enabled=true;
  DateTimePicker1->Date =Date();
  if(ToolButton2->Down){
    ToolButton1->Enabled =false;
    ToolButton2->Enabled =true;
    ToolButton3->Enabled =false;
    ToolButton4->Enabled =false;
    ToolButton5->Enabled =false;
    ToolButton6->Enabled =false;
  }
  DM->Notes->Append();
  DM->Notesidh->Value=DM->filesidh->Value.Trim();
  if(ToolButton2->Down)DM->Notesflag->Value ="KJ";
  if(ToolButton3->Down)DM->Notesflag->Value ="ZJ";
  if(ToolButton4->Down)DM->Notesflag->Value ="AQ";
  if(ToolButton5->Down)DM->Notesflag->Value ="CF";
  if(ToolButton6->Down)DM->Notesflag->Value ="HJ";
  DBMemo1->SetFocus();
}
//---------------------------------------------------------------------------

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

void __fastcall TFileNotefrm::FormCreate(TObject *Sender)
{
  ToolButton1Click(this);
  SpeedButton2->Enabled =false;
  SpeedButton3->Enabled =false;
  PhotoShow();
}
//---------------------------------------------------------------------------

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

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

void __fastcall TFileNotefrm::SpeedButton4Click(TObject *Sender)
{
  DM->Notesdat->Value =DateTimePicker1->Date;
  DM->Notesnote->Value =DateTimePicker1->Date.DateString()+" "+DBMemo1->Text.Trim(); 
  DM->Notes->Post();
  FileEnabled(false);
}
//---------------------------------------------------------------------------
void TFileNotefrm::FileEnabled(bool file)
{
  if(!file){
    SpeedButton1->Enabled=false;
    SpeedButton2->Enabled=true;
    SpeedButton3->Enabled=true;
    SpeedButton4->Enabled=false;
    SpeedButton5->Enabled=false;
    SpeedButton2->Enabled =true;
    SpeedButton3->Enabled =true;
    SpeedButton7->Enabled =true;
    SpeedButton8->Enabled =true;
    SpeedButton9->Enabled =true;
    SpeedButton10->Enabled =true;
  }
  else{
    SpeedButton1->Enabled=false;
    SpeedButton2->Enabled=false;
    SpeedButton3->Enabled=false;
    SpeedButton4->Enabled=true;
    SpeedButton5->Enabled=true;
  }
}
//---------------------------------------------------------------------------

void TFileNotefrm::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 TFileNotefrm::SpeedButton7Click(TObject *Sender)
{
  DM->Notes->First();
  if(DM->Notes->Bof){
    SpeedButton7->Enabled =false;
    SpeedButton8->Enabled =false;
    SpeedButton9->Enabled =true;
    SpeedButton10->Enabled =true;
  }
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TFileNotefrm::BitBtn1Click(TObject *Sender)
{
  if(Edit1->Text.IsEmpty())return;
  DM->files->Close();
  DM->files->Parameters->ParamByName("mks")->Value="%";
  DM->files->Parameters->ParamByName("mbh")->Value=Edit1->Text.Trim();
  DM->files->Open();
  if(DM->files->RecordCount ==0){
    ShowMessage("数据不存在!!");
    Edit1->SetFocus();
    return;
  }
  PhotoShow();
}
//---------------------------------------------------------------------------

void __fastcall TFileNotefrm::FormShow(TObject *Sender)
{
  Edit1->Text ="";
  Edit1->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall TFileNotefrm::Edit1Exit(TObject *Sender)
{
  BitBtn1Click(this);        
}
//---------------------------------------------------------------------------


void __fastcall TFileNotefrm::ToolButton1Click(TObject *Sender)
{
  PageControl1->ActivePage=TabSheet1;
  ToolButton1->Down =true;
  ToolButton2->Down =false;
  ToolButton3->Down =false;
  ToolButton4->Down =false;
  ToolButton5->Down =false;
  ToolButton6->Down =false;
  ToolButton1->Marked =true;
  ToolButton2->Marked =false;
  ToolButton3->Marked =false;
  ToolButton4->Marked =false;
  ToolButton5->Marked =false;
  ToolButton6->Marked =false;
  SpeedButton2->Enabled =false;
  SpeedButton3->Enabled =false;
  SpeedButton7->Enabled =false;
  SpeedButton8->Enabled =false;
  SpeedButton9->Enabled =false;
  SpeedButton10->Enabled =false;
}
//---------------------------------------------------------------------------

void __fastcall TFileNotefrm::ToolButton2Click(TObject *Sender)
{
  DM->Notes->Close();
  DM->Notes->Parameters->ParamByName("mflag")->Value="KJ";
  DM->Notes->Parameters->ParamByName("midh")->Value=DM->filesidh->Value.Trim();
  DM->Notes->Open();
  DateTimePicker1->Date =DM->Notesdat->Value;
  PageControl1->ActivePage=TabSheet2;
  FileEnabled(false);
  ToolButton1->Down =false;
  ToolButton2->Down =true;
  ToolButton3->Down =false;
  ToolButton4->Down =false;
  ToolButton5->Down =false;
  ToolButton6->Down =false;
  ToolButton1->Marked =false;
  ToolButton2->Marked =true;
  ToolButton3->Marked =false;
  ToolButton4->Marked =false;
  ToolButton5->Marked =false;
  ToolButton6->Marked =false;
}
//---------------------------------------------------------------------------


void __fastcall TFileNotefrm::ToolButton3Click(TObject *Sender)
{
  DM->Notes->Close();
  DM->Notes->Parameters->ParamByName("mflag")->Value="ZJ";
  DM->Notes->Parameters->ParamByName("midh")->Value=DM->filesidh->Value.Trim();
  DM->Notes->Open();
  DateTimePicker1->Date =DM->Notesdat->Value;
  PageControl1->ActivePage=TabSheet2;
  FileEnabled(false);
  ToolButton1->Down =false;
  ToolButton2->Down =false;
  ToolButton3->Down =true;
  ToolButton4->Down =false;
  ToolButton5->Down =false;
  ToolButton6->Down =false;
  ToolButton1->Marked =false;
  ToolButton2->Marked =false;
  ToolButton3->Marked =true;
  ToolButton4->Marked =false;
  ToolButton5->Marked =false;
  ToolButton6->Marked =false;
}
//---------------------------------------------------------------------------

void __fastcall TFileNotefrm::ToolButton4Click(TObject *Sender)
{
  DM->Notes->Close();
  DM->Notes->Parameters->ParamByName("mflag")->Value="AQ";
  DM->Notes->Parameters->ParamByName("midh")->Value=DM->filesidh->Value.Trim();
  DM->Notes->Open();
  DateTimePicker1->Date =DM->Notesdat->Value;
  PageControl1->ActivePage=TabSheet2;
  FileEnabled(false);
  ToolButton1->Down =false;
  ToolButton2->Down =false;
  ToolButton3->Down =false;
  ToolButton4->Down =true;
  ToolButton5->Down =false;
  ToolButton6->Down =false;
  ToolButton1->Marked =false;
  ToolButton2->Marked =false;
  ToolButton3->Marked =false;
  ToolButton4->Marked =true;
  ToolButton5->Marked =false;
  ToolButton6->Marked =false;
}
//---------------------------------------------------------------------------

void __fastcall TFileNotefrm::ToolButton5Click(TObject *Sender)
{
  DM->Notes->Close();
  DM->Notes->Parameters->ParamByName("mflag")->Value="CF";
  DM->Notes->Parameters->ParamByName("midh")->Value=DM->filesidh->Value.Trim();
  DM->Notes->Open();
  DateTimePicker1->Date =DM->Notesdat->Value;
  PageControl1->ActivePage=TabSheet2;
  FileEnabled(false);
  ToolButton1->Down =false;
  ToolButton2->Down =false;
  ToolButton3->Down =false;
  ToolButton4->Down =false;
  ToolButton5->Down =true;
  ToolButton6->Down =false;
  ToolButton1->Marked =false;
  ToolButton2->Marked =false;
  ToolButton3->Marked =false;
  ToolButton4->Marked =false;
  ToolButton5->Marked =true;
  ToolButton6->Marked =false;
}
//---------------------------------------------------------------------------

void __fastcall TFileNotefrm::ToolButton6Click(TObject *Sender)
{
  DM->Notes->Close();
  DM->Notes->Parameters->ParamByName("mflag")->Value="HJ";
  DM->Notes->Parameters->ParamByName("midh")->Value=DM->filesidh->Value.Trim();
  DM->Notes->Open();
  DateTimePicker1->Date =DM->Notesdat->Value;
  PageControl1->ActivePage=TabSheet2;
  FileEnabled(false);
  ToolButton1->Down =false;
  ToolButton2->Down =false;
  ToolButton3->Down =false;
  ToolButton4->Down =false;
  ToolButton5->Down =false;
  ToolButton6->Down =true;
  ToolButton1->Marked =false;
  ToolButton2->Marked =false;
  ToolButton3->Marked =false;
  ToolButton4->Marked =false;
  ToolButton5->Marked =false;
  ToolButton6->Marked =true;
}
//---------------------------------------------------------------------------