qu_aprsd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_Aprsd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmQu_Aprsd *frmQu_Aprsd;
//---------------------------------------------------------------------------
__fastcall TfrmQu_Aprsd::TfrmQu_Aprsd(TComponent* Owner,AnsiString m_code)
        : TListBaseForm(Owner)
{
       seAprsdCode->Text=m_code;
       m_SQL="";      //查询语句
}
//---------------------------------------------------------------------------
void __fastcall  TfrmQu_Aprsd::InitEditControl()
{}
void __fastcall  TfrmQu_Aprsd::GetDataFromComObject(int Section)
{}
void __fastcall  TfrmQu_Aprsd::SendDataToComObject(int Section)
{}
void __fastcall  TfrmQu_Aprsd::WaitUserInput(int Section)
{}
void __fastcall  TfrmQu_Aprsd::DisplayBill()
{}
void __fastcall  TfrmQu_Aprsd::GetBill(AnsiString BillID)
{}
void __fastcall  TfrmQu_Aprsd::ChangeToBrowseState(bool Browse)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Aprsd::FillGridWithData()
{
 TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString  ItemStr="";
 m_SQL=" select * from sdVW_Aprsd where AprsdCODE='"+seAprsdCode->Text+"' order by AprsdCODE";
 sgAprsd->RowCount=1;
 try
 {
  RsQuery->Open(m_SQL,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr="\t"+RsQuery->FieldByName("AprsdLine")+
           "\t"+RsQuery->FieldByName("AprsdCavCode")+
           "\t"+RsQuery->FieldByName("AprsdCavLine")+
           "\t"+RsQuery->FieldByName("AprsdCAmt")+
           "\t"+RsQuery->FieldByName("AprsdRAmt")+
           "\t"+RsQuery->FieldByName("AprsdConv")+
           "\t"+RsQuery->FieldByName("AprsdDesc");
   sgAprsd->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
 } 
 __finally
 {
   delete RsQuery;
 }

}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Aprsd::FormShow(TObject *Sender)
{
    FillGridWithData();
}
//---------------------------------------------------------------------------