qu_apcavd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_Apcavd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmQu_Apcavd *frmQu_Apcavd;
//---------------------------------------------------------------------------
__fastcall TfrmQu_Apcavd::TfrmQu_Apcavd(TComponent* Owner,AnsiString m_code,AnsiString m_Type)
        : TListBaseForm(Owner)
{
       seApcavhCode->Text=m_code;
       seApcavhType->Text=m_Type;
       m_SQL="";      //查询语句
}
//---------------------------------------------------------------------------
void __fastcall  TfrmQu_Apcavd::InitEditControl()
{}
void __fastcall  TfrmQu_Apcavd::GetDataFromComObject(int Section)
{}
void __fastcall  TfrmQu_Apcavd::SendDataToComObject(int Section)
{}
void __fastcall  TfrmQu_Apcavd::WaitUserInput(int Section)
{}
void __fastcall  TfrmQu_Apcavd::DisplayBill()
{}
void __fastcall  TfrmQu_Apcavd::GetBill(AnsiString BillID)
{}
void __fastcall  TfrmQu_Apcavd::ChangeToBrowseState(bool Browse)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Apcavd::FillGridWithData()
{
 TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString  ItemStr="";
 m_SQL=" select * from sdVW_Apcavd where ApcavdCODE='"+seApcavhCode->Text+"' order by ApcavdCODE";
 sgApcavd->RowCount=1;
 try
 {
  RsQuery->Open(m_SQL,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr="\t"+RsQuery->FieldByName("ApcavdLine")+
           "\t"+RsQuery->FieldByName("ApcavdDocTypeName")+
           "\t"+RsQuery->FieldByName("ApcavdDocCode")+
           "\t"+RsQuery->FieldByName("ApcavdDocLine")+
           "\t"+RsQuery->FieldByName("ApcavdPAmt")+
           "\t"+RsQuery->FieldByName("ApcavdCAmt")+
           "\t"+RsQuery->FieldByName("ApcavdConv");
   sgApcavd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
 } 
 __finally
 {
   delete RsQuery;
 }

}
//---------------------------------------------------------------------------


void __fastcall TfrmQu_Apcavd::FormShow(TObject *Sender)
{
    FillGridWithData();

}
//---------------------------------------------------------------------------