delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](十)

procedure TMainFrm.N14Click(Sender: TObject);
begin
 if ExistsForm('考员管理') then
 begin
  Application.CreateForm(Tstudentfrm, studentfrm);
  studentfrm.show;
 end
 else
  studentfrm.Show;
studentfrm.pagecontrol1.Align:=alclient;
studentfrm.pagecontrol1.Visible:=true;
studentfrm.pagecontrol1.ActivePageIndex:=1;
end;

procedure TMainFrm.N13Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TMainFrm.N6Click(Sender: TObject);
begin
if ExistsForm('权限管理') then
 begin
  Application.CreateForm(Toperatorfrm, operatorfrm);
  operatorfrm.show;
 end
 else
  operatorfrm.Show;
operatorfrm.pagecontrol1.Align:=alclient;
operatorfrm.pagecontrol1.Visible:=true;
operatorfrm.pagecontrol1.ActivePageIndex:=0;
end;

procedure TMainFrm.FormShow(Sender: TObject);
begin
loginfrm.ShowModal;
name:=datamodule1.CDSManerge.Fields[0].Value;

end;

procedure TMainFrm.N10Click(Sender: TObject);
begin
if ExistsForm('题库维护') then
 begin
  Application.CreateForm(Ttikufrm, tikufrm);
  tikufrm.show;
 end
 else
  tikufrm.Show;
end;

procedure TMainFrm.N11Click(Sender: TObject);
begin
 if existsform('分配考机') then
  begin
   Application.CreateForm(Tfenpeifrm,fenpeifrm);
   fenpeifrm.Show;
  end
 else
  fenpeifrm.Show;
end;

procedure TMainFrm.N12Click(Sender: TObject);
begin
 if existsform('考机监测') then
  begin
   application.CreateForm(Tviewfrm,viewfrm);
   viewfrm.Show;
  end
 else
  viewfrm.show;
end;

procedure TMainFrm.ToolButton16Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TMainFrm.N3Click(Sender: TObject);
begin
if ExistsForm('权限管理') then
 begin
  Application.CreateForm(Toperatorfrm, operatorfrm);
  operatorfrm.show;
 end
 else
  operatorfrm.Show;
operatorfrm.pagecontrol1.Align:=alclient;
operatorfrm.pagecontrol1.Visible:=true;
operatorfrm.pagecontrol1.ActivePageIndex:=2;
end;

procedure TMainFrm.N9Click(Sender: TObject);
begin
if existsform('成绩查询') then
  begin
   application.CreateForm(Tchengjifrm,chengjifrm);
   chengjifrm.Show;
  end
 else
  chengjifrm.Show;
chengjifrm.PageControl1.ActivePageIndex:=0;
end;

procedure TMainFrm.N5Click(Sender: TObject);
begin
 aboutfrm.ShowModal;
end;

procedure TMainFrm.ToolButton21Click(Sender: TObject);
begin
aboutfrm.ShowModal;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
height:=800;
width:=600;
end;

procedure TMainFrm.N16Click(Sender: TObject);
begin
if existsform('成绩查询') then
  begin
   application.CreateForm(Tchengjifrm,chengjifrm);
   chengjifrm.Show;
  end
 else
  chengjifrm.Show;
  chengjifrm.PageControl1.ActivePageIndex:=1;
end;

end.

 结 &n

首页 上一页 7 8 9 10 11 下一页 尾页 10/11/11