datebase.cpp

车辆保险管理系统主要是针对车辆保险业务管理流程而开发的一套先进的计算机管理系统。车辆保险管理系统是专为车辆保险业务员开发的一套应用软件

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "datebase.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tdm *dm;
//---------------------------------------------------------------------------
__fastcall Tdm::Tdm(TComponent* Owner)
        : TDataModule(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall Tdm::Mdsetup_baodan()
{
  Closetable();

  tbl_car->MasterSource=ds_baodan;
  tbl_car->MasterFields="Baodanno";
  tbl_car->IndexName="Baodanno";
  tbl_lipei->MasterSource=ds_car;
  tbl_lipei->MasterFields="Carno";
  tbl_lipei->IndexName="Carno";

  Opentable();
}
//---------------------------------------------------------------------------
void __fastcall Tdm::Opentable()
{
  tbl_baodan->Open();
  tbl_car->Open();
  tbl_lipei->Open();
  tbl_person->Open();
}
//----------------------------------------------------------------------------
void __fastcall Tdm::Closetable()
{
  tbl_baodan->Close();
  tbl_car->Close();
  tbl_lipei->Close();
  tbl_person->Close();
}
//-----------------------------------------------------------------------
void __fastcall Tdm::Dopost(TDataSet* Data)
{
  if (Data->State==dsInsert||Data->State==dsEdit)
     {
     Data->Post();
     Data->Refresh();
     }
}
//------------------------------------------------------------------------
void __fastcall Tdm::Postall()
{
  Dopost(tbl_baodan);
  Dopost(tbl_car);
  Dopost(tbl_lipei);
  Dopost(tbl_person);
}
//------------------------------------------------------------------------
void __fastcall Tdm::LookupBaodan(String str)
{
  dm->tbl_baodan->IndexName="BaodannoIndex";
  dm->tbl_baodan->SetRangeStart();
  dm->tbl_baodan->FieldByName("Baodanno")->AsString=str;
  dm->tbl_baodan->SetRangeEnd();
  dm->tbl_baodan->FieldByName("Baodanno")->AsString=str;
  dm->tbl_baodan->ApplyRange();
}
//---------------------------------------------------------------------------
void __fastcall Tdm::LookupPerson(String str)
{
  dm->tbl_person->IndexName="NameIndex";
  dm->tbl_person->SetRangeStart();
  dm->tbl_person->FieldByName("Name")->AsString=str;
  dm->tbl_person->SetRangeEnd();
  dm->tbl_person->FieldByName("Name")->AsString=str;
  dm->tbl_person->ApplyRange();
}
//---------------------------------------------------------------------------
void __fastcall Tdm::LookupBaodanCancel()
{
  dm->tbl_baodan->IndexName="";
}
//---------------------------------------------------------------------------