nbquery.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "NbQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmNbQuery *frmNbQuery;
//---------------------------------------------------------------------------
__fastcall TfrmNbQuery::TfrmNbQuery(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbQuery::FormShow(TObject *Sender)
{
      InitEditControl();
}
//---------------------------------------------------------------------------

void __fastcall TfrmNbQuery::InitEditControl()
{
      TComResultSet *Rst=NewResultSet();
      Rst->Open("select ClassId,ClassName,ClassDesc from sdClass order by ClassId","");
      int i=0;
      Rst->MoveFirst();
      while(Rst->Eof == 0)
      {
         pSDGrid[i]=new TSDGrid(this);
         TTabSheet *pTabSheet=new TTabSheet(this);
         pTabSheet->Caption=Rst->FieldByName("ClassName");
         pTabSheet->Align = alClient;
         pTabSheet->PageControl = tpcNbQuery;
         pSDGrid[i]->RowCount=1;
         pSDGrid[i]->ColCount=5;
         pSDGrid[i]->Align = alClient;
         pSDGrid[i]->Parent=tpcNbQuery->Pages[i];
         pSDGrid[i]->Color=clWhite;
         pSDGrid[i]->Columns->Items[0]->TitleString="分类ID";
         pSDGrid[i]->Columns->Items[1]->TitleString="分类名称";
         pSDGrid[i]->Columns->Items[2]->TitleString="短语代码";
         pSDGrid[i]->Columns->Items[3]->TitleString="短语名称";
         pSDGrid[i]->Font->Name="宋体";
         pSDGrid[i]->Font->Size=9;
         pSDGrid[i]->OnDblClick=SDGridDblClick;
         Rst->MoveNext();
         i=i+1;
      }
      Rst->Close();
      FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbQuery::FillGridWithData()
{
      for(int i=0;i<tpcNbQuery->PageCount;i++)
      {
        TComResultSet *Rst=NewResultSet();
        AnsiString SqlString,ItemStr;
        SqlString=AnsiString("select ClassId,ClassName,NoteBookCode,NoteBookText from sdClass,sdNoteBook")+
                  AnsiString(" where ClassId=NoteBookClassId and ClassName='"+tpcNbQuery->Pages[i]->Caption+"'")+
                  AnsiString("order by ClassId,NoteBookCode");
        Rst->Open(SqlString,"");
        Rst->MoveFirst();
        while(Rst->Eof == 0)
        {
           ItemStr="\t"+Rst->FieldByName("ClassId")
                  +"\t"+Rst->FieldByName("ClassName")
                  +"\t"+Rst->FieldByName("NoteBookCode")
                  +"\t"+Rst->FieldByName("NoteBookText");
           pSDGrid[i]->AddItem(ItemStr);
           Rst->MoveNext();
        }
        Rst->Close();
      }
}
//---------------------------------------------------------------------------

void __fastcall TfrmNbQuery::SDGridDblClick(TObject *Sender)
{
     int iRow;
     iRow=((TSDGrid *)Sender)->Row;
     ReturnValue=((TSDGrid *)Sender)->TextMatrix[iRow][2];
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmNbQuery::ReturnQueryValue()
{
     return (ReturnValue);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbQuery::FormClose(TObject *Sender,
      TCloseAction &Action)
{
     g_ClientComm->DelMsgForm(this->Name);
     Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbQuery::FormDestroy(TObject *Sender)
{
     for (int i=0;i<50;i++)
    	delete pSDGrid[i];
}
//---------------------------------------------------------------------------