basicinffrm.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "BasicInfFrm.h"
#include "MainDm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmBasicInf *frmBasicInf;
//---------------------------------------------------------------------------
__fastcall TfrmBasicInf::TfrmBasicInf(TComponent* Owner)
        : TForm(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmBasicInf::FormShow(TObject *Sender)
{
    dmMain->qrySQLPlus->Close();
    dmMain->qrySQLPlus->SQL->Text = "select * from basicinf";
    dmMain->qrySQLPlus->Open();

    edtID->Text = dmMain->qrySQLPlus->FieldByName("id")->AsString;
    edtName->Text = dmMain->qrySQLPlus->FieldByName("name")->AsString;
    edtTele->Text = dmMain->qrySQLPlus->FieldByName("tele")->AsString;
    edtEmail->Text = dmMain->qrySQLPlus->FieldByName("email")->AsString;
    edtPost->Text = dmMain->qrySQLPlus->FieldByName("post")->AsString;
    edtAddr->Text = dmMain->qrySQLPlus->FieldByName("Addr")->AsString;
    rtfRemark->Text = dmMain->qrySQLPlus->FieldByName("Remark")->AsString;
    dmMain->qrySQLPlus->Close();



}
//---------------------------------------------------------------------------
void __fastcall TfrmBasicInf::btnOKClick(TObject *Sender)
{
    dmMain->qrySQLPlus->SQL->Clear();
    dmMain->qrySQLPlus->SQL->Add("update basicinf set ");
    dmMain->qrySQLPlus->SQL->Add("name='" + edtName->Text + "', ");
    dmMain->qrySQLPlus->SQL->Add("tele='" + edtTele->Text + "', ");
    dmMain->qrySQLPlus->SQL->Add("email='" + edtEmail->Text + "', ");
    dmMain->qrySQLPlus->SQL->Add("post='" + edtPost->Text + "', ");
    dmMain->qrySQLPlus->SQL->Add("addr='" + edtAddr->Text + "', ");
    dmMain->qrySQLPlus->SQL->Add("remark='" + rtfRemark->Text + "'");
    dmMain->qrySQLPlus->ExecSQL();
    Close();

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

void TfrmBasicInf::SetStoreInf()
{
    //这里是将界面上的东西与StoreInf相联起来
}