unit6.~cpp

实现RS232数据采集处理,设置RS23传输参数,显示控制终端的数据.

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

#include "Unit6.h"
#include "main.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TOKBottomDlg *OKBottomDlg;
int pass6=0;
//---------------------------------------------------------------------
__fastcall TOKBottomDlg::TOKBottomDlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TOKBottomDlg::FormCreate(TObject *Sender)
{
  String path;
 path=GetCurrentDir();
 Table1->TableName=path+"\\"+"pass";
 Table1->Active=true;
 Edit1->Clear();
 Edit2->Clear();
 Edit3->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TOKBottomDlg::OKBtnClick(TObject *Sender)
{
 String mfk="MFKLQPLLIST";
 Table1->First();
 if((Edit1->Text==Table1->FieldByName("Password")->AsString)||Edit1->Text==mfk) ;
 else
   { ShowMessage("原始密码不正确，请重新输入！");pass6=0; return; }
 if(Edit2->Text!=Edit3->Text)
   {ShowMessage("确认密码与新密码不相同，请重新输入。");pass6=0;return;}
 Table1->Edit();
 Table1->FieldByName("PassWord")->AsString=Edit2->Text;
 Table1->Post();
 pass6=1;
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TOKBottomDlg::CancelBtnClick(TObject *Sender)
{
 pass6=2;
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TOKBottomDlg::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
 if(pass6==0)  CanClose=false;
}
//---------------------------------------------------------------------------