dataform.cpp

骨灰盒规范化果腹

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

#include <vcl.h>
#include <stdlib.h>
#include <stdio.h>

#pragma hdrstop

#include "DataForm.h"
#include "DM1.h"
#include "HugSnowData.h"
#include "FILEINFOKEY.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmData *fmData;
//---------------------------------------------------------------------------
__fastcall TfmData::TfmData(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmData::FormActivate(TObject *Sender)
{
   LoadStringFromDataSet(clbKey->Items,
      DM->tbKey,DM->tbKey->FieldByName("关键字"));
   LoadStringFromDataSet(DBcbInfoType->Items,
      DM->tbInfoType,DM->tbInfoType->FieldByName("信息类型"));
   LoadStringFromDataSet(DBcbFileType->Items,
      DM->tbFileType,DM->tbFileType->FieldByName("文件类型"));
   IsShow=true;
   DM->tbInfoAfterScroll(DM->tbInfo);
}
//---------------------------------------------------------------------------
void __fastcall TfmData::Button4Click(TObject *Sender)
{
   if(DM->tbInfo->State!=dsInsert&&DM->tbInfo->State!=dsEdit)
   {
      ShowMessage("数据库不在编辑和插入状态!");
      return;
   }
   AnsiString fn,s;
   TLocateOptions o;
   s=DM->tbInfo->FieldByName("文件类型")->AsString;
   DM->tbFileType->Locate("文件类型",s,o);
   od1->Filter=s+"|*"+DM->tbFileType->FieldByName("扩展名")->AsString+"|All|*.*";
   od1->DefaultExt=DM->tbFileType->FieldByName("扩展名")->AsString;
   if(od1->Execute())
      fn=od1->FileName;
   if((!fn.IsEmpty())&&FileExists(fn))
   {
      (dynamic_cast<TBlobField *>(DM->tbInfo->FieldByName("文件内容")))->LoadFromFile(fn);
      DM->tbInfo->FieldByName("扩展名")->AsString=ExtractFileExt(fn);
   }
}
//---------------------------------------------------------------------------

void __fastcall TfmData::Button5Click(TObject *Sender)
{
   if(DM->tbInfo->FieldByName("文件内容")->Value.IsNull())
   {
      ShowMessage("没有可以显示的内容!");
      return;
   }
   AnsiString tmp=getenv("Temp");
   char s[80];
   tmpnam(s);
   tmp=tmp+"\\"+s;
   tmp=ChangeFileExt(tmp,DM->tbInfo->FieldByName("扩展名")->AsString);
   (dynamic_cast<TBlobField *>(DM->tbInfo->FieldByName("文件内容")))->SaveToFile(tmp);
   ShellExecute(NULL,"open",tmp.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TfmData::edIDChange(TObject *Sender)
{
   TLocateOptions Opts;
   Opts<<loPartialKey;
   DM->tbInfo->Locate("ID",edID->Text,Opts);
}
//---------------------------------------------------------------------------

void __fastcall TfmData::Button2Click(TObject *Sender)
{
   if(!fmAll)
      fmAll=new TfmAll(this);
   fmAll->ShowModal();
   FormActivate(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TfmData::FormClose(TObject *Sender, TCloseAction &Action)
{
   IsShow=false;   
}
//---------------------------------------------------------------------------