kemutji.cpp

来自「供销存软件」· C++ 代码 · 共 58 行

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

#include <vcl.h>
#pragma hdrstop

#include "KemuTji.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TkmtjForm *kmtjForm;
//---------------------------------------------------------------------------
__fastcall TkmtjForm::TkmtjForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TkmtjForm::searchButtonClick(TObject *Sender)
{
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        AnsiString str="select * from 现金日记表 where 日期>=#";
        str+=Date1->Date.DateString();
        str+="# and 日期<=#";
        str+=Date2->Date.DateString();
        str+="# and 科目='";
        str+=ComboBox1->Text;
        str+="'";
        //ShowMessage(str);
        DM->ADOQ->SQL->Add(str);
        DM->ADOQ->Open();
        DBGrid1->DataSource=DM->DS;
}
//---------------------------------------------------------------------------

void __fastcall TkmtjForm::FormCreate(TObject *Sender)
{
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        DM->ADOQ->SQL->Add("select 科目名称 from 科目信息表");
        DM->ADOQ->Open();
        while(!DM->ADOQ->Eof){
                ComboBox1->Items->Add(DM->ADOQ->FieldByName("科目名称")->AsString.Trim());
                DM->ADOQ->Next();
        }
        DM->ADOQ->Close();
}
//---------------------------------------------------------------------------

void __fastcall TkmtjForm::BitBtn1Click(TObject *Sender)
{
       Close();
}
//---------------------------------------------------------------------------