optkndfrm.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "OptKndFrm.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "BaseFrm"
#pragma resource "*.dfm"
TfrmOptKnd *frmOptKnd;
//---------------------------------------------------------------------------
__fastcall TfrmOptKnd::TfrmOptKnd(TComponent* Owner)
        : TfrmBase(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmOptKnd::FormShow(TObject *Sender)
{
    qryOptKnd->Open();
    btnAddClick(NULL);

}
//---------------------------------------------------------------------------
void __fastcall TfrmOptKnd::grdOptKndDblClick(TObject *Sender)
{
    if (!qryOptKnd->Active || qryOptKnd->RecordCount < 1)
    {
        return;
    }
    btnDelete->Enabled = true;
    edtName->Text = qryOptKnd->Fields->Fields[1]->AsString;
    rtfRemark->Text = qryOptKnd->Fields->Fields[2]->AsString;
    m_bNewFlag = false;

    btnSave->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmOptKnd::btnDeleteClick(TObject *Sender)
{
    if (!qryOptKnd->Active || qryOptKnd->RecordCount < 1)
    {
        return;
    }
    String strCurId = qryOptKnd->Fields->Fields[0]->AsString;
    qryOptKnd->Close();
    dmMain->qrySQLPlus->SQL->Clear();
    dmMain->qrySQLPlus->SQL->Add("delete from optknd");
    dmMain->qrySQLPlus->SQL->Add("where id = " + strCurId);
    dmMain->qrySQLPlus->ExecSQL();

    qryOptKnd->Open();
    if (!qryOptKnd->Active || qryOptKnd->RecordCount < 1)
    {
        btnDelete->Enabled = false;
    }
    else
    {
        grdOptKnd->SetFocus();
        btnDelete->Enabled = true;
    }

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

void __fastcall TfrmOptKnd::btnAddClick(TObject *Sender)
{

    m_bNewFlag = true;
    edtName->Text = "";
    rtfRemark->Text = "";
    btnAdd->Enabled = false;
    btnSave->Enabled = false;

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

void __fastcall TfrmOptKnd::btnSaveClick(TObject *Sender)
{
    dmMain->qrySQLPlus->SQL->Clear();
    if (m_bNewFlag)
    {
        dmMain->qrySQLPlus->SQL->Add("insert into optknd (name, remark) values ");
        dmMain->qrySQLPlus->SQL->Add("('" + edtName->Text + "', '"
                                     + rtfRemark->Text +"')");
    }
    else
    {
        String strCurId = qryOptKnd->Fields->Fields[0]->AsString;
        dmMain->qrySQLPlus->SQL->Add("update optknd set name='"
                                     + edtName->Text + "', remark='" + rtfRemark->Text
                                     + "' where id = " + strCurId);
    }
    dmMain->qrySQLPlus->ExecSQL();


    btnAdd->Enabled = true;
    btnSave->Enabled = false;
    qryOptKnd->Close();
    qryOptKnd->Open();
}
//---------------------------------------------------------------------------

void __fastcall TfrmOptKnd::rtfRemarkChange(TObject *Sender)
{
    btnSave->Enabled = true;
}
//---------------------------------------------------------------------------