main.cpp

档案管理系统源码

//    DM->DS_Borrow->Enabled = false;          //档案借用管理数据源控件处于非使能态，与提交、取消、删除等按钮数据感知控件失去关联关系
    if(CreateForm(F_BReturn) == false)       //CreateForm调用判断档案借用管理窗体是否存在函数
      F_BReturn = new TF_BReturn(Application);  //动态创建档案借用管理窗体
    F_BReturn->PageControl1->ActivePage = F_BReturn->PageControl1->Pages[0];  //设定ActivePage为借用档案管理标签页
    DM->DS_Borrow->Enabled = true;           //档案借用管理数据源控件处于使能态，与提交、取消、删除等按钮数据感知控件建立关联关系
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_ReturnClick(TObject *Sender)
{   /*****档案归还管理菜单项单击事件*****/
//    DM->DS_Return->Enabled = false;          //档案归还管理数据源控件处于非使能态，与提交、取消、删除等按钮数据感知控件失去关联关系
    if(CreateForm(F_BReturn) == false)       //CreateForm调用判断档案归还管理窗体是否存在函数
      F_BReturn = new TF_BReturn(Application);  //动态创建档案归还管理窗体
    F_BReturn->PageControl1->ActivePage = F_BReturn->PageControl1->Pages[1];  //设定ActivePage为归还档案管理标签页
    DM->DS_Return->Enabled = true;           //档案归还管理数据源控件处于使能态，与提交、取消、删除等按钮数据感知控件建立关联关系
}
//---------------------------------------------------------------------------


void __fastcall TF_Main::M_BackupClick(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);  //BackupDatabase是用户自定义备份数据库函数
          return;
          }
        else             //用户取消了替换操作
          return;
        }
      BackupDatabase(SaveDialog1->FileName);  //BackupDatabase是用户自定义备份数据库函数
      }
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_RestoreClick(TObject *Sender)
{   /*****数据还原菜单项单击事件*****/
    if(OpenDialog1->Execute())  //用户打开数据库还原对话框后选择了打开按钮
      RestoreDatabase(OpenDialog1->FileName);  //RestoreDatabase是用户自定义还原数据库函数
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_HelpClick(TObject *Sender)
{   /*****帮助菜单项单击事件*****/
    try{
      F_ABox = new TF_ABox(Application);    //动态创建关于窗体
      F_ABox->ShowModal();                  //显示关于窗口
      delete F_ABox;                        //释放F_ABox对象
      F_ABox = NULL;                        //编程技巧，以免重复释放时抛出异常
    }
    catch(Exception &exception){
      delete F_ABox;                        //释放F_ABox对象
      Application->ShowException(&exception); //弹出异常对话框
    }
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::WindowCloseAllExecute(TObject *Sender)
{   /*****操作列表控件ActionList1中WindowCloseAll操作执行事件*****/
    int i;
    for(i=0;i<MDIChildCount;i++)  //MDIChildCount取得当前MDI子窗口的个数
      MDIChildren[i]->Close();       //关闭所有MDI子窗口
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::WindowCloseAllUpdate(TObject *Sender)
{   /*****操作列表控件ActionList1中WindowCloseAll操作Updata事件*****/
    if(MDIChildCount>0)  //是否有MDI子窗口创建判断
      dynamic_cast <TAction *>(Sender)->Enabled = true;  //关闭所有MDI子窗口菜单使能
    else
      dynamic_cast <TAction *>(Sender)->Enabled = false; //关闭所有MDI子窗口菜单非使能
}
//---------------------------------------------------------------------------



void __fastcall TF_Main::FormShow(TObject *Sender)
{
/*    TIniFile *ini;    //申请一个TIniFile类对象
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ));
    bool State;
    State = ini->ReadBool("Database","Connection",false); //读取数据库连接是否成功标志
    if(!State){  //数据库没有连接成功
      try{
        F_Config = new TF_Config(Application);  //动态创建数据记录查询窗体
        F_Config->ShowModal();                 //显示数据记录查询窗口
        delete F_Config;                       //释放F_Query对象
        F_Config = NULL;                       //编程技巧，以免重复释放时抛出异常
        }
      catch(Exception &exception){
        delete F_Config;                       //释放F_Query对象
        Application->ShowException(&exception); //弹出异常对话框
        }
//      F_Config->ShowModal();  //弹出数据库服务器配置窗口
      }
    char CString[100];
    StrCopy(CString,"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="); //拷贝字符串到CString
    AnsiString  str,str1;
    str = ini->ReadString("Database","Initial Catalog","Archives"); //从配置文件读数据库名
    StrCat(CString,str.c_str());          //追加从配置文件读入的数据库名字符串
    str1 = ini->ReadString("Database","Data Source","FLYYCS\\YCS");  //从配置文件读数据库服务器名
    delete ini;    //释放ini对象
    StrCat(CString,";Data Source=");      //追加字符串到CString
    StrCat(CString,str1.c_str());          //追加从配置文件读入的数据库服务器名字符串
    DM->ADOConnection->Connected = false;
    DM->ADOConnection->ConnectionString = CString;  //数据库连接属性字符串赋新值
    try{            //捕捉异常
      DM->ADOConnection->Connected = true;  //启动与数据库服务器的连接
      DM->AT_Class->Active = true;          //激活各个数据表与服务器的连接
      DM->AT_Tank->Active = true;
      DM->AT_Borrow->Active = true;
      DM->AT_Return->Active = true;
      DM->AT_Count->Active = true;
      DM->AQ_Manage->Active = true;
//      DM->AQ_Back_Restore->Active = true;
      }
    catch(...){     //抛出异常
      MessageBox(NULL,"与数据库服务器连接未成功，请重新配置","警告对话框",MB_ICONWARNING);
      }
    TIniFile *iniW;  //申请一个TIniFile类对象
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    iniW = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ));
    State = DM->ADOConnection->Connected;            //取得数据库连接是否成功标志值
    iniW->WriteBool("Database","Connection",State);  //将数据库连接是否成功标志值写入配置文件
    delete iniW;    //释放iniW对象
    iniW = NULL;    //编程技巧，这样可以在下次不小心再delete ini一次时也不会抛出异常
*/    
}
//---------------------------------------------------------------------------