1.txt

一个不错的销售系统

void __fastcall TfrmFinance::edtLoanQuarterChange(TObject *Sender)
{
	query->Active = false;
	query->SQL->Clear();
        query->SQL->Add( "SELECT * FROM 贷款借还表" );
        query->SQL->Add( "WHERE Quarter = :quarter" );
        try
        {
                int quarter = StrToInt( edtLoanQuarter->Text );
                query->ParamByName( "quarter" )->AsString = quarter;
                query->Open();
                if( query->RecordCount>0 )
                {
                        edtLoanLoan->Text = query->FieldByName( "Loan" )->AsString;
                        edtLoanRepay->Text = query->FieldByName( "Repay" )->AsString;
                }
		query->Active = false;
        }
        catch( EDatabaseError &err )
        {
                ShowMessageDlg( "产生数据库错误:" + err.Message + "\n\n没有任何操作被完成." );
		query->Active = false;
        }
        catch( EConvertError &err )
        {
                ShowMessageDlg( "产生错误：" + err.Message + "\n\n没有任何操作被完成." );
		query->Active = false;
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmFinance::edtRestoreQuarterChange(TObject *Sender)
{
	query->Active = false;
	query->SQL->Clear();
        query->SQL->Add( "SELECT * FROM 原料和产品库存费用表" );
        query->SQL->Add( "WHERE Quarter = :quarter" );
        try
        {
                int quarter = StrToInt( edtRestoreQuarter->Text );
                query->ParamByName( "quarter" )->AsString = quarter;
                query->Open();
                if( query->RecordCount>0 )
                {
                        edtRestoreProduct->Text = query->FieldByName( "ProductCost" )->AsString;
                        edtRestoreProduct->Text = query->FieldByName( "MaterialCost" )->AsString;
                }
		query->Active = false;
        }
        catch( EDatabaseError &err )
        {
                ShowMessageDlg( "产生数据库错误:" + err.Message + "\n\n没有任何操作被完成." );
		query->Active = false;
        }
        catch( EConvertError &err )
        {
                ShowMessageDlg( "产生错误：" + err.Message + "\n\n没有任何操作被完成." );
		query->Active = false;
        }
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
/*
void __fastcall TfrmMaintain::sbnProductSoldFirstClick(TObject *Sender)
{
        tblProductSold->First();
/*
        sbnProductCapabilityFirst->Enabled = false;
        sbnProductCapabilityPrior->Enabled = false;
        sbnProductCapabilityNext->Enabled = true;
       sbnProductCapabilityLast->Enabled = true;
*/
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductSoldPriorClick(TObject *Sender)
{
        tblProductSold->Prior();
/*
        if( tblProductCapability->Bof )
        {
                sbnProductCapabilityFirst->Enabled = false;
                sbnProductCapabilityPrior->Enabled = false;
        }
        sbnProductCapabilityNext->Enabled = true;
        sbnProductCapabilityLast->Enabled = true;
*/
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductSoldNextClick(TObject *Sender)
{
        tblProductSold->Next();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductSoldLastClick(TObject *Sender)
{
        tblProductSold->Last();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnMaterialBuyFirstClick(TObject *Sender)
{
        tblMaterialBuy->First();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnMaterialBuyPriorClick(TObject *Sender)
{
        tblMaterialBuy->Prior();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnMaterialBuyNextClick(TObject *Sender)
{
        tblMaterialBuy->Next();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnMaterialBuyLastClick(TObject *Sender)
{
        tblMaterialBuy->Last();
}
        void __fastcall sbnProductSoldFirstClick(TObject *Sender);
        void __fastcall sbnProductSoldPriorClick(TObject *Sender);
        void __fastcall sbnProductSoldNextClick(TObject *Sender);
        void __fastcall sbnProductSoldLastClick(TObject *Sender);
        void __fastcall sbnMaterialBuyFirstClick(TObject *Sender);
        void __fastcall sbnMaterialBuyPriorClick(TObject *Sender);
        void __fastcall sbnMaterialBuyNextClick(TObject *Sender);
        void __fastcall sbnMaterialBuyLastClick(TObject *Sender);
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::dseProductSoldDataChange(TObject *Sender,
      TField *Field)
{
        if( tblProductSold->Bof )
        {
                sbnProductSoldFirst->Enabled = false;
                sbnProductSoldPrior->Enabled = false;
        }
        else
        {
                sbnProductSoldFirst->Enabled = true;
                sbnProductSoldPrior->Enabled = true;
        }
        if( tblProductSold->Eof )
        {
                sbnProductSoldNext->Enabled = false;
                sbnProductSoldLast->Enabled = false;
        }
        else
        {
                sbnProductSoldNext->Enabled = true;
                sbnProductSoldLast->Enabled = true;
        }
}
        void __fastcall dseProductSoldDataChange(TObject *Sender,
          TField *Field);
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::dseMaterialBuyDataChange(TObject *Sender,
      TField *Field)
{
        if( tblMaterialBuy->Bof )
        {
                sbnMaterialBuyFirst->Enabled = false;
                sbnMaterialBuyPrior->Enabled = false;
        }
        else
        {
                sbnMaterialBuyFirst->Enabled = true;
                sbnMaterialBuyPrior->Enabled = true;
        }
        if( tblMaterialBuy->Eof )
        {
                sbnMaterialBuyNext->Enabled = false;
                sbnMaterialBuyLast->Enabled = false;
        }
        else
        {
                sbnMaterialBuyNext->Enabled = true;
                sbnMaterialBuyLast->Enabled = true;
        }
}
        void __fastcall dseMaterialBuyDataChange(TObject *Sender,
          TField *Field);