company.cpp

速达开源ERP系统

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

#include "Company.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"

#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma link "SDComboBox"
#pragma link "DateEdit"
#pragma resource "*.dfm"
TfrmCompany *frmCompany;

//---------------------------------------------------------------------------
__fastcall TfrmCompany::TfrmCompany(TComponent* Owner)
        : TRecBaseForm(Owner,euSdCompany,"")
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmCompany::ClearControl(bool BringToNext)
{
        if (!BringToNext)
        {
            seCode->Text="";
            seName->Text="";
            seFullName->Text="";
            seAddr1->Text="";
            seAddr2->Text="";
            seTel->Text="";
            seFax->Text="";
            seEmail->Text="";
            seWWW->Text="";
            scLanguage->Text="";
            seBackupPath->Text="";
            ckCompanyCancel->Checked=false;

            seLeagePerson->Text="";
            seTaxNo->Text="";
            seBankNo->Text="";
            scCurrency->Text="";
            seCurMonth->Text=g_sdFMonth;
            scOpenDate->Text=g_sdCurDate;
            seLastUpdate->Text="";
            seNewCode->Text="";
            seOldCode->Text="";
            seLastUpdate->Text="";
        }
        pcTab->ActivePage =tsBaseInfo;
}

void __fastcall TfrmCompany::GetDataFromComObject()
{
        WideString S;
        seCode->Text=GetFieldValue(fiCompanyCode);
        sgCompany->LocateGrid(1,seCode->Text);
        seName->Text=GetFieldValue(fiCompanyName);
        seFullName->Text=GetFieldValue(fiCompanyFullName);
        seAddr1->Text=GetFieldValue(fiCompanyAddr1);
        seAddr2->Text=GetFieldValue(fiCompanyAddr2);
        seTel->Text=GetFieldValue(fiCompanyTel);
        seFax->Text=GetFieldValue(fiCompanyFax);
        seEmail->Text=GetFieldValue(fiCompanyEmail);
        seWWW->Text=GetFieldValue(fiCompanyHomepage);
        scLanguage->LocateKey(GetFieldValue(fiCompanyLanguage));
        scLanguage->Text=scLanguage->ItemData[0];
        seBackupPath->Text=GetFieldValue(fiCompanyBackupPath);
        ckCompanyCancel->Checked=GetFieldValue(fiCompanyCancel)=="1";
        seLeagePerson->Text=GetFieldValue(fiCompanyLegalPerson);
        seTaxNo->Text=GetFieldValue(fiCompanyTaxNo);
        seBankNo->Text=GetFieldValue(fiCompanyBankNo);
        scCurrency->LocateKey(GetFieldValue(fiCompanyCurrency));
        scCurrency->Text=scCurrency->ItemData[0];
        seCurMonth->Text=GetFieldValue(fiCompanyFmonth);
        scOpenDate->Text=GetFieldValue(fiCompanySdate);
        seLastUpdate->Text=GetFieldValue(fiCompanyEdate);
        seNewCode->Text=GetFieldValue(fiCompanyNewCode);
        seOldCode->Text=GetFieldValue(fiCompanyOldCode);
}

void __fastcall TfrmCompany::SendDataToComObject()
{

        WriteFieldValue(comServer,fiCompanyCode,WideString(seCode->Text));
        WriteFieldValue(comServer,fiCompanyName,WideString(seName->Text));
        WriteFieldValue(comServer,fiCompanyFullName,WideString(seFullName->Text));
        WriteFieldValue(comServer,fiCompanyAddr1,WideString(seAddr1->Text));
        WriteFieldValue(comServer,fiCompanyAddr2,WideString(seAddr2->Text));
        WriteFieldValue(comServer,fiCompanyTel,WideString(seTel->Text));
        WriteFieldValue(comServer,fiCompanyFax,WideString(seFax->Text));
        WriteFieldValue(comServer,fiCompanyEmail,WideString(seEmail->Text));
        WriteFieldValue(comServer,fiCompanyHomepage,WideString(seWWW->Text));
        WriteFieldValue(comServer,fiCompanyLanguage,WideString(scLanguage->ItemData[1]));
        WriteFieldValue(comServer,fiCompanyBackupPath,WideString(seBackupPath->Text));
        WriteFieldValue(comServer,fiCompanyCancel,WideString(ckCompanyCancel->Checked? "1":"0"));

        WriteFieldValue(comServer,fiCompanyLegalPerson,WideString(seLeagePerson->Text));
        WriteFieldValue(comServer,fiCompanyTaxNo,WideString(seTaxNo->Text));
        WriteFieldValue(comServer,fiCompanyBankNo,WideString(seBankNo->Text));
        WriteFieldValue(comServer,fiCompanyCurrency,WideString(scCurrency->ItemData[1]));
        WriteFieldValue(comServer,fiCompanyFmonth,WideString(seCurMonth->Text));
        WriteFieldValue(comServer,fiCompanySdate,WideString(scOpenDate->Text));
        WriteFieldValue(comServer,fiCompanyEdate,WideString(seLastUpdate->Text));
        WriteFieldValue(comServer,fiCompanyNewCode,WideString(seNewCode->Text));
        WriteFieldValue(comServer,fiCompanyOldCode,WideString(seOldCode->Text));
}

void __fastcall TfrmCompany::WaitUserInput()
{
        pcTab->ActivePage=tsBaseInfo;
        if(seName->Enabled)
          seName->SetFocus ();
}

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

    s   =   "\t"+GetFieldValue(fiCompanyCode)+
            "\t"+GetFieldValue(fiCompanyName);

    return(s);
}

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

       ItemStr =   GetDataToGrid();

       if (mAction==0)
       {


            sgCompany->AddItem(ItemStr);
       }
       else if(mAction==1)
       {
            int i=sgCompany->Row;

            sgCompany->RemoveItem(i);
            sgCompany->AddItem(ItemStr,i);
        }
        else if(mAction==2)
        {
            sgCompany->RemoveItem(sgCompany->Row);
        }
}

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

        comServer->MoveFirst();
        sgCompany->RowCount=1;
        while (comServer->Eof   ==  0)
        {
            ItemStr =   GetDataToGrid();
            sgCompany->AddItem(ItemStr);
            comServer->MoveNext();
        }

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

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

//---------------------------------------------------------------------------
void __fastcall TfrmCompany::InitEditControl()
{
        ClientGroup->AddComponent(2,false,false,true, tsBaseInfo,tsBaseInfo->Name);
        ClientGroup->AddComponent(2,false,false,true, TabSheet2,TabSheet2->Name);
        ClientGroup->AddComponent(2,true,false,true,seLastUpdate,seLastUpdate->Name);
        ClientGroup->AddComponent(2,false,true,true,seCode,seCode->Name);
        ClientGroup->AddComponent(2,false,true,true,scCurrency,scCurrency->Name);
        ClientGroup->AddComponent(2,false,true,true,Panel1,Panel1->Name);
        ClientGroup->AddComponent(2,false,true,true,seCurMonth,seCurMonth->Name);
        ClientGroup->AddComponent(2,false,true,true,ckCompanyCancel,ckCompanyCancel->Name);
        FillComboBox(scCurrency,"select  CurrencyCode,Currencyname from sdCurrency order By CurrencyCode","CurrencyName","CurrencyCode");
        scLanguage->AddItems("简体中文","1");
        scLanguage->AddItems("繁体中文","2");
        scLanguage->AddItems(" 英  语","3");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCompany::RefreshUpdateData(int MsgSrc,int MsgType)
{
    try
    {
      StartWaitForm("正在刷新引用数据");
      if(MsgSrc==euSdCurrency)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(scCurrency,"select  CurrencyCode,Currencyname from sdCurrency order By CurrencyCode","CurrencyName","CurrencyCode");
      }

    }
    __finally
    {
        EndWaitForm();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCompany::seCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seCode->Text));
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmCompany::sgCompanyClick(TObject *Sender)
{
      if (sgCompany->Row>0 )
         comServer->LocateByKey(WideString(sgCompany->TextMatrix[sgCompany->Row][1]));
      if (comServer->Eof==0)
         GetDataFromComObject();
        
}
//---------------------------------------------------------------------------