guangli.cpp

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

   {
       case 1: {
                dm->tbl_baodan->Cancel();
                dm->tbl_car->Cancel();
                break;
                }
       case 2: {
                dm->tbl_lipei->Cancel();
                break;
                }
       case 3: {
                dm->tbl_person->Cancel();
                break;
                }
   }
}
//-------------------------------------------------------------------------
//-------------------------------------------------------------------------
//-------------------------------------------------------------------------//---------------------------------------------------------------------------//--------------------------------------------------------------------------
bool __fastcall TMainfrm::GetClick()
{
    return flag;
}
//--------------------------------------------------------------------------
void __fastcall TMainfrm::PidanProcess()
{
     if(dm->tbl_baodan->State!=dsOpening)
                       { dm->tbl_baodan->Open(); dm->tbl_baodan->Edit();}
     if(dm->tbl_car->State!=dsOpening)
                       { dm->tbl_car->Open(); dm->tbl_car->Edit(); }
     if(dm->tbl_lipei->State!=dsOpening)
                        dm->tbl_lipei->Open();
     if(dm->tbl_person->State!=dsOpening)
                        dm->tbl_person->Open();
     Tpidanfrm* wk7=new Tpidanfrm(this);
     wk7->ShowModal();
     delete wk7;
}
//--------------------------------------------------------------------------
void __fastcall TMainfrm::Query()
{
   Tqueryfrm* wk8=new Tqueryfrm(this);
   wk8->WindowState=wsNormal;
   wk8->ShowModal();
   delete wk8;
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::BitBtn1Click(TObject *Sender)
{
  flag=true;
  Add();
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::BitBtn2Click(TObject *Sender)
{
   Cancel();
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::BitBtn3Click(TObject *Sender)
{
  flag=false;
  Edit();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn4Click(TObject *Sender)
{
  Del();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn7Click(TObject *Sender)
{
  SysClose();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn5Click(TObject *Sender)
{
   Query();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn8Click(TObject *Sender)
{
  String str;
  str=Edit1->Text;
  if(str=="")
  dm->LookupBaodanCancel();
  else
  dm->LookupBaodan(str);
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn9Click(TObject *Sender)
{
  String str;
  str=Edit2->Text;
  if(str=="")
    {
  ShowMessage("请输入要查的人名！");
  Edit2->SetFocus();
    }
  else
  dm->LookupPerson(str);
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn10Click(TObject *Sender)
{
  String str;
  str=DBEdit1->Text;
  if(str=="")
    {
  ShowMessage("请输入要查的人名！");
    }
  else
    {
  dm->LookupPerson(str);
  PageControl1->ActivePage=TabSheet3;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BitBtn11Click(TObject *Sender)
{
   PidanProcess();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::N4Click(TObject *Sender)     //退出系统
{
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::N2Click(TObject *Sender)   //备份数据库
{
   BackupFile();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::BackupFile()         //备份数据库函数
{
ShowMessage("        请插入一张新磁盘！\n\n并选择你所有的数据库文件*.db");
FILE *stream;
char FirstLine[512];
OpenDlg1->Options.Clear();
OpenDlg1->Options << ofAllowMultiSelect << ofFileMustExist;
OpenDlg1->Filter="数据库文件(*.DB)|*.DB";
OpenDlg1->FilterIndex=1;
OpenDlg1->InitialDir=passworddlg->GetMydirValue();

if (OpenDlg1->Execute())
  {
  for (int i = 0; i < OpenDlg1->Files->Count; i ++)
    {
      stream = fopen(OpenDlg1->Files->Strings[i].c_str(), "r");
      if (stream)
         {
        fgets(FirstLine, sizeof(FirstLine), stream);
        fclose(stream);
         } //end if
    }//end for
  } //end if
if (MessageDlg("确实要备份吗？", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
                {
                //BackupFile1->Backup(OpenDlg1->Files,"A:\\mypack.pak");
                ShowMessage("备份成功，请保管好你的备份盘！");
                }
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::RestoreFile()     //恢复数据库函数
{
   AnsiString str;
   str=passworddlg->GetMydirValue();
   ShowMessage("请插入你的数据库备份盘！");
   ShowMessage("数据库将恢复到\n"+str);
   if (MessageDlg("确实要恢复吗？", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
       {
       //BackupFile1->Restore("A:\\mypack.pak",str);
       ShowMessage("恢复成功！");
       }
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::N3Click(TObject *Sender)   //恢复数据库
{
    RestoreFile();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::N18Click(TObject *Sender)
{
   TAboutBox* wk14=new TAboutBox(this);
   wk14->ShowModal();
   delete wk14;
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::N17Click(TObject *Sender)
{
    Application->HelpCommand(HELP_CONTENTS,0);
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Key==13)
      BitBtn8->Click();
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::Edit2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13)
      BitBtn9->Click();
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::N7Click(TObject *Sender)       //更改密码
{
   AnsiString s1,s2;
   s1=InputBox("修改密码","新密码：",passworddlg->GetPasswordValue());
   s2=InputBox("再次输入新密码","再次输入新密码：","");
   if(s1==s2)
          {
          passworddlg->SetPasswordValue(s1);
          ShowMessage("新密码为 "+s1);
          }
   else ShowMessage("两次输入不一样！\n密码还是  "+passworddlg->GetPasswordValue());
}
//---------------------------------------------------------------------------