nbedit.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 111 行

//---------------------------------------------------------------------------
#include <vcl.h>
#include "NbEdit.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma resource "*.dfm"

TfrmNbEdit *frmNbEdit;
//---------------------------------------------------------------------------
__fastcall TfrmNbEdit::TfrmNbEdit(TComponent* Owner)
   : TStdBaseForm(Owner)
{
    m_RetStatus="";
}
//---------------------------------------------------------------------------

void __fastcall TfrmNbEdit::InitEditControl()
{
   FillComboBox(Handle,scNoteBookClassID,"select ClassID,memo=ClassID+space(18-Len(ClassID))+ClassName from sdClass order By ClassID","memo","ClassID");
   scNoteBookClassID->LocateKey("Finance");
   scNoteBookClassID->SetFocus();
   seNoteBookCode->Text="";
   memNoteBookText->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TfrmNbEdit::FormShow(TObject *Sender)
{
   InitEditControl();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbEdit::btOKClick(TObject *Sender)
{
   AnsiString tClassID;
   AnsiString tNoteBookCode;
   AnsiString tNoteBookName;
   tClassID=scNoteBookClassID->ItemData[1];
   tNoteBookCode=seNoteBookCode->Text;
   tNoteBookName=memNoteBookText->Text;
   if(tClassID.IsEmpty())
     throw Exception("类别不能为空");
   if(tNoteBookCode.IsEmpty())
     throw Exception("代码不能为空");
   if(tNoteBookName.IsEmpty())
     throw Exception("名称不能为空");
   TComResultSet *RstNbEdit;
   RstNbEdit=new  TComResultSet(Handle,g_ClientHandle);
   try
   {
     RstNbEdit->Execute("exec sdNoteBook_Insert '"+tNoteBookCode+"','"+tClassID+"','"+tNoteBookName+"'");
   }
   catch(Exception &e)
   {
     RstNbEdit->Close();
     delete RstNbEdit;
     throw Exception(e.Message);
   }
   RstNbEdit->Close();
   delete RstNbEdit;
   m_RetStatus="OK";
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbEdit::btCancelClick(TObject *Sender)
{
   m_RetStatus="Cancel";
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNbEdit::btAddClick(TObject *Sender)
{
   scNoteBookClassID->SetFocus();
   seNoteBookCode->Text="";
   memNoteBookText->Text="";

   AnsiString tClassID;
   AnsiString tNoteBookCode;
   AnsiString tNoteBookName;

   tClassID=scNoteBookClassID->ItemData[1];
   tNoteBookCode=seNoteBookCode->Text;
   tNoteBookName=memNoteBookText->Text;
   if(tClassID.IsEmpty())
     throw Exception("类别不能为空");
   if(tNoteBookCode.IsEmpty())
     throw Exception("代码不能为空");
   if(tNoteBookName.IsEmpty())
     throw Exception("名称不能为空");
   TComResultSet *RstNbEdit;
   RstNbEdit=new  TComResultSet(Handle,g_ClientHandle);
   try
   {
     RstNbEdit->Execute("exec sdNoteBook_Insert '"+tNoteBookCode+"','"+tClassID+"','"+tNoteBookName+"'");
   }
   catch(Exception &e)
   {
     RstNbEdit->Close();
     delete RstNbEdit;
     throw Exception(e.Message);
   }
   RstNbEdit->Close();
   delete RstNbEdit;
   m_RetStatus="OK";
}
//---------------------------------------------------------------------------