uinputid.~cpp

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

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "uInputID.h"
#include "MainU.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Button3D"
#pragma resource "*.dfm"
TfmDevID *fmDevID;
//---------------------------------------------------------------------------
__fastcall TfmDevID::TfmDevID(TComponent* Owner)
        : TForm(Owner)
{
   AnsiString tempID;
  if(MainFrm->IDFlag ==1)
  {
   tempID = MainFrm->DeviceID;
   Edit1->Text = tempID.SubString(1,4);
   Edit2->Text = tempID.SubString(5,4);
   Edit3->Text = tempID.SubString(9,4);
   Edit4->Text = tempID.SubString(13,4);
   }
  else
  {
   Edit1->Text = "";
   Edit2->Text = "";
   Edit3->Text = "";
   Edit4->Text = "";
  }

}
//---------------------------------------------------------------------------
void __fastcall TfmDevID::btnOKClick(TObject *Sender)
{
    AnsiString FileName,DevID;
    DevID =  Edit1->Text + Edit2->Text + Edit3->Text + Edit4->Text;
    if(DevID.Length()!= 16)
    {
        ShowMessage("设备号共16个字符，输入有误！");
        return;
    }
    if((MainFrm->IDFlag ==1)&& (DevID != MainFrm->DeviceID ))
        if( MessageBox(this->Handle,"设备号被修改，确认输入？","提示",MB_OKCANCEL)!= 1 ) //为取消
          return;
    if (DevID == MainFrm->DeviceID)
         return;
    outfile.clear();
   FileName="ps.pak";
   outfile.open(FileName.c_str());
   outfile<<1<<endl;
   outfile<<DevID.c_str()<<endl;
   outfile.close();
   MainFrm->DeviceID = DevID;
   MainFrm->IDFlag =1;
   ShowMessage("设备号已输入！");
}
//---------------------------------------------------------------------------

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



void __fastcall TfmDevID::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(Key>='a'&&Key<='z')
     Key=Key-32;
   if((Key>'Z'||Key<'A')&&Key!=8&&Key!=13)
     Key=257;      
}
//---------------------------------------------------------------------------




void __fastcall TfmDevID::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Edit1->Text.Length()==4)
     fmDevID->FocusControl(Edit2);      
}
//---------------------------------------------------------------------------

void __fastcall TfmDevID::Edit2KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Edit2->Text.Length()==4)
     fmDevID->FocusControl(Edit3);     
}
//---------------------------------------------------------------------------

void __fastcall TfmDevID::Edit3KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Edit3->Text.Length()==4)
     fmDevID->FocusControl(Edit4);    
}
//---------------------------------------------------------------------------