cscm.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Cscm.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmCscm *frmCscm;
//---------------------------------------------------------------------------
__fastcall TfrmCscm::TfrmCscm(TComponent* Owner, HWND chWnd)
        : TStdBaseForm(Owner)
{
   TComResultSet *ResultSet=new TComResultSet(Handle,g_ClientHandle);
   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;
}
//---------------------------------------------------------------------------