editbaodan.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "editbaodan.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tbaodan *baodan;
//---------------------------------------------------------------------------
__fastcall Tbaodan::Tbaodan(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::FormShow(TObject *Sender)    //窗口打开时
{
   str="";
   count=0;
   if(Mainfrm->GetClick()) flag=true;
   else flag=false;

   DBEdit1->Enabled=true;
   if(flag)                   //flag为真时，处于insert状态
        {
        DBEdit1->SetFocus();
        DBEdit1->Text=Mainfrm->insertbaodanno;
        }
   DBEdit2->Enabled=true;
   if(flag)  DBEdit2->SetFocus();
   DBEdit3->Enabled=true;
   DBEdit4->Enabled=true;
   DBEdit5->Enabled=true;
   DBEdit6->Enabled=true;
   DBEdit7->Enabled=true;
   DBEdit8->Enabled=true;
   DBEdit9->Enabled=false;
   DBEdit10->Enabled=false;
   DBEdit11->Enabled=false;
   DBEdit12->Enabled=false;
   DBEdit13->Enabled=false;
   DBEdit15->Enabled=false;
   DBEdit16->Enabled=false;
   DBEdit17->Enabled=false;
   DBEdit18->Enabled=false;
   DBEdit19->Enabled=false;
   DBEdit20->Enabled=false;
   DBEdit21->Enabled=false;
   BitBtn1->Enabled=true;
   BitBtn2->Enabled=false;
   BitBtn3->Enabled=false;
   BitBtn4->Enabled=false;
   
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::FormClose(TObject *Sender, TCloseAction &Action)
{                                               //关闭窗口时
   if(dm->tbl_car->State==dsInsert)
      DBEdit9->Text=str+IntToStr(count++);
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::BitBtn1Click(TObject *Sender)    // 编辑车辆
{
  dm->Postall();
  if (dm->tbl_car->State==dsInsert)
   dm->tbl_car->Insert();
  else dm->tbl_car->Edit();
   str=DBEdit1->Text;
   if(str=="")
   {
   ShowMessage("请输入保单号!");
   DBEdit1->SetFocus();
   }
   else
   {
   DBEdit14->Text=str;
   DBEdit1->Enabled=false;
   DBEdit2->Enabled=false;
   DBEdit3->Enabled=false;
   DBEdit4->Enabled=false;
   DBEdit5->Enabled=false;
   DBEdit6->Enabled=false;
   DBEdit7->Enabled=false;
   DBEdit8->Enabled=false;
   DBEdit9->Enabled=true;
   DBEdit10->Enabled=true;
   DBEdit11->Enabled=true;
   DBEdit12->Enabled=true;
   DBEdit13->Enabled=true;
   DBEdit15->Enabled=true;
   DBEdit16->Enabled=true;
   DBEdit17->Enabled=true;
   DBEdit18->Enabled=true;
   DBEdit19->Enabled=true;
   DBEdit20->Enabled=true;
   DBEdit21->Enabled=true;
   BitBtn1->Enabled=false;
   BitBtn2->Enabled=true;
   BitBtn3->Enabled=true;
   if(flag) BitBtn4->Enabled=true;
   DBEdit10->SetFocus();
   DBEdit9->Text=str+IntToStr(count+1);
   }
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::BitBtn3Click(TObject *Sender)       //取消操作
{
   if(dm->tbl_baodan->State==dsOpening&&dm->tbl_car->State==dsOpening)
        {
        dm->tbl_baodan->Cancel();
        dm->tbl_car->Cancel();
        }
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::BitBtn2Click(TObject *Sender)
{
 Total();
 dm->Postall();
 dm->tbl_baodan->Refresh();
  dm->tbl_car->Refresh();
 Close();
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::BitBtn4Click(TObject *Sender)  //下一辆车
{
   Total();
   dm->tbl_car->Insert();
   DBEdit14->Text=DBEdit1->Text;
   count++;
   DBEdit9->Text=str+IntToStr(count+1);
   DBEdit10->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::Total()
{
    Currency c1,c2,c3,c4,c5,c6,c;
    Double c7;
    c1=dm->tbl_car->FieldByName("Carcharge_bad")->AsCurrency;
    c2=dm->tbl_car->FieldByName("Carcharge_steal")->AsCurrency;
    c3=dm->tbl_car->FieldByName("Carcharge_windows")->AsCurrency;
    c4=dm->tbl_car->FieldByName("Carcharge_three")->AsCurrency;
    c5=dm->tbl_car->FieldByName("Carcharge_else")->AsCurrency;
    c6=dm->tbl_car->FieldByName("Carcharge_duty")->AsCurrency;
    c7=dm->tbl_car->FieldByName("Carcharge_profit")->AsFloat;
    c=(c1+c2+c3+c4+c5+c6)*c7;
    dm->tbl_car->FieldByName("Carcharge_total")->AsCurrency=c;
}
//---------------------------------------------------------------------------
void __fastcall Tbaodan::DBEdit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) DBEdit2->SetFocus();
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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