mainfrom.cpp

骨灰盒规范化果腹

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

#include <vcl.h>
#pragma hdrstop

#include "MainFrom.h"
#include "LoginForm.h"
#include "NewUserFrom.h"
#include "About.h"
#include "ChangPasswdForm.h"
#include "DM1.h"
#include "ChangeUserInfo.h"
#include "DataForm.h"
#include "QueryForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;
//---------------------------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::lbExitClick(TObject *Sender)
{
   Close();   
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbLoginClick(TObject *Sender)
{
   if(!fmLogin)
      fmLogin=new TfmLogin(this);
   lbLogoutClick(NULL);
   fmLogin->edPasswd->Text="";
   fmLogin->ShowModal();
   if(fmLogin->LoginOK)
   {
      lbAdd->Enabled=true;
      lbQuery->Enabled=true;
      lbKill->Enabled=true;
      lbPasswd->Enabled=true;
      lbUserInfo->Enabled=true;
      sb1->Panels->Items[1]->Text=fmLogin->cbUser->Text+"  "+DM->tbUser->FieldByName("姓名")->AsString;
   }
}
//---------------------------------------------------------------------------


void __fastcall TfmMain::lbLogoutClick(TObject *Sender)
{
   sb1->Panels->Items[1]->Text="";
   lbAdd->Enabled=false;
   lbQuery->Enabled=false;
   lbKill->Enabled=false;
   lbPasswd->Enabled=false;
   lbUserInfo->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbNewClick(TObject *Sender)
{
   if(!fmNew)
      fmNew=new TfmNew(this);
   fmNew->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbAuthorClick(TObject *Sender)
{
   if(!AboutBox)
      AboutBox=new TAboutBox(this);
   AboutBox->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbPasswdClick(TObject *Sender)
{
   if(!fmChgPasswd)
      fmChgPasswd=new TfmChgPasswd(this);
   fmChgPasswd->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbKillClick(TObject *Sender)
{
   if(MessageBox(NULL,"你真的要自杀吗？","警告",MB_OKCANCEL|MB_ICONWARNING|MB_DEFBUTTON2)==IDOK)
   {
      DM->tbUser->Delete();
      ShowMessage("你已经自杀！");
      lbLogoutClick(NULL);
   }
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbUserInfoClick(TObject *Sender)
{
   if(!fmChgInfo)
      fmChgInfo=new TfmChgInfo(this);
   fmChgInfo->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbAboutClick(TObject *Sender)
{
   MessageBox(NULL,"信息管理系统 1.0\n\n程序设计：罗小飞（抱雪）","关于",
         MB_OK|MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbHelpClick(TObject *Sender)
{
   //AnsiString s=ExtractFilePath(Application->ExeName)+"Help.chm";
   //ShellExecute(NULL,"open",s.c_str(),NULL,NULL,SW_SHOWNORMAL);
   ShowMessage("嘿嘿，不好意思，我还没有写那。");
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbAddClick(TObject *Sender)
{
   if(!fmData)
      fmData=new TfmData(this);
   fmData->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfmMain::lbQueryClick(TObject *Sender)
{
   if(!fmQuery)
      fmQuery=new TfmQuery(this);
   fmQuery->ShowModal();
}
//---------------------------------------------------------------------------