mainu.cpp

这是个16路采集器的上位机源码。该套程序是由C++builder开发的

   //验证设备号    by fang 2008.1.28
   //读设备号
   //if (IDFlag ==0 )
   {
       //ShowMessage("请输入设备号！");
       //return;
   }
   char         DevID[17];
   AnsiString   ReadID,eDevID;
   MP411_EEPROM_Read(hDevice,DevID, 16);
   ReadID = AnsiString(DevID);
      //加密
   eDevID = EncryptID(ReadID);
   //if( eDevID != DeviceID)
   {
       //ShowMessage("不能识别的设备号，请重新输入！");
       //return;
   }
   if(hDevice==INVALID_HANDLE_VALUE)
   {
      ShowMessage("设备未连接，请连接后再试！");
     return;
   }
  start=Now();
  StatusBar1->Panels->Items[3]->Text="   正在采集数据";

   ADOTable1->Open();
  Timer2->Enabled=true;
 /* if(hComm!=NULL)       //调用dll
   { lpFarProc1=GetProcAddress(hComm,"MP411_AD");
      if(lpFarProc1==NULL)
       { ShowMessage("ReadUSBDev Error"); Timer2->Enabled=false; return ; }
      else
       { MP411_AD=(long __stdcall (__cdecl*)(HANDLE hDevice,long ch,long gain,long sidi,long naver))lpFarProc1;
         Timer2->Enabled=true;
         //long f=MP411_AD_Scan(hDevice,0,15,gain,0,data);
       }
   }
  else
   { ShowMessage("lib error");
     Timer2->Enabled=false;
   }   */
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Button5Click(TObject *Sender)
{ if(Timer2->Enabled)
 {  end=Now();
    StatusBar1->Panels->Items[3]->Text="    停止采集数据";
    Timer2->Enabled=false;
    //保存数据
  if(S4->Checked)
  { Sleep(10);
    while(!CountFlag)  Sleep(10);
    BufCount=wei-tou+1;
    if(BufCount<0) BufCount+=BUFSIZE;
    CountFlag=false;
    CreateThread(NULL,0,SaveData,this,0,NULL);
  }
 }  //end if(Timer2->Enabled)
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::Button3Click(TObject *Sender)
{
  Application->CreateForm(__classid(TBaobiaoSetFrm), &BaobiaoSetFrm);
  ADOTable1->Open();
  ADOTable1->First();
  BaobiaoSetFrm->SEdit->Text=ADOTable1->FieldByName("datetime")->AsString;
  ADOTable1->Last();
  BaobiaoSetFrm->EEdit->Text=ADOTable1->FieldByName("datetime")->AsString;
  ADOTable1->Close();
  BaobiaoSetFrm->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::CheckBox1Click(TObject *Sender)
{
  Edit1->Enabled=CheckBox1->Checked;
  Edit2->Enabled=CheckBox1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox2Click(TObject *Sender)
{
  Edit3->Enabled=CheckBox2->Checked;
  Edit4->Enabled=CheckBox2->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox3Click(TObject *Sender)
{
  Edit5->Enabled=CheckBox3->Checked;
  Edit6->Enabled=CheckBox3->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox4Click(TObject *Sender)
{
  Edit7->Enabled=CheckBox4->Checked;
  Edit8->Enabled=CheckBox4->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox5Click(TObject *Sender)
{
   Edit9->Enabled=CheckBox5->Checked;
  Edit10->Enabled=CheckBox5->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox6Click(TObject *Sender)
{
  Edit11->Enabled=CheckBox6->Checked;
  Edit12->Enabled=CheckBox6->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox7Click(TObject *Sender)
{
  Edit13->Enabled=CheckBox7->Checked;
  Edit14->Enabled=CheckBox7->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox8Click(TObject *Sender)
{
  Edit15->Enabled=CheckBox8->Checked;
  Edit16->Enabled=CheckBox8->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox9Click(TObject *Sender)
{
  Edit17->Enabled=CheckBox9->Checked;
  Edit18->Enabled=CheckBox9->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox10Click(TObject *Sender)
{
  Edit19->Enabled=CheckBox10->Checked;
  Edit20->Enabled=CheckBox10->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox11Click(TObject *Sender)
{
  Edit21->Enabled=CheckBox11->Checked;
  Edit22->Enabled=CheckBox11->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox12Click(TObject *Sender)
{
  Edit23->Enabled=CheckBox12->Checked;
  Edit24->Enabled=CheckBox12->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox13Click(TObject *Sender)
{
   Edit25->Enabled=CheckBox13->Checked;
  Edit26->Enabled=CheckBox13->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox14Click(TObject *Sender)
{
  Edit27->Enabled=CheckBox14->Checked;
  Edit28->Enabled=CheckBox14->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox15Click(TObject *Sender)
{
  Edit29->Enabled=CheckBox15->Checked;
  Edit30->Enabled=CheckBox15->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::CheckBox16Click(TObject *Sender)
{
  Edit31->Enabled=CheckBox16->Checked;
  Edit32->Enabled=CheckBox16->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::Button6Click(TObject *Sender)
{
   //读取密码文件
   AnsiString FileName="pas.pak";
   infile.clear();
   infile.open(FileName.c_str());
   if(infile)
     { password[0]='\0';
       infile>>enpassword>>password;
       for(unsigned int i=0;i<StrLen(password);i++)
         password[i]+=(-1-i);
     }
   infile.close();
  Application->CreateForm(__classid(TPasswordSetFrm), &PasswordSetFrm);
  PasswordSetFrm->ShowModal();
}
//---------------------------------------------------------------------------




void __fastcall TMainFrm::E1Click(TObject *Sender)
{
  this->Close();      
}
//---------------------------------------------------------------------------




void __fastcall TMainFrm::S4Click(TObject *Sender)
{
  S4->Checked=!S4->Checked;
  ToolButton3->Down=S4->Checked;
  if(S4->Checked)
     ToolButton3->Hint="当前状态：保存采集数据";
  else
     ToolButton3->Hint="当前状态：不保存采集数据";
}
//---------------------------------------------------------------------------


void __fastcall TMainFrm::R1Click(TObject *Sender)
{
  Button3Click(Sender);   
}
//---------------------------------------------------------------------------





void __fastcall TMainFrm::Button2Click(TObject *Sender)
{
    //Application->CreateForm(__classid(TSetFrm), &SetFrm);
    Application->CreateForm(__classid(TChaxunFrm), &ChaxunFrm);
    ChaxunFrm->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::btnExitClick(TObject *Sender)
{
     this->Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::ADOTable1BeforeOpen(TDataSet *DataSet)
{
    //by fang 2008.1.11
    AnsiString ConnStr="";
    ConnStr  = " Provider=Microsoft.Jet.OLEDB.4.0;";
    ConnStr += "Data Source=" + AdoDir+";";
    ConnStr += " Persist Security Info=False";
    this->ADOTable1->ConnectionString = ConnStr;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::Button7Click(TObject *Sender)
{
    Application->CreateForm(__classid(TfmDevID), &fmDevID);
    fmDevID->ShowModal();
}
//---------------------------------------------------------------------------







void __fastcall TMainFrm::C1Click(TObject *Sender)
{
  Application->CreateForm(__classid(TDelDatabaseFrm), &DelDatabaseFrm);
  DelDatabaseFrm->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TMainFrm::ToolButton15Click(TObject *Sender)
{
  PageControl1->ActivePage=TabSheet1;
  ToolButton15->Down=true;
  ToolButton12->Down=false;
  ToolButton13->Down=false;
  ToolButton14->Down=false;
  ToolButton15->ImageIndex=16;
  ToolButton12->ImageIndex=12;
  ToolButton13->ImageIndex=13;
  ToolButton14->ImageIndex=14;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton12Click(TObject *Sender)
{
  PageControl1->ActivePage=TabSheet2;
  ToolButton15->Down=false;
  ToolButton12->Down=true;
  ToolButton13->Down=false;
  ToolButton14->Down=false;
  ToolButton15->ImageIndex=11;
  ToolButton12->ImageIndex=17;
  ToolButton13->ImageIndex=13;
  ToolButton14->ImageIndex=14;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton13Click(TObject *Sender)
{
  PageControl1->ActivePage=TabSheet3;
  ToolButton15->Down=false;
  ToolButton12->Down=false;
  ToolButton13->Down=true;
  ToolButton14->Down=false;
  ToolButton15->ImageIndex=11;
  ToolButton12->ImageIndex=12;
  ToolButton13->ImageIndex=18;
  ToolButton14->ImageIndex=14;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton14Click(TObject *Sender)
{
  PageControl1->ActivePage=TabSheet4;
  ToolButton15->Down=false;
  ToolButton12->Down=false;
  ToolButton13->Down=false;
  ToolButton14->Down=true;
  ToolButton15->ImageIndex=11;
  ToolButton12->ImageIndex=12;
  ToolButton13->ImageIndex=13;
  ToolButton14->ImageIndex=15;
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N7Click(TObject *Sender)
{
  Button7Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::U1Click(TObject *Sender)
{
  Button6Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton7Click(TObject *Sender)
{
  Button6Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::S1Click(TObject *Sender)
{
   Button4Click(Sender);     
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton4Click(TObject *Sender)
{
   Button4Click(Sender);     
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::S2Click(TObject *Sender)
{
  Button5Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton5Click(TObject *Sender)
{
   Button5Click(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::S3Click(TObject *Sender)
{
  Button1Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton2Click(TObject *Sender)
{
  Button1Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::F1Click(TObject *Sender)
{
   Button2Click(Sender);     
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton8Click(TObject *Sender)
{
  Button2Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton1Click(TObject *Sender)
{
  Button3Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton11Click(TObject *Sender)
{
  this->Close();      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton3Click(TObject *Sender)
{
  S4Click(Sender);
  
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton6Click(TObject *Sender)
{
  C1Click(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::N5Click(TObject *Sender)
{
  Application->CreateForm(__classid(TAboutFrm), &AboutFrm);
  AboutFrm->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::ToolButton10Click(TObject *Sender)
{
   I1Click(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TMainFrm::I1Click(TObject *Sender)
{
  ShellExecute(this, "open", "help.chm", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------