newcltfrm.cpp

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

    int nContentIndex = m_vect_No[nIndex];
    m_vect_History[nContentIndex].strContent = mmoHistoryContent->Text;

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









String TfrmNewClt::AdjustStr(String str)
{
    if (str == "(null)")
    {
        str = "";
    }
    ShowMessage(str);

    return str;
}

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

    if (nIndex < 0)
    {
        return;
    }

    int nContentIndex = m_vect_No[nIndex];
    mmoHistoryContent->Text = m_vect_History[nContentIndex].strContent;

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


AnsiString TfrmNewClt::GetInsertSQL()
{
    String strSQLFmt =
        "insert into EmployeeInf(Name,Sex,Birth,PlaceOfBirth,MaritalStatus,Profession,"
        "Department,SuprName,EmployeeNo,Height,Weight,Zip,Addr,Tele,EmergencyName,"
        "EmergencyTele,IsMedicineAllErgies,MedicineAllErgies,IsOtherAllErgies,"
        "OtherAllErgies,IsMedicine,Medicine,IsMedicalHistory,MedicalHistory,"
        "IsFamilyHistory,FamilyHistory,IsMenstruation,Menstruation,IsChildBirth,"
        "ChildBirth,IsHospitalization,Hospitalization,IsOperation,Operation,"
        "IsSocialHistory,SocialHistory,IsCigarettes,IsAlcohol,Remark,OptId)"
        " values('%s',%s,'%s','%s',%s,'%s','%s','%s','%s',%s,%s,'%s','%s','%s','%s'"
        ",'%s',%s,'%s',%s,'%s',%s,'%s',%s,'%s',%s,'%s',%s,'%s',%s,'%s',%s,'%s',%s,"
        "'%s',%s,'%s',%s,%s,'%s',%s)";

    String strSQL;
    strSQL.sprintf(strSQLFmt.c_str(),
                   m_EmployeeInf.Name.c_str(),
                   m_EmployeeInf.Sex,
                   m_EmployeeInf.Birth.c_str(),
                   m_EmployeeInf.PlaceOfBirth.c_str(),
                   m_EmployeeInf.MaritalStatus.c_str(),
                   m_EmployeeInf.Profession.c_str(),
                   m_EmployeeInf.Department.c_str(),
                   m_EmployeeInf.SuprName.c_str(),
                   m_EmployeeInf.EmployeeNo.c_str(),
                   m_EmployeeInf.Height.c_str(),
                   m_EmployeeInf.Weight.c_str(),
                   m_EmployeeInf.Zip.c_str(),
                   m_EmployeeInf.Addr.c_str(),
                   m_EmployeeInf.Tele.c_str(),
                   m_EmployeeInf.EmergencyName.c_str(),
                   m_EmployeeInf.EmergencyTele.c_str(),
                   m_EmployeeInf.IsMedicineAllErgies,
                   m_EmployeeInf.MedicineAllErgies.c_str(),
                   m_EmployeeInf.IsOtherAllErgies,
                   m_EmployeeInf.OtherAllErgies.c_str(),
                   m_EmployeeInf.IsMedicine,
                   m_EmployeeInf.Medicine.c_str(),
                   m_EmployeeInf.IsMedicalHistory,
                   m_EmployeeInf.MedicalHistory.c_str(),
                   m_EmployeeInf.IsFamilyHistory,
                   m_EmployeeInf.FamilyHistory.c_str(),
                   m_EmployeeInf.IsMenstruation,
                   m_EmployeeInf.Menstruation.c_str(),
                   m_EmployeeInf.IsChildBirth,
                   m_EmployeeInf.ChildBirth.c_str(),
                   m_EmployeeInf.IsHospitalization,
                   m_EmployeeInf.Hospitalization.c_str(),
                   m_EmployeeInf.IsOperation,
                   m_EmployeeInf.Operation.c_str(),
                   m_EmployeeInf.IsSocialHistory,
                   m_EmployeeInf.SocialHistory.c_str(),
                   m_EmployeeInf.IsCigarettes,
                   m_EmployeeInf.IsAlcohol,
                   m_EmployeeInf.Remark.c_str(),
                   gLogonInf.m_strOptId
                  );

    return strSQL;
}


AnsiString TfrmNewClt::GetUpdateSQL()
{
    AnsiString strSQLFmt =
        "update EmployeeInf set "
        "Name='%s',Sex=%s,Birth='%s',PlaceOfBirth='%s',MaritalStatus=%s,"
        "Profession='%s',Department='%s',SuprName='%s',EmployeeNo='%s',"
        "Height=%s,Weight=%s,Zip='%s',Addr='%s',Tele='%s',EmergencyName='%s',"
        "EmergencyTele='%s',IsMedicineAllErgies=%s,MedicineAllErgies='%s',"
        "IsOtherAllErgies=%s,OtherAllErgies='%s',IsMedicine=%s,Medicine='%s',"
        "IsMedicalHistory=%s,MedicalHistory='%s',IsFamilyHistory=%s,"
        "FamilyHistory='%s',IsMenstruation=%s,Menstruation='%s',"
        "IsChildBirth=%s,ChildBirth='%s',IsHospitalization=%s,"
        "Hospitalization='%s',IsOperation=%s,Operation='%s',"
        "IsSocialHistory=%s,SocialHistory='%s',IsCigarettes=%s,"
        "IsAlcohol=%s,Remark='%s',OptDate=Date(),OptId=%s where Id=%s";

    String strSQL;
    strSQL.sprintf(strSQLFmt.c_str(),
                   m_EmployeeInf.Name.c_str(),
                   m_EmployeeInf.Sex,
                   m_EmployeeInf.Birth.c_str(),
                   m_EmployeeInf.PlaceOfBirth.c_str(),
                   m_EmployeeInf.MaritalStatus.c_str(),
                   m_EmployeeInf.Profession.c_str(),
                   m_EmployeeInf.Department.c_str(),
                   m_EmployeeInf.SuprName.c_str(),
                   m_EmployeeInf.EmployeeNo.c_str(),
                   m_EmployeeInf.Height.c_str(),
                   m_EmployeeInf.Weight.c_str(),
                   m_EmployeeInf.Zip.c_str(),
                   m_EmployeeInf.Addr.c_str(),
                   m_EmployeeInf.Tele.c_str(),
                   m_EmployeeInf.EmergencyName.c_str(),
                   m_EmployeeInf.EmergencyTele.c_str(),
                   m_EmployeeInf.IsMedicineAllErgies,
                   m_EmployeeInf.MedicineAllErgies.c_str(),
                   m_EmployeeInf.IsOtherAllErgies,
                   m_EmployeeInf.OtherAllErgies.c_str(),
                   m_EmployeeInf.IsMedicine,
                   m_EmployeeInf.Medicine.c_str(),
                   m_EmployeeInf.IsMedicalHistory,
                   m_EmployeeInf.MedicalHistory.c_str(),
                   m_EmployeeInf.IsFamilyHistory,
                   m_EmployeeInf.FamilyHistory.c_str(),
                   m_EmployeeInf.IsMenstruation,
                   m_EmployeeInf.Menstruation.c_str(),
                   m_EmployeeInf.IsChildBirth,
                   m_EmployeeInf.ChildBirth.c_str(),
                   m_EmployeeInf.IsHospitalization,
                   m_EmployeeInf.Hospitalization.c_str(),
                   m_EmployeeInf.IsOperation,
                   m_EmployeeInf.Operation.c_str(),
                   m_EmployeeInf.IsSocialHistory,
                   m_EmployeeInf.SocialHistory.c_str(),
                   m_EmployeeInf.IsCigarettes,
                   m_EmployeeInf.IsAlcohol,
                   m_EmployeeInf.Remark.c_str(),
                   gLogonInf.m_strOptId,
                   m_EmployeeInf.Id.c_str()
                  );
    return strSQL;

}


bool TfrmNewClt::OpenClientInfo(AnsiString strId)
{
    //打开数据并显示出来

    TADOQuery * qryEx = dmMain->qrySQLPlus;

    qryEx->Close();
    qryEx->SQL->Clear();
    qryEx->SQL->Add("select * from EmployeeInf where id=" + strId);

    qryEx->Open();
    if (qryEx->RecordCount < 0)
    {
        return false;
    }
    edtName->Text = qryEx->FieldByName("Name")->AsString;

    cboSex->ItemIndex = qryEx->FieldByName("Sex")->Value;
    dtpBirth->Date = qryEx->FieldByName("Birth")->Value;
    edtBirthPlace->Text = qryEx->FieldByName("PlaceOfBirth")->Value;
    cboMarital->ItemIndex = qryEx->FieldByName("MaritalStatus")->Value;
    cboProfession->Text = qryEx->FieldByName("Profession")->Value;
    cboDepartment->Text = qryEx->FieldByName("Department")->Value;
    cboSuprName->Text = qryEx->FieldByName("SuprName")->Value;
    edtEmployeeNo->Text = qryEx->FieldByName("EmployeeNo")->Value;
    edtHeight->Text = qryEx->FieldByName("Height")->AsString;
    edtWeight->Text = qryEx->FieldByName("Weight")->AsString;
    edtZip->Text = qryEx->FieldByName("Zip")->AsString;
    edtAddr->Text = qryEx->FieldByName("Addr")->AsString;
    edtTele->Text = qryEx->FieldByName("Tele")->AsString;
    edtEmergencyName->Text = qryEx->FieldByName("EmergencyName")->AsString;
    edtEmergencyTele->Text = qryEx->FieldByName("EmergencyTele")->AsString;


    m_vect_History[0].bChk = qryEx->FieldByName("IsMedicineAllErgies")->Value == 1;
    m_vect_History[0].strContent = qryEx->FieldByName("MedicineAllErgies")->AsString;
    chkMedicineAllergies->Checked = m_vect_History[0].bChk;

    m_vect_History[1].bChk = qryEx->FieldByName("IsFamilyHistory")->Value == 1;
    m_vect_History[1].strContent = qryEx->FieldByName("FamilyHistory")->AsString;
    chkFamilyHistory->Checked = m_vect_History[1].bChk;

    m_vect_History[2].bChk = qryEx->FieldByName("IsChildBirth")->Value == 1;
    m_vect_History[2].strContent = qryEx->FieldByName("ChildBirth")->AsString;
    chkChildBirth->Checked = m_vect_History[2].bChk;


    m_vect_History[3].bChk = qryEx->FieldByName("IsOtherAllErgies")->Value == 1;
    m_vect_History[3].strContent = qryEx->FieldByName("OtherAllErgies")->AsString;
    chkOtherAllErgies->Checked = m_vect_History[3].bChk;

    m_vect_History[4].bChk = qryEx->FieldByName("IsMenstruation")->Value == 1;
    m_vect_History[4].strContent = qryEx->FieldByName("Menstruation")->AsString;
    chkMenstruation->Checked = m_vect_History[4].bChk;

    m_vect_History[5].bChk = qryEx->FieldByName("IsHospitalization")->Value == 1;
    m_vect_History[5].strContent = qryEx->FieldByName("Hospitalization")->AsString;
    chkHospitalization->Checked = m_vect_History[5].bChk;

    m_vect_History[6].bChk = qryEx->FieldByName("IsMedicine")->Value == 1;
    m_vect_History[6].strContent = qryEx->FieldByName("Medicine")->AsString;
    chkMedicine->Checked = m_vect_History[6].bChk;

    m_vect_History[7].bChk = qryEx->FieldByName("IsOperation")->Value == 1;
    m_vect_History[7].strContent = qryEx->FieldByName("Operation")->AsString;
    chkOperation->Checked = m_vect_History[7].bChk;

    m_vect_History[8].bChk = qryEx->FieldByName("IsMedicalHistory")->Value == 1;
    m_vect_History[8].strContent = qryEx->FieldByName("MedicalHistory")->AsString;
    chkMedicalHistory->Checked = m_vect_History[8].bChk;




    m_vect_History[9].bChk = qryEx->FieldByName("IsSocialHistory")->Value == 1;
    m_vect_History[9].strContent = qryEx->FieldByName("SocialHistory")->AsString;
    chkSocialHistory->Checked = m_vect_History[9].bChk;

    chkCigarettes->Checked = qryEx->FieldByName("IsCigarettes")->Value == 1;
    chkAlcohol->Checked =  qryEx->FieldByName("IsAlcohol")->Value == 1;

    rtfRemark->Text = qryEx->FieldByName("Remark")->AsString;
    qryEx->Close();

    return true;
}