notebook.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "NoteBook.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma hdrstop
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"

TfrmNoteBook *frmNoteBook;
//---------------------------------------------------------------------------
__fastcall TfrmNoteBook::TfrmNoteBook(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      scNoteBookClassID->ItemIndex =-1;
      seNoteBookCode->Text = "";
      memNoteBookText->Text= "";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::GetDataFromComObject()
{
  scNoteBookClassID->LocateKey(GetFieldValue("NoteBookClassID"));
  seNoteBookCode->Text  = GetFieldValue("NoteBookCode");
    sgNoteBook->LocateGrid(0,seNoteBookCode->Text);
  memNoteBookText->Text = GetFieldValue("NoteBookText");
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::SendDataToComObject()
{
  SetFieldValue("NoteBookClassID",scNoteBookClassID->ItemData[1]);
  SetFieldValue("NoteBookCode",seNoteBookCode->Text);
  SetFieldValue("NoteBookText",memNoteBookText->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::WaitUserInput()
{
    scNoteBookClassID->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmNoteBook::GetDataToGrid()
{
    AnsiString  ItemStr;
  ItemStr = GetFieldValue("NoteBookCode") + "\t" +
            GetFieldValue("NoteBookText");
    return(ItemStr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)
    {
       sgNoteBook->AddItem(ItemStr);
    }
    else if(mAction ==  1)
    {
       int i = sgNoteBook->Row;
       sgNoteBook->ChangeItem(ItemStr,i);
    }
    else if(mAction ==  2)
    {
       sgNoteBook->RemoveItem(sgNoteBook->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgNoteBook->RowCount = 1;
    while(comServer->Eof == 0)
    {
       ItemStr = GetDataToGrid();
       sgNoteBook->AddItem(ItemStr);
       comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, sgNoteBook,sgNoteBook->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    FillComboBox(Handle,scNoteBookClassID,"select ClassID,memo=ClassID+space(18-Len(ClassID))+ClassName from sdClass order By ClassID","memo","ClassID");
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::RefreshUpdateData(int MsgSrc,int MsgType)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmNoteBook::sgNoteBookClick(TObject *Sender)
{
    if(sgNoteBook->Row > 0)
      comServer->LocateByKey(sgNoteBook->TextMatrix[sgNoteBook->Row][0]);
    if (!comServer->Eof)
      GetDataFromComObject();

}
//------------------------------------------------------------------