ucktj.cpp

超市配货中心进销存源码 超市配货中心进销存源码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "uas.h"
#include "UDM.h"
#include "UFind.h"
#include "UDa.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;
        fDA->qDA->Refresh();
         if(fDA->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;
        fDA->qDA->Refresh();
         if(fDA->qDA->Locate("MC",fFind->eFind->Text,Opts))
           ShowMessage("没找到!");
        delete fFind;

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