mqualityclassmgr.cpp
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 90 行
CPP
90 行
//---------------------------------------------------------------------------
#pragma hdrstop
#include "mQualityClassMgr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
char* __stdcall ValidFieldValue(int ClassCode,int Param)
{
int result;
AnsiString retstr;
switch(ClassCode)
{
case 1090101: //质检内容
sdQcc=new TKSQcc();
result=sdQcc->ValidFieldValue(Param);
if(result!=0)
retstr=sdQcc->ErrorMessage;
delete sdQcc;
break;
case 1090102: //质检等级
sdQcl=new TKSQcl();
result=sdQcl->ValidFieldValue(Param);
if(result!=0)
retstr=sdQcl->ErrorMessage;
delete sdQcl;
break;
case 1090103: //缺陷等级
sdQdl=new TKSQdl();
result=sdQdl->ValidFieldValue(Param);
if(result!=0)
retstr=sdQdl->ErrorMessage;
delete sdQdl;
break;
case 1090104: //质检员
sdQcm=new TKSQcm();
result=sdQcm->ValidFieldValue(Param);
if(result!=0)
retstr=sdQcm->ErrorMessage;
delete sdQcm;
break;
case 1090105: //重检原因
sdRqr=new TKSRqr();
result=sdRqr->ValidFieldValue(Param);
if(result!=0)
retstr=sdRqr->ErrorMessage;
delete sdRqr;
break;
case 1090106: //技术要求
sdTrd=new TKSTrd();
result=sdTrd->ValidFieldValue(Param);
if(result!=0)
retstr=sdTrd->ErrorMessage;
delete sdTrd;
break;
case 1090107: //质检方法
sdQcWay=new TKSQcWay();
result=sdRqr->ValidFieldValue(Param);
if(result!=0)
retstr=sdQcWay->ErrorMessage;
delete sdQcWay;
break;
case 1090201: //质检单
sdQcsh=new TKSQcsh();
result=sdQcsh->ValidFieldValue(Param);
if(result!=0)
retstr=sdQcsh->ErrorMessage;
delete sdQcsh;
break;
default:
break;
}
return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int ClassCode,int Param)
{
int result;
AnsiString retstr;
switch(ClassCode)
{
default:
break;
}
return retstr.c_str();
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?