team.cpp

科思ERP部分源码及控件

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

TfrmTeam *frmTeam;
//---------------------------------------------------------------------------
__fastcall TfrmTeam::TfrmTeam(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmTeam::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false,sgTeam,sgTeam->Name);
    FillComboBox(Handle,scTeamShopCode,"Select ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmTeam::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seTeamCode->Text="";
      seTeamName->Text="";
      scTeamShopCode->ItemIndex=-1;
    }
}
//---------------------------------------------------------------------
void __fastcall TfrmTeam::WaitUserInput()
{
    seTeamCode->SetFocus();
}
//---------------------------------------------------------------------
void __fastcall TfrmTeam::SendDataToComObject()
{
    SetFieldValue("TeamCode",seTeamCode->Text);
    SetFieldValue("TeamName",seTeamName->Text);
    SetFieldValue("TeamShopCode",scTeamShopCode->ItemData[1]);
}
//---------------------------------------------------------------------
void __fastcall TfrmTeam::GetDataFromComObject()
{
    seTeamCode->Text=GetFieldValue("TeamCode");
    //MoveFirst,MovePrority,MoveNext,MoveLast
    sgTeam->LocateGrid(0,GetFieldValue("TeamCode"));
    seTeamName->Text=GetFieldValue("TeamName");
    scTeamShopCode->LocateKey(GetFieldValue("TeamShopCode"));
}
//---------------------------------------------------------------------
void __fastcall TfrmTeam::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try
    {
       AnsiString KeyCode;
       if(MsgSrc==euSdShop)
       {
          if(ShowUpdateMessage(MsgSrc,MsgType))
          {
             KeyCode=scTeamShopCode->ItemData[1];
	          StartWaitForm("正在刷新引用数据!");
             FillComboBox(Handle,scTeamShopCode,"Select ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
             scTeamShopCode->LocateKey(KeyCode);
	          EndWaitForm();
          }
       }
    }
    catch(Exception &e)
    {
    	 throw Exception(e.Message);
    }
*/    
}
//---------------------------------------------------------------------
void __fastcall TfrmTeam::RefreshGridData(int mAction)
{
    AnsiString sItemString=GetItemStringToGrid();
    int i;
    switch(mAction)
    {
      case 0:    //新增
         sgTeam->AddItem(sItemString);
         sgTeam->Row=sgTeam->RowCount-1;
         break;
      case 1:    //修改
         sgTeam->ChangeItem(sItemString,sgTeam->Row);
         break;
      case 2:    //删除
         sgTeam->RemoveItem(sgTeam->Row);
    }
}
//-----------------------------------------------------------------------
AnsiString __fastcall TfrmTeam::GetItemStringToGrid()
{
    AnsiString ItemStr,pStr;
    pStr=GetFieldValue("TeamShopCode");
    scTeamShopCode->LocateKey(pStr);
    pStr=scTeamShopCode->ItemData[0];
    ItemStr=GetFieldValue("TeamCode")+
            "\t" + GetFieldValue("TeamName")+
            "\t" + pStr;
    return ItemStr;
}
//---------------------------------------------------------------------
void __fastcall TfrmTeam::FillGridWithData()
{
     AnsiString ItemStr;
     comServer->MoveFirst();
     sgTeam->RowCount=1;
     while (comServer->Eof == 0)
     {
        ItemStr =GetItemStringToGrid();
        sgTeam->AddItem(ItemStr);
        comServer->MoveNext();
     }
}
//----------------------------------------------------------------------
void __fastcall TfrmTeam::FormShow(TObject *Sender)
{
    if(comServer->RecordCount>0){
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();
    }
    else{
       ClearControl(false);
       sgTeam->RowCount=1;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmTeam::FormClose(TObject *Sender, TCloseAction &Action)
{
    TRecBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------
void __fastcall TfrmTeam::sgTeamClick(TObject *Sender)
{
    int ARow;
    ARow=sgTeam->Row;
    if(ARow > 0)
       comServer->LocateByKey(sgTeam->TextMatrix[ARow][0]);
    if(!comServer->Eof)
       GetDataFromComObject();
}
//---------------------------------------------------------------------------