cc.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 236 行

#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, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   InitRsGlkm("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
    seCcCode->Text        =   "";
    seCcName->Text        =   "";
    seCcDesc->Text        =   "";
    seCcGlKm->Text        =   "";
    seCcKmDir0->Checked   =   true;
    scCcType->ItemIndex   =   0;
    scCcUser->LocateKey(g_sdUserCode);
    scCcUser->Text=g_sdUserCode;
    chkCcCancel->Checked  =  false;
    deCcCancelDate->Text  =   "";
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::GetDataFromComObject()
{
    seCcCode->Text        =   GetFieldValue("CcCode");
    sgCc->LocateGrid(1,seCcCode->Text);
    seCcName->Text        =   GetFieldValue("CcName");
    seCcDesc->Text        =   GetFieldValue("CcDesc");
    seCcGlKm->Text        =   GetFieldValue("CcGlKm");
    if(GetFieldValue("CcKmDir")=="1")
       seCcKmDir0->Checked =true;
    else
       seCcKmDir1->Checked =true;
    scCcType->LocateKey(GetFieldValue("CcType"));
    scCcType->Text         =scCcType->ItemData[0];
    scCcUser->Text         =GetFieldValue("CcUser");
//    scCcUser->LocateKey(GetFieldValue("CcUser"));
//    scCcUser->Text         =scCcUser->ItemData[0];

    chkCcCancel->Checked  =   GetFieldValue("CcCancel")== "1";
    if (chkCcCancel->Checked)
        deCcCancelDate->Text  =   GetFieldValue("CcCancelDate");
    else
        deCcCancelDate->Text  =" ";  
    deCcSysDate->Caption    =   GetFieldValue("CcSysDate");
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::SendDataToComObject()
{
    SetFieldValue("CcCode",seCcCode->Text);
    SetFieldValue("CcName",seCcName->Text);
    SetFieldValue("CcDesc",seCcDesc->Text);
    SetFieldValue("CcGlKm",seCcGlKm->Text);
    SetFieldValue("CcKmDir",seCcKmDir0->Checked?"1":"-1");
    SetFieldValue("CcType",scCcType->ItemData[1]);
    SetFieldValue("CcUser",scCcUser->ItemData[1]);
    SetFieldValue("CcUser",scCcUser->Text);
    SetFieldValue("CcCancel",chkCcCancel->Checked ? "1":"0");
    SetFieldValue("CcCancelDate",deCcCancelDate->Text);
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::WaitUserInput()
{
    seCcCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmCc::GetDataToGrid()
{
    AnsiString  s;
    s = "\t" + GetFieldValue("CcCode") +
        "\t" + GetFieldValue("CcName") +
        "\t" + GetFieldValue("CcDesc");
    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);
//    FillComboBox(Query,scCcUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
    scCcType->ClearAll();
    scCcType->AddItems("1-费用类型","1");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCc::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}

//---------------------------------------------------------------------------
void __fastcall TfrmCc::seCcGlKmButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
   {
      seCcGlKm->Text=GetGlkmValue(gtOpenForm,"GLKMCODE");
      if(GetGlkmValue(gtOpenForm,"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(Query,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  =  "";
    }

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

void __fastcall TfrmCc::FormClose(TObject *Sender, TCloseAction &Action)
{
   TRecBaseForm::FormClose(Sender,Action);
   //delete g_sdRsGlkm;
}
//---------------------------------------------------------------------------