fastop.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FaStop.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmFaStop *frmFaStop;
//---------------------------------------------------------------------------
__fastcall TfrmFaStop::TfrmFaStop(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFaStop,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::InitEditControl()
{
    FillEdit(seFaStopFadn,"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, sgFaStop,sgFaStop->Name);
    ClientGroup->AddComponent(2,false,false,false, seFaStopCode,seFaStopCode->Name);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaStop::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFaStopCode->Text      ="";         //停用单号
       seFaStopFadn->Text      ="";         //设备编码
       seFaStopFadnName->Text  ="";         //设备名称
       sdFaStopBDate->Text     =g_sdCurDate; //停用开始日期
       sdFaStopEDate->Text     ="";         //停用结束日期
       memFaStopDesc->Text     ="";         //停用原因
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::GetDataFromComObject()
{
    seFaStopCode->Text=GetFieldValue(fiFaStopCode);
    sgFaStop->LocateGrid(1,seFaStopCode->Text);
    seFaStopFadn->LocateKey(GetFieldValue(fiFaStopFadn));
    seFaStopFadn->Text=seFaStopFadn->ItemData[0];
    seFaStopFadnName->Text=seFaStopFadn->ItemData[1];
    sdFaStopBDate->Text=GetFieldValue(fiFaStopBDate);
    sdFaStopEDate->Text=GetFieldValue(fiFaStopEDate);
    memFaStopDesc->Text=GetFieldValue(fiFaStopDesc);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::SendDataToComObject()
{
    WriteFieldValue(comServer,fiFaStopCode,seFaStopCode->Text);
    WriteFieldValue(comServer,fiFaStopFadn,seFaStopFadn->Text);
    WriteFieldValue(comServer,fiFaStopBDate,sdFaStopBDate->Text);
    WriteFieldValue(comServer,fiFaStopEDate,sdFaStopEDate->Text);
    WriteFieldValue(comServer,fiFaStopDesc,memFaStopDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::WaitUserInput()
{
   seFaStopCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaStop::GetDataToGrid()
{
    AnsiString  s;
    s = "\t" +GetFieldValue(fiFaStopCode)+
        "\t" +GetFieldValue(fiFaStopFadn)+
        "\t" +GetFieldValue(fiFaStopBDate)+
        "\t" +GetFieldValue(fiFaStopEDate);
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFaStop->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFaStop->Row;
        sgFaStop->ChangeItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFaStop->RemoveItem(sgFaStop->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgFaStop->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFaStop->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::RefreshUpdateData(int MsgSrc,int MsgType)
{
      if(MsgSrc==euSdFadn)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillEdit(seFaStopFadn,"select  fadncode,fadnname  from sdfadn   order By fadncode","fadncode","fadnname");
      }
}
//---------------------------------------------------------------------------

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

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaStop::sgFaStopClick(TObject *Sender)
{
    if (sgFaStop->Row > 0)
         comServer->LocateByKey(sgFaStop->TextMatrix[sgFaStop->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

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

void __fastcall TfrmFaStop::seFaStopFadnButtonClick(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)
    {
     seFaStopFadn->Text=p->ColData[1];
     seFaStopFadnName->Text=p->ColData[2];
    }
    delete p;

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

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

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