cac.cpp

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

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

TfrmCac *frmCac;
//---------------------------------------------------------------------------
__fastcall TfrmCac::TfrmCac(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 InitRsGlkm("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seCacCode->Text       =   "";
      scCacType->ItemIndex  =   0;
      seCacGlKm->ItemIndex  =   -1;
      scCacCurrency->ItemIndex =-1;
      seCacBalance->Text    =   "0";
      seCacBankName->Text   =   "";
      chkCacCancel->Checked =   false;
      deCacCancelDate->Text ="";
      scCacUser->LocateKey(g_sdUserCode);//当前操作员
      memCacDesc->Text      =   "";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::GetDataFromComObject()
{
    seCacCode->Text   =  GetFieldValue("CacCode");
    sgCac->LocateGrid(0,seCacCode->Text);
    scCacType->LocateKey(GetFieldValue("CacType"));
    seCacGlKm->LocateKey(GetFieldValue("CacGlKm"));
    seCacBankName->Text = GetFieldValue("CacBankName");
    scCacCurrency->LocateKey(GetFieldValue("CacCurrency"));
    seCacBalance->Text  =   GetFieldValue("CacBalance");
    chkCacCancel->Checked =   GetFieldValue("CacCancel")== "1";
    deCacCancelDate->Text = GetFieldValue("CacCancelDate");
    scCacUser->LocateKey(GetFieldValue("CacUser"));
    memCacDesc->Text    =   GetFieldValue("CacDesc");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::SendDataToComObject()
{
    SetFieldValue("CacCode",seCacCode->Text);
    SetFieldValue("CacType",scCacType->ItemData[1]);
    SetFieldValue("CacGlKm",seCacGlKm->ItemData[1]);
    SetFieldValue("CacCurrency",scCacCurrency->ItemData[1]);
    SetFieldValue("CacBalance",seCacBalance->Text);
    SetFieldValue("CacBankName",seCacBankName->Text);
    SetFieldValue("CacCancel",chkCacCancel->Checked ? "1":"0");
//    if(chkCacCancel->Checked)
      SetFieldValue("CacCancelDate",deCacCancelDate->Text);
//    else
//      SetFieldValue("CacCancelDate","");
    SetFieldValue("CacUser",scCacUser->ItemData[1]);
    SetFieldValue("CacDesc",memCacDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::WaitUserInput()
{
    seCacCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmCac::GetDataToGrid()
{
    AnsiString  ItemStr;
    seCacGlKm->LocateKey(GetFieldValue("CacGlKm"));
    scCacCurrency->LocateKey(GetFieldValue("CacCurrency"));
    ItemStr  = GetFieldValue("CacCode")+
        "\t" + seCacGlKm->ItemData[2]+
        "\t" + scCacCurrency->ItemData[0];
    return(ItemStr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if(mAction ==  0)     //Add
    {
       sgCac->AddItem(ItemStr);
    }
    else if(mAction == 1) //Modify
    {
       int i  =  sgCac->Row;
       sgCac->ChangeItem(ItemStr,i);
    }
    else if(mAction == 2) //Delete
    {
       sgCac->RemoveItem(sgCac->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgCac->RowCount = 1;
    while(comServer->Eof == 0)
    {
       ItemStr = GetDataToGrid();
       sgCac->AddItem(ItemStr);
       comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, sgCac,sgCac->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,false,false,true, chkCacCancel,chkCacCancel->Name);
    ClientGroup->AddComponent(2,false,false,true, deCacCancelDate,deCacCancelDate->Name);
    ClientGroup->AddComponent(2,false,false,false,seCacCode,seCacCode->Name);
    ClientGroup->AddComponent(2,true,true,true,scCacUser,scCacUser->Name);
    FillEdit(Handle,seCacGlKm,"select memo=GlkmCode+'-'+GlkmName,GlkmCode,GlkmName from sdGlkm order By GlkmCode","memo","GlkmCode","GlkmName");
    FillComboBox(Handle,scCacCurrency,"select  CurrencyCode,Currencyname from sdCurrency order By CurrencyCode","CurrencyName","CurrencyCode");
    FillComboBox(Handle,scCacUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
    scCacType->AddItems("银行帐号","1");
    scCacType->AddItems("现金帐号","2");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::chkCacCancelClick(TObject *Sender)
{
    if(chkCacCancel->Checked)
    {
      deCacCancelDate->Enabled=true;
      deCacCancelDate->Text=deCacCancelDate->InitDate;
    }
    else
    {
      deCacCancelDate->Enabled=false;
      deCacCancelDate->Text="";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::seCacGlKmButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
      seCacGlKm->LocateKey(GetGlkmValue(gtOpenForm,"GLKMCODE"));
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    switch(MsgSrc)
    {
      case euSdCurrency:
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillComboBox(Handle,scCacCurrency,"select  CurrencyCode,Currencyname from sdCurrency order By CurrencyCode","CurrencyName","CurrencyCode");
         break;
      case euSdUser:
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillComboBox(Handle,scCacUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
         break;
      case euSdGlkm:
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillEdit(Handle,seCacGlKm,"select memo='('+GlkmCode+')'+GlkmName,GlkmCode,GlkmName from sdGlkm order By GlkmCode","memo","GlkmCode","GlkmName");
         break;
      default:
         break;
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::seCacCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seCacCode->Text);
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCac::sgCacClick(TObject *Sender)
{
    if(sgCac->Row > 0)
      comServer->LocateByKey(sgCac->TextMatrix[sgCac->Row][0]);
    if(!comServer->Eof)
      GetDataFromComObject();
}
//---------------------------------------------------------------------------