ssite.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#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)
        : TRecBaseForm(Owner,euSdSsite,"")
{
    AutoCtl=seSsiteCode;
}
//---------------------------------------------------------------------------



void __fastcall TfrmSsite::GetDataFromComObject()
{
    seSsiteCode->Text      =  GetFieldValue(fiSsiteCode);
    seSsiteName->Text     =   GetFieldValue(fiSsiteName);
    seSsiteAddr->Text     =   GetFieldValue(fiSsiteAddr);
    seSsiteLinkman->Text  =   GetFieldValue(fiSsiteLinkman);
    seSsiteTel->Text      =   GetFieldValue(fiSsiteTel);
    seSsiteFax->Text      =   GetFieldValue(fiSsiteFax);
    seSsiteZip->Text      =   GetFieldValue(fiSsiteZip);
    seSsiteEmail->Text    =   GetFieldValue(fiSsiteEmail);
    cbSsiteTransMode->LocateKey(GetFieldValue(fiSsiteTransMode));
    sgSsite->LocateGrid(1,seSsiteCode->Text);

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

AnsiString __fastcall TfrmSsite::GetFieldValue(int FieldIndex)
{
    WideString S;
    S   =   ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------

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;
}

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

void __fastcall TfrmSsite::SendDataToComObject()
{
    WriteFieldValue(comServer,fiSsiteClient,WideString(cbSsiteClient->ItemData[cbItem2]));
    WriteFieldValue(comServer,fiSsiteCode,WideString(seSsiteCode->Text));
    WriteFieldValue(comServer,fiSsiteName,WideString(seSsiteName->Text));
    WriteFieldValue(comServer,fiSsiteAddr,WideString(seSsiteAddr->Text));
    WriteFieldValue(comServer,fiSsiteLinkman,WideString(seSsiteLinkman->Text));
    WriteFieldValue(comServer,fiSsiteTel,WideString(seSsiteTel->Text));
    WriteFieldValue(comServer,fiSsiteFax,WideString(seSsiteFax->Text));
    WriteFieldValue(comServer,fiSsiteZip,WideString(seSsiteZip->Text));
    WriteFieldValue(comServer,fiSsiteEmail,WideString(seSsiteEmail->Text));
    WriteFieldValue(comServer,fiSsiteTransMode,WideString(cbSsiteTransMode->ItemData[cbItem2]));

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

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

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

    s   =   "\t" + GetFieldValue(fiSsiteCode)    +
            "\t" + GetFieldValue(fiSsiteName)   +
            "\t" + GetFieldValue(fiSsiteAddr);
    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(cbSsiteClient,"select ClientCode,ClientName from sdClient where ClientCancel=0 order by ClientCode","ClientName","ClientCode");
    FillComboBox(cbSsiteTransMode,"select TransModeCode,TransModeName from sdTransMode","TransModeName","TransModeCode");
}

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

void __fastcall TfrmSsite::FormClose(TObject *Sender, TCloseAction &Action)
{
    TRecBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------

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(cbSsiteClient->ItemData[cbItem2]+sgSsite->TextMatrix[sgSsite->Row][1]));
    if (!comServer->Eof)
         GetDataFromComObject();

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