?? mssp.cpp
字號:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "mSsp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
TKSSsp *sdSsp;
//---------------------------------------------------------------------------
__fastcall TKSSsp::TKSSsp()
:TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidMasterField(int FieldNo)
{
switch(FieldNo)
{
case 1: //銷售員
ValidSspSaler();
break;
case 2: //年度
ValidSspYear();
break;
case 3: //月份
ValidSspFmonth();
break;
case 4: //計劃額
ValidSspPAmt();
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspSaler() //銷售員
{
/* if(m_SspSaler!=b_SspSaler)
{
Query->Close();
Query->SQL->Clear();
Query->SQL->Add("Select * from sdSaler where salercode='"+m_SspSaler+"'");
Query->Open();
if(Query->RecordCount<1)
{
Query->Close();
throw Exception("該銷售員'"+m_SspSaler+"'未在業務員表里定義");
}
Query->Close();
}*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspYear() //年度
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspFmonth() //月份
{
AnsiString m_SspFmonth;
AnsiString b_SspFmonth;
m_SspFmonth=GetMasterValue("SspFmonth");
b_SspFmonth=GetMasterOldValue("SspFmonth");
/* if(m_SspFmonth!=b_SspFmonth)
{
Query->Close();
Query->SQL->Clear();
Query->SQL->Add("Select * from sdSsp where SspFmonth='"+m_SspFmonth+"' and SspSaler='"+m_SspSaler+"'");
Query->Open();
if(Query->RecordCount>0)
{
Query->Close();
throw Exception("該銷售員的財務月份為:'"+m_SspFmonth+"'的計劃已有定義");
}
Query->Close();
}*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::ValidSspPAmt() //計劃額
{
double m_SspPAmt;
m_SspPAmt=GetMasterValue("SspPAmt");
if(m_SspPAmt<0)
throw Exception("計劃數量需大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSSsp::CmdExec(AnsiString Param)
{
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -