fadiscard.cpp

速达开源ERP系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FaDisCard.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmFaDisCard *frmFaDisCard;
//---------------------------------------------------------------------------
__fastcall TfrmFaDisCard::TfrmFaDisCard(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFaDisCard,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::InitEditControl()
{
    FillEdit(seFaDisCardFadn,"select  fadncode,fadnname  from sdfadn  order By fadncode","fadncode","fadnname");
    ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFaDisCard,sgFaDisCard->Name);
    ClientGroup->AddComponent(2,false,false,false,seFaDisCardCode,seFaDisCardCode->Name);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaDisCard::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFaDisCardCode->Text      ="";         //报废单号
       sdFaDisCardDate->Text      =g_sdCurDate; //报废日期
       seFaDisCardFadn->Text      ="";       //报废设备
       seFaDisCardFadnName->Text  ="";         //设备名称
       seFaDisCardDesc->Text      ="";         //报废原因
       seFaDisCardOVal->Text      ="0";         //清理费用
       seFaDisCardIVal->Text      ="0";         //清理收入
       labFaDisCardUser->Caption  =g_sdUserCode;//操作员
       chkFaDisCardCheck->Checked =false;         //审核标志
       labFaDisCardChecker->Caption="";         //审核人
       labFaDisCardCheckDate->Caption="";         //审核日期
       labFaDisCardSysDate->Caption="";         //系统日期
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::GetDataFromComObject()
{
    seFaDisCardCode->Text=GetFieldValue(fiFaDisCardCode);
    sgFaDisCard->LocateGrid(1,seFaDisCardCode->Text);
    sdFaDisCardDate->Text=GetFieldValue(fiFaDisCardDate);
    seFaDisCardFadn->LocateKey(GetFieldValue(fiFaDisCardFadn));
    seFaDisCardFadn->Text=seFaDisCardFadn->ItemData[0];
    seFaDisCardFadnName->Text=seFaDisCardFadn->ItemData[1];
    seFaDisCardDesc->Text=GetFieldValue(fiFaDisCardDesc);
    seFaDisCardOVal->Text=GetFieldValue(fiFaDisCardOVal);
    seFaDisCardIVal->Text=GetFieldValue(fiFaDisCardIVal);
    labFaDisCardUser->Caption=GetFieldValue(fiFaDisCardUser);
    chkFaDisCardCheck->Checked=(GetFieldValue(fiFaDisCardCheck)==1)? true: false;
    if(chkFaDisCardCheck->Checked)
      SetCheckToolbarStatus(true);
    else
      SetCheckToolbarStatus(false);
    labFaDisCardChecker->Caption=GetFieldValue(fiFaDisCardChecker);
    labFaDisCardCheckDate->Caption=GetFieldValue(fiFaDisCardCheckDate);
    labFaDisCardSysDate->Caption=GetFieldValue(fiFaDisCardSysDate);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::SendDataToComObject()
{
    WriteFieldValue(comServer,fiFaDisCardCode,seFaDisCardCode->Text);
    WriteFieldValue(comServer,fiFaDisCardDate,sdFaDisCardDate->Text);
    WriteFieldValue(comServer,fiFaDisCardFadn,seFaDisCardFadn->Text);
    WriteFieldValue(comServer,fiFaDisCardDesc,seFaDisCardDesc->Text);
    WriteFieldValue(comServer,fiFaDisCardOVal,seFaDisCardOVal->Text);
    WriteFieldValue(comServer,fiFaDisCardIVal,seFaDisCardIVal->Text);
    WriteFieldValue(comServer,fiFaDisCardUser,labFaDisCardUser->Caption);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::WaitUserInput()
{
    seFaDisCardCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaDisCard::GetDataToGrid()
{
    AnsiString  s;
    seFaDisCardFadn->LocateKey(GetFieldValue(fiFaDisCardFadn));
    s = "\t" +GetFieldValue(fiFaDisCardCode)+
        "\t" +GetFieldValue(fiFaDisCardFadn)+
        "\t" +seFaDisCardFadn->ItemData[1]+
        "\t" +GetFieldValue(fiFaDisCardDate);
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFaDisCard->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFaDisCard->Row;
        sgFaDisCard->RemoveItem(i);
        sgFaDisCard->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFaDisCard->RemoveItem(sgFaDisCard->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgFaDisCard->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFaDisCard->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaDisCard::RefreshUpdateData(int MsgSrc,int MsgType)
{
        if(MsgSrc==euSdFadn)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(seFaDisCardFadn,"select  fadncode,fadnname  from sdfadn  order By fadncode","fadncode","fadnname");
      }

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

void __fastcall TfrmFaDisCard::seFaDisCardCodeKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFaDisCardCode->Text);
      GetDataFromComObject();
    }

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

void __fastcall TfrmFaDisCard::sgFaDisCardClick(TObject *Sender)
{
    if (sgFaDisCard->Row > 0)
         comServer->LocateByKey(sgFaDisCard->TextMatrix[sgFaDisCard->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

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

void __fastcall TfrmFaDisCard::seFaDisCardFadnKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
    if(Key==13)
    {
      TComResultSet *TResultSet=NewResultSet();
      AnsiString SQL="select fadncode, fadnname from sdfadn ";
      SQL+=" where  where (fadnDec=0 and fadndiscard=0) and fadncode='"+seFaDisCardFadn->Text+"'order by fadncode ";
      try
      {
       TResultSet->Close();
       TResultSet->Open(SQL,"");
       if(TResultSet->RecordCount<1)
        throw  Exception("设备编码"+seFaDisCardFadn->Text+"'不存在或已减少、报废");
       seFaDisCardFadnName->Text=TResultSet->FieldByName("fadnname");
       TResultSet->Close();
      }
      __finally
      {
        delete TResultSet;
      }  
    }

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

void __fastcall TfrmFaDisCard::seFaDisCardFadnButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[设备编码][设备名称]select fadncode, fadnname from sdfadn where fadnDec=0 and fadndiscard=0 order by fadncode ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"设备查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
     seFaDisCardFadn->Text=p->ColData[1];
     seFaDisCardFadnName->Text=p->ColData[2];
    }
    delete p;
}
//---------------------------------------------------------------------------