/*database devlop with bcb6.0
config :
database: sql server 2000
link方式: ODBC+BDE+DatabaseControl控件
chinanetboy
*/
//介绍说明:borland C
![](/icons/88836jiajia.gif)
![](/icons/88836yi.gif)
![](/icons/88836de.gif)
/*
![](/icons/88836main.gif)
//
![](/icons/88836main.gif)
Hrm.bpr
//all form file
Main.dfm,db.dfm
DepInfo.dfm,DepManage.dfm,PeopleManage.dfm,PeopleQuery.dfm,
Prize.dfm,Punish.dfm,SalaryHis.dfm,SalaryManage.dfm,TaxInfo.dfm
//all head file
Main.h,db.h
DepInfo.h,DepManage.h,PeopleManage.h,PeopleQuery.h,
Prize.h,Punish.h,SalaryHis.h,SalaryManage.h,TaxInfo.h
//all cpp file
Main.cpp,db.cpp
DepInfo.cpp,DepManage.cpp,PeopleManage.cpp,PeopleQuery.cpp
,Prize.cpp,Punish.cpp,SalaryHis.cpp,SalaryManage.cpp,TaxInfo.cpp
*/
//--------------------------------------------------------------------
#
![](/icons/88836include.gif)
#pragma hdrstop
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
#
![](/icons/88836include.gif)
//--------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;
//
//--------------------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
: TForm(Owner)
{ }
//--------------------------------------------------------------------
TForm* TfmMain::FormExist(AnsiString szCaption)
{
for(
![](/icons/88836int.gif)
![](/icons/88836jiajia.gif)
{
TForm *pForm = this->MDIChildren[i];
![](/icons/88836if.gif)
![](/icons/88836dd.gif)
![](/icons/88836return.gif)
}
![](/icons/88836return.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuDepManageClick(TObject *Sender)
{
// 显示机构设置及编码窗体
TForm *pForm = FormExist("机构设置");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuDepInfoClick(TObject *Sender)
{
// 显示机构详细信息窗体
TForm *pForm = FormExist("机构详细信息");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuPeopleManageClick(TObject *Sender)
{
// 显示职员信息维护窗体
TForm *pForm = FormExist("职员信息管理");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuPeopleQueryClick(TObject *Sender)
{
// 显示职员信息查询窗体
TForm *pForm = FormExist("职员信息查询");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuSalaryManageClick(TObject *Sender)
{
// 显示当月工资管理窗体
TForm *pForm = FormExist("当月工资管理");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuTaxInfoClick(TObject *Sender)
{
// 显示个人所得税率窗体
TForm *pForm = FormExist("个人所得税率");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuSalaryHisClick(TObject *Sender)
{
// 显示工资发放历史窗体
TForm *pForm = FormExist("工资发放历史");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuPrizeClick(TObject *Sender)
{
// 显示职员奖励管理窗体
TForm *pForm = FormExist("职员奖励管理");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
void __fastcall TfmMain::mnuPunishClick(TObject *Sender)
{
// 显示职员惩罚管理窗体
TForm *pForm = FormExist("职员惩罚管理");
// 如果已存在则激活
![](/icons/88836dou.gif)
![](/icons/88836yi.gif)
![](/icons/88836if.gif)
pForm->SetFocus
![](/icons/88836kh.gif)
![](/icons/88836else.gif)
pForm =
![](/icons/88836new.gif)
pForm->Show
![](/icons/88836kh.gif)
}
//--------------------------------------------------------------------
最新评论