if(DataSet->FieldByName("SL")->AsInteger>=qKC->FieldByName("SL")->AsInteger)
                {
                        DataSet->FieldByName("SL")->Value=qKC->FieldByName("SL")->AsInteger;
                        ShowMessage( FMain->dbgOut->Hint+" 請(qǐng)馬上補(bǔ)貨!");
                }
                 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("倉(cāng)庫(kù)無(wú)這種貨!");
           DataSet->Delete();
        }
*/
    if(DataSet->FieldByName("SL")->AsInteger<=0)
    {
        ShowMessage("數(shù)量不能為零!");
    }
}
//---------------------------------------------------------------------------



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+" 現(xiàn)庫(kù)存量="+qKC->FieldByName("SL")->AsInteger+" 舊庫(kù)存量="+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+" 現(xiàn)庫(kù)存量:"+qKC->FieldByName("SL")->AsInteger+"舊庫(kù)存量:"+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("記錄已經(jīng)存在,請(qǐng)刪除剛才加入的");

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