newcltfrm.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "MainDm.h"
#include "NewCltFrm.h"
#include "ConstUnt.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "BaseFrm"
#pragma resource "*.dfm"
TfrmNewClt *frmNewClt;
//---------------------------------------------------------------------------
__fastcall TfrmNewClt::TfrmNewClt(TComponent* Owner)
        : TfrmBase(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmNewClt::FormShow(TObject *Sender)
{
    m_strCurUsr = "1";
    if (m_bNewFlag)
    {}
    else
    {
        Caption = "修改资料";
    }

    m_vect_History.resize(10);

    for (unsigned long i = 0; i < m_vect_History.size(); ++i)
    {
        m_vect_History[i].bChk = false;
        m_vect_History[i].strContent = "";
    }

    //Init UI
    cboSex->ItemIndex = 0;
    cboDepartment->ItemIndex = 0;
    dtpBirth->Date = Now() - 25 * 365;
    cboMarital->ItemIndex = 0;

    //Open Exists the Record July 01, 2004
    if (!m_bNewFlag)
    {
        OpenClientInfo(m_EmployeeInf.Id);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmNewClt::btnCancelClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmNewClt::btnSaveClick(TObject *Sender)
{
    m_EmployeeInf.Name = edtName->Text;    //02
    if (m_EmployeeInf.Name == "")
    {
        MessageBox(Handle, "建档过程中员工姓名没有输入，请检查！", \
                   "警告", MB_OK | MB_ICONWARNING);
        return;
    }
    m_EmployeeInf.Sex = IntToStr(cboSex->ItemIndex); //03
    m_EmployeeInf.Birth = DateToStr(dtpBirth->Date); //04

    m_EmployeeInf.PlaceOfBirth = edtBirthPlace->Text;         //05
    m_EmployeeInf.MaritalStatus = IntToStr(cboMarital->ItemIndex); //06

    m_EmployeeInf.Profession = cboProfession->Text;   //07
    m_EmployeeInf.Department = cboDepartment->Text;  //08
    m_EmployeeInf.SuprName = cboSuprName->Text;  //09
    m_EmployeeInf.EmployeeNo =  edtEmployeeNo->Text;  //11

    if (m_EmployeeInf.EmployeeNo == "")
    {
        MessageBox(Handle, "建档过程中员工工号没有输入，请检查！",  \
                   "警告", MB_OK | MB_ICONWARNING);
        return;
    }
    m_EmployeeInf.Height = edtHeight->Text;    //12
    if (m_EmployeeInf.Height == "")
    {
        m_EmployeeInf.Height = "0";
    }
    m_EmployeeInf.Weight = edtWeight->Text;        //13
    if (m_EmployeeInf.Weight == "")
    {
        m_EmployeeInf.Weight = "0";
    }
    m_EmployeeInf.Zip = edtZip->Text;                //14
    m_EmployeeInf.Addr = edtAddr->Text;                   //15
    m_EmployeeInf.Tele = edtTele->Text;                       //16
    m_EmployeeInf.EmergencyName = edtEmergencyName->Text;   //17
    m_EmployeeInf.EmergencyTele = edtEmergencyTele->Text;  //18

    //About the History

    for (unsigned long i = 0; i < m_vect_History.size(); ++i)
    {
        AnsiString * pstrCheck = NULL;
        AnsiString * pstrContent = NULL;
        switch (i)
        {
        case 0:
            {
                pstrCheck = &m_EmployeeInf.IsMedicineAllErgies;
                pstrContent = &m_EmployeeInf.MedicineAllErgies;
            }
            break;
        case 1:
            ;
            {
                pstrCheck = &m_EmployeeInf.IsFamilyHistory;
                pstrContent = &m_EmployeeInf.FamilyHistory;
            }

            break;

        case  2:
            {
                pstrCheck = &m_EmployeeInf.IsChildBirth;
                pstrContent = &m_EmployeeInf.ChildBirth;
            }
            break;

        case  3:
            {
                pstrCheck = &m_EmployeeInf.IsOtherAllErgies;
                pstrContent = &m_EmployeeInf.OtherAllErgies;

            }

            break;

        case 4:
            {
                pstrCheck = &m_EmployeeInf.IsMenstruation;
                pstrContent = &m_EmployeeInf.Menstruation;

            }
            break;
        case 5:
            {
                pstrCheck = &m_EmployeeInf.IsHospitalization;
                pstrContent = &m_EmployeeInf.Hospitalization;

            }
            break;

        case  6:
            {
                pstrCheck = &m_EmployeeInf.IsMedicine;
                pstrContent = &m_EmployeeInf.Medicine;
            }
            break;

        case  7:
            {
                pstrCheck = &m_EmployeeInf.IsOperation;
                pstrContent = &m_EmployeeInf.Operation;
            }
            break;

        case 8:
            {
                pstrCheck = &m_EmployeeInf.IsMedicalHistory;
                pstrContent = &m_EmployeeInf.MedicalHistory;
            }
            break;
        case 9:
            {
                pstrCheck = &m_EmployeeInf.IsSocialHistory;
                pstrContent = &m_EmployeeInf.SocialHistory;
            }
            break;
        }

        *pstrCheck =  m_vect_History[i].bChk ? "1" : "0";
        *pstrContent = m_vect_History[i].strContent;
    }
    m_EmployeeInf.IsSocialHistory = chkSocialHistory->Checked ? "1" : "0";
    m_EmployeeInf.IsAlcohol = chkAlcohol->Checked ? "1" : "0";
    m_EmployeeInf.IsCigarettes = chkCigarettes->Checked ? "1" : "0";

    m_EmployeeInf.Remark = rtfRemark->Text;
    //m_EmployeeInf.OptDate = DateToStr(Now());
    TADOQuery * qryEx = dmMain->qrySQLPlus;

    AnsiString strSQL;
    if (m_bNewFlag)
    {
        strSQL= GetInsertSQL();
    }

    else
    {
        strSQL= GetUpdateSQL();
    }

    qryEx->SQL->Clear();
    //ShowMessage(strSQL);
    qryEx->SQL->Add(strSQL);
    qryEx->ExecSQL();

    ModalResult = mrOk;
}
//---------------------------------------------------------------------------

String TfrmNewClt::GetCltId()
{
    return m_strCltId;
}


void __fastcall TfrmNewClt::chkOperationClick(TObject *Sender)
{
    TCheckBox * p_chk = (TCheckBox *)Sender;

    int nIndex = p_chk->Tag - 11;

    m_vect_History[nIndex].bChk = p_chk->Checked;
    m_vect_History[nIndex].strCaption = p_chk->Caption;

    m_vect_History[nIndex].strField = p_chk->Name;

    m_vect_History[nIndex].nIndex = nIndex;
    lsbHistoryList->Items->Clear();
    m_vect_No.clear();
    for (unsigned long i = 0; i < m_vect_History.size(); ++i)
    {
        if (m_vect_History[i].bChk)
        {
            //lsbHistoryList->Items->Insert(nIndex, m_vect_History[nIndex].strCaption);

            lsbHistoryList->Items->Add(m_vect_History[i].strCaption);
            m_vect_No.push_back(m_vect_History[i].nIndex);
        }
    }

    if (lsbHistoryList->Items->Count > 0)
    {
        lsbHistoryList->SetFocus();
        lsbHistoryList->ItemIndex = nIndex;

        lsbHistoryListClick(lsbHistoryList);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmNewClt::mmoHistoryContentChange(TObject *Sender)
{
    int nIndex = lsbHistoryList->ItemIndex;

    if (nIndex < 0)
    {
        return;
    }