unit3.~cpp

第一次尝试开发数据库方面的系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
#include "Unit5.h"
#include "Unit1.h"
#include "Unit12.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit13.h"
#include "inifiles.hpp"
#include "Unit2.h"
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_main *frm_main;
//---------------------------------------------------------------------------
__fastcall Tfrm_main::Tfrm_main(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_main::N22Click(TObject *Sender)
{
    TAboutBox *AboutBox;
    AboutBox = new TAboutBox(this);
    AboutBox->Show();

}
//---------------------------------------------------------------------------
void Tfrm_main::BackupDatabase(AnsiString filename)
{
    //DM->AQ_Back_Restore->Close();
    DM->AQ_Back_Restore->SQL->Clear();
    AnsiString Backup("BACKUP DATABASE ");
    TIniFile *ini;
    ini = new TIniFile(ExtractFilePath(ParamStr(0))+"config.INI");
    AnsiString  str;
    str = ini->ReadString("Database","Initial Catalog","zhang");
    Backup = Backup + str;
    DM->AQ_Back_Restore->SQL->Add(Backup);
    delete ini;
    str=" TO DISK ='";
    str+=filename;
    str+="'";
    DM->AQ_Back_Restore->SQL->Add(str);
    DM->AQ_Back_Restore->SQL->Add("WITH init");
    ShowMessage(DM->AQ_Back_Restore->SQL->Text);
    try{        //捕捉异常
      DM->AQ_Back_Restore->ExecSQL();
      //DM->AQ_Back_Restore->Open();
    }
    catch(...)  //抛出异常
    {
      Application->MessageBox("数据库备份出错", "错误！", MB_OK);
    }
}


//----------------------------------------------------------------------------
void __fastcall Tfrm_main::N29Click(TObject *Sender)
{
  if(SaveDialog1->Execute())
  {
    if(FileExists(SaveDialog1->FileName))
    {
      AnsiString str;
      str=SaveDialog1->FileName+"文件已经存在，要替换它吗？";
      int i;
      i=MessageBox(NULL,str.c_str(),"另存为",MB_OKCANCEL);
      if(i==mrOk)
      {
        BackupDatabase(SaveDialog1->FileName);
        return;
      }
      else
        return;
    }
    BackupDatabase(SaveDialog1->FileName);
  }
}
//---------------------------------------------------------------------------
void Tfrm_main::RestoreDatabase(AnsiString filename)
{
    //DM->AQ_Back_Restore->Close();
    DM->AQ_Back_Restore->SQL->Clear();
    AnsiString Restore("RESTORE DATABASE ");
    TIniFile *ini;
    ini = new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");
    AnsiString  str;
    str = ini->ReadString("Database","Initial Catalog","zhang");
    Restore.Insert(str,Restore.Length()+1);
    DM->AQ_Back_Restore->SQL->Add(str);
    delete ini;
    str="FROM DISK = '";
    str+=filename;
    str+="'";
    DM->AQ_Back_Restore->SQL->Add(str);
        DM->AQ_Back_Restore->SQL->Add("WITH norecovery");
    try{        //捕捉异常
      DM->AQ_Back_Restore->ExecSQL();
    }
    catch(...)  //抛出异常
    {
      Application->MessageBox("数据库恢复出错", "错误！", MB_OK);
    }
}
//----------------------------------------------------------------------------

//----------------------------------------------------------------------------
void __fastcall Tfrm_main::N30Click(TObject *Sender)
{
  if(OpenDialog1->Execute())
    RestoreDatabase(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------


void __fastcall Tfrm_main::N8Click(TObject *Sender)
{
  Tfrm_denglu *frm_denglu;
  frm_denglu=new Tfrm_denglu(this);
  frm_denglu->Show();

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N7Click(TObject *Sender)
{
  Tfrm_register *frm_register;
  frm_register=new Tfrm_register(this);
  frm_register->Show();

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N10Click(TObject *Sender)
{
  Tfrm_modify *frm_modify;
  frm_modify=new Tfrm_modify(this);
  frm_modify->Show();

}
//---------------------------------------------------------------------------


void __fastcall Tfrm_main::N14Click(TObject *Sender)
{
  Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N34Click(TObject *Sender)
{
  if(ColorDialog1->Execute())
  {
    frm_main->Color=ColorDialog1->Color;
    TIniFile *ini;
    ini=new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");
    ini->WriteInteger("Form","Color",ColorDialog1->Color);
    delete ini;
  }
  frm_main->WindowState=wsMinimized;
  frm_main->WindowState=wsMaximized;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N31Click(TObject *Sender)
{
  Tfrm_config *frm_config;
  frm_config=new  Tfrm_config(this);
  frm_config->Show();

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N27Click(TObject *Sender)
{
  Tfrm_dzh *frm_dzh;
  frm_dzh=new Tfrm_dzh(this);
  frm_dzh->Show();

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N36Click(TObject *Sender)
{
  Tfrm_bellow *frm_bellow1;
  frm_bellow1=new Tfrm_bellow(this);
  frm_bellow1->Show();

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N20Click(TObject *Sender)
{
  Tfrm_tshtj *frm_tshtj;
  frm_tshtj=new Tfrm_tshtj(this);
  frm_tshtj->Show();
  

}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::FormCreate(TObject *Sender)
{
  TIniFile *ini;
  ini=new TIniFile(ExtractFilePath(ParamStr(0))+"config.INI");
  frm_main->Color=ini->ReadInteger("Form","Color",clAppWorkSpace);
  AnsiString str=ini->ReadString("Form","Picture","");
  if(!str.IsEmpty())
  {
    try
    {
      Image1->Picture->LoadFromFile(str);
    }
    catch(...)
    {
      Image1->Picture->CleanupInstance();
      Application->MessageBox("加载背景图时出错，没有找到图片文件","错误！",MB_OK);
    }
  }
  delete ini;
}
//---------------------------------------------------------------------------



void __fastcall Tfrm_main::WindowClose1Update(TObject *Sender)
{
  if(MDIChildCount>0)
    dynamic_cast <TAction *>(Sender)->Enabled=true;
  else
    dynamic_cast <TAction *>(Sender)->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::WindowClose1Execute(TObject *Sender)
{
  int i;
  for(i=0;i<MDIChildCount;i++)
   MDIChildren[i]->Close();
}
//---------------------------------------------------------------------------





void __fastcall Tfrm_main::N35Click(TObject *Sender)
{
  if(OpenDialog1->Execute())
  {
    Image1->Picture->LoadFromFile(OpenDialog1->FileName);
    frm_main->Paint();
    TIniFile *ini;
    ini=new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");
    ini->WriteInteger("Form","Picture",this->ColorDialog1->Color);
    delete ini;
  }
  frm_main->WindowState=wsMinimized;
  frm_main->WindowState=wsMaximized;
}
//---------------------------------------------------------------------------




void __fastcall Tfrm_main::N12Click(TObject *Sender)
{
  Tfrm_tsh *frm_tsh;
  frm_tsh=new Tfrm_tsh(this);
  frm_tsh->Show();
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_main::N24Click(TObject *Sender)
{
   Tfrm_wm *frm_wm;
   frm_wm=new Tfrm_wm(this);
   frm_wm->Show();
}
//---------------------------------------------------------------------------