main.cpp

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· C++ 代码 · 共 153 行

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "medinfo.h"
#include "feeinfo.h"
#include "reg.h"
#include "calfee.h"
#include "pay.h"
#include "getmed.h"
#include "ghquery.h"
#include "querystock.h"

//---------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;

// 数据库开发经典实例解析  清华大学出版社
//---------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------
TForm* TfmMain::FormExist(AnsiString szCaption)
{
    for(int i=0; i<this->MDIChildCount; i++)
    {
        TForm *pForm = this->MDIChildren[i];
        if(pForm->Caption == szCaption)
            return pForm;   // 已存在窗体,返回该窗体
    }
    return NULL;    // 不存在窗体,返回空值
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuExitClick(TObject *Sender)
{
    Application->Terminate();
}
//-------------------------------------------------------------
void __fastcall TfmMain::Label1Click(TObject *Sender)
{
    // 查找相应按钮对应的菜单，通过菜单执行相应的操作
    for(int i = 0; i< MainMenu1->Items->Count; i++)
    {
        TMenuItem* pItem = MainMenu1->Items->Items[i];
        TMenuItem* pItem1 = pItem->Find(
            ((TLabel*) Sender)->Caption);
        if(pItem1) pItem1->Click();
    }
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuMedInfoClick(TObject *Sender)
{
    // 药品信息维护
    TForm *pForm = FormExist("药品信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmMedInfo(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuFeeInfoClick(TObject *Sender)
{
    // 收费项目维护
    TForm *pForm = FormExist("收费项目维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmFeeInfo(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuRegClick(TObject *Sender)
{
    // 门诊挂号管理
    TForm *pForm = FormExist("门诊挂号管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmReg(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuCalClick(TObject *Sender)
{
    // 门诊划价管理
    TForm *pForm = FormExist("门诊划价管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmCalFee(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuPayClick(TObject *Sender)
{
    // 门诊收费管理
    TForm *pForm = FormExist("门诊收费管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmPay(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuGetMedClick(TObject *Sender)
{
    // 门诊发药管理
    TForm *pForm = FormExist("门诊发药管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmGetMed(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuQueryRegClick(TObject *Sender)
{
    // 门诊挂号统计
    TForm *pForm = FormExist("门诊挂号统计");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmQueryGH(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuMedStockClick(TObject *Sender)
{
    // 药品库存查询
    TForm *pForm = FormExist("药品库存查询");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmQuerySTK(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------