system.cpp

邮 电 公 司 erp源码

    if(m_CompanyCode.IsEmpty()==true)
      throw Exception("当前没有记录可以删除!");
    m_StoredProc->ProcedureName="sdCompany_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_CompanyCode",ftString,pdInput,20,b_CompanyCode);
    m_StoredProc->ExecProc();
    DeleteRecord(this->b_CompanyCode);
}



void TsdCompany::BackupValue()
{
    b_CompanyCode=m_CompanyCode;
    b_CompanyName=m_CompanyName;
    b_CompanyFullName=m_CompanyFullName;
    b_CompanyAddr1=m_CompanyAddr1;
    b_CompanyAddr2=m_CompanyAddr2;
    b_CompanyTel=m_CompanyTel;
    b_CompanyFax=m_CompanyFax;
    b_CompanyEmail=m_CompanyEmail;
    b_CompanyHomepage=m_CompanyHomepage;
    b_CompanyLegalPerson=m_CompanyLegalPerson;
    b_CompanyTaxNo=m_CompanyTaxNo;
    b_CompanyBankNo=m_CompanyBankNo;
    b_CompanySdate=m_CompanySdate;
    b_CompanyEdate=m_CompanyEdate;
    b_CompanyCancel=m_CompanyCancel;
    b_CompanyNewCode=m_CompanyNewCode;
    b_CompanyOldCode=m_CompanyOldCode;
    b_CompanyFmonth=m_CompanyFmonth;
    b_CompanyCurrency=m_CompanyCurrency;
    b_CompanyBackupPath=m_CompanyBackupPath;
    b_CompanyLanguage=m_CompanyLanguage;
}


void TsdCompany::RestoreValue()
{
    m_CompanyCode=b_CompanyCode;
    m_CompanyName=b_CompanyName;
    m_CompanyFullName=b_CompanyFullName;
    m_CompanyAddr1=b_CompanyAddr1;
    m_CompanyAddr2=b_CompanyAddr2;
    m_CompanyTel=b_CompanyTel;
    m_CompanyFax=b_CompanyFax;
    m_CompanyEmail=b_CompanyEmail;
    m_CompanyHomepage=b_CompanyHomepage;
    m_CompanyLegalPerson=b_CompanyLegalPerson;
    m_CompanyTaxNo=b_CompanyTaxNo;
    m_CompanyBankNo=b_CompanyBankNo;
    m_CompanySdate=b_CompanySdate;
    m_CompanyEdate=b_CompanyEdate;
    m_CompanyCancel=b_CompanyCancel;
    m_CompanyNewCode=b_CompanyNewCode;
    m_CompanyOldCode=b_CompanyOldCode;
    m_CompanyFmonth=b_CompanyFmonth;
    m_CompanyCurrency=b_CompanyCurrency;
    m_CompanyBackupPath=b_CompanyBackupPath;
    m_CompanyLanguage=b_CompanyLanguage;
}


void TsdCompany::EmptyValue(int Index)
{
   switch(Index)
   {
     case 0:
      m_CompanyCode="";
      m_CompanyName="";
      m_CompanyFullName="";
      m_CompanyAddr1="";
      m_CompanyAddr2="";
      m_CompanyTel="";
      m_CompanyFax="";
      m_CompanyEmail="";
      m_CompanyHomepage="";
      m_CompanyLegalPerson="";
      m_CompanyTaxNo="";
      m_CompanyBankNo="";
      m_CompanySdate="";
      m_CompanyEdate="";
      m_CompanyCancel=0;
      m_CompanyNewCode="";
      m_CompanyOldCode="";
      m_CompanyFmonth="";
      m_CompanyCurrency="";
      m_CompanyBackupPath="";
      m_CompanyLanguage=1;
      break;
    case 1:
      b_CompanyCode="";
      b_CompanyName="";
      b_CompanyFullName="";
      b_CompanyAddr1="";
      b_CompanyAddr2="";
      b_CompanyTel="";
      b_CompanyFax="";
      b_CompanyEmail="";
      b_CompanyHomepage="";
      b_CompanyLegalPerson="";
      b_CompanyTaxNo="";
      b_CompanyBankNo="";
      b_CompanySdate="";
      b_CompanyEdate="";
      b_CompanyCancel=0;
      b_CompanyNewCode="";
      b_CompanyOldCode="";
      b_CompanyFmonth="";
      b_CompanyCurrency="";
      b_CompanyBackupPath="";
      b_CompanyLanguage=1;
      break;
    }
}


void TsdCompany::BatchLetValue()
{
  m_CompanyCode=m_Query->FieldValues["CompanyCode"];
  m_CompanyName=m_Query->FieldValues["CompanyName"];
  m_CompanyFullName=m_Query->FieldValues["CompanyFullName"];
  m_CompanyAddr1=m_Query->FieldValues["CompanyAddr1"];
  m_CompanyAddr2=m_Query->FieldValues["CompanyAddr2"];
  m_CompanyTel=m_Query->FieldValues["CompanyTel"];
  m_CompanyFax=m_Query->FieldValues["CompanyFax"];
  m_CompanyEmail=m_Query->FieldValues["CompanyEmail"];
  m_CompanyHomepage=m_Query->FieldValues["CompanyHomepage"];
  m_CompanyLegalPerson=m_Query->FieldValues["CompanyLegalPerson"];
  m_CompanyTaxNo=m_Query->FieldValues["CompanyTaxNo"];
  m_CompanyBankNo=m_Query->FieldValues["CompanyBankNo"];
  m_CompanySdate=m_Query->FieldValues["CompanySdate"];
  m_CompanyEdate=m_Query->FieldValues["CompanyEdate"];
  m_CompanyCancel=m_Query->FieldValues["CompanyCancel"];
  m_CompanyNewCode=m_Query->FieldValues["CompanyNewCode"];
  m_CompanyOldCode=m_Query->FieldValues["CompanyOldCode"];
  m_CompanyFmonth=m_Query->FieldValues["CompanyFmonth"];
  m_CompanyCurrency=m_Query->FieldValues["CompanyCurrency"];
  m_CompanyBackupPath=m_Query->FieldValues["CompanyBackupPath"];
  m_CompanyLanguage=m_Query->FieldValues["CompanyLanguage"];
  BackupValue();
}

void TsdCompany::Assign(TsdCompany *p)
{
    this->SetActionID(p->CurStatus);
    this->m_CompanyCode=p->m_CompanyCode;
    this->m_CompanyName=p->m_CompanyName;
    this->m_CompanyFullName=p->m_CompanyFullName;
    this->m_CompanyAddr1=p->m_CompanyAddr1;
    this->m_CompanyAddr2=p->m_CompanyAddr2;
    this->m_CompanyTel=p->m_CompanyTel;
    this->m_CompanyFax=p->m_CompanyFax;
    this->m_CompanyEmail=p->m_CompanyEmail;
    this->m_CompanyHomepage=p->m_CompanyHomepage;
    this->m_CompanyLegalPerson=p->m_CompanyLegalPerson;
    this->m_CompanyTaxNo=p->m_CompanyTaxNo;
    this->m_CompanyBankNo=p->m_CompanyBankNo;
    this->m_CompanySdate=p->m_CompanySdate;
    this->m_CompanyEdate=p->m_CompanyEdate;
    this->m_CompanyCancel=p->m_CompanyCancel;
    this->m_CompanyNewCode=p->m_CompanyNewCode;
    this->m_CompanyOldCode=p->m_CompanyOldCode;
    this->m_CompanyFmonth=p->m_CompanyFmonth;
    this->m_CompanyCurrency=p->m_CompanyCurrency;
    this->m_CompanyBackupPath=p->m_CompanyBackupPath;
    this->m_CompanyLanguage=p->m_CompanyLanguage;
    this->BackupValue();
}

void TsdCompany::AssignValue()
{
    TsdCompany *p=(TsdCompany *)Records(CurRecNo);
    Assign(p);
}

int TsdCompany::Query()
{
  AnsiString m_SqlStr;
  m_SqlStr=QueryString;
  if(FilterString.IsEmpty()==false)
    m_SqlStr=m_SqlStr+" where "+FilterString;
  if(OrderString.IsEmpty()==false)
    m_SqlStr=m_SqlStr+" Order by "+OrderString;
  m_Query->Close();
  m_Query->SQL->Clear();
  m_Query->SQL->Add(m_SqlStr);
  m_Query->Open();
  ClearRecord();
  if(m_Query->RecordCount>0)
  {
    m_Query->First();
    while(!m_Query->Eof)
    {
      BatchLetValue();
      TsdCompany *p=new TsdCompany();
      SetActionID(1);
      p->Assign(this);
      AddRecord((void *)p,p->CompanyCode);
      m_Query->Next();
    }
    MoveFirst();
  }
  m_Query->Close();
  return Count;
}

bool TsdCompany::Find(AnsiString WhereStr)
{
  AnsiString m_SqlStr;
  if(WhereStr.IsEmpty()==true)
    throw Exception("查找表达式不能为空");
  m_SqlStr="select * from sdCompany where "+WhereStr;
  m_Query->Close();
  m_Query->SQL->Clear();
  m_Query->SQL->Add(m_SqlStr);
  m_Query->Open();
  if(m_Query->RecordCount!=1)
  {
    m_Query->Close();
    return false;
  }
  else
  {
    BatchLetValue();
    m_Query->Close();
    return true;
  }
}


TsdCompany::~TsdCompany()
{
    try{
    }
    catch(...)
    {
        throw Exception("析构函数出错");
    }
}



//==========================================
//(TsdField)系统表字段
//==========================================

TsdField::TsdField(TDataComm *DC)
:TsdDetail(DC)
{
  try
  {

    QueryString="select * from sdfield ";
    FilterString="";
    OrderString="fieldno";
    EmptyValue(0);
    EmptyValue(1);    
  }
  catch(Exception &e)
  {
    ShowMessage(e.Message);
  }
}

TsdField::TsdField()
:TsdDetail()
{
  try
  {

    QueryString="select * from sdfield ";
    FilterString="";
    OrderString="fieldno";
    EmptyValue(0);
    EmptyValue(1);
  }
  catch(Exception &e)
  {
    ShowMessage(e.Message);
  }
}

TsdField::~TsdField()
{
}

void __fastcall TsdField::SetFieldName(AnsiString value)
{
    if(value.IsEmpty()==true)
      throw Exception("字段名称不能为空");
    if(value.Length()>20)
      throw Exception("字段长度不能超过20");
    if(CurStatus==2||CurStatus==4)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("Select * from sdField where fieldname='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount>0)
      {
        m_Query->Close();
        throw Exception("字段名已存在");
      }
      m_Query->Close();
    }
    m_FieldName = value;
}


void __fastcall TsdField::SetFieldTableName(AnsiString value)
{
    m_FieldTableName = value;
}


void __fastcall TsdField::SetFieldNo(int value)
{
    if(value<1)
       throw Exception("序号不能小于零");
     if(value!=m_FieldNo)
     {
    if(FindKey(AnsiString(value)))
      {
       throw Exception("序号已存在!");
       }
     else
      m_FieldNo = value;
      }
}


void __fastcall TsdField::SetFieldDesc(AnsiString value)
{
    m_FieldDesc = value;
}


void __fastcall TsdField::SetFieldMemo(AnsiString value)
{
    m_FieldMemo = value;
}


void __fastcall TsdField::SetFieldType(AnsiString value)
{
    if(value=="C"||value=="F"||value=="L"||value=="N"||value=="S"||value=="B"||value=="M"||value=="D"||value=="T")
      m_FieldType = value;
    else
      throw Exception(AnsiString("字段类型只能是:C-字符型,F-浮点型,L-长整型,N-整型,S-短整型,B-布尔型,M-文本型,D-日期型,T-时间型"));
}


void __fastcall TsdField::SetFieldWidth(int value)
{
    m_FieldWidth = value;
}


void __fastcall TsdField::SetFieldDecimal(int value)
{
    m_FieldDecimal = value;
}


void __fastcall TsdField::SetFieldPrimaryKey(int value)
{
    m_FieldPrimaryKey = value;
}


void __fastcall TsdField::SetFieldForeignKey(int value)
{
    m_FieldForeignKey = value;
}


void __fastcall TsdField::SetFieldReferTableName(AnsiString value)
{
    m_FieldReferTableName = value;
}


void __fastcall TsdField::SetFieldReferFieldName(AnsiString value)
{
    m_FieldReferFieldName = value;
}


void __fastcall TsdField::SetFieldIdentity(int value)
{
    m_FieldIdentity = value;
}


void __fastcall TsdField::SetFieldNull(int value)
{
    m_FieldNull = value;
}

void __fastcall TsdField::SetFieldDefault(AnsiString value)
{
  m_FieldDefault=value;
}


void __fastcall TsdField::SetFieldHandWriting(int value)
{
    m_FieldHandWriting = value;
}


void __fastcall TsdField::SetFieldStyle(int value)
{
    m_FieldStyle = value;
}


void __fastcall TsdField::SetFieldAutoNo(int value)
{
  m_FieldAutoNo=value;
}


void __fastcall TsdField::SetFieldNumbering(int value)
{
  m_FieldNumbering=value;
}


void TsdField::BackupValue()
{
    b_FieldName=m_FieldName;
    b_FieldTableName=m_FieldTableName;
    b_FieldNo=m_FieldNo;
    b_FieldDesc=m_FieldDesc;
    b_FieldMemo=m_FieldMemo;
    b_FieldType=m_FieldType;
    b_FieldWidth=m_FieldWidth;
    b_FieldDecimal=m_FieldDecimal;
    b_FieldPrimaryKey=m_FieldPrimaryKey;
    b_FieldForeignKey=m_FieldForeignKey;;
    b_FieldReferTableName=m_FieldReferTableName;
    b_FieldReferFieldName=m_FieldReferFieldName;
    b_FieldIdentity=m_FieldIdentity;
    b_FieldNull=m_FieldNull;
    b_FieldDefault=m_FieldDefault;
    b_FieldHandWriting=m_FieldHandWriting;
    b_FieldStyle=m_FieldStyle;
    b_FieldAutoNo=m_FieldAutoNo;
    b_FieldNumbering=m_FieldNumbering;
}