copywork.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "CopyWork.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmCopyWork *frmCopyWork;
//---------------------------------------------------------------------------
__fastcall TfrmCopyWork::TfrmCopyWork(TComponent* Owner)
        : TStdBaseForm(Owner)
{
    FillComboBox(Handle,scFmonth,"select FcMonth from sdFc order By FcMonth","FcMonth");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCopyWork::btOkClick(TObject *Sender)
{
     //btOk->ModalResult=mrYes;
     ModalResult = mrYes; //modify 2003-02-20
     Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmCopyWork::btCacelClick(TObject *Sender)
{
    ModalResult=mrNone;
    Close();
}
//---------------------------------------------------------------------------

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