companyinf.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "CompanyInf.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmCompanyInf *frmCompanyInf;
//---------------------------------------------------------------------------
__fastcall TfrmCompanyInf::TfrmCompanyInf(TComponent* Owner)
        : TListBaseForm(Owner)
{
        pCpInfSet =NewResultSet();
        seCompanyCode->Text   ="";  //公司代码
        seCompanyName->Text   ="";  //公司名称
        seCompanyFullName->Text   ="";  //公司全称
        seCompanyAddr1->Text   ="";  //公司地址1
        seCompanyAddr2->Text   ="";  //公司地址2
        seCompanyTel->Text   ="";  //公司联系电话
        seCompanyFax->Text   ="";  //公司传真
        seCompanyEmail->Text   ="";  //电子信箱
        seCompanyHomepage->Text   ="";  //主页
        seCompanyLegalPerson->Text   ="";  //法人代表
        seCompanyTaxNo->Text   ="";  //公司默认税务号码
        seCompanyBankNo->Text   ="";  //银行帐号
        sdCompanySdate->Text   ="";  //起用日期
        sdCompanyEdate->Text   ="";  //停用日期
        chkCompanyCancel->Checked =false;  //是否已停用
        seCompanyNewCode->Text   ="";  //公司新编号
        seCompanyOldCode->Text   ="";  //公司旧编号
        seCompanyFmonth->Text   ="";  //当前财务月份
        scCompanyCurrency->ItemIndex   =-1;  //本币
        seCompanyBackupPath->Text   ="";  //备份路径
        scCompanyLanguage->Text   ="";  //公司使用语言代码
}
//---------------------------------------------------------------------------
void __fastcall TfrmCompanyInf::InitEditControl()
{
        scCompanyLanguage->Clear();
        scCompanyLanguage->AddItems("简体中文","1");
        scCompanyLanguage->AddItems("繁体中文","2");
        scCompanyLanguage->AddItems(" 英  语","3");
        FillComboBox(scCompanyCurrency,"select  CurrencyCode,Currencyname from sdCurrency order By CurrencyCode","CurrencyName","CurrencyCode");

}
void __fastcall TfrmCompanyInf::GetDataFromComObject(int Section)
{
    AnsiString strSQL;
    strSQL=" select * from sdcompany where CompanyCode='"+g_sdCompanyCode+"'";
    pCpInfSet->Close();
    pCpInfSet->Open(strSQL," ");
    seCompanyCode->Text=pCpInfSet->FieldByName("CompanyCode")    ;
    seCompanyName->Text=pCpInfSet->FieldByName("CompanyName")    ;
    seCompanyFullName->Text=pCpInfSet->FieldByName("CompanyFullName")    ;
    seCompanyAddr1->Text=pCpInfSet->FieldByName("CompanyAddr1")    ;
    seCompanyAddr2->Text=pCpInfSet->FieldByName("CompanyAddr2")    ;
    seCompanyTel->Text=pCpInfSet->FieldByName("CompanyTel")    ;
    seCompanyFax->Text=pCpInfSet->FieldByName("CompanyFax")    ;
    seCompanyEmail->Text=pCpInfSet->FieldByName("CompanyEmail")    ;
    seCompanyHomepage->Text=pCpInfSet->FieldByName("CompanyHomepage")    ;
    seCompanyLegalPerson->Text=pCpInfSet->FieldByName("CompanyLegalPerson")    ;
    seCompanyTaxNo->Text=pCpInfSet->FieldByName("CompanyTaxNo")    ;
    seCompanyBankNo->Text=pCpInfSet->FieldByName("CompanyBankNo")    ;
    sdCompanySdate->Text=pCpInfSet->FieldByName("CompanySdate")    ;
    sdCompanyEdate->Text=pCpInfSet->FieldByName("CompanyEdate")    ;
    chkCompanyCancel->Checked=(pCpInfSet->FieldByName("CompanyCancel")==1?"1":"0");
    seCompanyNewCode->Text=pCpInfSet->FieldByName("CompanyNewCode")    ;
    seCompanyOldCode->Text=pCpInfSet->FieldByName("CompanyOldCode")    ;
    seCompanyFmonth->Text=pCpInfSet->FieldByName("CompanyFmonth")    ;
    scCompanyCurrency->LocateKey(pCpInfSet->FieldByName("CompanyCurrency"));
    seCompanyBackupPath->Text=pCpInfSet->FieldByName("CompanyBackupPath")    ;
    scCompanyLanguage->LocateKey(pCpInfSet->FieldByName("CompanyLanguage"));

}
void __fastcall TfrmCompanyInf::SendDataToComObject(int Section)
{
    AnsiString strSQL,m_ErrNum;
    strSQL= " Update sdCompany  set COMPANYFULLNAME='"+seCompanyFullName->Text+
    "',COMPANYADDR1='"+seCompanyAddr1->Text+
    "',COMPANYADDR2='"+seCompanyAddr2->Text+
    "',COMPANYTEL='"+seCompanyTel->Text+
    "',COMPANYFAX='"+seCompanyFax->Text+
    "',COMPANYHOMEPAGE='"+seCompanyHomepage->Text+
    "', COMPANYEMAIL='"+seCompanyEmail->Text+
    "',COMPANYLEGALPERSON='"+seCompanyLegalPerson->Text+
    "',COMPANYTAXNO='"+seCompanyTaxNo->Text+
    "',COMPANYBANKNO='"+seCompanyBankNo->Text+
    "',COMPANYLANGUAGE='"+scCompanyLanguage->ItemData[1]+
    "',COMPANYBACKUPPATH='"+seCompanyBackupPath->Text+
    "',COMPANYCURRENCY='"+scCompanyCurrency->ItemData[1]+
    "'  WHERE COMPANYCODE='"+g_sdCompanyCode+"'";
    pCpInfSet->Execute(strSQL);

}
void __fastcall TfrmCompanyInf::WaitUserInput(int Section)
{
   seCompanyFullName->SetFocus();
}
void __fastcall TfrmCompanyInf::DisplayBill()
{
//
}
void __fastcall TfrmCompanyInf::GetBill(AnsiString BillID)
{
//
}
void __fastcall TfrmCompanyInf::ChangeToBrowseState(bool Browse)
{
//
}
void __fastcall TfrmCompanyInf::FormShow(TObject *Sender)
{
      GetDataFromComObject(1);        
}
//---------------------------------------------------------------------------

void __fastcall TfrmCompanyInf::btCacelClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmCompanyInf::btOkClick(TObject *Sender)
{
     SendDataToComObject(1);
     Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmCompanyInf::RefreshUpdateData(int MsgSrc,int MsgType)
{
      if(MsgSrc==euSdCurrency)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(scCompanyCurrency,"select  CurrencyCode,Currencyname from sdCurrency order By CurrencyCode","CurrencyName","CurrencyCode");
      }

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


void __fastcall TfrmCompanyInf::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  TListBaseForm::FormClose(Sender,Action);
  delete pCpInfSet;  
}
//---------------------------------------------------------------------------