query.cpp

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

                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and B.Endyear=:Endyear");
                dm->qry_yewu->ParamByName("Endyear")->AsInteger=StrToInt(Edit1->Text); break;
                }
       case 11:{
                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and B.Endmonth=:Endmonth");
                dm->qry_yewu->ParamByName("Endmonth")->AsInteger=StrToInt(Edit1->Text); break;
                }
       case 12:{
                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and B.Name like :Name");
                dm->qry_yewu->ParamByName("Name")->AsString="%"+Edit1->Text+"%"; break;
                }
   } //end switch
}
//----------------------------------------------------------------------------
void __fastcall Tqueryfrm::AddDisplaystring_yewu()      //业务显示语句增加函数
{
       Memo1->Lines->Add(cb1->Text+":  "+Edit1->Text+"         并且");
}
//----------------------------------------------------------------------------
void __fastcall Tqueryfrm::SetCheck_yewu(bool Check)  //业务金额有效性输入检验函数
{
   Check_yewu=Check;
}
//-----------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::Report_lipei()                //理赔查询提交函数
{
   if(dm->qry_lipei->State==dsOpening)
               dm->qry_lipei->Close();
   AddQuerystring_lipei();
   if(Check_lipei) AddDisplaystring_lipei();
}
//-----------------------------------------------------------------------------
void __fastcall Tqueryfrm::AddQuerystring_lipei()         //理赔sql语句增加函数
{
    switch(cb2->ItemIndex)
   {
       case 0:{
                SetCheck_lipei(true);
                dm->qry_lipei->SQL->Add(" and Lipeino=:Lipeino");
                dm->qry_lipei->ParamByName("Lipeino")->AsString=Edit2->Text;break;
                }
       case 1:{
                if(Edit2->Text=="") {ShowMessage("请输入条件值！"); Edit2->SetFocus(); SetCheck_lipei(false); break;}
                else SetCheck_lipei(true);
                dm->qry_lipei->SQL->Add(" and Give_total>=:Give_total");
                dm->qry_lipei->ParamByName("Give_total")->AsCurrency=StrToCurr(Edit2->Text);break;
                }
       case 2:{
                if(Edit2->Text=="") {ShowMessage("请输入条件值！"); Edit2->SetFocus(); SetCheck_lipei(false); break;}
                else SetCheck_lipei(true);
                dm->qry_lipei->SQL->Add(" and Give_total<=:Give_total");
                dm->qry_lipei->ParamByName("Give_total")->AsCurrency=StrToCurr(Edit2->Text);break;
                }
       case 3:{
                SetCheck_lipei(true);
                dm->qry_lipei->SQL->Add(" and End_flag=:End_flag");
                dm->qry_lipei->ParamByName("End_flag")->AsString="未处理"; break;
                }
   }  //end switch
}
//------------------------------------------------------------------------------
void __fastcall Tqueryfrm::AddDisplaystring_lipei()       //理赔显示语句增加函数
{
      Memo2->Lines->Add(cb2->Text+":  "+Edit2->Text+"         并且");
}
//------------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn4Click(TObject *Sender)   //理赔语句提交事件
{
       Report_lipei();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn5Click(TObject *Sender)  //理赔查询开始事件
{
      dm->qry_lipei->Close();
      dm->qry_lipei->Prepare();
      dm->qry_lipei->Open();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn6Click(TObject *Sender)  //理赔语句清除事件
{
       cb2->ItemIndex=-1;
       Edit2->Text="";
       Memo2->Lines->Clear();
       if(dm->qry_lipei->State==dsOpening)
               dm->qry_lipei->Close();
       dm->qry_lipei->SQL->Clear();
       dm->qry_lipei->SQL->Add("select * from lipei.db");
       dm->qry_lipei->SQL->Add(" where Lipeino=Lipeino");
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::SetCheck_lipei(bool Check) //理赔金额有效性输入检验函数
{
   Check_lipei=Check;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::Report_mingpian()                //名片查询提交函数
{
   if(dm->qry_mingpian->State==dsOpening)
               dm->qry_mingpian->Close();
   AddQuerystring_mingpian();
   AddDisplaystring_mingpian();
}
//-----------------------------------------------------------------------------
void __fastcall Tqueryfrm::AddQuerystring_mingpian()         //名片sql语句增加函数
{
    switch(cb3->ItemIndex)
   {
       case 0:{ dm->qry_mingpian->SQL->Add(" and Name like :Name");
                dm->qry_mingpian->ParamByName("Name")->AsString="%"+Edit3->Text+"%";break;}
       case 1:{ dm->qry_mingpian->SQL->Add(" and Company like :Company");
                dm->qry_mingpian->ParamByName("Company")->AsString="%"+Edit3->Text+"%"; break;}
       case 2:{ dm->qry_mingpian->SQL->Add(" and Address like :Address");
                dm->qry_mingpian->ParamByName("Address")->AsString="%"+Edit3->Text+"%"; break;}
   }
}
//------------------------------------------------------------------------------
void __fastcall Tqueryfrm::AddDisplaystring_mingpian()       //名片显示语句增加函数
{
      Memo3->Lines->Add(cb3->Text+":  "+Edit3->Text+"        并且");
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn7Click(TObject *Sender)  //名片语句提交事件
{
    Report_mingpian();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn8Click(TObject *Sender)  //名片查询开始事件
{
     dm->qry_mingpian->Close();
     dm->qry_mingpian->Prepare();
     dm->qry_mingpian->Open();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn9Click(TObject *Sender)   //名片语句清除事件
{
       cb3->ItemIndex=-1;
       Edit3->Text="";
       Memo3->Lines->Clear();
       if(dm->qry_mingpian->State==dsOpening)
               dm->qry_mingpian->Close();
       dm->qry_mingpian->SQL->Clear();
       dm->qry_mingpian->SQL->Add("select * from person.db");
       dm->qry_mingpian->SQL->Add(" where Name=Name");
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::RadioButton1Click(TObject *Sender)
{                                                  //分析保单数据
if(Active_dqry_yewu)
   {
   if(dm->dqry_yewu->State==dsOpening)
                 dm->dqry_yewu->Close();
   dgraph->DecisionSource=dm->dds_yewu;
   dm->dqry_yewu->Open();
   }
else ShowMessage("保单数据为空！");
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::RadioButton2Click(TObject *Sender)
{                                                 //分析理赔数据
if(Active_dqry_lipei)
   {
   if(dm->dqry_lipei->State==dsOpening)
                 dm->dqry_lipei->Close();
   dgraph->DecisionSource=dm->dds_lipei;
   dm->dqry_lipei->Open();
   }
else ShowMessage("理赔数据为空！");
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::Print(TQuery *qry) //导出数据到EXCEL
{
   Variant Excel, cell;
   Excel = CreateOleObject("Excel.Application");
   Excel.Exec(PropertyGet("Workbooks")).Exec(Procedure("Add"));
   cell = Excel.Exec(PropertyGet("ActiveCell"));
   if(qry->State!=dsOpening)
       qry->Open();
   Excel.Exec(PropertySet("Visible")<<true);
   for(int i=0;i<qry->Fields->Count;i++)
   {
       cell.Exec(PropertySet("Value")<<qry->Fields->Fields[i]->DisplayLabel);
       cell = cell.Exec(Function("Next"));
   }
   qry->First();
   int row = 2;
   while(!qry->Eof)
   {
      cell = Excel.Exec(PropertyGet("Range")<<
                      ("A"+IntToStr(row)+":A"+IntToStr(row)));
      for(int i=0;i<qry->Fields->Count;i++)
      {
         cell.Exec(PropertySet("Value")<<qry->Fields->Fields[i]->AsString);
         cell = cell.Exec(Function("Next"));
      }
      qry->Next();
      row++;
   }               
   Excel.Exec(Procedure("Quit"));
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn14Click(TObject *Sender)
{
    Print(dm->qry_yewu);        
}
//---------------------------------------------------------------------------

void __fastcall Tqueryfrm::BitBtn15Click(TObject *Sender)
{
   Print(dm->qry_lipei);        
}
//---------------------------------------------------------------------------