notebook.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#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)
    : TRecBaseForm(Owner,euSdNoteBook,"")
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmNoteBook::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::ClearControl(bool BringToNext)
{
    if(BringToNext)
    {
       return;
    }
    seNoteBookCode->Text    =   "";
    scNoteBookClassID->ItemIndex =-1; 
    seNoteBookText->Text    =   "";
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::GetDataFromComObject()
{
    seNoteBookCode->Text    =   GetFieldValue(fiNoteBookCode);
    sgNoteBook->LocateGrid(1,seNoteBookCode->Text);
    scNoteBookClassID->LocateKey(GetFieldValue(fiNoteBookClassID));
    scNoteBookClassID->Text=scNoteBookClassID->ItemData[0];
    seNoteBookText->Text    =   GetFieldValue(fiNoteBookText);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::SendDataToComObject()
{
    WriteFieldValue(comServer,fiNoteBookCode,seNoteBookCode->Text);
    WriteFieldValue(comServer,fiNoteBookClassID,scNoteBookClassID->ItemData[1]);
    WriteFieldValue(comServer,fiNoteBookText,seNoteBookText->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::WaitUserInput()
{
    seNoteBookCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmNoteBook::GetDataToGrid()
{
    AnsiString  s;
    scNoteBookClassID->LocateKey(GetFieldValue(fiNoteBookClassID));
    s  =  "\t" + GetFieldValue(fiNoteBookCode) +
          "\t" + scNoteBookClassID->ItemData[0] +
          "\t" + GetFieldValue(fiNoteBookText);
    return(s);
}
//---------------------------------------------------------------------------
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->RemoveItem(i);
       sgNoteBook->AddItem(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);
    ClientGroup->AddComponent(2,false,false,false,seNoteBookCode,seNoteBookCode->Name);
    FillComboBox(scNoteBookClassID,"select CLASSID,CLASSNAME from sdClass order By CLASSID","CLASSNAME","CLASSID");
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::RefreshUpdateData(int MsgSrc,int MsgType)
{
    if(MsgSrc==euSdClass)
    try
    {
      StartWaitForm("正在刷新引用数据");
      if(MsgSrc==euSdClass)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillComboBox(scNoteBookClassID,"select CLASSID,CLASSNAME from sdClass order By CLASSID","CLASSNAME","CLASSID");
      }
      
    }
    __finally
    {
        EndWaitForm();
    } 
}
//---------------------------------------------------------------------------

void __fastcall TfrmNoteBook::seNoteBookCodeKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seNoteBookCode->Text);
      GetDataFromComObject();
    }

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

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

}
//---------------------------------------------------------------------------
void __fastcall TfrmNoteBook::SetFieldValue(int Index,AnsiString Value)
{
    WriteFieldValue(comServer,Index,Value);
}
//----------------------------------------------------------------------------