qu_adjcod.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 76 行

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

#include <vcl.h>
#pragma hdrstop

#include "Qu_AdjCod.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmQu_AdjCod *frmQu_AdjCod;
//---------------------------------------------------------------------------
__fastcall  TfrmQu_AdjCod::TfrmQu_AdjCod(TComponent* Owner,AnsiString l_AdjCohcode)
        : TListBaseForm(Owner)
{
       seAdjCohCode->Text=l_AdjCohcode;
       l_SQL="";      //查询语句
}
//---------------------------------------------------------------------------
void __fastcall  TfrmQu_AdjCod::InitEditControl()
{}
void __fastcall  TfrmQu_AdjCod::GetDataFromComObject(int Section)
{}
void __fastcall  TfrmQu_AdjCod::SendDataToComObject(int Section)
{}
void __fastcall  TfrmQu_AdjCod::WaitUserInput(int Section)
{}
void __fastcall  TfrmQu_AdjCod::DisplayBill()
{}
void __fastcall  TfrmQu_AdjCod::GetBill(AnsiString BillID)
{}
void __fastcall  TfrmQu_AdjCod::ChangeToBrowseState(bool Browse)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmQu_AdjCod::FillGridWithData()
{
 TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString  ItemStr="";
 l_SQL=" select * from sdVW_AdjCod where ADJCOdCODE='"+seAdjCohCode->Text+"' order by ADJCOdCODE";
 sgAdjCod->RowCount=1;
 try
 {
  RsQuery->Open(l_SQL,"");
  RsQuery->MoveFirst();
  while( RsQuery->Eof == 0)
  {
   ItemStr="\t"+RsQuery->FieldByName("AdjCodLine")+
           "\t"+RsQuery->FieldByName("AdjCodGoods")+
           "\t"+RsQuery->FieldByName("GoodsName")+
           "\t"+RsQuery->FieldByName("UnitName")+
           "\t"+RsQuery->FieldByName("AdjCodAmt")+
           "\t"+RsQuery->FieldByName("AdjCodBatch")+
           "\t"+RsQuery->FieldByName("AdjCodDesc");
   sgAdjCod->AddItem(ItemStr);
   RsQuery->MoveNext();
  }
  RsQuery->Close();
 } 
 __finally
 {
   delete RsQuery;
 }

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