rptcenter.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "RptCenter.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
#define ParaCurCount "11701"  //最近使用报表的个数参数代码
#define ParaTimes "11702"     //频繁使用报表的个数参数代码

TfrmRptCenter *frmRptCenter;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmRptCenter::GetFieldValue(int FieldIndex)
{
    AnsiString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------

void __fastcall TfrmRptCenter::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRptCenter::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRptCenter::SendDataToComObject()
{
 return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRptCenter::WaitUserInput()
{
return;
}

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

void __fastcall TfrmRptCenter::RefreshGridData(int mAction)
{
return;
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TfrmRptCenter::FillGridWithData()
{
     TComResultSet *RsReport=NewResultSet();
     TTreeNode *TempNode[7];
     int mLevel;
     AnsiString sSQL;

     tvReport->Items->Clear();
     TempNode[0]=tvReport->Items->Add(NULL,"最近使用的报表");
     TempNode[0]->StateIndex = 0;
     TempNode[0]=tvReport->Items->Add(NULL,"频繁使用的报表");
     TempNode[0]->StateIndex = 1;

     RsReport->Open(WideString("select RptTypeCode,RptTypeName,RptTypeLevel,RptTypeEnd from sdRptType order by RptTypeCode,RptTypeLevel"),WideString(""));
     RsReport->MoveFirst();
     while( RsReport->Eof == 0 )
     {
        mLevel=RsReport->FieldByName("RptTypeLevel").ToInt();
        if(mLevel == 1)
         TempNode[mLevel] = tvReport->Items->AddChild(NULL,"(" + RsReport->FieldByName("RptTypeCode") + ")" +RsReport->FieldByName("RptTypeName"));
        else
         TempNode[mLevel] = tvReport->Items->AddChild(TempNode[mLevel-1],"(" + RsReport->FieldByName("RptTypeCode") + ")" +RsReport->FieldByName("RptTypeName"));
        if(RsReport->FieldByName("RptTypeEnd")=="1")
         TempNode[mLevel]->StateIndex = 2;
        else
         TempNode[mLevel]->StateIndex = -1;
        TempNode[mLevel]->Text= "(" + RsReport->FieldByName("RptTypeCode") + ")"+RsReport->FieldByName("RptTypeName");
        RsReport->MoveNext();
     }
     RsReport->Close();
     delete RsReport;
     if (tvReport->Items->Count > 0)
         tvReport->Items->Item[0]->Expand(false);
}

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

void __fastcall TfrmRptCenter::InitEditControl()
{
 return;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRptCenter::TreeViewLocation()
{
/*
    AnsiString s,m;
    s = GetFieldValue(fiReportCode);

    for(int i = 1 ; i < tvReport->Items->Count ; i ++)
    {
        m = tvReport->Items->Item[i]->Text;
        m = m.SubString(2,m.AnsiPos(")")-2);
        if((tvReport->Items->Item[i]->Text) == s)
        {
            tvReport->Selected = tvReport->Items->Item[i];
            break;
        }
    }
*/
}
//---------------------------------------------------------------------------

__fastcall TfrmRptCenter::TfrmRptCenter(TComponent* Owner)
    : TRecBaseForm(Owner,euSdReport,"")
{
    InitParameter();
    FillGridWithData();
    comServer->MoveFirst();
}

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

void __fastcall TfrmRptCenter::FormCreate(TObject *Sender)
{
//    FillGridWithData();
//    ClearControl(false);
//    comServer->MoveFirst();
}
//---------------------------------------------------------------------------

void __fastcall TfrmRptCenter::InitParameter()
{
 //从参数表sdparameter中获取最近使用和频繁使用的报表个数
 TComResultSet *pResultSet=NewResultSet();
 AnsiString strSQL,strCode;
 strSQL=" select parametercode,parametervalue from sdparameter ";
 strSQL=strSQL+" where parametercode = '"+ParaCurCount+"' or parametercode = '"+ParaTimes+"'";
 pResultSet->Open(strSQL,"");
 pResultSet->MoveFirst();
 while(!pResultSet->Eof)
 {
  strCode=pResultSet->FieldByName("parametercode");
  if(strCode==ParaCurCount)
   pv_iCurCount=StrToIntDef(pResultSet->FieldByName("parametervalue"),10);  //默认值为10
  else
   pv_iTimes=StrToIntDef(pResultSet->FieldByName("parametervalue"),10);  //默认值为10
  pResultSet->MoveNext();
 }
 pResultSet->Close();
 delete pResultSet;
}
//---------------------------------------------------------------------------


void __fastcall TfrmRptCenter::lvwReportDblClick(TObject *Sender)
{
/*    AnsiString m,sSQL;
    AnsiString sReportFormName,sReportFormID,sReportName,sReportCode;
    TCOMIKResultSet RsReport=NewResultSet();
    if(lvwReport->Selected==NULL)
     return;
    m = lvwReport->Selected->Caption;
    comServer->LocateByKey(WideString(m));
    if (comServer->Eof == 0)
    {
     sReportCode=GetFieldValue(fiReportCode);
     sReportFormName=GetFieldValue(fiReportFormName);
     sReportFormID=GetFieldValue(fiReportFormID);
     sReportName=GetFieldValue(fiReportName);
     g_sdTask->Show(sReportFormName,sReportFormID,sReportName,"");
     sSQL=" EXEC sdReport_writeback '"+sReportCode+"',"+pv_iCurCount;
     RsReport->Execute(WideString(sSQL));
    }
 */
}
//---------------------------------------------------------------------------
void __fastcall TfrmRptCenter::tvReportChange(TObject *Sender,
      TTreeNode *Node)
{
    if(tvReport->Selected==NULL)
    {
     lvwReport->Items->Clear();
     return;
     }
    if(tvReport->Selected->StateIndex == -1 )
    {
     lvwReport->Items->Clear();
     return;
     }
    TComResultSet *RsReport=NewResultSet();
    AnsiString sSQL;
    TListItem  *ListItem;
    if(tvReport->Selected->StateIndex == 0) //最近使用报表
    {
     lvwReport->Items->Clear();
     sSQL="select ReportCode,ReportName,ReportDesc from sdReport ";
     sSQL=sSQL+" where ReportNearNo > 0 and ReportNearNo <="+IntToStr(pv_iCurCount);
     sSQL=sSQL+" order by ReportNearNo ";
     RsReport->Open(WideString(sSQL),WideString(""));
     RsReport->MoveFirst();
     while( RsReport->Eof == 0 )
     {
      ListItem = lvwReport->Items->Add();
      ListItem->Caption = RsReport->FieldByName("ReportCode");
      ListItem->SubItems->Add(RsReport->FieldByName("ReportName"));
      ListItem->SubItems->Add(RsReport->FieldByName("ReportDesc"));
      RsReport->MoveNext();
     }
     RsReport->Close();
     delete RsReport;
     return;
    }
    if(tvReport->Selected->StateIndex == 1) //频繁使用报表
    {
     lvwReport->Items->Clear();
     sSQL="select top "+IntToStr(pv_iTimes)+" ReportCode,ReportName,ReportDesc from sdReport ";
     sSQL=sSQL+"order by ReportTimes desc";
     RsReport->Open(WideString(sSQL),WideString(""));
     RsReport->MoveFirst();
     while( !RsReport->Eof)
     {
      ListItem = lvwReport->Items->Add();
      ListItem->Caption = RsReport->FieldByName("ReportCode");
      ListItem->SubItems->Add(RsReport->FieldByName("ReportName"));
      ListItem->SubItems->Add(RsReport->FieldByName("ReportDesc"));
      RsReport->MoveNext();
     }
     RsReport->Close();
     delete RsReport;
     return;
    }
    if(tvReport->Selected->StateIndex == 2) //分类码报表
    {
     lvwReport->Items->Clear();
     AnsiString m = tvReport->Selected->Text;
     m = m.SubString(2,m.AnsiPos(")")-2);
     sSQL="select ReportCode,ReportName,ReportDesc from sdReport ";
     sSQL=sSQL+"where ReportType='"+m+"' ";
     sSQL=sSQL+"order by ReportCode ";
     RsReport->Open(WideString(sSQL),WideString(""));
     RsReport->MoveFirst();
     while( !RsReport->Eof)
     {
      ListItem = lvwReport->Items->Add();
      ListItem->Caption = RsReport->FieldByName("ReportCode");
      ListItem->SubItems->Add(RsReport->FieldByName("ReportName"));
      ListItem->SubItems->Add(RsReport->FieldByName("ReportDesc"));
      RsReport->MoveNext();
     }
     RsReport->Close();
     delete RsReport;
    }
}
//---------------------------------------------------------------------------