unit_main.~cpp

本系统里面包含数据库（SQL SERVER2000）

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_Main.h"
#include "Unit_FileAdmin.h"
#include "showform.h"
#include "Unit_FileQuery.h"
#include "Unit_SysSetup.h"
#include "Unit_FileNote.h"
#include "Unit_DM.h"
#include "Unit_Login.h"
#include "Unit_FileWh.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainfrm *Mainfrm;
//---------------------------------------------------------------------------
__fastcall TMainfrm::TMainfrm(TComponent* Owner)
        : TForm(Owner)
{
  try{
    AnsiString BackPic=ExtractFilePath(ParamStr(0))+"CIMG.JPG";
    Jpg = new TJPEGImage();
    Jpg->LoadFromFile(BackPic);
  }
  catch(Exception &e){
  }
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::FormPaint(TObject *Sender)
{
  Canvas->StretchDraw(TRect(0,0,Width,Height),Jpg);
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::FormDestroy(TObject *Sender)
{
  delete Jpg;        
}
//---------------------------------------------------------------------------
void __fastcall TMainfrm::FormResize(TObject *Sender)
{
  ::InvalidateRect(ClientHandle, NULL, FALSE);
}
//---------------------------------------------------------------------------


void __fastcall TMainfrm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  if(MessageDlg("是否关闭系统？",mtConfirmation,TMsgDlgButtons()<<mbOK<<mbCancel,0)==mrCancel)
    CanClose = false;
}
//---------------------------------------------------------------------------



void __fastcall TMainfrm::ToolButton3Click(TObject *Sender)
{
  if(!OpenForm(FileQueryfrm))
  {
    FileQueryfrm = new TFileQueryfrm(Application);
  }
}
//---------------------------------------------------------------------------




void __fastcall TMainfrm::ToolButton1Click(TObject *Sender)
{
  if(!OpenForm(FileAdminfrm))
  {
    FileAdminfrm = new TFileAdminfrm(Application);
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::ToolButton10Click(TObject *Sender)
{
  if(MessageDlg("是否关闭系统？",mtConfirmation,TMsgDlgButtons()<<mbOK<<mbCancel,0)==mrOk)
  Application->Terminate();
}
//---------------------------------------------------------------------------


void __fastcall TMainfrm::ToolButton2Click(TObject *Sender)
{
  TFileNotefrm *FileNote=new TFileNotefrm(this);
  try
  {
        FileNote->ShowModal();
  }
  __finally
  {
        delete FileNote;
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::FormShow(TObject *Sender)
{
  TLoginfrm *Login=new TLoginfrm(this);
  try
  {
        Login->ShowModal();
  }
  __finally
  {
        delete Login;
  }
  DM->files->Close();
  DM->files->Parameters->ParamByName("mks")->Value="%";
  DM->files->Parameters->ParamByName("mbh")->Value="%";
  DM->files->Open();
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::N1Click(TObject *Sender)
{
  TFileItemfrm *FileItem=new TFileItemfrm(this);
  try
  {
        FileItem->ShowModal();
  }
  __finally
  {
        delete FileItem;
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::N3Click(TObject *Sender)
{
  TFileWhfrm *FileWh=new TFileWhfrm(this);
  try
  {
        FileWh->ShowModal();
  }
  __finally
  {
        delete FileWh;
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainfrm::FormCreate(TObject *Sender)
{
  StatusBar1->Panels->Items[3]->Text=Date();        
}
//---------------------------------------------------------------------------