mrecord.cpp

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

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

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TmRecordForm::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 TmRecordForm::postBtnClick(TObject *Sender)
{
        DM->ADOQ->Close();
        DM->ADOQ->SQL->Clear();
        DM->ADOQ->SQL->Add("select * from 现金日记表");
        DM->ADOQ->Open();
        double sum;
        if(DM->ADOQ->RecordCount==0)
                sum=0;
        else{
                DM->ADOQ->Last();
                sum=DM->ADOQ->FieldByName("结余")->AsString.Trim().ToDouble();
        }
        DM->ADOQ->Insert();
        DM->ADOQ->FieldByName("日期")->AsString=Date3->Date.DateString();
        DM->ADOQ->FieldByName("摘要")->AsString=Edit1->Text;
        DM->ADOQ->FieldByName("科目")->AsString=ComboBox1->Text;
        DM->ADOQ->FieldByName("借方")->AsString=Edit3->Text;
        DM->ADOQ->FieldByName("贷方")->AsString=Edit4->Text;
        DM->ADOQ->FieldByName("结余")->AsString=sum+Edit3->Text.ToDouble()-Edit4->Text.ToDouble();
        DM->ADOQ->Post();
        DBGrid1->DataSource=DM->DS;
        AnsiString s=FormatFloat("0.00", DM->ADOQ->FieldByName("结余")->AsString.ToDouble());
        hjLabel->Caption=s;
        Edit1->Text="";
        ComboBox1->Text="";
        Edit3->Text="0";
        Edit4->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall TmRecordForm::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+="#";
        DM->ADOQ->SQL->Add(str);
        DM->ADOQ->Open();
        DBGrid1->DataSource=DM->DS;
        if(DM->ADOQ->RecordCount==0)
                hjLabel->Caption="0.00";
        else{
                DM->ADOQ->Last();
                AnsiString s=FormatFloat("0.00", DM->ADOQ->FieldByName("结余")->AsString.ToDouble());
                hjLabel->Caption=s;
        }
}
//---------------------------------------------------------------------------

void __fastcall TmRecordForm::delBtnClick(TObject *Sender)
{
       DM->ADOQ->Delete();
       AnsiString s=FormatFloat("0.00", DM->ADOQ->FieldByName("结余")->AsString.ToDouble());
       hjLabel->Caption=s;
}
//---------------------------------------------------------------------------

void __fastcall TmRecordForm::closeBtnClick(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------