company.cpp

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

//---------------------------------------------------------------------------
#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, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{

}
//---------------------------------------------------------------------------
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()
{
    AnsiString S;
    seCode->Text=GetFieldValue("CompanyCode");
    sgCompany->LocateGrid(1,seCode->Text);
    seName->Text=GetFieldValue("CompanyName");
    seFullName->Text=GetFieldValue("CompanyFullName");
    seAddr1->Text=GetFieldValue("CompanyAddr1");
    seAddr2->Text=GetFieldValue("CompanyAddr2");
    seTel->Text=GetFieldValue("CompanyTel");
    seFax->Text=GetFieldValue("CompanyFax");
    seEmail->Text=GetFieldValue("CompanyEmail");
    seWWW->Text=GetFieldValue("CompanyHomepage");
    scLanguage->LocateKey(GetFieldValue("CompanyLanguage"));
    scLanguage->Text=scLanguage->ItemData[0];
    seBackupPath->Text=GetFieldValue("CompanyBackupPath");
    ckCompanyCancel->Checked=GetFieldValue("CompanyCancel")=="1";
    seLeagePerson->Text=GetFieldValue("CompanyLegalPerson");
    seTaxNo->Text=GetFieldValue("CompanyTaxNo");
    seBankNo->Text=GetFieldValue("CompanyBankNo");
    scCurrency->LocateKey(GetFieldValue("CompanyCurrency"));
    scCurrency->Text=scCurrency->ItemData[0];
    seCurMonth->Text=GetFieldValue("CompanyFmonth");
    scOpenDate->Text=GetFieldValue("CompanySdate");
    seLastUpdate->Text=GetFieldValue("CompanyEdate");
    seNewCode->Text=GetFieldValue("CompanyNewCode");
    seOldCode->Text=GetFieldValue("CompanyOldCode");
}

void __fastcall TfrmCompany::SendDataToComObject()
{

        SetFieldValue("CompanyCode",WideString(seCode->Text));
        SetFieldValue("CompanyName",WideString(seName->Text));
        SetFieldValue("CompanyFullName",WideString(seFullName->Text));
        SetFieldValue("CompanyAddr1",WideString(seAddr1->Text));
        SetFieldValue("CompanyAddr2",WideString(seAddr2->Text));
        SetFieldValue("CompanyTel",WideString(seTel->Text));
        SetFieldValue("CompanyFax",WideString(seFax->Text));
        SetFieldValue("CompanyEmail",WideString(seEmail->Text));
        SetFieldValue("CompanyHomepage",WideString(seWWW->Text));
        SetFieldValue("CompanyLanguage",WideString(scLanguage->ItemData[1]));
        SetFieldValue("CompanyBackupPath",WideString(seBackupPath->Text));
        SetFieldValue("CompanyCancel",WideString(ckCompanyCancel->Checked? "1":"0"));
        SetFieldValue("CompanyLegalPerson",WideString(seLeagePerson->Text));
        SetFieldValue("CompanyTaxNo",WideString(seTaxNo->Text));
        SetFieldValue("CompanyBankNo",WideString(seBankNo->Text));
        SetFieldValue("CompanyCurrency",WideString(scCurrency->ItemData[1]));
        SetFieldValue("CompanyFmonth",WideString(seCurMonth->Text));
        SetFieldValue("CompanySdate",WideString(scOpenDate->Text));
        SetFieldValue("CompanyEdate",WideString(seLastUpdate->Text));
        SetFieldValue("CompanyNewCode",WideString(seNewCode->Text));
        SetFieldValue("CompanyOldCode",WideString(seOldCode->Text));
}

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

AnsiString __fastcall TfrmCompany::GetDataToGrid()
{
    AnsiString  s;
   s  =   "\t"+GetFieldValue("CompanyCode")+
          "\t"+GetFieldValue("CompanyName");

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

}

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(Handle,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)
{
}
//---------------------------------------------------------------------------
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();
        
}
//---------------------------------