splashform.cpp
//---------------------------------------------------------------------------    #include 
#include "splashform.h"
#pragma hdrstop
USERES("splashscreen.res");
USEFORM("mainform.cpp", Form1);
USEFORM("splashform.cpp", Splash);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try{//outer finally
        try{
            Application->Initialize();
            Splash = new TSplash(NULL);
            Splash->Show();
            Splash->Repaint(); //主Form產生前先秀出ID & Password Check 表單
            Application->CreateForm(__classid(TForm1), &Form1);
            Application->Run();
            }
        catch (Exception &exception){
            Application->ShowException(&exception);
            }
        }
    __finally{
        if(Splash)
            delete Splash;
        }
    return 0;
}
//---------------------------------------------------------------------------

/*生活是一種藝術,用心生活才能享受生活*/

引言: 本想說設計一個登入畫面 先將登入畫面插入變成第一個Form之後 若在資料庫Match之後就把Login畫面設成Visible=False 再連接到下一個系統主畫面 但是只有主畫面可以開啟 原本設定成FormChild的全部出現問題無法開啟 是什麼問題ㄚ??? 我是希望開啟程式前先登入 但是都沒看到有人討論 我該如何撰寫??? 還是BCB已經有現成元件可以用ㄚ??? 只知道有Mask可以利用>.<" ~新手上路問題多~敬請多多包涵~ 我是新手,但不是永遠的新手 只要努力不懈,相信成功就在眼前 發表人 - taishyang 於 2004/02/27 16:52:13

//---------------------------------------------------------------------------    #include 
#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
TLoginDialog *LoginForm;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();                     LoginForm = new TLoginDialog(Application);
                 LoginForm->ShowModal();
                 /* 下列檢查密碼方式請自行修改 */
                 if ((LoginForm->UserName->Text != "user") || (LoginForm->Password->Text != "0000"))
                 {
                   delete LoginForm;
                   return 0;
                 }
                 delete LoginForm;

                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

 
bool    form_create = true ;
void __fastcall TMainForm::FormActivate(TObject *Sender)
{
        if ( form_create )
        {
                form_create = false ;
                MainForm->user_Power =  0x00;
                File->Visible = false ;
                Timer1->Enabled = true ;
        }
}
//--------------------------------------------------------------------    void __fastcall TMainForm::Timer1Timer(TObject *Sender)
{            Timer1->Enabled = false ;
        Login();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Login(void)
{            TLOGIN *LOGIN;
        bool check_GoNext ;
        try
        {
                LOGIN = new TLOGIN(Application);
                LOGIN->ShowModal();
                delete LOGIN;
        }
        catch (Exception &exception )
        {
                delete LOGIN;
                Application->ShowException(&exception);
        }            if(  true )
        {
           if((MainForm->user_Power & 0x4001) > 0 ) //"ALL"
           {
                File->Visible = true ;
           }
           if( (MainForm->user_Power & 0x7fff) == 0)
           {
               File->Visible = false ;
           }
        }    }