maintain.cpp

一个不错的销售系统

        {
                sbnRestoreCostNext->Enabled = true;
                sbnRestoreCostLast->Enabled = true;
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::dseInterestDataChange(TObject *Sender,
      TField *Field)
{
        if( tblInterest->Bof )
        {
                sbnInterestFirst->Enabled = false;
                sbnInterestPrior->Enabled = false;
        }
        else
        {
                sbnInterestFirst->Enabled = true;
                sbnInterestPrior->Enabled = true;
        }
        if( tblInterest->Eof )
        {
                sbnInterestNext->Enabled = false;
                sbnInterestLast->Enabled = false;
        }
        else
        {
                sbnInterestNext->Enabled = true;
                sbnInterestLast->Enabled = true;
        }
}
//---------------------------------------------------------------------------


void __fastcall TfrmMaintain::bbnAboutClick(TObject *Sender)
{
        (new TfrmAbout(this))->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::bbnGoClick(TObject *Sender)
{
        if( Application->MessageBox( "系统缓冲区中的数据还没有向数据库提交，\n\n要提交吗？",
                Application->Title.c_str(), MB_YESNO + MB_ICONQUESTION) == IDYES )
                bbnCommitClick( Sender );
        Release();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::bbnReportClick(TObject *Sender)
{
        frmQrMain->Visible = true;
        frmQrMain->rbnProductSold->Enabled = true;
        frmQrMain->rbnProductSoldDecision->Enabled = false;
        frmQrMain->rbnMaterialBuyUse->Enabled = false;
        frmQrMain->rbnFinanceReport->Enabled = false;
        frmQrMain->rbnLoanRestore->Enabled = false;
        frmQrMain->rbnProductCapability->Enabled = true;
        frmQrMain->rbnRestoreCost->Enabled = true;
        frmQrMain->rbnMaterialBuy->Enabled = true;
        frmQrMain->rbnLoanLoanRepay->Enabled = true;
        frmQrMain->rbnLoanInterest->Enabled = true;
        frmQrMain->rbnProductSoldClick( (TObject*)frmQrMain );
        frmQrMain->rbnProductSold->Checked = true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductCapabilityInsertClick(
      TObject *Sender)
{
        dbnProductCapability->BtnClick( nbInsert );              
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductCapabilityDeleteClick(
      TObject *Sender)
{
        dbnProductCapability->BtnClick( nbDelete );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductCapabilityPostClick(
      TObject *Sender)
{
        if( tblProductCapability->State == dsEdit || tblProductCapability->State == dsInsert )
                dbnProductCapability->BtnClick( nbPost );
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnProductCapabilityFirstCancelClick(
      TObject *Sender)
{
        dbnProductCapability->BtnClick( nbCancel );
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnRestoreCostInsertClick(TObject *Sender)
{
        dbnRestoreCost->BtnClick( nbInsert );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnRestoreCostDeleteClick(TObject *Sender)
{
        dbnRestoreCost->BtnClick( nbDelete );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnRestoreCostPostClick(TObject *Sender)
{
        if( tblRestoreCost->State == dsEdit || tblRestoreCost->State == dsInsert )
                dbnRestoreCost->BtnClick( nbPost );
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnRestoreCostCancelClick(TObject *Sender)
{
        dbnRestoreCost->BtnClick( nbCancel );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnLoanInsertClick(TObject *Sender)
{
        dbnLoan->BtnClick( nbInsert );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnLoanDeleteClick(TObject *Sender)
{
        dbnLoan->BtnClick( nbDelete );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnLoanPostClick(TObject *Sender)
{
        if( tblLoan->State == dsEdit || tblLoan->State == dsInsert )
                dbnLoan->BtnClick( nbPost );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnLoanCancelClick(TObject *Sender)
{
        dbnLoan->BtnClick( nbCancel );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnInterestInsertClick(TObject *Sender)
{
        dbnInterest->BtnClick( nbInsert );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnInterestDeleteClick(TObject *Sender)
{
        dbnInterest->BtnClick( nbDelete );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnInterestPostClick(TObject *Sender)
{
        if( tblInterest->State == dsEdit || tblInterest->State == dsInsert )
                dbnInterest->BtnClick( nbPost );        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::sbnInterestCancelClick(TObject *Sender)
{
        dbnInterest->BtnClick( nbCancel );
}
//---------------------------------------------------------------------------

void __fastcall TfrmMaintain::bbnCommitClick(TObject *Sender)
{
        if( Application->MessageBox("向数据库中提交的操作将不能撤消！\n要继续吗？",
                Application->Title.c_str(), MB_YESNO + MB_ICONQUESTION )==IDNO )
                return;
        tblProductCapability->Database->StartTransaction();
        try
        {
                tblProductCapability->ApplyUpdates(); // try to write the updates to the database
                tblProductCapability->Database->Commit(); // on success, commit the changes;
                tblProductCapability->CommitUpdates();
        }
        catch (...)
        {
                tblProductCapability->Database->Rollback(); // on failure, undo the changes
                ShowMessageDlg( "产生数据库错误：工厂生产能力表提交失败，发现部分数据错误！" );
        }
        tblProductSold->Database->StartTransaction();
        try
        {
                tblProductSold->ApplyUpdates(); // try to write the updates to the database
                tblProductSold->Database->Commit(); // on success, commit the changes;
                tblProductSold->CommitUpdates();
        }
        catch (...)
        {
                tblProductSold->Database->Rollback(); // on failure, undo the changes
                ShowMessageDlg( "产生数据库错误：产品生产销售表提交失败，发现部分数据错误！" );
        }
        tblRestoreCost->Database->StartTransaction();
        try
        {
                tblRestoreCost->ApplyUpdates(); // try to write the updates to the database
                tblRestoreCost->Database->Commit(); // on success, commit the changes;
                tblRestoreCost->CommitUpdates();
        }
        catch (...)
        {
                tblRestoreCost->Database->Rollback(); // on failure, undo the changes
                ShowMessageDlg( "产生数据库错误：产品生产销售表提交失败，发现部分数据错误！" );
        }
        tblMaterialBuy->Database->StartTransaction();
        try
        {
                tblMaterialBuy->ApplyUpdates(); // try to write the updates to the database
                tblMaterialBuy->Database->Commit(); // on success, commit the changes;
                tblMaterialBuy->CommitUpdates();
        }
        catch (...)
        {
                tblMaterialBuy->Database->Rollback(); // on failure, undo the changes
                ShowMessageDlg( "产生数据库错误：原料订购表提交失败，发现部分数据错误！" );
        }
        tblLoan->Database->StartTransaction();
        try
        {
                tblLoan->ApplyUpdates(); // try to write the updates to the database
                tblLoan->Database->Commit(); // on success, commit the changes;
                tblLoan->CommitUpdates();
        }
        catch (...)
        {
                tblLoan->Database->Rollback(); // on failure, undo the changes
                ShowMessageDlg( "产生数据库错误：贷款借还表提交失败，发现部分数据错误！" );
        }
        tblInterest->Database->StartTransaction();
        try
        {
                tblInterest->ApplyUpdates(); // try to write the updates to the database
                tblInterest->Database->Commit(); // on success, commit the changes;
                tblInterest->CommitUpdates();
        }
        catch (...)
        {
                tblInterest->Database->Rollback(); // on failure, undo the changes
                ShowMessageDlg( "产生数据库错误：贷款利息表提交失败，发现部分数据错误！" );
        }
}
//---------------------------------------------------------------------------