umenu.cpp

来自「超市配货中心进销存源码超市配货中心进销存源码」· C++ 代码 · 共 670 行 · 第 1/2 页
CPP
670 行
        DM->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        if(FMain->tcKCBrow->TabIndex)
           DM->qKC->SQL->Add(sTemp);
        DM->qKC->SQL->Add("ORDER BY SL");
        DM->qKC->Open();
        DM->qKC->First();

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

void __fastcall TfMenu::MenuItem8Click(TObject *Sender)
{
         DM->qBH->Close();
         DM->qBH->SQL->Clear();
         DM->qBH->SQL->Add("SELECT *");
         DM->qBH->SQL->Add("FROM 'Kc.dbf' Kc");
         DM->qBH->SQL->Add("WHERE SL<=GJ");
         DM->qBH->SQL->Add("ORDER BY KM");
         DM->qBH->Open();

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

void __fastcall TfMenu::MenuItem9Click(TObject *Sender)
{
         DM->qBH->Close();
         DM->qBH->SQL->Clear();
         DM->qBH->SQL->Add("SELECT *");
         DM->qBH->SQL->Add("FROM 'Kc.dbf' Kc");
         DM->qBH->SQL->Add("WHERE SL<=GJ");
         DM->qBH->SQL->Add("ORDER BY MC");
         DM->qBH->Open();

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

void __fastcall TfMenu::MenuItem10Click(TObject *Sender)
{
         DM->qBH->Close();
         DM->qBH->SQL->Clear();
         DM->qBH->SQL->Add("SELECT *");
         DM->qBH->SQL->Add("FROM 'Kc.dbf' Kc");
         DM->qBH->SQL->Add("WHERE SL<=GJ");
         DM->qBH->SQL->Add("ORDER BY JJ");
         DM->qBH->Open();

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

void __fastcall TfMenu::MenuItem11Click(TObject *Sender)
{
         DM->qBH->Close();
         DM->qBH->SQL->Clear();
         DM->qBH->SQL->Add("SELECT *");
         DM->qBH->SQL->Add("FROM 'Kc.dbf' Kc");
         DM->qBH->SQL->Add("WHERE SL<=GJ");
         DM->qBH->SQL->Add("ORDER BY SL");
         DM->qBH->Open();

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

void __fastcall TfMenu::N21Click(TObject *Sender)
{
         DM->qBH->Close();
         DM->qBH->SQL->Clear();
         DM->qBH->SQL->Add("SELECT *");
         DM->qBH->SQL->Add("FROM 'Kc.dbf' Kc");
         DM->qBH->SQL->Add("WHERE SL<=GJ");
         DM->qBH->SQL->Add("ORDER BY GJ");
         DM->qBH->Open();

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

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

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

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

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

void __fastcall TfMenu::MenuItem12Click(TObject *Sender)
{
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add("ORDER BY GH");
         DM->qJG->Open();

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

void __fastcall TfMenu::MenuItem13Click(TObject *Sender)
{
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(" Where GH='"+FMain->tcJG->Tabs->Strings[FMain->tcJG->TabIndex]+"'");
         DM->qJG->SQL->Add("ORDER BY PM");
         DM->qJG->Open();

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

void __fastcall TfMenu::MenuItem14Click(TObject *Sender)
{
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
                DM->qJG->SQL->Add(" Where GH='"+FMain->tcJG->Tabs->Strings[FMain->tcJG->TabIndex]+"'");         
         DM->qJG->SQL->Add("ORDER BY JJ");
         DM->qJG->Open();

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

void __fastcall TfMenu::MenuItem15Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=fFind->eFind->Text;
         delete fFind;
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(sTemp);
         DM->qJG->Open();

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

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

        fFind = new TfFind(this);
        fFind->ShowModal();
        String sTemp;
        sTemp="WHERE GG 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::N23Click(TObject *Sender)
{

        fFind = new TfFind(this);
        fFind->ShowModal();
        String sTemp;
        sTemp=fFind->eFind->Text;
        delete fFind;
        DM->qKCModi->Close();
        DM->qKCModi->SQL->Clear();
        DM->qKCModi->SQL->Add(sTemp);
        DM->qKCModi->Open();

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


void __fastcall TfMenu::N24Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=fFind->eFind->Text;
         delete fFind;
         DM->qLK->Close();
         DM->qLK->SQL->Clear();
         DM->qLK->SQL->Add(sTemp);
         DM->qLK->Open();

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

void __fastcall TfMenu::N25Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=" WHERE JJ IN("+fFind->eFind->Text+")";
         delete fFind;
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(sTemp);
         DM->qJG->Open();

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

void __fastcall TfMenu::MenuItem16Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=fFind->eFind->Text;
         delete fFind;
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(" Where (GH='"+FMain->tcJG->Tabs->Strings[FMain->tcJG->TabIndex]+"')");
         DM->qJG->SQL->Add(" AND (PM Like '%%"+sTemp+"%%')");
         DM->qJG->Open();

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

void __fastcall TfMenu::MenuItem17Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=" AND (JJ IN("+fFind->eFind->Text+"))";
         delete fFind;
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(" Where (GH='"+FMain->tcJG->Tabs->Strings[FMain->tcJG->TabIndex]+"')");
         DM->qJG->SQL->Add(sTemp);
         DM->qJG->Open();

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

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

void __fastcall TfMenu::N29Click(TObject *Sender)
{
                String sTemp;
                GetWindowsDirectory(sTemp.c_str(),sTemp.Length());
                sTemp=sTemp+"Calc.exe";
                WinExec(sTemp.c_str(),SW_SHOW);
        
}
//---------------------------------------------------------------------------

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

void __fastcall TfMenu::N30Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=" WHERE SJ1 IN("+fFind->eFind->Text
                +")OR SJ2 IN("+fFind->eFind->Text
                +")OR SJ3 IN("+fFind->eFind->Text
                +")OR SJ4 IN("+fFind->eFind->Text
                +")OR SJ5 IN("+fFind->eFind->Text
                +")OR SJ6 IN("+fFind->eFind->Text+")";
         delete fFind;
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(sTemp);
         DM->qJG->Open();

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

void __fastcall TfMenu::N31Click(TObject *Sender)
{
         fFind = new TfFind(this);
         fFind->ShowModal();
         String sTemp;
         sTemp=" AND ( SJ1 IN("+fFind->eFind->Text
                +")OR SJ2 IN("+fFind->eFind->Text
                +")OR SJ3 IN("+fFind->eFind->Text
                +")OR SJ4 IN("+fFind->eFind->Text
                +")OR SJ5 IN("+fFind->eFind->Text
                +")OR SJ6 IN("+fFind->eFind->Text+"))";
         delete fFind;
         DM->qJG->Close();
         DM->qJG->SQL->Clear();
         DM->qJG->SQL->Add("SELECT *");
         DM->qJG->SQL->Add("FROM 'Djs.dbf' Djs");
         DM->qJG->SQL->Add(" Where (GH='"+FMain->tcJG->Tabs->Strings[FMain->tcJG->TabIndex]+"')");
         DM->qJG->SQL->Add(sTemp);
         DM->qJG->Open();

}
//---------------------------------------------------------------------------
umenu.cpp - 源码说明

本页面展示了「超市配货中心进销存源码超市配货中心进销存源码」中的 umenu.cpp 源码文件，采用 C++ 编程语言编写，共 670 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与进销相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?