📄 query.cpp

📁 车辆保险管理系统主要是针对车辆保险业务管理流程而开发的一套先进的计算机管理系统。车辆保险管理系统是专为车辆保险业务员开发的一套应用软件
💻 CPP
📖 第 1 页 / 共 2 页
字号:
12 下一页
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "query.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tqueryfrm *queryfrm;
//---------------------------------------------------------------------------
__fastcall Tqueryfrm::Tqueryfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::FormShow(TObject *Sender)         //窗体打开时
{
  //判断决策数据集是否为空
  Active_dqry_yewu=true;        
  Active_dqry_lipei=true;
  if(dm->tbl_baodan->IsEmpty()||dm->tbl_car->IsEmpty())
        Active_dqry_yewu=false;
  if(dm->tbl_lipei->IsEmpty())
        Active_dqry_lipei=false;
  //关闭数据表
  if(dm->tbl_baodan->State==dsOpening)
                        dm->tbl_baodan->Close();
  if(dm->tbl_car->State==dsOpening)
                        dm->tbl_car->Close();
  if(dm->tbl_lipei->State==dsOpening)
                        dm->tbl_lipei->Close();
  if(dm->tbl_person->State==dsOpening)
                        dm->tbl_person->Close();
  //更新普通查询组件
  if(dm->qry_yewu->State!=dsOpening)       
               dm->qry_yewu->Open();
  if(dm->qry_mingpian->State!=dsOpening)
               dm->qry_mingpian->Open();
  if(dm->qry_lipei->State!=dsOpening)
               dm->qry_lipei->Open();
  dm->qry_yewu->Refresh();
  dm->qry_mingpian->Refresh();
  dm->qry_lipei->Refresh();
  dm->qry_yewu->Close();
  dm->qry_mingpian->Close();
  dm->qry_lipei->Close();
  //打开第一个查询组件
  PageControl1->ActivePage=TabSheet1;
  Memo1->Lines->Clear();
  if(dm->qry_yewu->State==dsOpening)             
               dm->qry_yewu->Close();
  dm->qry_yewu->SQL->Clear();
  dm->qry_yewu->SQL->Add("select * from car.db A,baodan.db B");
  dm->qry_yewu->SQL->Add(" where A.Carnum=A.Carnum and A.Baodanno=B.Baodanno");
  SetCheck_yewu(false);
  SetCheck_lipei(false);
}
//---------------------------------------------------------------------------

void __fastcall Tqueryfrm::FormClose(TObject *Sender, TCloseAction &Action)
{                                                             //退出查询窗体
   if(dm->qry_yewu->State==dsOpening)
               dm->qry_yewu->Close();             //关闭query
   if(dm->qry_mingpian->State==dsOpening)
               dm->qry_mingpian->Close();
   if(dm->qry_lipei->State==dsOpening)
               dm->qry_lipei->Close();
   if(dm->dqry_yewu->State==dsOpening)
               dm->dqry_yewu->Close();
   if(dm->dqry_lipei->State==dsOpening)
               dm->dqry_lipei->Close();
   dm->Opentable();                               //打开table
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::PageControl1Change(TObject *Sender) //翻页操作
{
switch(PageControl1->ActivePage->Tag)
  {
    case 1:{
       cb1->ItemIndex=-1;
       Edit1->Text="";
       Memo1->Lines->Clear();
       if(dm->qry_yewu->State==dsOpening)
               dm->qry_yewu->Close();
       dm->qry_yewu->SQL->Clear();
       dm->qry_yewu->SQL->Add("select * from car.db A,baodan.db B");
       dm->qry_yewu->SQL->Add(" where A.Carnum=A.Carnum and A.Baodanno=B.Baodanno");
       break;
       }
    case 2:{
       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");
       break;
       }
    case 3:{
       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");
       break;
       }
    case 4:{
        if(Active_dqry_yewu)
        if(dm->dqry_yewu->State!=dsOpening)  //更新分析数据
                  {
                  dm->dqry_yewu->Open();
                  dm->dqry_yewu->Refresh();
                  dm->dqry_yewu->Close();
                  }
       if(Active_dqry_lipei)
       if(dm->dqry_lipei->State!=dsOpening)
                  {
                  dm->dqry_lipei->Open();
                  dm->dqry_lipei->Refresh();
                  dm->dqry_lipei->Close();
                  }
       break;
       }
  } //end switch
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn2Click(TObject *Sender) //业务查询开始事件
{
    dm->qry_yewu->Close();
    dm->qry_yewu->Prepare();
    dm->qry_yewu->Open();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn1Click(TObject *Sender) //业务语句提交事件
{
   Report_yewu();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::BitBtn3Click(TObject *Sender)   //业务语句清除事件
{
  if(dm->qry_yewu->State==dsOpening)
               dm->qry_yewu->Close();
  dm->qry_yewu->SQL->Clear();
  dm->qry_yewu->SQL->Add("select * from car.db A,baodan.db B");
  dm->qry_yewu->SQL->Add(" where A.Carnum=A.Carnum and A.Baodanno=B.Baodanno");
  cb1->ItemIndex=-1;
  Edit1->Text="";
  Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::Report_yewu()                 //业务查询提交函数
{
   if(dm->qry_yewu->State==dsOpening)
               dm->qry_yewu->Close();
   AddQuerystring_yewu();
   if(Check_yewu) AddDisplaystring_yewu();
}
//---------------------------------------------------------------------------
void __fastcall Tqueryfrm::AddQuerystring_yewu()        //业务sql语句增加函数
{
   switch(cb1->ItemIndex)
   {
       case 0:{
                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Baodanno=:Baodanno");
                dm->qry_yewu->ParamByName("Baodanno")->AsString=Edit1->Text;break;
                }
       case 1:{
                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carnum=:Carnum");
                dm->qry_yewu->ParamByName("Carnum")->AsString=Edit1->Text;break;
                }
       case 2:{
                if(Edit1->Text=="") {ShowMessage("请输入条件值！"); Edit1->SetFocus(); SetCheck_yewu(false); break;}
                else SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carcharge_total>=:Carcharge_total");
                dm->qry_yewu->ParamByName("Carcharge_total")->AsCurrency=StrToCurr(Edit1->Text);break;
                }
       case 3:{
                if(Edit1->Text=="") {ShowMessage("请输入条件值！"); Edit1->SetFocus(); SetCheck_yewu(false); break;}
                else SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carcharge_three>=:Carcharge_three");
                dm->qry_yewu->ParamByName("Carcharge_three")->AsCurrency=StrToCurr(Edit1->Text);break;
                }
       case 4:{
                if(Edit1->Text=="") {ShowMessage("请输入条件值！"); Edit1->SetFocus(); SetCheck_yewu(false); break;}
                else SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carcharge_duty>=:Carcharge_duty");
                dm->qry_yewu->ParamByName("Carcharge_duty")->AsCurrency=StrToCurr(Edit1->Text);break;
                }
       case 5:{
                if(Edit1->Text=="") {ShowMessage("请输入条件值！"); Edit1->SetFocus(); SetCheck_yewu(false); break;}
                else SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carcharge_total<=:Carcharge_total");
                dm->qry_yewu->ParamByName("Carcharge_total")->AsCurrency=StrToCurr(Edit1->Text);break;
                }
       case 6:{
                if(Edit1->Text=="") {ShowMessage("请输入条件值！"); Edit1->SetFocus(); SetCheck_yewu(false); break;}
                else SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carcharge_three<=:Carcharge_three");
                dm->qry_yewu->ParamByName("Carcharge_three")->AsCurrency=StrToCurr(Edit1->Text);break;
                }
       case 7:{
                if(Edit1->Text=="") {ShowMessage("请输入条件值！"); Edit1->SetFocus(); SetCheck_yewu(false); break;}
                else SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carcharge_duty<=:Carcharge_duty");
                dm->qry_yewu->ParamByName("Carcharge_duty")->AsCurrency=StrToCurr(Edit1->Text);break;
                }
       case 8:{
                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Cartype like :Cartype");
                dm->qry_yewu->ParamByName("Cartype")->AsString="%"+Edit1->Text+"%"; break;
                }
       case 9:{
                SetCheck_yewu(true);
                dm->qry_yewu->SQL->Add(" and A.Carelse like :Carelse");
                dm->qry_yewu->ParamByName("Carelse")->AsString="%"+Edit1->Text+"%"; break;
                }
       case 10:{
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -