unit1.cpp

有视频

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

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::OleContainer1Exit(TObject *Sender)
{
  OleContainer1->Close();
  Table1->Edit();
  SaveOleField();
  Table1->Post();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{
  Table1->Active=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  Table1->Active=False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
  AnsiString NewString = "新文档";
  if (InputQuery("文档名称输入", "请输入文档名称：", NewString))
  {
    Table1->Append();
    Table1->FieldByName("Name")->AsString=NewString.Trim();
    Table1->Post();
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadOleField(void)
{
  TBlobField *bfield;
  TMemoryStream *sm;

  bfield=(TBlobField *)Table1->FieldByName("Doc");
  sm=new TMemoryStream();
  bfield->SaveToStream(sm);
  sm->Position=0;
//  if(sm->Size>0)
    OleContainer1->LoadFromStream(sm);
  delete sm;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveOleField(void)
{
  TBlobField *bfield;
  TMemoryStream *sm;
  bfield=(TBlobField *)Table1->FieldByName("Doc");
  sm=new TMemoryStream();

  OleContainer1->SaveToStream(sm);

  sm->Position=0;
  bfield->LoadFromStream(sm);
  delete sm;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DBLookupListBox1Click(TObject *Sender)
{
  try
  {
    LoadOleField();
  }
  catch(...)
  {
    //
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
  Table1->Delete();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------