editlipei.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "editlipei.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tlipei *lipei;
//---------------------------------------------------------------------------
__fastcall Tlipei::Tlipei(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tlipei::FormShow(TObject *Sender)
{
    if(Mainfrm->GetClick())
      dm->tbl_lipei->Insert();
    else
      dm->tbl_lipei->Edit();
    DBEdit8->Text=DBEdit13->Text;
    if(dm->tbl_car->State!=dsEdit)
    dm->tbl_car->Edit();
}
//---------------------------------------------------------------------------
void __fastcall Tlipei::BitBtn1Click(TObject *Sender)
{
      Total();
      dm->Postall();
      dm->tbl_lipei->Refresh();

}
//---------------------------------------------------------------------------
void __fastcall Tlipei::BitBtn2Click(TObject *Sender)
{
     if(dm->tbl_lipei->State==dsOpening)
      dm->tbl_lipei->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall Tlipei::BitBtn3Click(TObject *Sender)
{

      dm->Postall();
      dm->tbl_lipei->Refresh();
      Close();
}
//---------------------------------------------------------------------------
void __fastcall Tlipei::BitBtn4Click(TObject *Sender)
{
    dm->tbl_lipei->Insert();
    DBEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall Tlipei::Total()
{
    Currency c1,c2,c3,c;
    c1=dm->tbl_lipei->FieldByName("Give_object")->AsCurrency;
    c2=dm->tbl_lipei->FieldByName("Give_person")->AsCurrency;
    c3=dm->tbl_lipei->FieldByName("Give_car")->AsCurrency;
    c=c1+c2+c3;
    dm->tbl_lipei->Edit();
    dm->tbl_lipei->FieldByName("Give_total")->AsCurrency=c;
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

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

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

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

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