udata.cpp

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

                if(DataSet->FieldByName("SL")->AsInteger>=qKC->FieldByName("SL")->AsInteger)
                {
                        DataSet->FieldByName("SL")->Value=qKC->FieldByName("SL")->AsInteger;
                        ShowMessage( FMain->dbgOut->Hint+" 请马上补货!");
                }
                 if(qKC->FieldByName("SL")->AsInteger<=0)
                        DataSet->FieldByName("SL")->Value=0;


        }
        else DataSet->FieldByName("SL")->Value=0;
        dsData->qCKda->FieldByName("LQ")->Value=FMain->dtpLQo->DateTime.FormatString("yyyy-mm-dd");
        dsData->qCKda->FieldByName("BC")->Value=FMain->meBCo->Text;
        dsData->qCKda->FieldByName("KH")->Value=FMain->cbFD->Text;
        DataSet->FieldByName("JE")->Value=DataSet->FieldByName("SL")->AsFloat*DataSet->FieldByName("SJ")->AsFloat;
}
//---------------------------------------------------------------------------


void __fastcall TdsData::qCKdaAfterPost(TDataSet *DataSet)
{
/*
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
    if(dsData->qKC->Locate("KM",dsData->qCKda->FieldByName("KM")->AsString,Opts))
        {
           ShowMessage("仓库无这种货!");
           DataSet->Delete();
        }
*/
    if(DataSet->FieldByName("SL")->AsInteger<=0)
    {
        ShowMessage("数量不能为零!");
    }
}
//---------------------------------------------------------------------------



void __fastcall TdsData::qCKdaAfterScroll(TDataSet *DataSet)
{
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loPartialKey;
        if(dsData->qKC->Active)
        {
          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+" 旧库存量="+qKC->FieldByName("SL1")->AsInteger;
        }
}
//---------------------------------------------------------------------------

void __fastcall TdsData::qLKdaAfterScroll(TDataSet *DataSet)
{
        TLocateOptions Opts;
        Opts.Clear();
        Opts << loCaseInsensitive;
        if(dsData->qKC->Active)
        {
          dsData->qKC->Refresh();
          if(dsData->qKC->Locate("KM",dsData->qLKda->FieldByName("KM")->AsString,Opts))
                FMain->dbgCard->Hint=dsData->qLKda->FieldByName("MC")->AsString+" 现库存量:"+qKC->FieldByName("SL")->AsInteger+"旧库存量:"+qKC->FieldByName("SL1")->AsInteger;
         }

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



void __fastcall TdsData::qLKdaAfterPost(TDataSet *DataSet)
{
       qLKdaSum->Close();
       qLKdaSum->Open();
       FMain->lSum->Caption=FormatFloat("0.00",qLKdaSum->FieldByName("HE")->AsFloat);
}
//---------------------------------------------------------------------------

void __fastcall TdsData::qDAAfterInsert(TDataSet *DataSet)
{
        DataSet->FieldByName("JJ")->Value=0;
        DataSet->FieldByName("SJ")->Value=0;
        DataSet->FieldByName("GJ")->Value=1;
        DataSet->FieldByName("DW")->Value="件";
        switch (fDA->tcDa->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 TdsData::qDAAfterPost(TDataSet *DataSet)
{
                if(DataSet->FieldByName("KM")->AsString.Length()<8)
                       ShowMessage("科目代码输入有误!");
/*
                TLocateOptions Opts;
                Opts.Clear();
                Opts << loCaseInsensitive;
                if(qKC->Locate("KM",qDA->FieldByName("KM")->AsString,Opts))
                {
                        qKC->Edit();
                        qKC->FieldByName("GJ")->Value=qDA->FieldByName("GJ")->AsInteger;
                        qKC->FieldByName("KH")->Value=qDA->FieldByName("KH")->AsString;
                        qKC->Post();
                }
*/
                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("记录已经存在,请删除刚才加入的");

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