paymoney.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Paymoney.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmPayMoney *fmPayMoney;
//---------------------------------------------------------------------------
__fastcall TfmPayMoney::TfmPayMoney(TComponent* Owner)
    : TForm(Owner)
{
    Edit1->Text = "";
    Edit2->Text = "";
    Edit3->Text = "";
}
//---------------------------------------------------------------------------
void TfmPayMoney::SetID(AnsiString szID)
{
    // 计算总金额
    Table1->Filter = "";
    Table1->Filtered = false;
    Table1->Filter = "划价编号='" + szID + "'";
    Table1->Filtered = true;
    m_szID = szID;
    double dTotal = 0;
    Table1->First();
    for(int i=0; i<Table1->RecordCount; i++)
    {
        dTotal += Table1->FieldByName("金额")->AsFloat;
        Table1->Next();
    }
    Edit1->Text = FloatToStr(dTotal);
}
void __fastcall TfmPayMoney::Edit2Change(TObject *Sender)
{
    double dchange = 0;
    if(Edit2->Text.Length()>0)
    {
        try
        {
            dchange = StrToFloat(Edit2->Text) - (StrToFloat(Edit1->Text));
            Edit3->Text = FloatToStr(dchange);
        }
        catch(...)
        {
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmPayMoney::Button1Click(TObject *Sender)
{
    pQuery->DatabaseName = "db";
    pQuery->SQL->Clear();
    AnsiString sql;
    sql = "update 门诊划价 set 是否收费='是',收费员='李四',",
    sql += "收费时间=getdate() where ";
    sql += "编号 = '" + m_szID + "'";
    pQuery->SQL->Add( sql );
    pQuery->ExecSQL();
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TfmPayMoney::Button2Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------