unit1.cpp

控制程序,可以作界面设计,这是质量高而且本站没有的源码。

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::onCreate(TObject *Sender)
{
   TForm2 *form2 = new TForm2(this);// 实例化窗体Form2对应的类TForm2
   form2->ShowModal();              // 以模态方式显示窗口

   if(!form2->isLogin())
   {  // 没有通过验证
       Application->ShowMainForm=false; // 不显示主窗体
//     Application->Terminate();       // 退出应用程序
       PostQuitMessage(0);
   }

   delete form2; // 销毁对象
}
//---------------------------------------------------------------------------