umenu.cpp

来自「超市配货中心进销存源码 超市配货中心进销存源码」· C++ 代码 · 共 670 行 · 第 1/2 页

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "UMenu.h"
#include "uas.h"
#include "UDM.h"
#include "UFind.h"
#include "UDa.h"
#include "udata.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfMenu *fMenu;
//---------------------------------------------------------------------------
__fastcall TfMenu::TfMenu(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TfMenu::N12Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        DM->qKC->Refresh();
         if(!DM->qKC->Locate("KM",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;

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

void __fastcall TfMenu::N13Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        DM->qKC->Refresh();
        if(!DM->qKC->Locate("MC",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;

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

void __fastcall TfMenu::MenuItem1Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        DM->qKCModi->Refresh();
         if(!DM->qKCModi->Locate("KM",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;

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

void __fastcall TfMenu::MenuItem2Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        DM->qKCModi->Refresh();
         if(!DM->qKCModi->Locate("MC",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;

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

void __fastcall TfMenu::MenuItem3Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        dsData->qDA->Refresh();
         if(!dsData->qDA->Locate("KM",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;


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

void __fastcall TfMenu::MenuItem4Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        dsData->qDA->Refresh();
         if(!dsData->qDA->Locate("MC",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;

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



void __fastcall TfMenu::N9DrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &ARect, bool Selected)
{
        TRect aa,bb,cc;
        aa=ARect;
        bb=ARect;
        cc=ARect;
        bb.Right=ARect.Left+20;
        //bb.Top=ARect.Top-20;
        aa.Left=ARect.Left+20;
        cc.Left=ARect.Left+60;
        ACanvas->Brush->Color=(TColor)clRed;
        ACanvas->FillRect(bb);
        ACanvas->Font->Size=12;
        ACanvas->Font->Name="宋体";
        ACanvas->Font->Style<<fsBold;
        if(Selected)
        {
          ACanvas->Brush->Color=(TColor)clRed;
          ACanvas->FillRect(aa);
          ACanvas->Font->Color=clYellow;
          ImageList1->Draw(ACanvas,aa.Left+10,aa.Top+(aa.Bottom-aa.Top)/7,((TMenuItem *)Sender)->Tag,true);
          DrawText(ACanvas->Handle,((TMenuItem *)Sender)->Caption.c_str(),((TMenuItem *)Sender)->Caption.Length(),&cc,DT_LEFT|DT_VCENTER|DT_SINGLELINE);
        }
        else
        {
          ACanvas->Brush->Color=(TColor)0x00A0D7E0;
          ACanvas->FillRect(aa);
          ImageList1->Draw(ACanvas,aa.Left+10,aa.Top+(aa.Bottom-aa.Top)/7.0,((TMenuItem *)Sender)->Tag,true);
          DrawText(ACanvas->Handle,((TMenuItem *)Sender)->Caption.c_str(),((TMenuItem *)Sender)->Caption.Length(),&cc,DT_LEFT|DT_VCENTER|DT_SINGLELINE);
        }


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

void __fastcall TfMenu::N9MeasureItem(TObject *Sender, TCanvas *ACanvas,
      int &Width, int &Height)
{
     Width=170;
     Height=24;
}
//---------------------------------------------------------------------------


void __fastcall TfMenu::N9Click(TObject *Sender)
{
     FMain->SB1Click(0);
}
//---------------------------------------------------------------------------

void __fastcall TfMenu::N10Click(TObject *Sender)
{
     FMain->SB2Click(0);
}
//---------------------------------------------------------------------------

void __fastcall TfMenu::N5Click(TObject *Sender)
{
   FMain->SB5Click(0);
   FMain->pBD->Pages[0]->Show();


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


void __fastcall TfMenu::N6Click(TObject *Sender)
{
   FMain->SB5Click(0);
   FMain->pBD->Pages[1]->Show();

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

void __fastcall TfMenu::N7Click(TObject *Sender)
{
   FMain->SB5Click(0);
   FMain->pBD->Pages[2]->Show();

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

void __fastcall TfMenu::N8Click(TObject *Sender)
{
   FMain->SB5Click(0);
   FMain->pBD->Pages[3]->Show();

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

void __fastcall TfMenu::N11Click(TObject *Sender)
{
   FMain->SB6Click(0);
}
//---------------------------------------------------------------------------

void __fastcall TfMenu::N14Click(TObject *Sender)
{
        fFind = new TfFind(this);
        fFind->ShowModal();
        String sTemp;
        sTemp="WHERE MC LIKE '%%"+fFind->eFind->Text+"%%'";
        delete fFind;
        DM->qKC->Close();
        DM->qKC->SQL->Clear();
        DM->qKC->SQL->Add("SELECT *");
        DM->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        DM->qKC->SQL->Add(sTemp);
        DM->qKC->Open();
}
//---------------------------------------------------------------------------

void __fastcall TfMenu::N15Click(TObject *Sender)
{

        fFind = new TfFind(this);
        fFind->ShowModal();
        String sTemp;
        sTemp="WHERE MC LIKE '%%"+fFind->eFind->Text+"%%'";
        delete fFind;
        DM->qKCModi->Close();
        DM->qKCModi->SQL->Clear();
        DM->qKCModi->SQL->Add("SELECT *");
        DM->qKCModi->SQL->Add("FROM 'Kc.dbf' Kc");
        DM->qKCModi->SQL->Add(sTemp);
        DM->qKCModi->Open();

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

void __fastcall TfMenu::N16Click(TObject *Sender)
{

        fFind = new TfFind(this);
        fFind->ShowModal();
        String sTemp;
        sTemp="WHERE MC LIKE '%%"+fFind->eFind->Text+"%%'";
        delete fFind;
        dsData->qDA->Close();
        dsData->qDA->SQL->Clear();
        dsData->qDA->SQL->Add("SELECT *");
        dsData->qDA->SQL->Add("FROM 'Kc.dbf' Kc");
        dsData->qDA->SQL->Add(sTemp);
        dsData->qDA->Open();

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

void __fastcall TfMenu::N18Click(TObject *Sender)
{
        String sTemp;
        if(FMain->tcKCBrow->TabIndex<10)
           sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        else
           sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        DM->qKC->Close();
        DM->qKC->SQL->Clear();
        DM->qKC->SQL->Add("SELECT *");
        DM->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        if(FMain->tcKCBrow->TabIndex)
           DM->qKC->SQL->Add(sTemp);
        DM->qKC->SQL->Add("ORDER BY MC");
        DM->qKC->Open();
        DM->qKC->First();

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

void __fastcall TfMenu::N17Click(TObject *Sender)
{
        String sTemp;
        if(FMain->tcKCBrow->TabIndex<10)
           sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        else
           sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        DM->qKC->Close();
        DM->qKC->SQL->Clear();
        DM->qKC->SQL->Add("SELECT *");
        DM->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        if(FMain->tcKCBrow->TabIndex)
           DM->qKC->SQL->Add(sTemp);
        DM->qKC->SQL->Add("ORDER BY KM");
        DM->qKC->Open();
        DM->qKC->First();

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

void __fastcall TfMenu::N19Click(TObject *Sender)
{
        String sTemp;
        if(FMain->tcKCBrow->TabIndex<10)
           sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        else
           sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        DM->qKC->Close();
        DM->qKC->SQL->Clear();
        DM->qKC->SQL->Add("SELECT *");
        DM->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        if(FMain->tcKCBrow->TabIndex)
           DM->qKC->SQL->Add(sTemp);
        DM->qKC->SQL->Add("ORDER BY JJ");
        DM->qKC->Open();
        DM->qKC->First();

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

void __fastcall TfMenu::N20Click(TObject *Sender)
{
        String sTemp;
        if(FMain->tcKCBrow->TabIndex<10)
           sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        else
           sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)FMain->tcKCBrow->TabIndex)));
        DM->qKC->Close();
        DM->qKC->SQL->Clear();
        DM->qKC->SQL->Add("SELECT *");