udata.cpp

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

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

#include "udata.h"
#include "uas.h"
#include "UDa.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TdsData *dsData;
//---------------------------------------------------------------------------
__fastcall TdsData::TdsData(TComponent* Owner)
        : TDataModule(Owner)
{
                tInto->TableName="LK.dbf";
                tOut->TableName="LK.dbf";
}
//---------------------------------------------------------------------------





void __fastcall TdsData::qKCBeforePost(TDataSet *DataSet)
{
        DataSet->FieldByName("JE")->Value=DataSet->FieldByName("SL")->AsFloat*DataSet->FieldByName("JJ")->AsFloat;
}
//---------------------------------------------------------------------------


void __fastcall TdsData::qLKdaBeforePost(TDataSet *DataSet)
{
        TLocateOptions Opts;
        if(DataSet->FieldByName("KM")->AsString==""&&DataSet->FieldByName("MC")->AsString!="")
        {
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qKC->Locate("MC",dsData->qLKda->FieldByName("MC")->AsString,Opts))
                {
                        DataSet->FieldByName("KM")->Value=dsData->qKC->FieldByName("KM")->Value;
                        DataSet->FieldByName("MC")->Value=dsData->qKC->FieldByName("MC")->Value;
                        DataSet->FieldByName("GG")->Value=dsData->qKC->FieldByName("GG")->Value;
                        DataSet->FieldByName("DW")->Value=dsData->qKC->FieldByName("DW")->Value;
                        DataSet->FieldByName("SL")->Value=1;
                        DataSet->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->Value;

                }
        }
        if(DataSet->FieldByName("KM")->AsString!=""&&DataSet->FieldByName("MC")->AsString=="")
        {
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qKC->Locate("KM",dsData->qLKda->FieldByName("KM")->AsString,Opts))
                {
                        DataSet->FieldByName("KM")->Value=dsData->qKC->FieldByName("KM")->Value;
                        DataSet->FieldByName("MC")->Value=dsData->qKC->FieldByName("MC")->Value;
                        DataSet->FieldByName("GG")->Value=dsData->qKC->FieldByName("GG")->Value;
                        DataSet->FieldByName("DW")->Value=dsData->qKC->FieldByName("DW")->Value;
                        DataSet->FieldByName("SL")->Value=1;
                        DataSet->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->Value;

                }
        }

        Opts.Clear();
        Opts << loCaseInsensitive;
        if(!dsData->qKC->Locate("KM",dsData->qLKda->FieldByName("KM")->Value,Opts))
        {
                ShowMessage("数据库档案不存在!请加入");
                fDA = new TfDA(this);
                fDA->ShowModal();
                dsData->qLKda->FieldByName("KM")->Value=dsData->qDA->FieldByName("KM")->AsString;
                dsData->qLKda->FieldByName("MC")->Value=dsData->qDA->FieldByName("MC")->AsString;
                dsData->qLKda->FieldByName("GG")->Value=dsData->qDA->FieldByName("GG")->AsString;
                dsData->qLKda->FieldByName("DW")->Value=dsData->qDA->FieldByName("DW")->AsString;
                //dsData->qLKda->FieldByName("SJ")->Value=fDA->qDA->FieldByName("SJ")->Value;
                dsData->qLKda->FieldByName("JJ")->Value=dsData->qDA->FieldByName("JJ")->Value;
                delete fDA;
        }
        else
        {
              if(qKC->FieldByName("MC")->AsString!=DataSet->FieldByName("MC")->AsString)
              {
                DataSet->FieldByName("MC")->Value=dsData->qKC->FieldByName("MC")->Value;
                DataSet->FieldByName("GG")->Value=dsData->qKC->FieldByName("GG")->Value;
                DataSet->FieldByName("DW")->Value=dsData->qKC->FieldByName("DW")->Value;
                DataSet->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->Value;
                //DataSet->FieldByName("SJ")->Value=dsData->qDA->FieldByName("SJ")->Value;
              }

        }

        Opts.Clear();
        Opts << loPartialKey;
        if(!dsData->qKC->Locate("MC",dsData->qLKda->FieldByName("MC")->AsString,Opts))
                {
                        ShowMessage("这种商品据库档案里不存在!请注意!");
                }

        dsData->qLKda->FieldByName("LQ")->Value=FMain->dtpLQ->DateTime.FormatString("yyyy-mm-dd");
        dsData->qLKda->FieldByName("BC")->Value=FMain->meBC->Text;
        dsData->qLKda->FieldByName("KH")->Value=FMain->cbGH->Text;
        DataSet->FieldByName("JE")->Value=DataSet->FieldByName("SL")->AsFloat*DataSet->FieldByName("JJ")->AsFloat;

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


void __fastcall TdsData::qCKdaBeforePost(TDataSet *DataSet)
{
        TLocateOptions Opts;
        if(DataSet->FieldByName("KM")->AsString==""&&DataSet->FieldByName("MC")->AsString!="")
        {
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qKC->Locate("MC",dsData->qLKda->FieldByName("MC")->AsString,Opts))
                {
                        DataSet->FieldByName("KM")->Value=dsData->qKC->FieldByName("KM")->Value;
                        DataSet->FieldByName("MC")->Value=dsData->qKC->FieldByName("MC")->Value;
                        DataSet->FieldByName("GG")->Value=dsData->qKC->FieldByName("GG")->Value;
                        DataSet->FieldByName("DW")->Value=dsData->qKC->FieldByName("DW")->Value;
                        DataSet->FieldByName("SL")->Value=1;
                        DataSet->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->Value;
                        DataSet->FieldByName("SJ")->Value=dsData->qKC->FieldByName("SJ")->Value;


                }
        }
        if(DataSet->FieldByName("KM")->AsString!=""&&DataSet->FieldByName("MC")->AsString=="")
        {
                Opts.Clear();
                Opts << loPartialKey;
                if(dsData->qKC->Locate("KM",dsData->qLKda->FieldByName("KM")->AsString,Opts))
                {
                        DataSet->FieldByName("KM")->Value=dsData->qKC->FieldByName("KM")->Value;
                        DataSet->FieldByName("MC")->Value=dsData->qKC->FieldByName("MC")->Value;
                        DataSet->FieldByName("GG")->Value=dsData->qKC->FieldByName("GG")->Value;
                        DataSet->FieldByName("DW")->Value=dsData->qKC->FieldByName("DW")->Value;
                        DataSet->FieldByName("SL")->Value=1;
                        DataSet->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->Value;
                        DataSet->FieldByName("SJ")->Value=dsData->qKC->FieldByName("SJ")->Value;

                }
        }


        Opts.Clear();
        Opts << loPartialKey;
        dsData->qKC->Refresh();
        if(!dsData->qKC->Locate("KM",dsData->qCKda->FieldByName("KM")->Value,Opts))
        {
                ShowMessage("数据库档案不存在!请加入");
                fDA = new TfDA(this);
                fDA->ShowModal();
                dsData->qCKda->FieldByName("KM")->Value=dsData->qDA->FieldByName("KM")->AsString;
                dsData->qCKda->FieldByName("MC")->Value=dsData->qDA->FieldByName("MC")->AsString;
                dsData->qCKda->FieldByName("GG")->Value=dsData->qDA->FieldByName("GG")->AsString;
                dsData->qCKda->FieldByName("DW")->Value=dsData->qDA->FieldByName("DW")->AsString;
                dsData->qCKda->FieldByName("SJ")->Value=dsData->qDA->FieldByName("SJ")->Value;
                dsData->qCKda->FieldByName("JJ")->Value=dsData->qDA->FieldByName("JJ")->Value;
                delete fDA;
        }
        else
        {
              if(qKC->FieldByName("MC")->AsString!=DataSet->FieldByName("MC")->AsString)
              {
                DataSet->FieldByName("MC")->Value=dsData->qKC->FieldByName("MC")->Value;
                DataSet->FieldByName("GG")->Value=dsData->qKC->FieldByName("GG")->Value;
                DataSet->FieldByName("DW")->Value=dsData->qKC->FieldByName("DW")->Value;
                DataSet->FieldByName("JJ")->Value=dsData->qKC->FieldByName("JJ")->Value;
                DataSet->FieldByName("SJ")->Value=dsData->qKC->FieldByName("SJ")->Value;
               }


        }
        Opts.Clear();
        Opts << loPartialKey;
        if(!dsData->qKC->Locate("MC",dsData->qCKda->FieldByName("MC")->AsString,Opts))
                {
                        ShowMessage("这种商品据库档案里不存在!请注意!");
                }

        Opts.Clear();
        Opts << loPartialKey;
        dsData->qKC->Refresh();
        if(dsData->qKC->Locate("KM",dsData->qCKda->FieldByName("KM")->AsString,Opts))
        {
                FMain->dbgOut->Hint=dsData->qCKda->FieldByName("MC")->AsString+"现有的库存量是:"+qKC->FieldByName("SL")->AsInteger;