?? emhdl.cpp
字號(hào):
m_SqlStr="select * from sdFadn where "+WhereStr;
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add(m_SqlStr);
m_Query->Open();
if(m_Query->RecordCount!=1)
{
m_Query->Close();
return false;
}
else
{
BatchLetValue();
m_Query->Close();
return true;
}
}//**************************************
// TsdFaAe 附屬設(shè)備
//**************************************
//--------------------------------------------------------------
void __fastcall TsdFaAe:: SetFaAeCode(AnsiString value)
{
if (value.IsEmpty())
throw Exception("設(shè)備編碼不能為空");
if(value.Length()>18)
throw Exception("設(shè)備編碼長度不能超過18");
if (value!=m_FaAeCode)
{
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add("SELECT fadncode FROM sdfadn where fadndec=0 and fadndiscard=0 fadncode='"+value+"'");
m_Query->Open();
if(m_Query->RecordCount<1 )
{
m_Query->Close();
throw Exception("設(shè)備編碼 '" +value+"'未定義或已減少報(bào)廢");
}
m_Query->Close();
}
m_FaAeCode=value;
}
void __fastcall TsdFaAe:: SetFaAePFadn(AnsiString value)
{
if (value.IsEmpty())
throw Exception("設(shè)備編碼不能為空");
if(value.Length()>18)
throw Exception("設(shè)備編碼長度不能超過18");
if (value!=m_FaAePFadn)
{
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add("SELECT fadncode FROM sdfadn where fadncode='"+value+"'");
m_Query->Open();
if(m_Query->RecordCount<1 )
{
m_Query->Close();
throw Exception("設(shè)備編碼 '" +value+"'未定義");
}
m_Query->Close();
}
m_FaAePFadn=value;
}
void __fastcall TsdFaAe:: SetFaAeDesc(AnsiString value)
{
if(value.Length()>40)
throw Exception("備注長度不能超過40");
m_FaAeDesc=value;
}
//---------------------------------------------------------------------------
AnsiString TsdFaAe::GetFieldValue(euFaAe sdFieldName)
{
switch(sdFieldName)
{
case fiFaAeCode:
return FaAeCode;
case fiFaAePFadn:
return FaAePFadn;
case fiFaAeDesc:
return FaAeDesc;
default:
throw Exception("當(dāng)前未定義可取值");
}
}
//---------------------------------------------------------------------------
void TsdFaAe::SetFieldValue(euFaAe sdFieldName, AnsiString value)
{
switch(sdFieldName)
{
case fiFaAeCode:
FaAeCode=value;
break;
case fiFaAePFadn:
FaAePFadn=value;
break;
case fiFaAeDesc:
FaAeDesc=value;
break;
default:
throw Exception("當(dāng)前字段未定義可賦值");
}
}
//---------------------------------------------------------------------------
TsdFaAe::TsdFaAe(TDataComm *DC)
:TsdStandard(DC)
{
try
{
EmptyValue(0);
EmptyValue(1);
QueryString="SELECT * FROM sdFaAe";
FilterString="";
OrderString="FaAeCode,FaAePFadn";
}
catch(Exception &e)
{
ShowMessage(e.Message);
}
}
//---------------------------------------------------------------------------
TsdFaAe::TsdFaAe()
:TsdStandard()
{
try
{
EmptyValue(0);
EmptyValue(1);
QueryString="SELECT * FROM sdFaAe";
FilterString="";
OrderString="FaAeCode,FaAePFadn";
}
catch(Exception &e)
{
ShowMessage(e.Message);
}
}
//---------------------------------------------------------------------------
TsdFaAe::~TsdFaAe()
{
try{
}
catch(...)
{
throw Exception("析構(gòu)函數(shù)出錯(cuò)");
}
}
//---------------------------------------------------------------------------
void TsdFaAe::BackupValue()
{
b_FaAeCode=m_FaAeCode;
b_FaAePFadn=m_FaAePFadn;
b_FaAeDesc=m_FaAeDesc;
}
//---------------------------------------------------------------------------
void TsdFaAe::RestoreValue()
{
m_FaAeCode=b_FaAeCode;
m_FaAePFadn=b_FaAePFadn;
m_FaAeDesc=b_FaAeDesc;
}
//---------------------------------------------------------------------------
void TsdFaAe::EmptyValue(int Index)
{
switch(Index)
{
case 0:
m_FaAeCode="";
m_FaAePFadn="";
m_FaAeDesc="";
break;
case 1:
b_FaAeCode="";
b_FaAePFadn="";
b_FaAeDesc="";
break;
}
}
//---------------------------------------------------------------------------
void TsdFaAe::BatchLetValue()
{
m_FaAeCode=m_Query->FieldValues["FaAeCode"];
m_FaAePFadn=m_Query->FieldValues["FaAePFadn"];
m_FaAeDesc=m_Query->FieldValues["FaAeDesc"];
BackupValue();
}
//---------------------------------------------------------------------------
void TsdFaAe::Update()
{
if(CurStatus==0||CurStatus==1)
throw Exception("當(dāng)前不是編輯狀態(tài),不能進(jìn)行存盤操作!");
if(m_FaAeCode.IsEmpty()==true)
throw Exception("單號(hào)不能為空!");
m_StoredProc->Close();
if(CurStatus==2||CurStatus==4)
{
m_StoredProc->ProcedureName="sdFaAe_Insert";
m_StoredProc->Parameters->Clear();
m_StoredProc->Parameters->CreateParameter("@FaAeCode",ftString,pdInput,18,m_FaAeCode);
m_StoredProc->Parameters->CreateParameter("@FaAePFadn",ftString,pdInput,18,m_FaAePFadn);
m_StoredProc->Parameters->CreateParameter("@FaAeDesc",ftString,pdInput,40,m_FaAeDesc);
m_StoredProc->ExecProc();
m_StoredProc->Close();
}
else
{
m_StoredProc->ProcedureName="sdFaAe_Update";
m_StoredProc->Parameters->Clear();
m_StoredProc->Parameters->CreateParameter("@W_FaAeCode",ftString,pdInput,18,b_FaAeCode);
m_StoredProc->Parameters->CreateParameter("@W_FaAePFadn",ftString,pdInput,18,b_FaAePFadn);
m_StoredProc->Parameters->CreateParameter("@FaAeCode",ftString,pdInput,18,m_FaAeCode);
m_StoredProc->Parameters->CreateParameter("@FaAePFadn",ftString,pdInput,18,m_FaAePFadn);
m_StoredProc->Parameters->CreateParameter("@FaAeDesc",ftString,pdInput,40,m_FaAeDesc);
m_StoredProc->ExecProc();
m_StoredProc->Close();
}
TsdFaAe *p=new TsdFaAe();
if(CurStatus==2)
{
SetActionID(1);
p->Assign(this);
AddRecord((void *)p,p->FaAeCode+p->FaAePFadn);
}
else
{
SetActionID(1);
p->Assign(this);
ChangeRecord((void *)p,p->FaAeCode+p->FaAePFadn,this->b_FaAeCode+this->b_FaAePFadn);
}
}
//---------------------------------------------------------------------------
void TsdFaAe::Delete()
{
if(CurStatus!=1)
throw Exception("當(dāng)前狀態(tài)不能進(jìn)行刪除操作!");
if(m_FaAeCode.IsEmpty()==true)
throw Exception("當(dāng)前沒有記錄可以刪除!");
m_StoredProc->Close();
m_StoredProc->ProcedureName="sdFaAe_Delete";
m_StoredProc->Parameters->Clear();
m_StoredProc->Parameters->CreateParameter("@W_FaAeCode",ftString,pdInput,18,b_FaAeCode);
m_StoredProc->Parameters->CreateParameter("@W_FaAePFadn",ftString,pdInput,18,b_FaAePFadn);
m_StoredProc->ExecProc();
m_StoredProc->Close();
DeleteRecord(this->b_FaAeCode+this->b_FaAePFadn);
}
//---------------------------------------------------------------------------
void TsdFaAe::Assign(TsdFaAe *p)
{
this->SetActionID(p->CurStatus);
this->m_FaAeCode=p->m_FaAeCode;
this->m_FaAePFadn=p->m_FaAePFadn;
this->m_FaAeDesc=p->m_FaAeDesc;
this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdFaAe::AssignValue()
{
TsdFaAe *p=(TsdFaAe *)Records(CurRecNo);
Assign(p);
}
//---------------------------------------------------------------------------
int TsdFaAe::Query()
{
AnsiString m_SqlStr;
m_SqlStr=QueryString;
if(FilterString.IsEmpty()==false)
m_SqlStr=m_SqlStr+" where "+FilterString;
if(OrderString.IsEmpty()==false)
m_SqlStr=m_SqlStr+" Order by "+OrderString;
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add(m_SqlStr);
m_Query->Open();
ClearRecord();
if(m_Query->RecordCount>0)
{
m_Query->First();
while(!m_Query->Eof)
{
BatchLetValue();
TsdFaAe *p=new TsdFaAe();
SetActionID(1);
p->Assign(this);
AddRecord((void *)p,p->FaAeCode);
m_Query->Next();
}
MoveFirst();
}
m_Query->Close();
return Count;
}
//---------------------------------------------------------------------------
bool TsdFaAe::Find(AnsiString WhereStr)
{
AnsiString m_SqlStr;
if(WhereStr.IsEmpty()==true)
throw Exception("查找表達(dá)式不能為空");
m_SqlStr="select * from sdFaAe where "+WhereStr;
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add(m_SqlStr);
m_Query->Open();
if(m_Query->RecordCount!=1)
{
m_Query->Close();
return false;
}
else
{
BatchLetValue();
m_Query->Close();
return true;
}
}
//**************************************
// TsdFaDec 設(shè)備減少
//**************************************
//--------------------------------------------------------------
void __fastcall TsdFaDec:: SetFaDecCode(AnsiString value)
{
if (value.IsEmpty())
throw Exception("減少單號(hào)不能為空");
if(value.Length()>18)
throw Exception("減少單號(hào)長度不能大于18");
if(value!=m_FaDecCode)
{
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add("SELECT Fadeccode FROM SDFadec WHERE fadeccode='" +value+"'");
m_Query->Open();
if(m_Query->RecordCount>0)
{
m_Query->Close();
throw Exception("減少單號(hào) '"+value+"' 已存在");
}
m_Query->Close();
}
m_FaDecCode=value;
}
void __fastcall TsdFaDec:: SetFaDecDate(AnsiString value)
{
if (value.IsEmpty())
throw Exception("減少日期不能為空");
if(value.Length()>10)
throw Exception("減少日期長度不能大于10");
m_FaDecDate=Validate(value);
}
void __fastcall TsdFaDec:: SetFaDecFmonth(AnsiString value)
{
if (value.IsEmpty())
throw Exception("財(cái)務(wù)月份不能為空");
if(value.Length()>6)
throw Exception("財(cái)務(wù)月份長度不能超過6");
if (value!=m_FaDecFmonth)
{
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add("SELECT Fcmonth FROM sdfc where Fcmonth='"+value+"'");
m_Query->Open();
if(m_Query->RecordCount<1 )
{
m_Query->Close();
throw Exception("財(cái)務(wù)月份 '"+value+"' 未定義");
}
m_Query->Close();
}
m_FaDecFmonth=value;
}
void __fastcall TsdFaDec:: SetFaDecFadn(AnsiString value)
{
if (value.IsEmpty())
throw Exception("設(shè)備編碼不能為空");
if(value.Length()>18)
throw Exception("設(shè)備編碼長度不能超過18");
if (value!=m_FaDecFadn)
{
m_Query->Close();
m_Query->SQL->Clear();
m_Query->SQL->Add("SELECT fadncode FROM sdfadn where fadncode='"+val?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -