querybak.cpp

数据采集

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include <stdlib.h>
#include <dir.h>
#include <stdio.h>
#include "query.h"
#include "main.h"
#include "del_db.h"
#include "global.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

Tform_query *form_query;

//---------------------------------------------------------------------------
__fastcall Tform_query::Tform_query(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tform_query::start_queryClick(TObject *Sender)
{
  total_mao=total_pi=total_jin=0.0;
  show_wei();
  label_tj_cnt->Caption="0";
  Label12->Visible=TRUE; // show querying
  Repaint();

  table_tj->DisableConstraints();  // 为提高速度
  DataSource1->Enabled=false;

  try{
    if(table_tj->Exists==true){
      table_tj->Active = false;
      table_tj->EmptyTable();
      table_tj->Open();
    }
  }catch(...){
    Application->MessageBox("       empty table_tj error     "," ",MB_OK);
  }
  form_main->dir->Open();
  form_main->dir->First();

  for(tj_cnt=0;!form_main->dir->Eof;form_main->dir->Next()){
    if(get_key()==Esc_KEY){
      Label12->Visible=FALSE;
      table_tj->EnableConstraints();
      DataSource1->Enabled=true;
      total_jin=total_mao-total_pi;
      label_tj_cnt->Caption=IntToStr((int)tj_cnt);
      show_wei();
      return;
    }

    if(tj_cnt>50000){
      Label12->Visible=FALSE;
      table_tj->EnableConstraints();
      DataSource1->Enabled=true;
      total_jin=total_mao-total_pi;
      label_tj_cnt->Caption=IntToStr((int)tj_cnt);
      show_wei();
      Application->MessageBox("        数  据  太  多 ！           "," ",MB_OK);
      return;
    }
    try{
      //if( form_main->dirTm->Value > Edit2->Text ) break;
      if( form_main->dirTm->Value >= Edit1->Text ){
        form_main->data->Close();
        form_main->data->DatabaseName=DB;
        form_main->data->TableName=form_main->dirTm->AsString;
        if(form_main->data->Exists){
          form_main->data->Open();
          for(;form_main->data->Eof!=true;form_main->data->Next()){
           if(bd.yh_mode==YH_JG){
             if( (CheckBox3->Checked?form_main->databak3->Value==Edit3->Text:true)&&
                 (CheckBox4->Checked?form_main->databak2->Value ==Edit4->Text:true)&&
                 form_main->dataPi->Value>0 &&
                 form_main->dataMao->Value>0  &&
                 form_main->dataJin->Value>0 &&
                 form_main->dataCehao->Value>=Edit1->Text &&
                 form_main->dataCehao->Value<=Edit2->Text ){
              total_mao+=(double)form_main->dataMao->Value;
              total_pi +=(double)form_main->dataPi->Value;
              tj_cnt++;
              try{
                if(table_tj->Active==true){
                  table_tj->Append();
                  table_tjNo->Value=tj_cnt;
                  table_tjTm->Value=form_main->dirTm->Value;
                  //table_tjCehao->Value=form_main->dataCehao->Value;
                  table_tjMao->Value=form_main->dataMao->Value;
                  table_tjPi->Value=form_main->dataPi->Value;
                  table_tjJin->Value=form_main->dataJin->Value;
                  table_tjName->Value=form_main->dataName->Value;
                  table_tjSend->Value=form_main->dataSend->Value;
                  table_tjRec->Value=form_main->dataRec->Value;
                  table_tjSpd->Value=form_main->dataSpd->Value;
                  table_tjBak3->Value=form_main->databak3->Value;
                  table_tjBak2->Value=form_main->databak2->Value;
                  table_tjBak1->Value=form_main->databak1->Value;
                  table_tj->Post();
                }
              }catch(...){
                Application->MessageBox("       append table_tj error    "," ",MB_OK);
                goto end;//break;
              }
            } //if checkbox3/checkbox4
           } //if yh==jg
           else{
            if( (CheckBox3->Checked?form_main->dataCehao->Value==Edit3->Text:true)&&
                (CheckBox4->Checked?form_main->dataName->Value ==Edit4->Text:true)&&
                (CheckBox5->Checked?form_main->dataSend->Value ==Edit5->Text:true)&&
                (CheckBox6->Checked?form_main->dataRec->Value  ==Edit6->Text:true)
                 /*form_main->dataPi->Value>0   &&
                 form_main->dataMao->Value>0  &&
                 form_main->dataJin->Value>0*/ ){
              total_mao+=(double)form_main->dataMao->Value;
              total_pi +=(double)form_main->dataPi->Value;
              total_yq +=(double)form_main->dataYq->Value;
              tj_cnt++;
              try{
                if(table_tj->Active==true){
                  table_tj->Append();
                  table_tjNo->Value=tj_cnt;
                  table_tjTm->Value=form_main->dirTm->Value;
                  table_tjCehao->Value=form_main->dataCehao->Value;
                  table_tjMao->Value=form_main->dataMao->Value;
                  table_tjPi->Value=form_main->dataPi->Value;
                  table_tjJin->Value=form_main->dataJin->Value;
                  table_tjName->Value=form_main->dataName->Value;
                  table_tjSend->Value=form_main->dataSend->Value;
                  table_tjRec->Value=form_main->dataRec->Value;
                  table_tjSpd->Value=form_main->dataSpd->Value;
                  table_tj->Post();
                }
              }catch(...){
                Application->MessageBox("       append table_tj error    "," ",MB_OK);
                goto end;//break;
              }//catch
            } //if
           }//else
          }//for
        }//if
      }//if

    }catch(...){
      break;
      //continue;
    }
  }//for
  end:
  total_jin=total_mao-total_pi;
  Label12->Visible=FALSE;
  label_tj_cnt->Caption=IntToStr((int)tj_cnt);
  show_wei();
  table_tj->EnableConstraints();
  DataSource1->Enabled=true;
  Application->MessageBox("           统  计  结  束           "," ",MB_OK);
}

void __fastcall Tform_query::show_wei()
{
    TFloatFormat format(ffFixed);
    label_total_mao->Caption = FloatToStrF(total_mao,format,15,2);
    label_total_pi ->Caption = FloatToStrF(total_pi,format,15,2);
    label_total_jin ->Caption = FloatToStrF(total_jin,format,15,2);
}

//---------------------------------------------------------------------------
void __fastcall Tform_query::EscClick(TObject *Sender)
{
  form_main->Show();
  //table_tj->Active=false;
  Hide();
}
//---------------------------------------------------------------------------

void __fastcall Tform_query::FormShow(TObject *Sender)
{
  if(bd.if_autopi==0){
    DBGrid2->Visible=false;
    DBNavigator1->Visible=false;
    table_pi->Active=false;
    Panel1->Left=116;
  }else{
    DBGrid2->Visible=true;
    DBNavigator1->Visible=true;
    table_pi->Active=true;
    Panel1->Left=184;
  }
  if(bd.yh_mode==YH_JG){
    DBGrid1->Columns->Items[10]->Visible=true;
    DBGrid1->Columns->Items[11]->Visible=true;
    DBGrid1->Columns->Items[12]->Visible=true;
  }
  if(bd.yh_mode==YH_TG){
    DBGrid1->Columns->Items[2]->Visible=false;
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_query::FormCreate(TObject *Sender)
{
    /*
     form_query->Caption=bd.name;
     if(table_pi->Exists==true){
       table_pi->Active = true;
    }
     if(bd.yh_mode==YH_WG81){
       CheckBox5->Enabled=false;
       CheckBox6->Enabled=false;
       Edit5->Enabled=false;
       Edit6->Enabled=false;
     }*/
    if(bd.yh_mode==YH_JG){
      CheckBox3->Caption="炉号";
      CheckBox5->Caption="炉次";
      CheckBox4->Visible=false;
      Edit4->Visible=false;