ssd.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

#include <vcl.h>
#pragma hdrstop

#include "Ssd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSsd *frmSsd;
//---------------------------------------------------------------------------

void __fastcall TfrmSsd::ClearControl(bool BringToNext)
{
    // BringToNext为真时，不清空
    if(BringToNext)
        return;
    cbSsdCurrencyCode->ItemIndex  =-1;
    seSsdBankName->Text         =   "";
    seSsdBankNo->Text         =   "";
    chkSsdPrimary->Checked=false;
   // New client settleMode file -- Add 2003-01-22 [Fengji] --
    scSsdSettelMode->Text = "";
    chkSsdDefSettleMode->Checked = false;
}

void __fastcall TfrmSsd::GetDataFromComObject()
{
	cbSsdCurrencyCode->LocateKey(GetFieldValue("SsdCurrency"));
	seSsdBankName->Text         =   GetFieldValue("SsdBankName");
	seSsdBankNo->Text           =   GetFieldValue("SsdBankNo");
	chkSsdPrimary->Checked=(GetFieldValue("SsdPrimary")=="1");
	//DONE: BUG NO.227  2001-08-14
	sgSsd->LocateGrid(1,GetFieldValue("SsdCurrency"));
	scSsdSettelMode->LocateKey(GetFieldValue("SsdPayMode"));
	chkSsdDefSettleMode->Checked = (GetFieldValue("SsdDefault")=="1");
}
    //============ END =========================
void __fastcall TfrmSsd::SendDataToComObject()
{

    SetFieldValue("SsdClient",WideString(cbSsdClientCode->ItemData[cbItem2]));
    SetFieldValue("SsdCurrency",WideString(cbSsdCurrencyCode->ItemData[cbItem2]));
    SetFieldValue("SsdBankName",WideString(seSsdBankName->Text));
    SetFieldValue("SsdBankNo",WideString(seSsdBankNo->Text));
    SetFieldValue("SsdPrimary",WideString(chkSsdPrimary->Checked?"1":"0"));
    SetFieldValue("SsdPayMode",WideString(scSsdSettelMode->ItemData[cbItem2]));
    SetFieldValue("SsdDefault", WideString(chkSsdDefSettleMode->Checked?"1":"0"));
}

void __fastcall TfrmSsd::WaitUserInput()
{
    if(cbSsdCurrencyCode->Enabled)
    cbSsdCurrencyCode->SetFocus();
}

AnsiString __fastcall TfrmSsd::GetDataToGrid()
{
    AnsiString  s;

    s   =  "\t" + GetFieldValue("SsdCurrency")+
	   "\t" + GetFieldValue("SsdBankName")+
	   "\t" + GetFieldValue("SsdBankNo")+
	   "\t" + (GetFieldValue("SsdPrimary")=="1"?"是":"否");

    return(s);
}

void __fastcall TfrmSsd::RefreshGridData(int mAction)
{
    AnsiString ItemStr;

    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
	sgSsd->AddItem(ItemStr);
	sgSsd->Row=sgSsd->RowCount-1;
    }
    // 修改
    else if(mAction ==  1)
    {
      sgSsd->ChangeItem(ItemStr,sgSsd->Row);
    }
    // 删除
    else if(mAction ==  2)
    {
	sgSsd->RemoveItem(sgSsd->Row);
    }
}



void __fastcall TfrmSsd::FillGridWithData()
{
    AnsiString ItemStr;

    comServer->MoveFirst();
    sgSsd->RowCount    =   1;

    while (comServer->Eof   ==  0)
    {
        ItemStr =   GetDataToGrid();
	sgSsd->AddItem(ItemStr);
	comServer->MoveNext();
    }
}


void __fastcall TfrmSsd::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, sgSsd,sgSsd->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,false,true,true, cbSsdCurrencyCode,cbSsdCurrencyCode->Name);
    FillComboBox(Handle,cbSsdCurrencyCode,"select CurrencyCode,CurrencyName from sdCurrency order by CurrencyCode","CurrencyName","CurrencyCode");
    FillComboBox(Handle,scSsdSettelMode,"SELECT SettleModeCode,SettleModeName FROM sdSettleMode order by SettleModeName","SettleModeName","SettleModeCode");
}

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

__fastcall TfrmSsd::TfrmSsd(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   FillComboBox(Handle,cbSsdClientCode,"select ClientCode,ClientName from sdClient where ClientCancel=0 order by ClientCode","ClientName","ClientCode");
}
//---------------------------------------------------------------------------

void __fastcall TfrmSsd::cbSsdClientCodeClick(TObject *Sender)
{
  if(cbSsdClientCode->ItemData[cbItem2]!=ClientValue)
  {
        WideString s;
        s="SsdClient='" + cbSsdClientCode->ItemData[cbItem2] + "'";
        comServer->FilterString=s;
        comServer->Query();

        FillGridWithData();
        comServer->MoveFirst();
        GetDataFromComObject();
        ClientValue=cbSsdClientCode->ItemData[cbItem2];
  }

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


void __fastcall TfrmSsd::SetClientValue(AnsiString value)
{
        if(FClientValue != value) {
                FClientValue = value;
        }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmSsd::GetClientValue()
{
	return FClientValue;
}
void __fastcall TfrmSsd::FormShow(TObject *Sender)
{
  cbSsdClientCodeClick(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TfrmSsd::sgSsdClick(TObject *Sender)
{

    if (sgSsd->Row>0)
	 comServer->LocateByKey(WideString(cbSsdClientCode->ItemData[cbItem2]+"\t"+sgSsd->TextMatrix[sgSsd->Row][1]+"\t"));
    if (!comServer->Eof)
	 GetDataFromComObject();
}
//---------------------------------------------------------------------------

void  __fastcall TfrmSsd::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*switch(MsgSrc)
   {
  case euSdCurrency:
     if(ShowUpdateMessage(MsgSrc,MsgType))
       {
        KeyCode=cbSsdCurrencyCode->Text;
        FillComboBox(Handle,cbSsdCurrencyCode,"select CurrencyCode,CurrencyName from sdCurrency order by CurrencyCode","CurrencyName","CurrencyCode");
        cbSsdCurrencyCode->LocateKey(KeyCode);
        }
      break;
    }*/
}