newuserfrom.cpp

骨灰盒规范化果腹

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

#include <vcl.h>
#pragma hdrstop

#include "NewUserFrom.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmNew *fmNew;
//---------------------------------------------------------------------------
__fastcall TfmNew::TfmNew(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmNew::FormActivate(TObject *Sender)
{
   edName->Clear();
   edPasswd1->Clear();
   edPasswd2->Clear();
   chk1->Checked=false;
   ActiveControl=medUser;
   medUser->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TfmNew::btOkClick(TObject *Sender)
{
   TLocateOptions o;
   o.Clear();
   if(DM->tbUser->Locate("USERID",medUser->Text,o))
   {
      ShowMessage("用户已经存在，请更改用户名！");
      ActiveControl=medUser;
      return;
   }
   if(edPasswd1->Text.Length()<3||edPasswd1->Text.Length()>8)
   {
      ShowMessage("密码长度不对！应该是3～8个字符。");
      ActiveControl=edPasswd1;
      return;
   }
   if(edPasswd1->Text!=edPasswd2->Text)
   {
      ShowMessage("密码不匹配！");
      ActiveControl=edPasswd1;
      return;
   }
   DM->tbUser->InsertRecord(ARRAYOFCONST((medUser->Text,
         edName->Text,edPasswd1->Text,chk1->Checked)));
   ShowMessage("用户加入成功！");
   Close();
}
//---------------------------------------------------------------------------

void __fastcall TfmNew::btCancelClick(TObject *Sender)
{
   Close();   
}
//---------------------------------------------------------------------------