getmed.cpp

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· C++ 代码 · 共 68 行

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

#include <vcl.h>
#pragma hdrstop

#include "getmed.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "pay"
#pragma resource "*.dfm"
TfmGetMed *fmGetMed;
//---------------------------------------------------------------------------
__fastcall TfmGetMed::TfmGetMed(TComponent* Owner)
    : TfmPay(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmGetMed::btSeekClick(TObject *Sender)
{
    AnsiString sql;
    sql = "select a.*,b.姓名,b.性别 from 门诊划价 as a, 门诊挂号 as b ";
    sql += " where a.挂号编号=b.编号 and a.是否收费='是' and a.是否发药='否'";
    AnsiString szFilter = "";
    if(Edit1->Text.Length()>0)
        szFilter = " and 编号 like '" + Edit1->Text + "%'";
    if(Edit2->Text.Length()>0)
    {
        szFilter += " and 姓名 like '" + Edit2->Text + "%'";
    }
    if(Edit3->Text.Length()>0)
    {
        szFilter += " and 划价时间 >= '" + Edit3->Text + "'";
    }
    if(Edit4->Text.Length()>0)
    {
        if(szFilter.Length()>0)
            szFilter += " and ";
        szFilter += " and 划价时间 <= '" + Edit4->Text + "'";
    }
    sql += szFilter;
    Query1->SQL->Clear();
    Query1->SQL->Add(sql);
    Query1->Close();
    Query1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TfmGetMed::btSaveClick(TObject *Sender)
{
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString sql;
    sql = "exec sf_药品发出 '";
    sql += Query1->FieldByName("编号")->AsString + "'";
    pQuery->SQL->Add(sql);
    pQuery->ExecSQL();
    delete pQuery;
    // 刷新
    btSeekClick(NULL);    
}
//---------------------------------------------------------------------------

void __fastcall TfmGetMed::btExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------