main.pas

培训管理系统

procedure Tmainform.N20Click(Sender: TObject);
begin
  openform(Tuezbf010f,uezbf010f,self,'培训报名信息','uezbf010');
end;

procedure Tmainform.N21Click(Sender: TObject);
begin
  openform(Tuezbf011f,uezbf011f,self,'培训记录信息','uezbf011');
end;

procedure Tmainform.N43Click(Sender: TObject);
begin
  openform(Tuezaf002f,uezaf002f,self,'证书信息','uezaf002');
end;

procedure Tmainform.N44Click(Sender: TObject);
begin
  openform(Tuezaf003f,uezaf003f,self,'证书机构','uezaf003');
end;

procedure Tmainform.N45Click(Sender: TObject);
begin
  openform(Tuezaf004f,uezaf004f,self,'优先级建档','uezaf004');
end;

procedure Tmainform.N46Click(Sender: TObject);
begin
  openform(Tuezaf005f,uezaf005f,self,'课程类型建档','uezaf005');
end;

procedure Tmainform.N47Click(Sender: TObject);
begin
  openform(Tuezaf006f,uezaf006f,self,'仪器信息建档','uezaf006');
end;

procedure Tmainform.N50Click(Sender: TObject);
begin
  openform(Tuezaf009f,uezaf009f,self,'技能类型建档','uezaf009');
end;

procedure Tmainform.N51Click(Sender: TObject);
begin
  openform(Tuezaf010f,uezaf010f,self,'技能信息建档','uezaf010');
end;

procedure Tmainform.N52Click(Sender: TObject);
begin
  openform(Tuezaf012f,uezaf012f,self,'讲师类型建档','uezaf012');
end;

procedure Tmainform.N12Click(Sender: TObject);
begin
  openform(Tuezbf001f,uezbf001f,self,'培训形式建档','uezbf001');
end;

procedure Tmainform.N13Click(Sender: TObject);
begin
  openform(Tuezbf002f,uezbf002f,self,'培训地点建档','uezbf002');
end;

procedure Tmainform.N14Click(Sender: TObject);
begin
  openform(Tuezbf003f,uezbf003f,self,'培训教室建档','uezbf003');
end;

procedure Tmainform.N15Click(Sender: TObject);
begin
  openform(Tuezbf004f,uezbf004f,self,'培训属性建档','uezbf004');
end;

procedure Tmainform.N17Click(Sender: TObject);
begin
  openform(Tuezbf007f,uezbf007f,self,'评估项目建档','uezbf007');
end;

procedure Tmainform.N25Click(Sender: TObject);
begin
  openform(Tuezcf001f,uezcf001f,self,'职位类型建档','uezcf001');
end;

procedure Tmainform.N26Click(Sender: TObject);
begin
  openform(Tuezcf002f,uezcf002f,self,'等效职位及需求','uezcf002');
end;

procedure Tmainform.N28Click(Sender: TObject);
begin
  openform(Tuezcf003f,uezcf003f,self,'职责描述建档','uezcf003');
end;

procedure Tmainform.N49Click(Sender: TObject);
begin
  openform(Tuezaf008f,uezaf008f,self,'课程信息建档','uezaf008');
end;

procedure Tmainform.N10Click(Sender: TObject);
begin
  openform(Tuezaf011f,uezaf011f,self,'部门信息建档','uezaf011');
end;

procedure Tmainform.E1Click(Sender: TObject);
begin
  openform(Tuezaf015f,uezaf015f,self,'教材信息建档','uezaf015');
end;

procedure Tmainform.N30Click(Sender: TObject);
begin
  openform(Tuezdf001f,uezdf001f,self,'员工建档及需求','uezdf001');
end;

procedure Tmainform.N53Click(Sender: TObject);
begin
  openform(Tuezaf013f,uezaf013f,self,'讲师信息建档','uezaf013');
end;

procedure Tmainform.N55Click(Sender: TObject);
begin
  openform(Tuezbf006f,uezbf006f,self,'培训免除建档','uezbf006');
end;

procedure Tmainform.N31Click(Sender: TObject);
begin
  openform(Tuezef001f,uezef001f,self,'培训需求（部门）','uezef001');
end;

procedure Tmainform.N29Click(Sender: TObject);
begin
  openform(Tuezcf005f,uezcf005f,self,'职位信息建档','uezcf005');
end;

procedure Tmainform.N32Click(Sender: TObject);
begin
  openform(Tuezef002f,uezef002f,self,'培训需求（职位）','uezef002');
end;

procedure Tmainform.N33Click(Sender: TObject);
begin
  openform(Tuezef003f,uezef003f,self,'培训需求（个人）','uezef003');
end;

procedure Tmainform.N24Click(Sender: TObject);
begin
  openform(Tuezbf014f,uezbf014f,self,'培训合约','uezbf014');
end;

procedure Tmainform.N22Click(Sender: TObject);
begin
  openform(Tuezbf012f,uezbf012f,self,'培训评估','uezbf012');
end;

procedure Tmainform.N23Click(Sender: TObject);
begin
  openform(Tuezbf013f,uezbf013f,self,'外部机构建档','uezbf013');
end;

procedure Tmainform.G1Click(Sender: TObject);
begin
  openform(Tuezbf008f,uezbf008f,self,'机构类型建档','uezbf008');
end;

procedure Tmainform.F1Click(Sender: TObject);
begin
  openform(Tuezcf006f,uezcf006f,self,'绩效评估','uezcf006');
end;

procedure Tmainform.N34Click(Sender: TObject);
begin
  openform(Tuezdf002f,uezdf002f,self,'员工离职','uezdf002');
end;

procedure Tmainform.N35Click(Sender: TObject);
begin
  openform(Tuezdf003f,uezdf003f,self,'部门调动','uezdf003');
end;

procedure Tmainform.N36Click(Sender: TObject);
begin
  openform(Tuezdf004f,uezdf004f,self,'职位变更','uezdf004');
end;

procedure Tmainform.N37Click(Sender: TObject);
begin
  openform(Tuezff002f,uezff002f,self,'人员预算（下年）','uezff002');
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
  openform(Tuezff001f,uezff001f,self,'人员预算（本年）','uezff001');
end;

procedure Tmainform.N38Click(Sender: TObject);
begin
  openform(Tuezff003f,uezff003f,self,'部门预算（下年）','uezff003');
end;

procedure Tmainform.N41Click(Sender: TObject);
begin
 mainform.Close;
end;

procedure Tmainform.N39Click(Sender: TObject);
begin
  openform(Tuezgf001f,uezgf001f,self,'用户登陆','uezgf001');
end;

procedure Tmainform.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
{  if msg.message=wm_keydown then
   if msg.wParam=vk_f1 then
    htmlhelp(self.Handle,pchar(extractfilepath(application.ExeName)+'\help\uesoft_help.chm ::/'+screen.ActiveForm.name+'.htm'),HH_DISPLAY_TOPIC,0);
}
end;

procedure Tmainform.ToolButton8Click(Sender: TObject);
begin
 htmlhelp(self.Handle,pchar(extractfilepath(application.ExeName)+'\help\uesoft_help.chm ::/'+'mainform.htm'),HH_DISPLAY_TOPIC,0);
end;

procedure Tmainform.E2Click(Sender: TObject);
begin
  openform(Tuezdr005f,uezdr005f,self,'变更统计','uezdr005');
end;

procedure Tmainform.A1Click(Sender: TObject);
begin
  openform(Tuezdf006f,uezdf006f,self,'学历建档','uezdf006');
end;

procedure Tmainform.N57Click(Sender: TObject);
begin
  openform(Tuezhr001f,uezhr001f,self,'免除培训汇总','uezhr001');
end;

procedure Tmainform.N59Click(Sender: TObject);
begin
  openform(Tuezhr004f,uezhr004f,self,'教室使用状况汇总','uezhr004');
end;

procedure Tmainform.N58Click(Sender: TObject);
begin
  openform(Tuezhr003f,uezhr003f,self,'(等效)职位一览表','uezhr003');
end;

procedure Tmainform.N60Click(Sender: TObject);
begin
  openform(Tuezhr005f,uezhr005f,self,'讲师授课记录汇总','uezhr005');
end;

procedure Tmainform.N61Click(Sender: TObject);
begin
  openform(Tuezhr002f,uezhr002f,self,'培训记录汇总表','uezhr002');
end;

procedure Tmainform.N62Click(Sender: TObject);
begin
  openform(Tuezhr006f,uezhr006f,self,'培训费用汇总表','uezhr006');
end;

procedure Tmainform.N63Click(Sender: TObject);
begin
  openform(Tuezhr007f,uezhr007f,self,'员工一览表','uezhr007');
end;

procedure Tmainform.N64Click(Sender: TObject);
begin
  openform(Tuezhr008f,uezhr008f,self,'课程一览表','uezhr008');
end;

procedure Tmainform.N4Click(Sender: TObject);
begin
  openform(Tuezhr009f,uezhr009f,self,'培训合约汇总表','uezhr009');
end;

procedure Tmainform.N67Click(Sender: TObject);
begin
  openform(Tuezhr010f,uezhr010f,self,'部门一览表','uezhr010');
end;

procedure Tmainform.N68Click(Sender: TObject);
begin
  openform(Tuezhr011f,uezhr011f,self,'内外讲师一览表','uezhr011');
end;

procedure Tmainform.N69Click(Sender: TObject);
begin
  openform(Tuezhr012f,uezhr012f,self,'外部机构一览表','uezhr012');
end;

procedure Tmainform.N70Click(Sender: TObject);
begin
  openform(Tuezhr013f,uezhr013f,self,'技能一览表','uezhr013');
end;

procedure Tmainform.N71Click(Sender: TObject);
begin
  openform(Tuezhr014f,uezhr014f,self,'地点一览表','uezhr014');
end;

procedure Tmainform.N72Click(Sender: TObject);
begin
  openform(Tuezhr015f,uezhr015f,self,'仪器一览表','uezhr015');
end;

procedure Tmainform.N73Click(Sender: TObject);
begin
  openform(Tuezaf016f,uezaf016f,self,'绩效评分标准','uezaf016');
end;

procedure Tmainform.N75Click(Sender: TObject);
begin
  openform(Tuezhr016f,uezhr016f,self,'职责描述一览表','uezhr016');
end;

procedure Tmainform.N76Click(Sender: TObject);
begin
  openform(Tuezhr020f,uezhr020f,self,'培训形式汇总表','uezhr020');
end;

end.