maintain.cpp

一个不错的销售系统

//---------------------------------------------------------------------------
//      Name:           Maintain.cpp
//      Author:         Jrays
//      Date:           1999.8.7
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Maintain.h"
#include "About.h"
#include "Data.h"
#include "QrMain.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmMaintain *frmMaintain;
//---------------------------------------------------------------------------
__fastcall TfrmMaintain::TfrmMaintain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMaintain::FormCreate(TObject *Sender)
{
        Caption = Application->Title + "  系统维护模块";
        tblProductCapability->Active = true;
        tblProductSold->Active = true;
        tblRestoreCost->Active = true;
        tblMaterialBuy->Active = true;
        tblLoan->Active = true;
        tblInterest->Active = true;
        tblProductCapability->CachedUpdates = true;
        tblProductSold->CachedUpdates = true;
        tblRestoreCost->CachedUpdates = true;
        tblMaterialBuy->CachedUpdates = true;
        tblLoan->CachedUpdates = true;
        tblInterest->CachedUpdates = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMaintain::bbnPreviousPageClick(TObject *Sender)
{
        int newActive = fmod((PageControl1->ActivePage->PageIndex+2),3);
        PageControl1->ActivePage = PageControl1->Pages[newActive];
}
//---------------------------------------------------------------------------
void __fastcall TfrmMaintain::bbnNextPageClick(TObject *Sender)
{
        int newActive = fmod((PageControl1->ActivePage->PageIndex+1),3);
        PageControl1->ActivePage = PageControl1->Pages[newActive];
}
//---------------------------------------------------------------------------
void __fastcall TfrmMaintain::sbnProductCapabilityFirstClick(
      TObject *Sender)
{
        tblProductCapability->First();
/*
        sbnProductCapabilityFirst->Enabled = false;
        sbnProductCapabilityPrior->Enabled = false;
        sbnProductCapabilityNext->Enabled = true;
        sbnProductCapabilityLast->Enabled = true;
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmMaintain::sbnProductCapabilityPrirClick(
      TObject *Sender)
{
        tblProductCapability->Prior();
/*
        if( tblProductCapability->Bof )
        {
                sbnProductCapabilityFirst->Enabled = false;
                sbnProductCapabilityPrior->Enabled = false;
        }
        sbnProductCapabilityNext->Enabled = true;
        sbnProductCapabilityLast->Enabled = true;
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmMaintain::sbnProductCapabilityNextClick(
      TObject *Sender)
{
        tblProductCapability->Next();
/*
        sbnProductCapabilityFirst->Enabled = true;
        sbnProductCapabilityPrior->Enabled = true;
        if( tblProductCapability->Eof )
        {
                sbnProductCapabilityNext->Enabled = false;
                sbnProductCapabilityLast->Enabled = false;
        }
*/
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductCapabilityLastClick(
      TObject *Sender)
{
        tblProductCapability->Last();
/*
        sbnProductCapabilityFirst->Enabled = true;
        sbnProductCapabilityPrior->Enabled = true;
        sbnProductCapabilityNext->Enabled = false;
        sbnProductCapabilityLast->Enabled = false;
*/
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

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

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

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

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

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

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

void __fastcall TfrmMaintain::dseProductCapabilityDataChange(
      TObject *Sender, TField *Field)
{
        if( tblProductCapability->Bof )
        {
                sbnProductCapabilityFirst->Enabled = false;
                sbnProductCapabilityPrior->Enabled = false;
        }
        else
        {
                sbnProductCapabilityFirst->Enabled = true;
                sbnProductCapabilityPrior->Enabled = true;
        }
        if( tblProductCapability->Eof )
        {
                sbnProductCapabilityNext->Enabled = false;
                sbnProductCapabilityLast->Enabled = false;
        }
        else
        {
                sbnProductCapabilityNext->Enabled = true;
                sbnProductCapabilityLast->Enabled = true;
        }

}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::dseLoanDataChange(TObject *Sender,
      TField *Field)
{
        if( tblLoan->Bof )
        {
                sbnLoanFirst->Enabled = false;
                sbnLoanPrior->Enabled = false;
        }
        else
        {
                sbnLoanFirst->Enabled = true;
                sbnLoanPrior->Enabled = true;
        }
        if( tblLoan->Eof )
        {
                sbnLoanNext->Enabled = false;
                sbnLoanLast->Enabled = false;
        }
        else
        {
                sbnLoanNext->Enabled = true;
                sbnLoanLast->Enabled = true;
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::dseRestoreCostDataChange(TObject *Sender,
      TField *Field)
{
        if( tblRestoreCost->Bof )
        {
                sbnRestoreCostFirst->Enabled = false;
                sbnRestoreCostPrior->Enabled = false;
        }
        else
        {
                sbnRestoreCostFirst->Enabled = true;
                sbnRestoreCostPrior->Enabled = true;
        }
        if( tblRestoreCost->Eof )
        {
                sbnRestoreCostNext->Enabled = false;
                sbnRestoreCostLast->Enabled = false;
        }
        else