editperson.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "editperson.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tperson *person;
//---------------------------------------------------------------------------
__fastcall Tperson::Tperson(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tperson::FormShow(TObject *Sender)
{
    DBEdit2->SetFocus();
    DBEdit2->Text=Mainfrm->insertpersonname;
    DBEdit3->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall Tperson::BitBtn1Click(TObject *Sender)
{
  if(dm->tbl_person->State==dsOpening)
      dm->tbl_person->Post();
      dm->tbl_person->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall Tperson::BitBtn2Click(TObject *Sender)
{
  TMsgDlgButtons Btns;
  Btns<<mbYes<<mbNo;
  String s;
  s="  您确定在退出之前\n\n保存从未保存过的修改吗?";
  if((MessageDlg(s,mtInformation,Btns,0)==ID_NO))
      if(dm->tbl_person->State==dsOpening)
      dm->tbl_person->Post();
  else  dm->tbl_person->Cancel();
  dm->tbl_person->Refresh();
  Close();
}
//---------------------------------------------------------------------------

void __fastcall Tperson::BitBtn3Click(TObject *Sender)
{
  if(dm->tbl_person->State==dsOpening)
      dm->tbl_person->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall Tperson::FormClose(TObject *Sender, TCloseAction &Action)
{
    dm->Postall();
    dm->tbl_person->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall Tperson::DBEdit2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit3->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit3KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit4->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit4KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit5->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit5KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit6->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit6KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit7->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit7KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit8->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit8KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit9->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit9KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit10->SetFocus();        
}
//---------------------------------------------------------------------------

void __fastcall Tperson::DBEdit10KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13) DBEdit11->SetFocus();        
}
//---------------------------------------------------------------------------