main.~cpp

一个不错的销售系统

{
        frmQrMain->Visible = true;
        frmQrMain->rbnProductSold->Enabled = true;
        frmQrMain->rbnProductSoldDecision->Enabled = true;
        frmQrMain->rbnMaterialBuyUse->Enabled = true;
        frmQrMain->rbnFinanceReport->Enabled = true;
        frmQrMain->rbnLoanRestore->Enabled = true;
        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 TfrmMain::imgGoMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        imgGo->Transparent = false;
        if(IsInRect(X, Y, 1, 1, imgGo->Width-2, imgGo->Height-2))
                imgGo->Picture->LoadFromFile(Path+GoFileName);
        else
                imgGo->Transparent = true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::imgFinanceAnalysisMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
//        imgFinanceAnalysis->Transparent = true;
        if(IsInRect(X, Y, 1, 1, imgFinanceAnalysis->Width-2, imgFinanceAnalysis->Height-2))
        {
                imgFinanceAnalysis->Picture->LoadFromFile(Path+"3-2.bmp");
/*

                TCanvas *pCanvas = imgFinanceAnalysis->Canvas;
                pCanvas->Brush->Color = clRed;
                pCanvas->Brush->Style = bsSolid;
                pCanvas->Ellipse(0, 0, imgFinanceAnalysis->Width, imgFinanceAnalysis->Height);
*/
        }
        else
                imgFinanceAnalysis->Picture->LoadFromFile(Path+"3-2.bmp");
//                imgFinanceAnalysis->Transparent = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::imgSystemManagerMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        if(IsInRect(X, Y, 1, 1, imgSystemManager->Width-2, imgSystemManager->Height-2))
        {
                imgSystemManager->Picture->LoadFromFile(Path+"4-2.bmp");
//                imgSystemManager->Transparent = false;
/*
                TCanvas *pCanvas = imgSystemManager->Canvas;
                pCanvas->Brush->Color = clRed;
                pCanvas->Brush->Style = bsSolid;
                pCanvas->Ellipse(0, 0, imgSystemManager->Width, imgSystemManager->Height);
*/
        }
        else
                imgSystemManager->Picture->LoadFromFile(Path+"4-1.bmp");
//                imgSystemManager->Transparent = true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::imgReportSystemMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
//        imgReportSystem->Transparent = true;
        if(IsInRect(X, Y, 1, 1, imgReportSystem->Width-2, imgReportSystem->Height-2))
        {
/*
                TCanvas *pCanvas = imgReportSystem->Canvas;
                pCanvas->Brush->Color = clBlue;
                pCanvas->Brush->Style = bsSolid;
                pCanvas->Ellipse(0, 0, imgReportSystem->Width, imgReportSystem->Height);
*/
                imgReportSystem->Picture->LoadFromFile(Path+"5-2.bmp");
        }
        else
                imgReportSystem->Picture->LoadFromFile(Path+"5-1.bmp");
//                imgReportSystem->Transparent = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::imgMaterialManagerMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
//        imgMaterialManager->Transparent = true;
        if(IsInRect(X, Y, 1, 1, imgMaterialManager->Width-2, imgMaterialManager->Height-2))
        {
/*
                TCanvas *pCanvas = imgMaterialManager->Canvas;
                pCanvas->Brush->Color = clBlue;
                pCanvas->Brush->Style = bsSolid;
                pCanvas->Ellipse(0, 0, imgMaterialManager->Width, imgMaterialManager->Height);
*/
                imgMaterialManager->Picture->LoadFromFile(Path+"2-2.bmp");
        }
        else
                imgMaterialManager->Picture->LoadFromFile(Path+"2-1.bmp");
//                imgMaterialManager->Transparent = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::imgProductManagerMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
//        imgProductManager->Visible = true;
        if(IsInRect(X, Y, 1, 1, imgProductManager->Width-2, imgProductManager->Height-2))
        {
/*
                TCanvas *pCanvas = imgProductManager->Canvas;
                pCanvas->Brush->Color = clBlue;
                pCanvas->Brush->Style = bsSolid;
                pCanvas->Ellipse(0, 0, imgProductManager->Width, imgProductManager->Height);
*/
                imgProductManager->Picture->LoadFromFile(Path+"1-2.bmp");
        }
        else
                imgProductManager->Picture->LoadFromFile(Path+"1-1.bmp");
//                imgProductManager->Visible = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::N7Click(TObject *Sender)
{
        frmAbout->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::miBackgroundSongClick(TObject *Sender)
{
        if(miBackgroundSong->Checked)
        {
                miBackgroundSong->Checked = false;
                mprBackground->Pause();
        }
        else
        {
                miBackgroundSong->Checked = true;
                mprBackground->Resume();
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::mprBackgroundNotify(TObject *Sender)
{
        if(mprBackground->Mode==mpStopped&&miBackgroundSong->Checked)
                mprBackground->Play();
        mprBackground->Notify = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::imgMainMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        if(IsInRect(X, Y, imgSystemManager->Left, imgSystemManager->Top, imgSystemManager->Width, imgSystemManager->Height)
                || IsInRect(X, Y, imgSystemManager1->Left, imgSystemManager1->Top, imgSystemManager1->Width, imgSystemManager1->Height))
        {
                imgSystemManager->Visible = true;
                imgSystemManager1->Visible = false;
        }
//                imgSystemManager->Picture->LoadFromFile(Path+"4-2.bmp");
        else
//                imgSystemManager->Picture->LoadFromFile(Path+"4-1.bmp");
        {
                imgSystemManager->Visible = false;
                imgSystemManager1->Visible = true;
        }


        if(IsInRect(X, Y, imgProductManager->Left, imgProductManager->Top, imgProductManager->Width, imgProductManager->Height)
                || IsInRect(X, Y, imgProductManager1->Left, imgProductManager1->Top, imgProductManager1->Width, imgProductManager1->Height))
        {
                imgProductManager->Visible = true;
                imgProductManager1->Visible = false;
        }
//                imgProductManager->Picture->LoadFromFile(Path+"1-2.bmp");
        else
//                imgProductManager->Picture->LoadFromFile(Path+"1-1.bmp");
        {
                imgProductManager->Visible = false;
                imgProductManager1->Visible = true;
        }


        if(IsInRect(X, Y, imgMaterialManager->Left, imgMaterialManager->Top, imgMaterialManager->Width, imgMaterialManager->Height)
                || IsInRect(X, Y, imgMaterialManager1->Left, imgMaterialManager1->Top, imgMaterialManager1->Width, imgMaterialManager1->Height))
//                imgMaterialManager->Picture->LoadFromFile(Path+"2-2.bmp");
        {
                imgMaterialManager->Visible = true;
                imgMaterialManager1->Visible = false;
        }
        else
//                imgMaterialManager->Picture->LoadFromFile(Path+"2-1.bmp");
        {
                imgMaterialManager->Visible = false;
                imgMaterialManager1->Visible = true;
        }

        if(IsInRect(X, Y, imgFinanceAnalysis->Left, imgFinanceAnalysis->Top, imgFinanceAnalysis->Width, imgFinanceAnalysis->Height)
                || IsInRect(X, Y, imgFinanceAnalysis1->Left, imgFinanceAnalysis1->Top, imgFinanceAnalysis1->Width, imgFinanceAnalysis1->Height))
//                imgFinanceAnalysis->Picture->LoadFromFile(Path+"3-2.bmp");
        {
                imgFinanceAnalysis->Visible = true;
                imgFinanceAnalysis1->Visible = false;
        }
        else
//                imgFinanceAnalysis->Picture->LoadFromFile(Path+"3-1.bmp");
        {
                imgFinanceAnalysis->Visible = false;
                imgFinanceAnalysis1->Visible = true;
        }

        if(IsInRect(X, Y, imgReportSystem->Left, imgReportSystem->Top, imgReportSystem->Width, imgReportSystem->Height)
                || IsInRect(X, Y, imgReportSystem1->Left, imgReportSystem1->Top, imgReportSystem1->Width, imgReportSystem1->Height))
//                imgReportSystem->Picture->LoadFromFile(Path+"5-2.bmp");
        {
                imgReportSystem->Visible = true;
                imgReportSystem1->Visible = false;
        }
        else
//                imgReportSystem->Picture->LoadFromFile(Path+"5-1.bmp");
        {
                imgReportSystem->Visible = false;
                imgReportSystem1->Visible = true;
        }

        if(IsInRect(X, Y, imgGo->Left, imgGo->Top, imgGo->Width, imgGo->Height))
                imgGo->Visible = true;
        else
                imgGo->Visible = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::miAboutClick(TObject *Sender)
{
        frmAbout->ShowModal();        
}
//---------------------------------------------------------------------------