uas.~cpp

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

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

#include "uas.h"
#include "udata.h"
#include "UInto.h"
#include "uKH.h"
#include "UDa.h"
#include "uqrfOut.h"
#include "UBH.h"
#include "UDM.h"
#include "UqrKC.h"
#include "UqrBH.h"
#include "uCKDa.h"
//#include "UCKTJ.h"
//#include "UKCTJ.h"
#include "ULKDA.h"
//#include "ULKTJ.h"
#include "uCKdaNext.h"
#include "ULKdaNext.h"
#include "UMenu.h"
#include "Uoutface.h"
#include "Upass.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMain *FMain;
//---------------------------------------------------------------------------
__fastcall TFMain::TFMain(TComponent* Owner)
        : TForm(Owner)
{
        DataPath=ExtractFilePath(Application->ExeName);
                //TitleBar
        CustomCaption = Caption;
        //  Caption = "";
        WindowCanvas = new TCanvas;
        TOSVersionInfo ver;
        ver.dwOSVersionInfoSize = sizeof(TOSVersionInfo);
        GetVersionEx( &ver);
        if(ver.dwMajorVersion < 4)
        {
                IsNT35 = true;
                Caption = CustomCaption;
        }
        else
                IsNT35 = false;
  //TitleBar

}
//---------------------------------------------------------------------------
void __fastcall TFMain::dbgCardDrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
       TDBGrid *tdbgTemp=(TDBGrid *)Sender;
       TRect a;
       a=Rect;
       if(State.Contains(gdSelected))
        {
        tdbgTemp->Canvas->Brush->Color=clRed;
        tdbgTemp->Canvas->Font->Color=clYellow;
        a.Top=Rect.Top+1;
        a.Bottom=Rect.Bottom-2;
        a.Bottom=Rect.Bottom-1;
        }
      else
      {
        tdbgTemp->Canvas->Brush->Color=(TColor)0x00A0D7E0;
        tdbgTemp->Canvas->Font->Color=clBlack;
        a.Left=Rect.Left+1;
        a.Top=Rect.Top+1;
      }
      tdbgTemp->Canvas->FillRect(a);
      tdbgTemp->DefaultDrawColumnCell(a,DataCol,Column,State);
}
//---------------------------------------------------------------------------



void __fastcall TFMain::BitBtn5Click(TObject *Sender)
{
/*
                if(cbGH->Text=="")
                {
                        ShowMessage("请输入供货商名");
                        return;
                }
                TLocateOptions Opts;
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qLKda->Locate("KM",eKM->Text,Opts))
                {
                        ShowMessage("数据库已经存在");
                        return;
                }
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qLKda->Locate("MC",eMC->Text,Opts))
                {
                        ShowMessage("数据库已经存在");
                        return;
                }
        try{
        dsData->qLKdaModi->Edit();
        dsData->qLKdaModi->Append();
        dsData->qLKdaModi->FieldByName("LQ")->Value=dtpLQ->DateTime.FormatString("yyyy-mm-dd");
        dsData->qLKdaModi->FieldByName("BC")->Value=meBC->Text;
        dsData->qLKdaModi->FieldByName("KH")->Value=cbGH->Text;
        dsData->qLKdaModi->FieldByName("KM")->Value=eKM->Text;
        dsData->qLKdaModi->FieldByName("MC")->Value=eMC->Text;
        dsData->qLKdaModi->FieldByName("GG")->Value=eGG->Text;
        dsData->qLKdaModi->FieldByName("DW")->Value=eDW->Text;
        dsData->qLKdaModi->FieldByName("SL")->Value=eSL->Text;
        dsData->qLKdaModi->FieldByName("JJ")->Value=eJJ->Text.ToDouble();
        dsData->qLKdaModi->Post();
        }
        catch(...)
        {
            dsData->qLKdaModi->Cancel();
            return;
        }
        dsData->qLKda->Refresh();
*/
}
//---------------------------------------------------------------------------



void __fastcall TFMain::SB1Click(TObject *Sender)
{
        dtpLQ->Date=Now();
        pInto->BringToFront();
        if(!dsData->qLKda->Active)
        {
                dsData->qLKda->SQL->Clear();
                dsData->qLKda->SQL->Add("SELECT *");
                dsData->qLKda->SQL->Add("FROM 'Lkda.dbf' Lkda");
                dsData->qLKda->Open();
        }
        if(!dsData->qKC->Active)
        {
        dsData->qKC->SQL->Clear();
        dsData->qKC->SQL->Add("SELECT *");
        dsData->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        dsData->qKC->Open();
        }
        if(!dsData->qKCModi->Active)
        {
        dsData->qKCModi->SQL->Clear();
        dsData->qKCModi->SQL->Add("SELECT *");
        dsData->qKCModi->SQL->Add("FROM 'Kc.dbf' Kc");
        dsData->qKCModi->Open();
        }


        dsData->qKH->Close();
        dsData->qKH->SQL->Clear();
        dsData->qKH->SQL->Add("SELECT *");
        dsData->qKH->SQL->Add("FROM 'Ghs.dbf' Ghs");
        dsData->qKH->Open();
        dsData->qKH->First();
        cbGH->Items->Clear();
        while(!dsData->qKH->Eof)
        {
                String S=dsData->qKH->FieldByName("KH")->AsString;
                cbGH->Items->Add(S);
                dsData->qKH->Next();
        }
        cbGH->Text=dsData->qKH->FieldByName("KH")->AsString;


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

void __fastcall TFMain::BitBtn1Click(TObject *Sender)
{
        qrfInto->qrCH->Caption=cbGH->Text;
        qrfInto->qrlLQ->Caption=dtpLQ->DateTime.FormatString("yyyy'年'mm'月'dd'日'");
        qrfInto->qrInto->PreviewModal();
}
//---------------------------------------------------------------------------


void __fastcall TFMain::BitBtn3Click(TObject *Sender)
{

        bbInClick(this);
        qrfInto->qrCH->Caption=cbGH->Text;
        qrfInto->qrlLQ->Caption=dtpLQ->DateTime.FormatString("yyyy'年'mm'月'dd'日'");
        qrfInto->qrInto->Print();
}
//---------------------------------------------------------------------------


void __fastcall TFMain::bbInClick(TObject *Sender)
{
        if(Application->MessageBox("是否要存入库","警告",0x00000021)!=ID_OK)
                return;
        String sTemp="WHERE (LQ='"+dtpLQ->DateTime.FormatString("yyyy-mm-dd")+ "') AND (BC ='"+meBC->Text+"') AND (KH='"+cbGH->Text+"')";
        dsData->qLK->Close();
        dsData->qLK->SQL->Clear();
        dsData->qLK->SQL->Add("SELECT *");
        dsData->qLK->SQL->Add("FROM 'Lk.dbf' Lk");
        dsData->qLK->SQL->Add(sTemp);
        dsData->qLK->Open();
        dsData->qLK->Refresh();
        ShowMessage(dsData->qLK->RecordCount);
        if(dsData->qLK->RecordCount>=1)
        {
                ShowMessage("这张表已经存在");
                return;
        }
     try{
        dsData->qLKda->First();
        while(!dsData->qLKda->Eof)
        {
                TLocateOptions Opts;
                Opts.Clear();
                Opts << loCaseInsensitive;
                if(dsData->qKC->Locate("KM",dsData->qLKda->FieldByName("KM")->AsString,Opts))
                {
                        dsData->qKC->Edit();
                        dsData->qKC->FieldByName("SL2")->Value=dsData->qKC->FieldByName("SL1")->Value;
                        dsData->qKC->FieldByName("SL1")->Value=dsData->qKC->FieldByName("SL")->Value;
                        dsData->qKC->FieldByName("SL")->Value=dsData->qKC->FieldByName("SL")->AsInteger+dsData->qLKda->FieldByName("SL")->AsInteger;
                        dsData->qKC->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->AsInteger;
                        dsData->qKC->FieldByName("KH")->Value=dsData->qLKda->FieldByName("KH")->AsString;
                        dsData->qKC->Post();
                }
                else
                {
                        dsData->qKC->Edit();
                        dsData->qKC->Append();
                        dsData->qKC->FieldByName("KM")->Value=dsData->qLKda->FieldByName("KM")->AsString;
                        dsData->qKC->FieldByName("MC")->Value=dsData->qLKda->FieldByName("MC")->AsString;
                        dsData->qKC->FieldByName("GG")->Value=dsData->qLKda->FieldByName("GG")->AsString;
                        dsData->qKC->FieldByName("DW")->Value=dsData->qLKda->FieldByName("DW")->AsString;
                        dsData->qKC->FieldByName("SL")->Value=dsData->qLKda->FieldByName("SL")->AsFloat;
                        dsData->qKC->FieldByName("JJ")->Value=dsData->qLKda->FieldByName("JJ")->AsFloat;
                        dsData->qKC->FieldByName("JE")->Value=dsData->qLKda->FieldByName("JE")->AsFloat;
                        dsData->qKC->FieldByName("KH")->Value=dsData->qLKda->FieldByName("KH")->AsString;
                        dsData->qKC->Post();
                }
                dsData->qLKda->Next();
        }
      }
      catch(...)
      {
              dsData->qKC->CancelUpdates();
              return;

      }
      if(dsData->qLKda->Active)
        {
                        dsData->tInto->TableName="LK.dbf";
                        dsData->bmInto->Source = dsData->qLKda;
                        dsData->bmInto->Destination = dsData->tInto;
                        dsData->bmInto->Mode = batAppend;
                        dsData->bmInto->Execute();
                        dsData->qKC->ApplyUpdates();
                        dsData->qKC->CommitUpdates();

        }
        else
            {
              ShowMessage("error");
              dsData->qKC->CancelUpdates();
            }


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


void __fastcall TFMain::cbGHKeyPress(TObject *Sender, char &Key)
{
       Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TFMain::BitBtn7Click(TObject *Sender)
{
//    KH=cbGH->Text;
    fKH = new TfKH(this);
    fKH->ShowModal();
    delete fKH;
    cbGH->Text=dsData->qKH->FieldByName("KH")->AsString;
}
//---------------------------------------------------------------------------








void __fastcall TFMain::SB2Click(TObject *Sender)
{
        if(!dsData->qCKda->Active)
        {
                dsData->qCKda->SQL->Clear();
                dsData->qCKda->SQL->Add("SELECT *");
                dsData->qCKda->SQL->Add("FROM 'Ckda.dbf' Ckda");
                dsData->qCKda->Open();
        }

        dtpLQo->Date=Now();
        pOut->BringToFront();
        dsData->qFD->Close();
        dsData->qFD->SQL->Clear();
        dsData->qFD->SQL->Add("SELECT *");
        dsData->qFD->SQL->Add("FROM 'Fd.dbf' Fd");
        dsData->qFD->Open();
        dsData->qFD->First();
        cbFD->Items->Clear();
        cbFD->Text=dsData->qFD->FieldByName("KH")->AsString;
        while(!dsData->qFD->Eof)
        {
                String S=dsData->qFD->FieldByName("KH")->AsString;
                cbFD->Items->Add(S);
                dsData->qFD->Next();
        }
        if(!dsData->qKC->Active)
        {
        dsData->qKC->SQL->Clear();
        dsData->qKC->SQL->Add("SELECT *");
        dsData->qKC->SQL->Add("FROM 'Kc.dbf' Kc");
        dsData->qKC->Open();
        }
        if(!dsData->qKCModi->Active)
        {
        dsData->qKCModi->SQL->Clear();
        dsData->qKCModi->SQL->Add("SELECT *");
        dsData->qKCModi->SQL->Add("FROM 'Kc.dbf' Kc");
        dsData->qKCModi->Open();
        }




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


void __fastcall TFMain::BitBtn13Click(TObject *Sender)
{
/*
                if(cbFD->Text=="")
                {
                        ShowMessage("请输入供货商名");
                        return;
                }
                TLocateOptions Opts;
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qCKda->Locate("KM",meKMo->Text,Opts))
                {
                        ShowMessage("数据库已经存在");
                        return;
                }
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qCKda->Locate("MC",eMCo->Text,Opts))
                {
                        ShowMessage("数据库已经存在");
                        return;
                }
        try{
        dsData->qCKdaModi->Edit();
        dsData->qCKdaModi->Append();
        dsData->qCKdaModi->FieldByName("LQ")->Value=dtpLQo->DateTime.FormatString("yyyy-mm-dd");
        dsData->qCKdaModi->FieldByName("BC")->Value=meBCo->Text;
        dsData->qCKdaModi->FieldByName("KH")->Value=cbFD->Text;
        dsData->qCKdaModi->FieldByName("KM")->Value=meKMo->Text;
        dsData->qCKdaModi->FieldByName("MC")->Value=eMCo->Text;
        dsData->qCKdaModi->FieldByName("GG")->Value=eGGo->Text;
        dsData->qCKdaModi->FieldByName("DW")->Value=eDWo->Text;
        dsData->qCKdaModi->FieldByName("SL")->Value=eSLo->Text;
        dsData->qCKdaModi->FieldByName("JJ")->Value=eJJo->Text.ToDouble();
        dsData->qCKdaModi->FieldByName("SJ")->Value=eSJ->Text.ToDouble();
        //dsData->qCKdaModi->FieldByName("JE")->Value=eSLo->Text.ToDouble()*eSJ->Text.ToDouble();
        dsData->qCKdaModi->Post();
        }
        catch(...)
        {
            dsData->qCKdaModi->Cancel();
            return;
        }
        dsData->qCKda->Refresh();
*/
}
//---------------------------------------------------------------------------



void __fastcall TFMain::cbFDChange(TObject *Sender)
{
        if(cbFD->Text=="泉州店")
                dsData->tOut->TableName="CK01.dbf";
        if(cbFD->Text=="南安店")
                dsData->tOut->TableName="CK02.dbf";
        if(cbFD->Text=="金井店")
                dsData->tOut->TableName="CK03.dbf";
        if(cbFD->Text=="南环店")
                dsData->tOut->TableName="CK04.dbf";
        if(cbFD->Text=="九二店")
                dsData->tOut->TableName="CK05.dbf";
        if(cbFD->Text=="群英店")