cc.cpp

速达开源ERP系统

#include <vcl.h>
#pragma hdrstop
#include "Cc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "SDGrid"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDComboBox"
#pragma link "DateEdit"
#pragma resource "*.dfm"
TfrmCc *frmCc;

//---------------------------------------------------------------------------
__fastcall TfrmCc::TfrmCc(TComponent* Owner)
    : TRecBaseForm(Owner,euSdCc,"")
{
}

//---------------------------------------------------------------------------
AnsiString __fastcall TfrmCc::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
    seCcCode->Text        =   "";
    seCcName->Text        =   "";
    seCcDesc->Text        =   "";
    seCcGlKm->Text        =   "";
    seCcKmDir0->Checked   =   true;
    scCcType->Text        =   "0";
    scCcUser->LocateKey(g_sdUserCode);
    chkCcCancel->Checked  =  false;
    chkCcCancel->Enabled  =  false;
    deCcCancelDate->Text  =   "";
    deCcCancelDate->Enabled=false;
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::GetDataFromComObject()
{
    seCcCode->Text        =   GetFieldValue(fiCcCode);
    sgCc->LocateGrid(1,seCcCode->Text);
    seCcName->Text        =   GetFieldValue(fiCcName);
    seCcDesc->Text        =   GetFieldValue(fiCcDesc);
    seCcGlKm->Text        =   GetFieldValue(fiCcGlKm);
    if(GetFieldValue(fiCcKmDir)=="1")
       seCcKmDir0->Checked =true;
    else
       seCcKmDir1->Checked =true;
    scCcType->Text         =   GetFieldValue(fiCcType);
    scCcUser->LocateKey(GetFieldValue(fiCcUser));
    scCcUser->Text         =scCcUser->ItemData[0];
    chkCcCancel->Checked  =   GetFieldValue(fiCcCancel)== "1";
    if (chkCcCancel->Checked)
        deCcCancelDate->Text  =   GetFieldValue(fiCcCancelDate);
    deCcSysDate->Caption    =   GetFieldValue(fiCcSysDate);
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::SendDataToComObject()
{
    WriteFieldValue(comServer,fiCcCode,seCcCode->Text);
    WriteFieldValue(comServer,fiCcName,seCcName->Text);
    WriteFieldValue(comServer,fiCcDesc,seCcDesc->Text);
    WriteFieldValue(comServer,fiCcGlKm,seCcGlKm->Text);
    WriteFieldValue(comServer,fiCcKmDir,seCcKmDir0->Checked?"1":"-1");
    WriteFieldValue(comServer,fiCcType,scCcType->Text);
    WriteFieldValue(comServer,fiCcUser,scCcUser->ItemData[1]);
    WriteFieldValue(comServer,fiCcCancel,chkCcCancel->Checked ? "1":"0");
    if(chkCcCancel->Checked)
       WriteFieldValue(comServer,fiCcCancelDate,deCcCancelDate->Text);
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::WaitUserInput()
{
    seCcCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmCc::GetDataToGrid()
{
    AnsiString  s;
    s = "\t" + GetFieldValue(fiCcCode) +
        "\t" + GetFieldValue(fiCcName) +
        "\t" + GetFieldValue(fiCcDesc);
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::RefreshGridData(int mAction)
{
    AnsiString ItemStr;

    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgCc->AddItem(ItemStr);
    }
    // 修改
    else if(mAction == 1)
    {
        int i = sgCc->Row;
        sgCc->RemoveItem(i);
        sgCc->AddItem(ItemStr,i);
    }
    // 删除    0
    else if(mAction ==  2)
    {
        sgCc->RemoveItem(sgCc->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgCc->RowCount  = 1;
    while(comServer->Eof == 0)
    {
        ItemStr=GetDataToGrid();
        sgCc->AddItem(ItemStr);
        comServer->MoveNext();
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgCc,sgCc->Name);
    ClientGroup->AddComponent(2,false,false,false, seCcCode,seCcCode->Name);
    ClientGroup->AddComponent(2,true,false,true, chkCcCancel,chkCcCancel->Name);
    ClientGroup->AddComponent(2,true,true,true,deCcCancelDate,deCcCancelDate->Name);
    ClientGroup->AddComponent(2,true,true,true,scCcUser,scCcUser->Name);
    FillComboBox(scCcUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::seCcGlKmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
      seCcGlKm->Text=GetGlkmValue("GLKMCODE");
      if(GetGlkmValue("GLKMDIR")=="1")
         seCcKmDir0->Checked =true;
      else
         seCcKmDir1->Checked =true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::RefreshUpdateData(int MsgSrc,int MsgType)
{
    
      if(MsgSrc==euSdUser)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillComboBox(scCcUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
      }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::seCcCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seCcCode->Text);
      GetDataFromComObject();
    }

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

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

}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::chkCcCancelMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (chkCcCancel->Checked)
    {
        deCcCancelDate->Enabled=true;
    }
    else
    {
        deCcCancelDate->Enabled=false;
        deCcCancelDate->Text  =  "";
    }

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

void __fastcall TfrmCc::muEditDetailClick(TObject *Sender)
{
    scCcUser->LocateKey(g_sdUserCode);
    TRecBaseForm::muEditDetailClick(Sender);
    if (chkCcCancel->Checked)
    {
        deCcCancelDate->Enabled=true;
    }
    else
    {
        deCcCancelDate->Enabled=false;
        deCcCancelDate->Text  =  "";
    }

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