parmat.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "ParMat.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
#include "sdappserver_tlb.h"
#include "gVar.h"
TfrmParMat *frmParMat;
TComResultSet *m_ParRst;

//---------------------------------------------------------------------------
__fastcall TfrmParMat::TfrmParMat(TComponent* Owner,AnsiString UpperCode)
        : TStdBaseForm(Owner)
{     m_UpperCode=UpperCode;
      sgParMat->Cells[0][0] = " 参数名称";
      sgParMat->Cells[1][0] = " 参数的值";

}
//---------------------------------------------------------------------------
void __fastcall TfrmParMat::FormCreate(TObject *Sender)
{
      AnsiString m_Sql,Caption;
      m_ParRst=NewResultSet();
      m_ParRst->Open("select parametername from sdparameter where parametercode='"+m_UpperCode+"'","");
      sg->Caption=m_ParRst->FieldByName("parametername");
      m_ParRst->Close();
      m_Sql=AnsiString("select * from sdparameter where parametercode like '"+m_UpperCode+"%' and  parametertype='2'");
      m_ParRst->Open(m_Sql,"");
      m_ParRst->MoveFirst();
      for(int i=1;i<=m_ParRst->RecordCount;i++)
      {
        m_ParCode[i]=m_ParRst->FieldByName("parametercode");
        sgParMat->Cells[0][i]=m_ParRst->FieldByName("parametername");
        sgParMat->Cells[1][i]=m_ParRst->FieldByName("parametervalue");
        m_ParRst->MoveNext();
      }
      m_ParRst->MoveFirst();
      seParaName->Text=sgParMat->Cells[0][1];
      seParaValue->Text=sgParMat->Cells[1][1];
      m_ParRst->Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmParMat::sgParMatClick(TObject *Sender)
{
     m_KeyCode=m_ParCode[sgParMat->Row];
     seParaName->Text=sgParMat->Cells[0][sgParMat->Row];
     seParaValue->Text=sgParMat->Cells[1][sgParMat->Row];
     seParaValue->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmParMat::btSaveClick(TObject *Sender)
{
     m_ParRst->Execute("update sdparameter set parametervalue='"+seParaValue->Text+"' where parametercode='"+m_KeyCode+"'");
     m_ParRst->Close();
}
//---------------------------------------------------------------------------


void __fastcall TfrmParMat::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  delete m_ParRst;
}
//---------------------------------------------------------------------------