saler.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Saler.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmSaler *frmSaler;
//---------------------------------------------------------------------------
__fastcall TfrmSaler::TfrmSaler(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
		: TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmSaler::ClearControl(bool BringToNext)
{
   // BringToNext为真时，不清空
   if(BringToNext)
	   return;
	scSaler->Text 			=  "";
	seSalerTel->Text        =   "";
	seSalerBeepPage->Text   =   "";
}

//---------------------------------------------------------------------------
void __fastcall TfrmSaler::GetDataFromComObject()
{
	scSaler->LocateKey( GetFieldValue("SalerCode"));
	seSalerTel->Text        =    GetFieldValue("SalerTel");
	seSalerBeepPage->Text   =    GetFieldValue("SalerBeepPage");

	sgSaler->LocateGrid(1,scSaler->Text);
}

//---------------------------------------------------------------------------
void __fastcall TfrmSaler::SendDataToComObject()
{
	AnsiString s;
	SetFieldValue("SalerCode",scSaler->ItemData[cbItem2]);   // SalerCode
	SetFieldValue("SalerTel",WideString(seSalerTel->Text));
	SetFieldValue("SalerBeepPage",WideString(seSalerBeepPage->Text));
}
//---------------------------------------------------------------------------


void __fastcall TfrmSaler::WaitUserInput()
{
	if(scSaler->Enabled)
	scSaler->SetFocus();
}

//---------------------------------------------------------------------------
AnsiString __fastcall TfrmSaler::GetDataToGrid()
{
   AnsiString  s;
	  scSaler->LocateKey( GetFieldValue("SalerCode"));
	s   =   "\t" + GetFieldValue("SalerCode");
	s   +=  "\t" + scSaler->ItemData[cbItem1];
	s   +=  "\t" + GetFieldValue("SalerTel"); 
	s   +=  "\t" + GetFieldValue("SalerBeepPage");
	  return(s);
}

//---------------------------------------------------------------------------
void __fastcall TfrmSaler::RefreshGridData(int mAction)
{
   AnsiString ItemStr;

   ItemStr=GetDataToGrid();

   if(mAction==0)
   {
    sgSaler->AddItem(ItemStr);
    sgSaler->Row=sgSaler->RowCount-1;
    }
   else if(mAction==1)
   {
     sgSaler->ChangeItem(ItemStr,sgSaler->Row);
     }
   else if(mAction==2)
   {
     sgSaler->RemoveItem(sgSaler->Row);
   }
}

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

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

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

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

//---------------------------------------------------------------------------
void __fastcall TfrmSaler::InitEditControl()
{
	 ClientGroup->AddComponent(2,true,true,false, sgSaler,sgSaler->Name);
	 ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
//	 scSaler,
	 ClientGroup->AddComponent(2,false,true,true, scSaler,scSaler->Name);

	FillComboBox(Handle,scSaler,"select UserCode, UserName from sdUser order by UserCode ","UserName","UserCode");
}

//---------------------------------------------------------------------------
void __fastcall TfrmSaler::FormShow(TObject *Sender)
{
	FillGridWithData();
	comServer->MoveFirst();
	GetDataFromComObject();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSaler::sgSalerClick(TObject *Sender)
{
	if (sgSaler->Row > 0)
		 comServer->LocateByKey(WideString(sgSaler->TextMatrix[sgSaler->Row][1]));
	if (!comServer->Eof)
         GetDataFromComObject();

}
//---------------------------------------------------------------------------
void  __fastcall TfrmSaler::RefreshUpdateData(int MsgSrc,int MsgType)
{
//=
}
//---------------------------------------------------------------------------
//void __fastcall TfrmSaler::scSalerButtonClick(TObject *Sender)
//{
//  AnsiString SqlStr;
//  SqlStr="003[用户编码][用户名称][用户组]select Usercode,Username,UserGroupName from sdUser,sdUserGroup where UserGroup=UserGroupCode";
//  TfrmWnQuery *p;
//  try
//  {
//    StartWaitForm("正在查询,请稍候...");
//    p=new TfrmWnQuery(this,"用户资料查询",SqlStr);
//  }
//  __finally
//  {
//    EndWaitForm();
//  }
//  if(p->ShowModal()==mrOk)
//  {
//	scSaler->LocateKey(p->ColData[1]);
//  }
//  delete p;
//
//}
//---------------------------------------------------------------------------

void __fastcall TfrmSaler::muNextClick(TObject *Sender)
{
       sgSaler->LocateGrid(1,scSaler->ItemData[1] );
}
//---------------------------------------------------------------------------

void __fastcall TfrmSaler::muFirstClick(TObject *Sender)
{
        sgSaler->LocateGrid(1,scSaler->ItemData[1] );

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

void __fastcall TfrmSaler::muPreviousClick(TObject *Sender)
{
        sgSaler->LocateGrid(1,scSaler->ItemData[1] );
        
}
//---------------------------------------------------------------------------

void __fastcall TfrmSaler::muLastClick(TObject *Sender)
{
        sgSaler->LocateGrid(1,scSaler->ItemData[1] );

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