ssite.cpp

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

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

#include "Ssite.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmSsite *frmSsite;

//---------------------------------------------------------------------------
__fastcall TfrmSsite::TfrmSsite(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    AutoCtl=seSsiteCode;
}
//---------------------------------------------------------------------------



void __fastcall TfrmSsite::GetDataFromComObject()
{
	seSsiteCode->Text      =  GetFieldValue("SsiteCode");
	seSsiteName->Text     =   GetFieldValue("SsiteName");
	seSsiteAddr->Text     =   GetFieldValue("SsiteAddr");
	seSsiteLinkman->Text  =   GetFieldValue("SsiteLinkman");
	seSsiteTel->Text      =   GetFieldValue("SsiteTel");
	seSsiteFax->Text      =   GetFieldValue("SsiteFax");
	seSsiteZip->Text      =   GetFieldValue("SsiteZip");
	seSsiteEmail->Text    =   GetFieldValue("SsiteEmail");
	bkSsiteDefaul->Checked = (GetFieldValue("SsiteDefault")=="1");

	cbSsiteTransMode->LocateKey(GetFieldValue("SsiteTransMode"));
		sgSsite->LocateGrid(1,seSsiteCode->Text);

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

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

void __fastcall TfrmSsite::ClearControl(bool BringToNext)

{
	// BringToNext为真时，不清空
	if(BringToNext)
		return;
	seSsiteCode->Text        =   "";
	seSsiteName->Text        =   "";
	seSsiteAddr->Text        =   "";
	seSsiteLinkman->Text     =   "";
	seSsiteTel->Text         =   "";
	seSsiteFax->Text         =   "";
	seSsiteZip->Text         =   "";
	seSsiteEmail->Text       =   "";
	cbSsiteTransMode->ItemIndex=-1;
	bkSsiteDefaul->Checked = false;
}

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

void __fastcall TfrmSsite::SendDataToComObject()
{
	SetFieldValue("SsiteClient",WideString(cbSsiteClient->ItemData[cbItem2]));
	SetFieldValue("SsiteCode",WideString(seSsiteCode->Text));
	SetFieldValue("SsiteName",WideString(seSsiteName->Text));
	SetFieldValue("SsiteAddr",WideString(seSsiteAddr->Text));
	SetFieldValue("SsiteLinkman",WideString(seSsiteLinkman->Text));
	SetFieldValue("SsiteTel",WideString(seSsiteTel->Text));
	SetFieldValue("SsiteFax",WideString(seSsiteFax->Text));
	SetFieldValue("SsiteZip",WideString(seSsiteZip->Text));
	SetFieldValue("SsiteEmail",WideString(seSsiteEmail->Text));
	SetFieldValue("SsiteTransMode",WideString(cbSsiteTransMode->ItemData[cbItem2]));
	SetFieldValue("SsiteDefault", WideString(bkSsiteDefaul->Checked?"1":"0"));

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

void __fastcall TfrmSsite::WaitUserInput()
{
    if(seSsiteCode->Enabled)
    seSsiteCode->SetFocus();
}
//---------------------------------------------------------------------------

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

s   =   "\t" + GetFieldValue("SsiteCode")    +
        "\t" + GetFieldValue("SsiteName")   +
        "\t" + GetFieldValue("SsiteAddr");
    return(s);
}
//---------------------------------------------------------------------------

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

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

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

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

    comServer->MoveFirst();
    sgSsite->RowCount =  1;
    while (comServer->Eof == 0)
    {
        ItemStr =  GetDataToGrid();
        sgSsite->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmSsite::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, sgSsite,sgSsite->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, FloatPanel2,FloatPanel2->Name);
    FillComboBox(Handle,cbSsiteClient,"select ClientCode,ClientName from sdClient where ClientCancel=0 order by ClientCode","ClientName","ClientCode");
    FillComboBox(Handle,cbSsiteTransMode,"select TransModeCode,TransModeName from sdTransMode","TransModeName","TransModeCode");
}

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


void __fastcall TfrmSsite::cbSsiteClientClick(TObject *Sender)
{
 if(cbSsiteClient->ItemData[cbItem2]!=ClientValue)
    {
        WideString s;
        s   =   "SsiteClient= '" + cbSsiteClient->ItemData[cbItem2] + "'";
        comServer->FilterString =   s;
        comServer->Query();

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


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

void __fastcall TfrmSsite::sgSsiteClick(TObject *Sender)
{
	if (sgSsite->Row >0)
		 comServer->LocateByKey(WideString(sgSsite->TextMatrix[sgSsite->Row][1]+"\t"+cbSsiteClient->ItemData[cbItem2]+"\t"));
	if (!comServer->Eof)
		 GetDataFromComObject();

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