mainfrm.cpp

醫院管理 還不錯 醫院管理 還不錯 醫院管理 還不錯

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "MainFrm.h"
#include "BasicInfFrm.h"
#include "OptInfFrm.h"
#include "OptKndFrm.h"
#include "ProInfFrm.h"
#include "MainDm.h"
#include "LogonFrm.h"
#include "TableManFrm.h"
#include "WizardFrm.h"
#include "MedicalFrm.h"
#include "ExamFrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"


#include "ConstUnt.h"
#define Msg MessageBox

TfrmMain *frmMain;

//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
    Caption = Application->Title;
    /*
            Hide();
            if (mrOk == frmLogon->ShowModal())
            {
            }
            else
            {
            	Application->Terminate();
            }
    */
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miAboutClick(TObject *Sender)
{
    char * pszAbout = "      EasyHIS Beta 0.91.\n"
                      "      [e-mail] \n"
                      "         Jun 12, 2004          \n";

    MessageBox(Handle, pszAbout, "关于", MB_OK | MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    char * pszExitInf = "真的需要退出EasyHIS吗？";
    if (MessageBox(Handle, pszExitInf, "询问", MB_YESNO | MB_ICONQUESTION) \
            == IDNO)
    {
        CanClose = false;
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miSetHospitalClick(TObject *Sender)
{
    TfrmBasicInf * pDlg = new TfrmBasicInf(this);
    pDlg->ShowModal();
    delete pDlg;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miLogonAccountClick(TObject *Sender)
{
    TfrmOptInf * pDlg = new TfrmOptInf(this);
    pDlg->ShowModal();
    delete pDlg;

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

void __fastcall TfrmMain::miWorkInfClick(TObject *Sender)
{
    TfrmOptKnd * pDlg = new TfrmOptKnd(this);
    pDlg->ShowModal();
    delete pDlg;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::miSendClick(TObject *Sender)
{
    MessageBox(Handle, "目前无法传送本医院的数据，本医院无法进行数据传送！", \
               "提示", MB_OK | MB_ICONWARNING);

    MessageBox(Handle, "版本目前为了示范其流程，进行发送给网站", \
               "提示", MB_OK | MB_ICONWARNING);
    return;
    /*
            dmMain->qrySend->SQL->Clear();
            dmMain->qrySend->SQL->Add("insert cltinf(name,sex,birth,tele,handset,"
            	"email,post,addr,logusr,logpwd,storeid))"
                    " values(:name,:sex,:birth,:tele,:handset,:email,:post,"
                    ":addr,:logusr,:logpwd,:storeid)");
            dmMain->qrySQLPlus->Close();
            dmMain->qrySQLPlus->SQL->Clear();
            dmMain->qrySQLPlus->SQL->Add("select id,name,sex,birth,tele,handset,"
            	"email,post,addr,logusr,logpwd where id = "
                     + qryBillDisp->Fields->Fields[1]->AsString);
            dmMain->qrySQLPlus->Open();
     
            dmMain->qrySend->Parameters->ParamByName("name")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[0]->AsString;
    	dmMain->qrySend->Parameters->ParamByName("sex")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[1]->Value;
    	dmMain->qrySend->Parameters->ParamByName("birth")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[2]->Value;
    	dmMain->qrySend->Parameters->ParamByName("tele")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[3]->Value;
    	dmMain->qrySend->Parameters->ParamByName("handset")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[4]->Value;
    	dmMain->qrySend->Parameters->ParamByName("email")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[5]->Value;
    	dmMain->qrySend->Parameters->ParamByName("post")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[6]->Value;
    	dmMain->qrySend->Parameters->ParamByName("addr")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[7]->Value;
    	dmMain->qrySend->Parameters->ParamByName("logusr")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[8]->Value;
    	dmMain->qrySend->Parameters->ParamByName("logpwd")->Value =
            	dmMain->qrySQLPlus->Fields->Fields[9]->Value;
     
    	//dmMain->qrySend->Parameters->ParamByName("optid")->Value = optid;
    	dmMain->qrySend->Parameters->ParamByName("storeid")->Value = "100100";
    	//dmMain->qrySend->Parameters->ParamByName("optdate")->Value = optdate;
     
            dmMain->qrySend->ExecSQL();
            dmMain->qrySQLPlus->Close();
    /*/
}
//---------------------------------------------------------------------------


#include <vector>
using namespace std;


void __fastcall TfrmMain::N4Click(TObject *Sender)
{
    TfrmProInf * pdlgProInf = new TfrmProInf(this);
    pdlgProInf->ShowModal();
    delete pdlgProInf;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnAddBillClick(TObject *Sender)
{
#if 0
    TfrmWizard *pDlg = new TfrmWizard(this);
    //pDlg->m_bNew = true;
    if (mrOk == pDlg->ShowModal())
    {}
    delete pDlg;

    TfrmBillAdd *pfrmBillAdd = new TfrmBillAdd(this);
    pfrmBillAdd->m_bNew = true;
    if (mrOk == pfrmBillAdd->ShowModal())
    {
        btnRefreshClick(btnRefresh);
        grdBill->SetFocus();
    }
    delete pfrmBillAdd;
#endif
}
//---------------------------------------------------------------------------


bool TfrmMain::OpenBill()
{
    return false;
}

void __fastcall TfrmMain::dtpFndDateChange(TObject *Sender)
{
    dmMain->OpenClientInfo("where Format(optdate, 'YYYY-MM-DD') <= '"
                           + DateToStr(dtpFndDate->Date) + "'");

    m_bSearch = false;

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


void __fastcall TfrmMain::FormShow(TObject *Sender)
{

    dmMain->qryClientInfo->AfterOpen =  EmployeeAfterOpen;
    dmMain->qryMedical->AfterOpen =  MedicalAfterOpen;
    dmMain->qryExam->AfterOpen =  ExamAfterOpen;

    dtpFndDate->Date = Now();
    stsMain->Panels->Items[2]->Text = gLogonInf.m_strOptName;
    dmMain->OpenClientInfo(" ");
    DisplayDetail();

    cboCondition->ItemIndex = 0;
    m_bSearch = false;

    //

    pcRecord->ActivePageIndex = 0;
}
//---------------------------------------------------------------------------
#include "ChPwdFrm.h"
void __fastcall TfrmMain::miLononPWClick(TObject *Sender)
{
    TfrmChPwd * pDlg = new TfrmChPwd(this);
    if (pDlg->ShowModal() == mrOk)
    {
        String str = gLogonInf.m_strOptName + "，你的密码已经修改，请登陆时使用新密码！";
        MessageBox(Handle, str.c_str(), "提示", MB_OK | MB_ICONINFORMATION);

    }
    /*
            int (*UsrPwdChg)();
     
            HINSTANCE hDll = NULL;
            if (NULL == hDll)
            {
                    hDll = LoadLibrary("asitf.dll");
            }
            if (hDll)
            {
                  UsrPwdChg = (int (*)()) GetProcAddress(hDll, "UsrPwdChg");
                  if (UsrPwdChg)
                          UsrPwdChg();
                  else
                          ShowMessage("模块信息中没有包含更改密码功能！");
            }
            else
            {
                    ShowMessage("更改密码模块没有正确安装，请检查目录！");
            }

            FreeLibrary(hDll);
    //*/
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::miPersonalInfClick(TObject *Sender)
{
    ShowMessage("登陆人员进行自我的资料修改！");
}
//---------------------------------------------------------------------------





















void TfrmMain::ExportBillInf()
{}



void __fastcall TfrmMain::miTableManClick(TObject *Sender)
{
    TfrmTableMan * pDlg = new TfrmTableMan(this);
    pDlg->ShowModal();
    delete pDlg;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::N17Click(TObject *Sender)
{
    TADOQuery * qryEx = dmMain->qrySQLPlus;

    qryEx->Close();
    qryEx->SQL->Clear();
    qryEx->SQL->Add("select billid,convert(varchar(10),optdate,120) as optdate,optname from "
                    " billinf where delflg=1 order by optdate");
    qryEx->Open();
    String strRet;
    String strPix;
    if (qryEx->RecordCount < 1)
    {
        strRet = "目前系统没有报废定单信息！";
        strPix = "";
    }
    else
    {
        while (!qryEx->Eof)
        {
            strRet += qryEx->FieldByName("optdate")->AsString + "\t"
                      + qryEx->FieldByName("billid")->AsString + "\t"
                      + qryEx->FieldByName("optname")->AsString + "\n";
            qryEx->Next();
        }

        strPix = "报废日期\t报废单号\t报废人员\t\n\n";
    }

    strRet = strPix + strRet;
    MessageBox(Handle, strRet.c_str(), "报废单号详表", MB_OK);
    qryEx->Close();
}
//---------------------------------------------------------------------------


#include "NewCltFrm.h"



bool TfrmMain::AddEmployeeInf()
{
    TfrmNewClt * pDlg = new TfrmNewClt(this);

    pDlg->m_bNewFlag = true;

    if (mrOk == pDlg->ShowModal())
    {
        //update the display control
        dmMain->OpenClientInfo("where optdate = date()");

    }
    delete pDlg;
    return true;
}

bool TfrmMain::ModiEmployeeInf()
{
    TfrmNewClt * pDlg = new TfrmNewClt(this);

    pDlg->m_bNewFlag = false;
    pDlg->m_EmployeeInf.Id = dmMain->qryClientInfo->FieldByName("Id")->AsString;

    if (mrOk == pDlg->ShowModal())
    {
        //update the display control
        dmMain->qryClientInfo->Close();
        dmMain->qryClientInfo->Open();


    }
    delete pDlg;

    return true;
}
void __fastcall TfrmMain::N19Click(TObject *Sender)
{
    AddEmployeeInf();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::N20Click(TObject *Sender)
{
    ModiEmployeeInf();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::miSimChineseClick(TObject *Sender)
{
    SwitchLang(1);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::miUSEnglishClick(TObject *Sender)
{
    SwitchLang(0);

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