totalzp.~cpp

来自「全面剖析财务管理的内容」· ~CPP 代码 · 共 50 行

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

#include <vcl.h>
#pragma hdrstop

#include "totalzp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmTotalZB *fmTotalZB;
//---------------------------------------------------------------------------
__fastcall TfmTotalZB::TfmTotalZB(TComponent* Owner)
    : TfmParent(Owner)
{
    btNew->Enabled = false;
    btEdit->Enabled = false;
    btDelete->Enabled = false;
    btSave->Enabled = false;
    btCancel->Enabled = false;
    Panel2->Enabled = true;
    this->szCondition1 = "科目代码";
    // 设置查询条件的显示
    this->SetSeekEditStatus();
}
//---------------------------------------------------------------------------
void __fastcall TfmTotalZB::CheckBox1Click(TObject *Sender)
{
    // 重新查询
    BitBtn1Click(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfmTotalZB::BitBtn1Click(TObject *Sender)
{
    TfmParent::BitBtn1Click(NULL);
    // 加入Checkbox的查询条件
    if(CheckBox1->Checked)
    {
        AnsiString szCon = "(本期借方合计 <>0 or 本期贷方合计<>0)";
        if(!Table1->Filter.IsEmpty())
            szCon = Table1->Filter + " and " + szCon; 
        Table1->Filter = "";
        Table1->Filtered = false;
        Table1->Filter = szCon;
        Table1->Filtered = true;
        lblCount->Caption = "记录数: " + IntToStr(Table1->RecordCount) ;
    }
}
//---------------------------------------------------------------------------