register.~cpp

多层数据库

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

#include <vcl.h>
#pragma hdrstop

#include "register.h"
#include "mdcltdm.h"
#include "..\\Mdserv_tlb.h"
#include "..\\mdservfrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;

ImidasservDisp mdreg;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
        AnsiString str;

        DataModule1->DCOMConnection1->Connected = true;
        if(!mdreg.IsBound())
        mdreg.Bind(DataModule1->DCOMConnection1->GetServer());

        if((AnsiString(Edit1->Text)!="") && (AnsiString(Edit2->Text)!="")
                &&(AnsiString(Edit2->Text)==AnsiString(Edit3->Text)))
           str = mdreg->NewUser(WideString(Edit1->Text),WideString(Edit2->Text));
        else
           ShowMessage("输入有误，请重新输入！");

           ShowMessage(str);
           if(str == "已经存在此用户，请重新注册！" || str == "注册失败！")
             Button2Click(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm4::Button2Click(TObject *Sender)
{
        Edit1->Text = "";
        Edit2->Text = "";
        Edit3->Text = "";
        Edit1->SetFocus();
}
//---------------------------------------------------------------------------