copywork.cpp

来自「速达开源ERP系统」· C++ 代码 · 共 44 行

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

#include <vcl.h>
#pragma hdrstop

#include "CopyWork.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma resource "*.dfm"
TfrmCopyWork *frmCopyWork;
//---------------------------------------------------------------------------
__fastcall TfrmCopyWork::TfrmCopyWork(TComponent* Owner)
        : TStdBaseForm(Owner)
{
    seFmonth->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmCopyWork::btOkClick(TObject *Sender)
{
   if(Application->MessageBox("要完全复制该月份工作量到本月份吗？.","确认",MB_OKCANCEL)==IDOK)
   {
        btOk->ModalResult=mrYes;
        Close();
   }
     else
      btOk->ModalResult=mrNone;
}
//---------------------------------------------------------------------------
void __fastcall TfrmCopyWork::btCacelClick(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmCopyWork::FormShow(TObject *Sender)
{
    seFmonth->SetFocus();
     
}
//---------------------------------------------------------------------------