guangli.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "guangli.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//#pragma link "backup"
#pragma resource "*.dfm"
TMainfrm *Mainfrm;
//---------------------------------------------------------------------------
__fastcall TMainfrm::TMainfrm(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::FormShow(TObject *Sender)
{
  flag=false;
  insertbaodanno="";
  insertpersonname="";

  TConfigMode Save_Config = dm->Session1->ConfigMode;
  dm->Session1->ConfigMode = cmSession;
  if(!dm->Session1->IsAlias("Foi"))
      dm->Session1->AddStandardAlias("Foi",passworddlg->GetMydirValue(),"PARADOX");
  dm->Session1->ConfigMode = Save_Config;
  dm->Closetable();
  PageControl1->ActivePage=TabSheet1;
  dm->Mdsetup_baodan();
  dm->Opentable();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::FormClose(TObject *Sender, TCloseAction &Action)
{
   dm->Postall();
   dm->Closetable();
}
//------------------------------------------------------------------------
void __fastcall TMainfrm::Add() //增加系统记录
{
  switch(PageControl1->ActivePage->Tag)
      {
      case 1:  {
               if(dm->tbl_baodan->State!=dsOpening)
                       {
                       dm->tbl_baodan->Open();
                       }
               //判断保单号是否重复
               String InputString = InputBox("请输入要增加的保单号", "保单号：","");
               if(InputString!="")
               {
                   insertbaodanno=InputString;
                   Edit1->Text=insertbaodanno;
                   BitBtn8->Click();
                   Edit1->Text="";
                   if(!dm->tbl_baodan->IsEmpty())//有重复
                   {
                   insertbaodanno="";
                   ShowMessage("保单号有重复！！！");
                   BitBtn8->Click();
                   break;
                   }
                   else BitBtn8->Click();    //无重复
               }
               else break;
               //结束判断
               dm->tbl_baodan->Insert();
               Tbaodan* wk1=new Tbaodan(this);
               wk1->ShowModal();
               delete wk1;
               break;
               }
      case 2:  {
               if(dm->tbl_lipei->State==dsOpening) dm->tbl_lipei->Close();
               dm->tbl_lipei->MasterFields="";
               dm->tbl_lipei->Open();
               dm->tbl_lipei->Edit();
               Tlipei* wk2=new Tlipei(this);
               wk2->ShowModal();
               delete wk2;
               if(dm->tbl_lipei->State==dsOpening) dm->tbl_lipei->Close();
               dm->tbl_lipei->MasterFields="Carno";
               dm->tbl_lipei->Open();
               break;
               }
      case 3:  {
               if(dm->tbl_person->State!=dsOpening)
                      dm->tbl_person->Open();
                //判断人名是否重复
               String InputString = InputBox("请输入要增加的人名", "姓名：","");
               if(InputString!="")
               {
                   insertpersonname=InputString;
                   Edit2->Text=insertpersonname;
                   BitBtn9->Click();
                   Edit2->Text="";
                   if(!dm->tbl_person->IsEmpty())//有重复
                   {
                       Tnamecheckfrm* wk10=new Tnamecheckfrm(this);
                       wk10->Show();
                       if (MessageDlg("人名有重复，是否继续？",
                                            mtConfirmation,
                         TMsgDlgButtons() << mbYes << mbNo,
                                                 0)==mrNo)
                             {
                             insertpersonname="";
                             delete wk10;
                             break;
                             }
                       else delete wk10;
                   }
               }
               else break;
               //结束判断
               dm->tbl_person->Insert();
               Tperson* wk3=new Tperson(this);
               wk3->ShowModal();
               delete wk3;
               break;
               }
      }
}
//------------------------------------------------------------------------
void __fastcall TMainfrm::Del()   //删除系统记录
{
  TMsgDlgButtons Btns;
  Btns<<mbYes<<mbNo;
  String Str="您确定删除";
  String s;
  if(!dm->tbl_baodan->IsEmpty()||!dm->tbl_person->IsEmpty())
  {
  switch(PageControl1->ActivePage->Tag)
     {
     case 1:  {
              s=Str+"此保单的当前车辆记录吗?";
              if(dm->tbl_car->IsEmpty())
                   ShowMessage("无车辆记录可删,此保单将被删除!");
              else if((MessageDlg(s,mtInformation,Btns,0)==ID_YES))
                   {
                   if(!dm->tbl_lipei->IsEmpty())
                   ShowMessage("此车有理赔记录，请先删除完理赔记录！");
                   else dm->tbl_car->Delete();
                   }
              if(dm->tbl_car->IsEmpty()) dm->tbl_baodan->Delete();
              dm->Postall();
              dm->tbl_baodan->Refresh();
              dm->tbl_car->Refresh();
              break;
              }
     case 2:  {
              s=Str+"当前理赔记录吗?";
              if(dm->tbl_lipei->IsEmpty())
                   ShowMessage("无理赔记录可删!");
              else
                   if((MessageDlg(s,mtInformation,Btns,0)==ID_YES))
                   dm->tbl_lipei->Delete();
              dm->Postall();
              dm->tbl_lipei->Refresh();
              break;
              }
     case 3:  {
              s=Str+"当前名片记录吗?";
              if(dm->tbl_person->IsEmpty())
                   ShowMessage("无名片记录可删!");
              else
                   if((MessageDlg(s,mtInformation,Btns,0)==ID_YES))
                   dm->tbl_person->Delete();
              dm->Postall();
              dm->tbl_person->Refresh();
              break;
              }  //end case 3
     }//end switch
   }//end if
  else ShowMessage("无保单记录可删!");
  dm->Postall();
}//end function
//------------------------------------------------------------------------
void __fastcall TMainfrm::Edit()  //修改系统记录
{
     switch(PageControl1->ActivePage->Tag)
      {
      case 1:  {
                if(dm->tbl_baodan->State!=dsOpening)
                       {
                       dm->tbl_baodan->Open();
                       }
               dm->tbl_baodan->Edit();
               Tbaodan* wk4=new Tbaodan(this);
               wk4->ShowModal();
               delete wk4;
               break;
               }
      case 2:  {
               if(dm->tbl_lipei->State!=dsOpening)
                      dm->tbl_lipei->Open();
               dm->tbl_lipei->Edit();
               Tlipei* wk5=new Tlipei(this);
               wk5->ShowModal();
               delete wk5;
               break;
               }
      case 3:  {
               if(dm->tbl_person->State!=dsOpening)
                      dm->tbl_person->Open();
               dm->tbl_person->Edit();
               Tperson* wk6=new Tperson(this);
               wk6->ShowModal();
               delete wk6;
               break;
               }
      }
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::SysClose()  //关闭系统
{
  dm->Postall();
  dm->Closetable();
  Mainfrm->Close();
}
//--------------------------------------------------------------------------
void __fastcall TMainfrm::Cancel()      //取消操作
{
     switch(PageControl1->ActivePage->Tag)