unit1.cpp

来自「C++Builder高级应用开发指南随书源码」· C++ 代码 · 共 44 行

//---------------------------------------------------------------------------
#include "Unit1.h"
#include "ExpressSrv3_TLB.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWebModule1 *WebModule1;
//---------------------------------------------------------------------------
__fastcall TWebModule1::TWebModule1(TComponent* Owner)
	: TWebModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TWebModule1::MidasPageProducerRootBeforeGetContent(
      TObject *Sender)
{
  while (!ClientDataSetCustomer->Eof)
  {
     QuerySelectOptions1->Items->Add(
     ClientDataSetCustomer->FieldByName("CustNo")->AsString+" "+
     ClientDataSetCustomer->FieldByName("Company")->AsString);
     QuerySelectOptions1->Values->Add(
     ClientDataSetCustomer->FieldByName("CustNo")->AsString);
     ClientDataSetCustomer->Next();
  }
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItemOrdersAction(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
   //获取用户选择的客户编号数值
   AnsiString CustNo=Request->ContentFields->Values["CustNo"];
   //调用应用程序服务器的接口函数
   IDispatch* disp = (IDispatch*)(DCOMConnection1->AppServer);
   IDemoServer3Disp TempInterface( (IDemoServer3*)disp);
   TempInterface.GetOrdersInfo(CustNo.ToInt());
   //返回结果网页
   Response->Content=MidasPageProducerOrders->Content();
}
//---------------------------------------------------------------------------