qu_aprid.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_Aprid.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmQu_Aprid *frmQu_Aprid;
//---------------------------------------------------------------------------
__fastcall TfrmQu_Aprid::TfrmQu_Aprid(TComponent* Owner,AnsiString m_code)
        : TListBaseForm(Owner)
{
       seApridCode->Text=m_code;
       m_SQL="";      //查询语句
}
//---------------------------------------------------------------------------
void __fastcall  TfrmQu_Aprid::InitEditControl()
{}
void __fastcall  TfrmQu_Aprid::GetDataFromComObject(int Section)
{}
void __fastcall  TfrmQu_Aprid::SendDataToComObject(int Section)
{}
void __fastcall  TfrmQu_Aprid::WaitUserInput(int Section)
{}
void __fastcall  TfrmQu_Aprid::DisplayBill()
{}
void __fastcall  TfrmQu_Aprid::GetBill(AnsiString BillID)
{}
void __fastcall  TfrmQu_Aprid::ChangeToBrowseState(bool Browse)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_Aprid::FillGridWithData()
{
 TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString  ItemStr="";
 m_SQL=" select * from sdVW_Aprid where ApridCODE='"+seApridCode->Text+"' order by ApridCODE";
 sgAprid->RowCount=1;
 try
 {
  RsQuery->Open(m_SQL,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr="\t"+RsQuery->FieldByName("ApridLine")+
           "\t"+RsQuery->FieldByName("ApridApiCode")+
           "\t"+RsQuery->FieldByName("ApridApiLine")+
           "\t"+RsQuery->FieldByName("ApridCavCode")+
           "\t"+RsQuery->FieldByName("ApridCavLine")+
           "\t"+RsQuery->FieldByName("ApridAmt")+
           "\t"+RsQuery->FieldByName("ApridDesc");
   sgAprid->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
 } 
 __finally
 {
   delete RsQuery;
 }

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