dm1.cpp

来自「骨灰盒规范化果腹」· C++ 代码 · 共 73 行

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

#include <vcl.h>
#pragma hdrstop

#include "DM1.h"
#include "DataForm.h"
#include "hugSnowStringLib.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
   : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDM::DataModuleCreate(TObject *Sender)
{
   if(ADOC1->Connected)ADOC1->Connected=false;
   ADOC1->ConnectionString="DBQ=personal.dat;Driver={Microsoft Access Driver (*.mdb)}";
   ADOC1->Connected=true;
   tbUser->Open();
   tbInfoType->Open();
   tbFileType->Open();
   tbKey->Open();
   tbInfo->Open();
}
//---------------------------------------------------------------------------
void __fastcall TDM::tbFileTypeDSDesigner2SetText(TField *Sender,
      const AnsiString Text)
{
   if(Text[1]!='.')
      Sender->AsString="."+Text;
}
//---------------------------------------------------------------------------
void __fastcall TDM::tbInfoAfterScroll(TDataSet *DataSet)
{
   if(!fmData->IsShow)return;
   fmData->sb1->Panels->Items[1]->Text=tbInfo->RecordCount;
   fmData->sb1->Panels->Items[3]->Text=tbInfo->RecNo;
   TStrings *sl=new TStringList();
   split(DataSet->FieldByName("关键字")->AsString,",",sl);
   for(int i=0;i<fmData->clbKey->Items->Count;i++)
      fmData->clbKey->Checked[i]=false;
   for(int i=0;i<sl->Count;i++)
   {
      int k=fmData->clbKey->Items->IndexOf(sl->Strings[i]);
      if(k>=0)
         fmData->clbKey->Checked[k]=true;
   }
   delete sl;
}
//---------------------------------------------------------------------------
void __fastcall TDM::tbInfoAfterInsert(TDataSet *DataSet)
{
   DataSet->FieldByName("加入日期")->AsString=Date();
}
//---------------------------------------------------------------------------
void __fastcall TDM::tbInfoBeforePost(TDataSet *DataSet)
{
   if(!fmData->IsShow)return;
   AnsiString s=DataSet->FieldByName("信息类型")->AsString+",";
   s+=DataSet->FieldByName("文件类型")->AsString+",";
   for(int i=0;i<fmData->clbKey->Items->Count;i++)
      if(fmData->clbKey->Checked[i])
         s+=fmData->clbKey->Items->Strings[i]+",";
   DataSet->FieldByName("关键字")->AsString=s;   
}
//---------------------------------------------------------------------------