udm.~cpp

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

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

#include "UDM.h"
#include "uas.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDM::qKCModiAfterInsert(TDataSet *DataSet)
{
        DataSet->FieldByName("JJ")->Value=0;
        DataSet->FieldByName("SJ")->Value=0;
        DataSet->FieldByName("GJ")->Value=1;
        DataSet->FieldByName("DW")->Value="件";
        DataSet->FieldByName("SL")->Value=0;
        switch (FMain->tcKC->TabIndex)
        {
                case 1:
                        DataSet->FieldByName("KM")->Value="0001";
                        DataSet->FieldByName("GJ")->Value=10;
                        DataSet->FieldByName("DW")->Value="瓶";
                        break;
                case 2:
                        DataSet->FieldByName("KM")->Value="0002";
                        DataSet->FieldByName("DW")->Value="瓶";
                        DataSet->FieldByName("GJ")->Value=5;
                        break;
                case 3:
                        DataSet->FieldByName("KM")->Value="0003";
                        DataSet->FieldByName("GJ")->Value=5;
                        break;
                case 4:
                        DataSet->FieldByName("KM")->Value="0004";
                        DataSet->FieldByName("GJ")->Value=10;
                        break;
                case 5:
                        DataSet->FieldByName("KM")->Value="0005";
                        DataSet->FieldByName("GJ")->Value=1;
                        break;
                case 6:
                        DataSet->FieldByName("KM")->Value="0006";
                        DataSet->FieldByName("GJ")->Value=5;
                        break;
                case 7:
                        DataSet->FieldByName("KM")->Value="0007";
                        DataSet->FieldByName("GJ")->Value=5;
                        break;
                case 8:
                        DataSet->FieldByName("DW")->Value="包";
                        DataSet->FieldByName("KM")->Value="0008";
                        DataSet->FieldByName("GJ")->Value=20;
                        break;
                case 9:
                        DataSet->FieldByName("KM")->Value="0009";
                        DataSet->FieldByName("GJ")->Value=2;
                        break;
                case 10:
                        DataSet->FieldByName("KM")->Value="0010";
                        DataSet->FieldByName("GJ")->Value=5;
                        break;
                case 11:
                        DataSet->FieldByName("KM")->Value="0011";
                        DataSet->FieldByName("GJ")->Value=5;
                        break;
                case 12:
                        DataSet->FieldByName("DW")->Value="包";
                        DataSet->FieldByName("KM")->Value="0012";
                        DataSet->FieldByName("GJ")->Value=50;
                        break;
                case 13:
                        DataSet->FieldByName("KM")->Value="0013";
                        DataSet->FieldByName("GJ")->Value=1;
                        break;
                case 14:
                        DataSet->FieldByName("DW")->Value="包";
                        DataSet->FieldByName("KM")->Value="0014";
                        DataSet->FieldByName("GJ")->Value=30;
                        break;
                case 15:
                        DataSet->FieldByName("KM")->Value="0015";
                        DataSet->FieldByName("GJ")->Value=1;
                        break;
               default:
                        break;
        }


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

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





void __fastcall TDM::qKCModiAfterScroll(TDataSet *DataSet)
{
    FMain->dbgKCModi->Hint=DataSet->FieldByName("MC")->AsString+" 现库存量="+DataSet->FieldByName("SL")->AsInteger+" 旧库存量1="+DataSet->FieldByName("SL1")->AsInteger+" 旧库存量2="+DataSet->FieldByName("SL2")->AsInteger;
}
//---------------------------------------------------------------------------

void __fastcall TDM::qKCModiAfterPost(TDataSet *DataSet)
{
                if(DataSet->FieldByName("KM")->AsString.Length()<8)
                       ShowMessage("科目代码输入有误!");

                qTest->Close();
                qTest->SQL->Clear();
                qTest->SQL->Add("SELECT *");
                qTest->SQL->Add("FROM 'Kc.dbf' Kc");
                qTest->SQL->Add("WHERE KM='"+DataSet->FieldByName("KM")->AsString+"'");
                qTest->Open();
                if(qTest->RecordCount>=2)
                  ShowMessage("记录已经存在,请删除刚才加入的");


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

void __fastcall TDM::qKCAfterScroll(TDataSet *DataSet)
{
    if(DataSet->Active)
      FMain->dbgKC->Hint=DataSet->FieldByName("MC")->AsString+" 现库存量="+DataSet->FieldByName("SL")->AsInteger+" 旧库存量1="+DataSet->FieldByName("SL1")->AsInteger+" 旧库存量2="+DataSet->FieldByName("SL2")->AsInteger;
}
//---------------------------------------------------------------------------

void __fastcall TDM::qJGAfterScroll(TDataSet *DataSet)
{
    if(DataSet->Active)
      FMain->dbgJG->Hint=DataSet->FieldByName("PM")->AsString
                        +" 进价="+FormatFloat("0.00",DataSet->FieldByName("JJ")->AsFloat)
                        +" 南环售价="+FormatFloat("0.00",DataSet->FieldByName("SJ1")->AsFloat)
                        +" 九二售价="+FormatFloat("0.00",DataSet->FieldByName("SJ2")->AsFloat)
                        +" 泉州售价="+FormatFloat("0.00",DataSet->FieldByName("SJ3")->AsFloat)
                        +" 金井售价="+FormatFloat("0.00",DataSet->FieldByName("SJ4")->AsFloat)
                        +" 南安售价="+FormatFloat("0.00",DataSet->FieldByName("SJ5")->AsFloat)
                        +" 群英售价="+FormatFloat("0.00",DataSet->FieldByName("SJ6")->AsFloat);
}
//---------------------------------------------------------------------------