亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? cmhdl.cpp

?? 這是一款ERP軟件源代碼
?? CPP
?? 第 1 頁 / 共 5 頁
字號: 
      if(m_Query->RecordCount<=0)
      {
        m_Query->Close();
        throw Exception("物料編碼 "+value+" 不存在或未初始化");
      }
      m_Query->Close();
    }
    if(value!=m_AdjCodGoods)
    {
      if(this->FindKey(value))
         throw Exception("物料 "+AnsiString(value)+" 已調整");
    }
     m_AdjCodGoods=value;
}
void __fastcall TsdAdjCod:: SetAdjCodAmt(double  value)
{
    if (value<0)
       throw Exception("調整金額不能小于零");
    m_AdjCodAmt=value;
}
void __fastcall TsdAdjCod:: SetAdjCodBatch(AnsiString value)
{

      m_Query->Close();      //是否需要批號管理
      m_Query->SQL->Clear();
      m_Query->SQL->Add("select goodsBatch from sdgoods where goodsCode='"+m_AdjCodGoods+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        if(value.IsEmpty()==false)
          throw Exception("物料 "+m_AdjCodGoods+" 不需要批號管理!");
      }
      else
      {
        if(value.IsEmpty())
        throw Exception("物料 "+m_AdjCodGoods+" 需要批號管理!");
        if (value!=m_AdjCodBatch)
        {
          m_Query->Close();
          m_Query->SQL->Clear();
          m_Query->SQL->Add("SELECT BatchCode FROM sdBatch where BatchCode='"+value+"'");
          m_Query->Open();
          if(m_Query->RecordCount<1 )
          {
           m_Query->Close();
           throw Exception("批號 "+value+" 不存在!");
          }
          m_Query->Close();
        }
      }
    if(value.Length()>18)
      throw Exception("批號長度不能超過18");
     m_AdjCodBatch=value;
}
void __fastcall TsdAdjCod:: SetAdjCodDesc(AnsiString value)
{
    if(value.Length()>40)
      throw Exception("備注不能超過40");
     m_AdjCodDesc=value;
}
//---------------------------------------------------------------------------
AnsiString TsdAdjCod::GetFieldValue(euAdjCod sdFieldName)
{
    switch(sdFieldName)
    {
      case fiAdjCodCode:
            return  AdjCodCode;
      case fiAdjCodLine:
            return  AdjCodLine;
      case fiAdjCodGoods:
            return  AdjCodGoods;
      case fiAdjCodAmt:
            return  AdjCodAmt;
      case fiAdjCodBatch:
            return  AdjCodBatch;
      case fiAdjCodDesc:
            return  AdjCodDesc;
      default:
           throw Exception("當前未定義可取值");
    }
}
//---------------------------------------------------------------------------
AnsiString TsdAdjCod::GetOldFieldValue(euAdjCod sdFieldName)
{
    switch(sdFieldName)
    {
      case fiAdjCodCode:
          return   b_AdjCodCode;
      case fiAdjCodLine:
          return   b_AdjCodLine;
      case fiAdjCodGoods:
          return   b_AdjCodGoods;
      case fiAdjCodAmt:
          return   b_AdjCodAmt;
      case fiAdjCodBatch:
          return   b_AdjCodBatch;
      case fiAdjCodDesc:
          return   b_AdjCodDesc;
      default:
           throw Exception("當前未定義可取值");
    }
}
//---------------------------------------------------------------------------
void TsdAdjCod::SetFieldValue(euAdjCod sdFieldName, AnsiString value)
{
    switch(sdFieldName)
    {
    case fiAdjCodCode:
          AdjCodCode=value;
        break;
    case fiAdjCodLine:
          AdjCodLine=value.ToInt();
        break;
    case fiAdjCodGoods:
          AdjCodGoods=value;
        break;
    case fiAdjCodAmt:
          AdjCodAmt=value.ToDouble();
        break;
    case fiAdjCodBatch:
          AdjCodBatch=value;
        break;
    case fiAdjCodDesc:
          AdjCodDesc=value;
        break;
    default:
         throw Exception("當前字段未定義可賦值");
    }
}
//---------------------------------------------------------------------------
TsdAdjCod::TsdAdjCod(TDataComm *DC)
                :TsdDetail(DC)
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdAdjCod";
        FilterString="";
        OrderString="AdjCodCode,AdjCodLine";
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdAdjCod::TsdAdjCod()
                :TsdDetail()
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdAdjCod";
        FilterString="";
        OrderString="AdjCodCode,AdjCodLine";
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdAdjCod::~TsdAdjCod()
{
  try{
  }
  catch(...)
  {
    throw Exception("析構函數出錯");
  }
}
//---------------------------------------------------------------------------
void TsdAdjCod::BackupValue()
{
      b_AdjCodCode=m_AdjCodCode;
      b_AdjCodLine=m_AdjCodLine;
      b_AdjCodGoods=m_AdjCodGoods;
      b_AdjCodAmt=m_AdjCodAmt;
      b_AdjCodBatch=m_AdjCodBatch;
      b_AdjCodDesc=m_AdjCodDesc;
}
//---------------------------------------------------------------------------
void TsdAdjCod::RestoreValue()
{
      m_AdjCodCode=b_AdjCodCode;
      m_AdjCodLine=b_AdjCodLine;
      m_AdjCodGoods=b_AdjCodGoods;
      m_AdjCodAmt=b_AdjCodAmt;
      m_AdjCodBatch=b_AdjCodBatch;
      m_AdjCodDesc=b_AdjCodDesc;
}
//---------------------------------------------------------------------------
void TsdAdjCod::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
    m_AdjCodCode="";
    m_AdjCodLine=0;
    m_AdjCodGoods="";
    m_AdjCodAmt=0;
    m_AdjCodBatch="";
    m_AdjCodDesc="";
    break;
    case 1:
    b_AdjCodCode="";
    b_AdjCodLine=0;
    b_AdjCodGoods="";
    b_AdjCodAmt=0;
    b_AdjCodBatch="";
    b_AdjCodDesc="";
      break;
    }
}
//---------------------------------------------------------------------------
void TsdAdjCod::BatchLetValue()
{
    m_AdjCodCode=m_Query->FieldValues["AdjCodCode"];
    m_AdjCodLine=m_Query->FieldValues["AdjCodLine"];
    m_AdjCodGoods=m_Query->FieldValues["AdjCodGoods"];
    m_AdjCodAmt=m_Query->FieldValues["AdjCodAmt"];
    m_AdjCodBatch=m_Query->FieldValues["AdjCodBatch"];
    m_AdjCodDesc=m_Query->FieldValues["AdjCodDesc"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdAdjCod::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("當前不是編輯狀態,不能進行存盤操作!");
    if(m_AdjCodCode<=0)
    throw Exception("單行號不能小于等于零!");
    if(m_AdjCodCode.IsEmpty()==true)
        throw Exception("單號不能為空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
    {
        m_StoredProc->ProcedureName="sdAdjcod_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@AdjCodCode",ftString,pdInput,18,m_AdjCodCode);
        m_StoredProc->Parameters->CreateParameter("@AdjCodLine",ftInteger,pdInput,10,m_AdjCodLine);
        m_StoredProc->Parameters->CreateParameter("@AdjCodGoods",ftString,pdInput,18,m_AdjCodGoods);
        m_StoredProc->Parameters->CreateParameter("@AdjCodAmt",ftFloat,pdInput,12,m_AdjCodAmt);
        m_StoredProc->Parameters->CreateParameter("@AdjCodBatch",ftString,pdInput,18,m_AdjCodBatch);
        m_StoredProc->Parameters->CreateParameter("@AdjCodDesc",ftString,pdInput,40,m_AdjCodDesc);

        m_StoredProc->ExecProc();

      }
    else{
        m_StoredProc->ProcedureName="sdAdjcod_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_AdjCodCode",ftString,pdInput,18,b_AdjCodCode);
        m_StoredProc->Parameters->CreateParameter("@W_AdjCodGoods",ftString,pdInput,18,b_AdjCodGoods);
        m_StoredProc->Parameters->CreateParameter("@AdjCodCode",ftString,pdInput,18,m_AdjCodCode);
        m_StoredProc->Parameters->CreateParameter("@AdjCodLine",ftInteger,pdInput,10,m_AdjCodLine);
        m_StoredProc->Parameters->CreateParameter("@AdjCodGoods",ftString,pdInput,18,m_AdjCodGoods);
        m_StoredProc->Parameters->CreateParameter("@AdjCodAmt",ftFloat,pdInput,12,m_AdjCodAmt);
        m_StoredProc->Parameters->CreateParameter("@AdjCodBatch",ftString,pdInput,18,m_AdjCodBatch);
        m_StoredProc->Parameters->CreateParameter("@AdjCodDesc",ftString,pdInput,40,m_AdjCodDesc);

       m_StoredProc->ExecProc();


    }
    m_StoredProc->Close();
    TsdAdjCod *p=new TsdAdjCod();
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->AdjCodGoods,this->AdjCodGoods);
}
//---------------------------------------------------------------------------
void TsdAdjCod::Delete()
{
    if(CurStatus!=1)
        throw Exception("當前狀態不能進行刪除操作!");
    if(m_AdjCodCode.IsEmpty()==true)
        throw Exception("當前沒有記錄可以刪除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdAdjcod_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_AdjCodCode",ftString,pdInput,18,b_AdjCodCode);
    m_StoredProc->Parameters->CreateParameter("@W_AdjCodGoods",ftString,pdInput,18,b_AdjCodGoods);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_AdjCodGoods);
}
//---------------------------------------------------------------------------
void TsdAdjCod::Assign(TsdAdjCod *p)
{
    this->SetActionID(p->CurStatus);
    this->m_AdjCodCode=p->m_AdjCodCode;
    this->m_AdjCodLine=p->m_AdjCodLine;
    this->m_AdjCodGoods=p->m_AdjCodGoods;
    this->m_AdjCodAmt=p->m_AdjCodAmt;
    this->m_AdjCodBatch=p->m_AdjCodBatch;
    this->m_AdjCodDesc=p->m_AdjCodDesc;

    if(CurStatus==3)
    {
      this->b_AdjCodCode=p->b_AdjCodCode;
      this->b_AdjCodLine=p->b_AdjCodLine;
      this->b_AdjCodGoods=p->b_AdjCodGoods;
      this->b_AdjCodAmt=p->b_AdjCodAmt;
      this->b_AdjCodBatch=p->b_AdjCodBatch;
      this->b_AdjCodDesc=p->b_AdjCodDesc;
    }
    else
      this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdAdjCod::AssignValue()
{
    TsdAdjCod *p=(TsdAdjCod *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdAdjCod::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();
            TsdAdjCod *p=new TsdAdjCod();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->AdjCodGoods);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdAdjCod::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表達式不能為空");
    m_SqlStr="select * from sdAdjCod 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;
    }
}
//**************************************
//     TsdScmbh 標準成本更改單頭
//**************************************
//--------------------------------------------------------------
void __fastcall TsdScmbh:: SetScmbhCode(AnsiString value)
{
    if(value.IsEmpty())
        throw Exception("更改單號不能為空!");
    if(value.Length()>18)
      throw Exception("更改單號長度不能超過18");
    if(value!=m_ScmbhCode)
    {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("SELECT ScmbhCODE FROM sdScmbh WHERE ScmbhCODE='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount>0)
        {
            m_Query->Close();
            throw Exception("更改單號'"+value+"'已存在");
        }
        m_Query->Close();
    }
      m_ScmbhCode=value;
}
void __fastcall TsdScmbh:: SetScmbhDate(AnsiString value)
{
   if (value.IsEmpty())
       throw Exception("更改日期不能為空!");
    if(value.Length()>10)
        throw Exception("更改日期長度不能大于10");
    m_ScmbhDate=Validate(value);
}
void __fastcall TsdScmbh:: SetScmbhFmonth(AnsiString value)

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
午夜欧美在线一二页| 免费日韩伦理电影| 国产激情视频一区二区三区欧美| 欧美午夜精品理论片a级按摩| 综合久久久久综合| 99久精品国产| 国产精品久久久久影院亚瑟| 成人国产精品免费网站| 国产日韩一级二级三级| 成人深夜在线观看| 中文字幕亚洲不卡| 色久综合一二码| 亚洲福利视频导航| 51精品秘密在线观看| 视频一区视频二区中文字幕| 日韩精品一区国产麻豆| 狠狠色丁香婷婷综合久久片| 国产无一区二区| 国产999精品久久久久久| 国产性做久久久久久| 99在线视频精品| 亚洲一区二区三区激情| 日韩欧美高清一区| 成人av网站在线观看| 亚洲国产日韩av| 久久这里只有精品首页| 色综合夜色一区| 免费的成人av| 中文字幕亚洲一区二区va在线| 欧美日韩国产大片| 精品亚洲成a人在线观看| 18成人在线观看| 制服丝袜中文字幕亚洲| 成人美女在线视频| 欧美情侣在线播放| 日本成人在线网站| 成人久久久精品乱码一区二区三区| 欧美大片国产精品| 精品制服美女丁香| 国产成人精品综合在线观看| 亚洲成人高清在线| 国产成人h网站| 国产一级精品在线| 欧美电视剧在线看免费| k8久久久一区二区三区 | 欧美视频一区二区| 91丨九色丨蝌蚪富婆spa| 麻豆精品在线视频| 有码一区二区三区| 国产精品天天摸av网| 欧美成人a在线| 欧美日韩综合色| 91视频你懂的| 国产成人精品亚洲777人妖| 日韩国产一区二| 亚洲香蕉伊在人在线观| 亚洲欧洲色图综合| 久久一区二区视频| 日韩一区二区三区精品视频| 欧美日韩一卡二卡三卡 | 欧美成人乱码一区二区三区| 欧美性大战久久| 一本一本大道香蕉久在线精品| 国产成人夜色高潮福利影视| 免费xxxx性欧美18vr| 亚洲国产精品久久一线不卡| 亚洲免费资源在线播放| 国产精品理伦片| 久久精品男人天堂av| 精品电影一区二区| 精品成人一区二区三区四区| 7777精品久久久大香线蕉 | 欧美理论在线播放| 91久久线看在观草草青青| 不卡影院免费观看| 波多野结衣91| 9i看片成人免费高清| 91天堂素人约啪| 色视频一区二区| 日韩欧美国产午夜精品| 日韩限制级电影在线观看| 欧美色电影在线| 欧美日韩免费在线视频| 欧美日韩激情一区二区三区| 欧美日韩一区二区三区高清| 欧美日韩国产高清一区二区三区 | 天堂av在线一区| 91蝌蚪国产九色| 日韩电影在线一区二区| 日韩电影在线一区| 热久久免费视频| 国产在线精品一区二区夜色| 极品少妇一区二区三区精品视频| 国产一区 二区| 成人精品国产一区二区4080| 色综合激情五月| 亚洲在线成人精品| 日韩电影免费在线| 青青国产91久久久久久| 久久国产乱子精品免费女| 激情久久久久久久久久久久久久久久| 精品一区二区三区在线视频| 国产精品自拍毛片| 91猫先生在线| 欧美日韩国产在线播放网站| 有码一区二区三区| 国产精品色眯眯| 欧美三日本三级三级在线播放| 国产伦精品一区二区三区视频青涩| 亚洲va欧美va人人爽| 久久精品国内一区二区三区| 高清不卡一区二区在线| 91日韩精品一区| 在线综合视频播放| 久久精品人人做人人爽人人| 久久精品一区二区三区不卡牛牛| 国产精品国产三级国产aⅴ中文| 一区二区三区中文免费| 丝袜亚洲另类丝袜在线| 国产a区久久久| 日本高清无吗v一区| 精品三级av在线| 亚洲视频 欧洲视频| 日本中文字幕不卡| a亚洲天堂av| 日韩一级高清毛片| ㊣最新国产の精品bt伙计久久| 日韩综合一区二区| 91亚洲国产成人精品一区二区三 | 成人黄色一级视频| 777xxx欧美| 日韩久久一区二区| 国产在线精品免费av| 欧美撒尿777hd撒尿| 国产欧美日韩三级| 久久国产精品99久久久久久老狼| 91色.com| 国产精品网站在线播放| 美国十次综合导航| 欧美性一二三区| 国产精品久久久久四虎| 另类小说色综合网站| 欧美在线视频全部完| 国产免费久久精品| 另类小说图片综合网| 欧美日本乱大交xxxxx| 亚洲色图在线视频| 成人亚洲一区二区一| 欧美大胆一级视频| 日韩成人av影视| 在线精品亚洲一区二区不卡| 国产精品成人网| 国产成人精品aa毛片| 精品理论电影在线观看| 日本不卡一二三| 欧美精品久久99| 亚洲一级不卡视频| 91丝袜美女网| 亚洲免费在线视频| 成人av动漫在线| 中文字幕av一区 二区| 精品一区二区三区香蕉蜜桃| 日韩一级片在线观看| 午夜av一区二区| 欧美精品第1页| 日本欧美一区二区三区| 884aa四虎影成人精品一区| 婷婷开心久久网| 欧美日韩国产成人在线91 | 久久成人免费日本黄色| 日韩视频免费观看高清完整版在线观看| 香蕉乱码成人久久天堂爱免费| 色狠狠一区二区| 亚洲国产欧美日韩另类综合| 欧美午夜精品一区| 日韩不卡一区二区三区 | 欧美色图免费看| 亚洲成av人**亚洲成av**| 91精品综合久久久久久| 蜜桃91丨九色丨蝌蚪91桃色| 精品日韩在线一区| 懂色av噜噜一区二区三区av| 国产精品第四页| 在线精品观看国产| 日韩**一区毛片| 精品福利在线导航| 成人黄页在线观看| 亚洲色图欧美激情| 欧美日韩久久久| 久久精品国产99国产| 国产欧美一区二区在线观看| 国产成a人亚洲精| 有坂深雪av一区二区精品| 欧美日韩一区二区在线视频| 免费av网站大全久久| 欧美极品xxx| 欧美日免费三级在线| 国产最新精品免费| 亚洲三级理论片| 91麻豆精品国产91久久久更新时间|