detailzb.cpp

来自「全面剖析财务管理的内容」· C++ 代码 · 共 67 行

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

#include <vcl.h>
#pragma hdrstop

#include "detailzb.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmDetailZB *fmDetailZB;
//---------------------------------------------------------------------------
__fastcall TfmDetailZB::TfmDetailZB(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 TfmDetailZB::btFirstClick(TObject *Sender)
{
    Query1->First();
}
//---------------------------------------------------------------------------
void __fastcall TfmDetailZB::btPriorClick(TObject *Sender)
{
    Query1->Prior();
}
//---------------------------------------------------------------------------
void __fastcall TfmDetailZB::btNextClick(TObject *Sender)
{
    Query1->Next();
}
//---------------------------------------------------------------------------
void __fastcall TfmDetailZB::btLastClick(TObject *Sender)
{
    Query1->Last();
}
//---------------------------------------------------------------------------

void __fastcall TfmDetailZB::Query1AfterScroll(TDataSet *DataSet)
{
    Label4->Caption = "科目代码：" + Query1->FieldByName("科目代码")->AsString;
    Label4->Caption = Label4->Caption + "   科目名称：" ;
    Label4->Caption = Label4->Caption + Query1->FieldByName("科目名称")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TfmDetailZB::BitBtn1Click(TObject *Sender)
{
    Query1->Filter = "";
    Query1->Filtered = false;
    if(!Edit1->Text.IsEmpty())
        Query1->Filter = "科目代码 = '" + Edit1->Text + "*'";
    Query1->Filtered = true;
    lblCount->Caption = "记录数: " + IntToStr(Table1->RecordCount) ;
}
//---------------------------------------------------------------------------