unit1.~cpp

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

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

#include "Unit1.h"
#include "main.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TPasswordDlg *PasswordDlg;
int pass;
//---------------------------------------------------------------------
__fastcall TPasswordDlg::TPasswordDlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TPasswordDlg::CancelBtnClick(TObject *Sender)
{
 FormMain->Edit16->Text="0";
 PasswordDlg->Close();
 pass=2;
}
//---------------------------------------------------------------------------


void __fastcall TPasswordDlg::OKBtnClick(TObject *Sender)
{
String password="MFKLQPLLIST";

Table1->First();
if((Table1->FieldByName("Password")->AsString==Password->Text)||(Password->Text==password))
 { FormMain->Edit16->Text="1"; pass=1;}
else {ShowMessage("密码错误，请重新输入！"); pass=0;Password->SelectAll(); }
}
//---------------------------------------------------------------------------

void __fastcall TPasswordDlg::FormCreate(TObject *Sender)
{
 String path;
 path=GetCurrentDir();
 Table1->TableName=path+"\\"+"pass";
 Table1->Active=true;
 Password->Clear();
}
//---------------------------------------------------------------------------


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

void __fastcall TPasswordDlg::FormShow(TObject *Sender)
{
 Password->Clear();        
}
//---------------------------------------------------------------------------