epr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Epr.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"
TfrmEpr *frmEpr;
//---------------------------------------------------------------------------
__fastcall TfrmEpr::TfrmEpr(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
IsUserCheck=true;
ClearControl(false);
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::InitEditControl()
{
   FillComboBox(Query,scEPRept,"select EPTName,EPTCode from ksEPT","EPTName","EPTCode");
   FillEdit(Handle,seEPRDept,"select DeptCode,DeptName from sdDept order by DeptCode","DeptName","DeptCode");
   FillEdit(Handle,seEPREmployee,"select EmployeeName=EmployeeCode+'('+EmployeeName+')',EmployeeCode from sdEmployee order by EmployeeCode",
                 "EmployeeName","EmployeeCode");
   ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgEpr,sgEpr->Name);
    ClientGroup->AddComponent(2,true,true,true, seEPRDept,seEPRDept->Name);
   // ClientGroup->AddComponent(2,false,false,false, seFaChgCode, seFaChgCode->Name);
  //  ClientGroup->AddComponent(2,true,true,true,scFaChgFMonth,scFaChgFMonth->Name);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TfrmEpr::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {

       seEPRCode->Text      ="";
       sdEPRDate->Text      =g_sdCurDate;
       seEPREmployee->Text      ="";
       seEPRDept->ItemIndex  =-1;
       scEPRept->ItemIndex=-1;
       seEPRAmt->Text="";
       labEPRUser->Caption  =g_sdUserCode;
       chkEPRCheck->Checked  =false;
       labEPRChecker->Caption="";
       labEPRCheckDate->Caption="";
    }

}

//---------------------------------------------------------------------------
void __fastcall TfrmEpr::GetDataFromComObject()
{
    seEPRCode->Text=GetFieldValue("EPRCode");
    sgEpr->LocateGrid(0,seEPRCode->Text);
    sdEPRDate->Text=GetFieldValue("EPRDate");
    seEPREmployee->LocateKey(GetFieldValue("EPREmployee"));
    seEPRDept->LocateKey(GetFieldValue("EPRDept"));
    scEPRept->LocateKey(GetFieldValue("EPRept"));
    seEPRAmt->Text=GetFieldValue("EPRAmt");
    labEPRUser->Caption=GetFieldValue("EPRUser");
    chkEPRCheck->Checked=(GetFieldValue("EPRCheck")==1)? true: false;
    if(chkEPRCheck->Checked)
      SetCheckToolbarStatus(true);
    else
      SetCheckToolbarStatus(false);
    labEPRChecker->Caption=GetFieldValue("EPRChecker");
    labEPRCheckDate->Caption=GetFieldValue("EPRCheckDate");
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::SendDataToComObject()
{
    SetFieldValue("EPRCode",seEPRCode->Text);
    SetFieldValue("EPRDate",sdEPRDate->Text);
    SetFieldValue("EPREmployee",WideString(seEPREmployee->ItemData[cbItem2]));
    SetFieldValue("EPRDept",WideString(seEPRDept->ItemData[cbItem2]));
    SetFieldValue("EPRept",WideString(scEPRept->ItemData[cbItem2]));
    SetFieldValue("EPRUser",labEPRUser->Caption);
    SetFieldValue("EPRAmt",seEPRAmt->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::WaitUserInput()
{
   seEPRCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmEpr::GetDataToGrid()
{
    AnsiString  s;
    s = GetFieldValue("EPRCode")+
        "\t" +GetFieldValue("EPREmployee")+
        "\t" +GetFieldValue("EPRDept")+
        "\t" +GetFieldValue("EPRept")+
        "\t" +GetFieldValue("EPRAmt");
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgEpr->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgEpr->Row;
        sgEpr->RemoveItem(i);
        sgEpr->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgEpr->RemoveItem(sgEpr->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::FillGridWithData()
{
  AnsiString ItemStr;
    comServer->Query();
    comServer->MoveFirst();
    sgEpr->RowCount    =   1;

    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgEpr->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
   GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmEpr::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
        switch(MsgSrc)
      {
        case euSdFadn:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillEdit(Query,seFaChgFadn,"select  fadncode,fadnname,FadnOVal  from sdfadn  order By fadncode","fadncode","fadnname","FadnOVal");
         break;
        case euSdFc:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(Query,scFaChgFMonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
         break;
       default:
         break;
      }
*/
 }
//---------------------------------------------------------------------------

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

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

void __fastcall TfrmEpr::sgEprClick(TObject *Sender)
{
    if (sgEpr->Row > 0)
         comServer->LocateByKey(sgEpr->TextMatrix[sgEpr->Row][0]);
    if (!comServer->Eof)
         GetDataFromComObject();

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


bool __fastcall TfrmEpr::BeforeCheck()
{
  SetFieldValue("EPRCheck",1);
  SetFieldValue("EPRChecker",g_sdUserCode);
  SetFieldValue("EPRCheckDate",g_sdCurDate);
  return true;
}
//---------------------------------------------------------------------------
bool __fastcall TfrmEpr::BeforeUnCheck()
{
  SetFieldValue("EPRCheck",0);
  SetFieldValue("EPRChecker","");
  SetFieldValue("EPRCheckDate",NULL);
  return true;
}
//---------------------------------------------------------------------------

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

void __fastcall TfrmEpr::seEPREmployeeButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="003[员工代码][员工名称][员工部门]select Employeecode, Employeename,EmployeeDept from sdEmployee order by Employeecode ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"员工资料查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seEPREmployee->LocateKey(p->ColData[1]);
      seEPRDept->LocateKey(p->ColData[3]);
    }
    delete p;
}
//---------------------------------------------------------------------------