datebase.cpp

来自「车辆保险管理系统主要是针对车辆保险业务管理流程而开发的一套先进的计算机管理系统。」· C++ 代码 · 共 90 行

//---------------------------------------------------------------------------
#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="";
}
//---------------------------------------------------------------------------