del_db.cpp

数据采集

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

#include <stdio.h>
#include <stdlib.h> 
#include "del_db.h"
#include "main.h"
#include "global.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
Tform_del_db *form_del_db;
//---------------------------------------------------------------------
__fastcall Tform_del_db::Tform_del_db(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall Tform_del_db::delClick(TObject *Sender)
{
  AnsiString mima = "********";
  char name_txt[70],name_db[70];
  int del_cnt;

  if(Password->Text == "asdfjkl" || Password->Text == bd.mima){

    Label4->Visible=TRUE; // show deleting
    Repaint();

    /*
    form_main->dir->DisableConstraints(); // 为提高速度
    form_main->data->DisableConstraints();
    form_main->s_data->Enabled=false;
    form_main->s_dir->Enabled=false;
    */

    form_main->dir->Open();
    form_main->dir->First();
    form_main->data->Close();

    for(del_cnt=0;;){
      if(get_key()==Esc_KEY) break;
      try{
        if( form_main->dirTm->Value > Edit2->Text ) break;
        if( form_main->dirTm->Value >= Edit1->Text ){
          strcpy(name_db,DB_PATH);
          strcat(name_db,form_main->dirTm->Value.c_str());
          strcpy(name_txt,name_db);
          strcat(name_db,".db");
          strcat(name_txt,".txt");
          DeleteFile(name_db); //remove .db file
          DeleteFile(name_txt); //remove .txt file
          form_main->dir->Delete();
          del_cnt++;
        }else{
          if(form_main->dir->Eof==TRUE)break;
          else form_main->dir->Next();
        }
      }catch(...){
         if(form_main->dir->Eof==TRUE) break;
         else form_main->dir->Next();
      }
    }//for
    /*
    form_main->dir->Close();
    form_main->dir->Open();
    form_main->dir->Last();
    form_main->data->TableName=form_main->dirTm->Value;
    if(form_main->data->Exists==TRUE) form_main->data->Open();

    form_main->dir->EnableConstraints();
    form_main->data->EnableConstraints();
    form_main->s_data->Enabled=true;
    form_main->s_dir->Enabled=true;
    */

    Label4->Visible=FALSE;
    char msg[200];
    itoa(del_cnt,msg,10);strcat(msg, "  趟车被删除            ");
    Application->MessageBox(msg, "  ", MB_OK);
    write_log(msg);
  }//if
  Hide();
}
//---------------------------------------------------------------------------

void __fastcall Tform_del_db::escClick(TObject *Sender)
{
  Hide();
}
//---------------------------------------------------------------------------

void __fastcall Tform_del_db::FormShow(TObject *Sender)
{
   Password->SetFocus();
   Password->Text="";
   Edit1->Text="";
   Edit2->Text="";
}
//---------------------------------------------------------------------------

void __fastcall Tform_del_db::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  switch(Key){
    case S_KEY: if(Shift.Contains(ssAlt))delClick(NULL);break;
    case Esc_KEY: escClick(NULL);break;
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_del_db::FormCreate(TObject *Sender)
{
     form_del_db->Caption=bd.name;
}
//---------------------------------------------------------------------------