cscm.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "Cscm.h"
#include "sdappserver_tlb.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmCscm *frmCscm;
//---------------------------------------------------------------------------
__fastcall TfrmCscm::TfrmCscm(TComponent* Owner)
        : TStdBaseForm(Owner)
{
   TComResultSet *ResultSet=NewResultSet();
   ResultSet->Close();
   ResultSet->Open("select * from sdcscm","CSCMCLASSID");
   ResultSet->LocateByKey("Purchase");
   sePurchase->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Sale");
   seSale->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Manufactory");
   seManufactory->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Inventory");
   seInventory->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Finance");
   seFinance->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Cost");
   seCost->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Human");
   seHuman->Text=ResultSet->FieldByName("CSCMMONTH");
   ResultSet->LocateByKey("Equipment");
   seEquipment->Text=ResultSet->FieldByName("CSCMMONTH");
   delete ResultSet;
}
//---------------------------------------------------------------------------