modiypass.cpp

客户管理挂件

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

#include <vcl.h>
#pragma hdrstop
#include "LoginForm.h"
#include "Modiypass.h"
#include "ClientManager.h"
#include "ControlBase.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzPanel"
#pragma link "RzButton"
#pragma link "RzDBEdit"
#pragma link "RzEdit"
#pragma link "RzLabel"
#pragma resource "*.dfm"
TModifyUser *ModifyUser;
//---------------------------------------------------------------------------
__fastcall TModifyUser::TModifyUser(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TModifyUser::RzBitBtn2Click(TObject *Sender)
{
     if(!MsgYN("是否保存！"))
     return;

  if(RzDBEdit3->Text =="")
  {
    MsgShow("请输入用户编号性别！","编辑提示");
    return;
  }
try
{
        AConnection1 = new TADOConnection(NULL);
        AConnection1 = ADOQueryUser->Connection;
        if(!AConnection1->InTransaction)
           AConnection1->BeginTrans();
        if(AConnection1->InTransaction)
         AConnection1->CommitTrans();
       ADOQueryUser->UpdateBatch(arAll);
       MsgShow("保存成功！","保存提示");
       RzBitBtn4->Enabled=true;
}
catch(...)
{
      if(AConnection1->InTransaction)
      AConnection1->RollbackTrans();
}
}
//---------------------------------------------------------------------------

void __fastcall TModifyUser::DBGrid1CellClick(TColumn *Column)
{
  sUserID = ADOQueryUser->FieldByName("userid")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TModifyUser::RzBitBtn6Click(TObject *Sender)
{
try
{
     if(!MsgYN("是否删除？"))
     return;

     ADOQueryUser->Delete();

}
catch(...)
{
  MsgShow("操作有误！") ;
}
}
//---------------------------------------------------------------------------


void __fastcall TModifyUser::RzBitBtn4Click(TObject *Sender)
{
  ADOQueryUser->Active = true;
  String sUserMaxID ;
  sUserMaxID = "select max(userid) from USENAME where userid <> '-0001'";
  sMaxSQL(ADOQueryUser->Connection,sUserMaxID,sMaxUserID);
  if (sMaxUserID == "")
      {
       sMaxUserID = "0001";
      }
  else
    {
        int iSublength = IntToStr(StrToInt(sMaxUserID) + 1).Length();
        switch(iSublength)
        {
          case 1: sMaxUserID = "0000"+IntToStr(StrToInt(sMaxUserID) + 1);break;
          case 2: sMaxUserID = "000"+IntToStr(StrToInt(sMaxUserID) + 1);break;
          case 3: sMaxUserID = "00"+IntToStr(StrToInt(sMaxUserID) + 1);break;
          case 4: sMaxUserID = "0"+IntToStr(StrToInt(sMaxUserID) + 1);break;
        }
    }

//-----------------------存储数据--------------------------------------------
  ADOQueryUser->Append() ;
  ADOQueryUser->FieldByName("userid")->AsString=sMaxUserID ;
  ADOQueryUser->Post();
  RzBitBtn4->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TModifyUser::RzDBEdit3KeyPress(TObject *Sender, char &Key)
{
  if(Key == 13)
      RzDBEdit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TModifyUser::RzDBEdit1KeyPress(TObject *Sender, char &Key)
{
  if(Key == 13)
      RzBitBtn2->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TModifyUser::RzBitBtn1Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------