unit_main.~pas

王欢燕的毕业设计(学生综合管理系统).

//---------------------------------
// 功能描述:  进入班级删除模块
//---------------------------------
procedure TForm1.sb_class_deleteClick(Sender: TObject);
begin
  if dm.adot_class.RecordCount>0 then
  begin
    if application.MessageBox('你确认要删除这个班级吗','警告信息',MB_YESNO)=ID_YES then
    begin
      try
        dm.adot_class.Delete;
        dm.adot_class.UpdateRecord;
        dm.adot_class.Refresh;
      except
      end;
    end;
  end;
end;


//---------------------------------
// 功能描述:  放弃班级修改模块
//---------------------------------
procedure TForm1.sb_class_canelClick(Sender: TObject);
begin
  try
    dm.adot_class.Cancel;
    dm.adot_class.Refresh;
    form1.set_class_state('close');
  except
  end;
end;

//---------------------------------
// 功能描述:  保存班级修改
//---------------------------------
procedure TForm1.sb_class_saveClick(Sender: TObject);
begin
  if form1.dbe_class_name.Text = '' then
  begin
    application.MessageBox('请输入班级名称','提示信息',MB_OK);
    form1.dbe_class_name.SetFocus;
    exit;
  end;
  if form1.dbe_class_xf.Text = '' then
  begin
    application.MessageBox('请输入毕业学分','提示信息',MB_OK);
    form1.dbe_class_xf.SetFocus;
    exit;
  end;

  try
    dm.adot_class.Post;
    dm.adot_class.UpdateRecord;
    dm.adot_class.Refresh;
  except
  end;
    form1.set_class_state('close');
end;


//---------------------------------
// 功能描述:  进入学生删除模块
//---------------------------------
procedure TForm1.sb_student_deleteClick(Sender: TObject);
begin
  if dm.adot_student.RecordCount>0 then
  begin
    if application.MessageBox('你确认要删除这个班级吗','警告信息',MB_YESNO)=ID_YES then
    begin
      try
        dm.adot_student.Delete;
        dm.adot_student.UpdateRecord;
        dm.adot_student.Refresh;
      except
      end;
    end;
  end;
end;


//---------------------------------
// 功能描述:  进入学生新增模块
//---------------------------------
procedure TForm1.sb_student_insertClick(Sender: TObject);
begin
  dm.adot_student.Insert;
  form1.set_student_state('open');
  form1.dbe_student_no.SetFocus;
end;

//---------------------------------
// 功能描述:  进入学生修改模块
//---------------------------------
procedure TForm1.sb_student_editClick(Sender: TObject);
begin
  if dm.adot_student.RecordCount>0 then
  begin
    dm.adot_student.Edit;
    form1.set_student_state('open');
  end;
end;

//---------------------------------
// 功能描述:  进入学生修改模块
//---------------------------------
procedure TForm1.sb_student_saveClick(Sender: TObject);
begin
  if form1.dbe_student_name.Text = '' then
  begin
    application.MessageBox('请输入学生姓名','提示信息',MB_OK);
    form1.dbe_student_name.SetFocus;
    exit;
  end;
  if form1.dbe_student_no.Text = '' then
  begin
    application.MessageBox('请输入学号,学号只能是唯一的','提示信息',MB_OK);
    form1.dbe_student_no.SetFocus;
    exit;
  end;
  if form1.dbcb_student_sex.Text = '' then
  begin
    application.MessageBox('请选择性别','提示信息',MB_OK);
    form1.dbcb_student_sex.SetFocus;
    exit;
  end;
  if form1.dbcb_student_class.Text = '' then
  begin
    application.MessageBox('请选择考生班级','提示信息',MB_OK);
    form1.dbcb_student_class.SetFocus;
    exit;
  end;

  try
    dm.adot_student.Post;
    dm.adot_student.UpdateRecord;
    dm.adot_student.Refresh;
  except
  end;
    form1.set_student_state('close');
end;

//---------------------------------
// 功能描述:  进入学生查询模块
//---------------------------------
procedure TForm1.sb_student_searchClick(Sender: TObject);
begin
  if form1.ed_student_search.Text = '' then
  begin
    application.MessageBox('请输入查询的学号','提示信息',MB_OK);
    form1.ed_student_search.SetFocus;
    exit;
  end;

  try
    dm.adot_student.Locate('学号;姓名',VarArrayOf([form1.ed_student_search.Text]),[loPartialKey]);
  except
  end;

end;


//---------------------------------
// 功能描述:  退出系统模块
//---------------------------------
procedure TForm1.N3Click(Sender: TObject);
begin
  close;  
end;

//---------------------------------
// 功能描述:  提醒是否退出系统模块
//---------------------------------
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;
  if application.MessageBox('你确定要退出吗?','提示信息',MB_YESNO)=ID_YES then
  begin
    CanClose:=true;
  end;
end;

//---------------------------------
// 功能描述:  放弃学生修改模块
//---------------------------------
procedure TForm1.sb_student_canelClick(Sender: TObject);
begin
  form1.set_student_state('close');
end;


//---------------------------------
// 功能描述:  进入成绩新增模块
//---------------------------------
procedure TForm1.sb_cj_insertClick(Sender: TObject);
begin
  dm.adot_cj.Insert;
  dm.adot_cj.FieldValues['学号']:=dm.adot_student.FieldValues['学号'];
  dm.adot_cj.FieldValues['班级']:=dm.adot_student.FieldValues['班级名称'];
  form1.set_cj_state('open');
  form1.dblcb_cj_name.SetFocus;
end;

//---------------------------------
// 功能描述:  进入成绩修改模块
//---------------------------------
procedure TForm1.sb_cj_editClick(Sender: TObject);
begin
  if dm.adot_cj.RecordCount>0 then
  begin
    dm.adot_cj.Edit;
    form1.set_cj_state('open');
  end;
end;

//---------------------------------
// 功能描述:  进入成绩删除模块
//---------------------------------
procedure TForm1.sb_cj_deleteClick(Sender: TObject);
begin
  if dm.adot_cj.RecordCount>0 then
  begin
    if application.MessageBox('你确认要删除这项成绩吗','警告信息',MB_YESNO)=ID_YES then
    begin
      try
        dm.adot_cj.Delete;
        dm.adot_cj.UpdateRecord;
        dm.adot_cj.Refresh;
      except
      end;
    end;
  end;
end;


//---------------------------------
// 功能描述:  保存成绩修改模块
//---------------------------------
procedure TForm1.sb_cj_saveClick(Sender: TObject);
begin
  if form1.dblcb_cj_name.Text = '' then
  begin
    application.MessageBox('请选择课程名称','提示信息',MB_OK);
    form1.dblcb_cj_name.SetFocus;
    exit;
  end;
  if form1.dbe_cj_xf.Text = '' then
  begin
    application.MessageBox('请输入课程所得的学分','提示信息',MB_OK);
    form1.dbe_cj_xf.SetFocus;
    exit;
  end;
  if form1.dbcb_cj_bk.Text = '' then
  begin
    application.MessageBox('请选择是否需要补考','提示信息',MB_OK);
    form1.dbcb_cj_bk.SetFocus;
    exit;
  end;

  try
    dm.adot_cj.Post;
    dm.adot_cj.UpdateRecord;
    dm.adot_cj.Refresh;
  except
  end;
    form1.set_cj_state('close');
end;


//---------------------------------
// 功能描述:  放弃成绩修改
//---------------------------------
procedure TForm1.sb_cj_canelClick(Sender: TObject);
begin
  form1.set_cj_state('close');
end;


//---------------------------------
// 功能描述:  打开学生管理
//---------------------------------
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
  form1.ts_student.Show;
end;

//---------------------------------
// 功能描述:  打开成绩管理
//---------------------------------
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  form1.ts_cj.Show;
end;

//---------------------------------
// 功能描述:  打开系统设置
//---------------------------------
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  form1.ts_sm.Show;
end;

//---------------------------------
// 功能描述:  预览学生资料报表
//---------------------------------
procedure TForm1.N4Click(Sender: TObject);
begin
   //ts_bb1.Show;
   //form_bb_1.ShowModal;
   form_bb_1.ADODataSet1.Refresh;
   form_bb_1.QuickRep1.PreviewModal;
end;

//---------------------------------
// 功能描述:  预览学生成绩报表
//---------------------------------
procedure TForm1.N5Click(Sender: TObject);
begin
  form_bb_2.ADODataSet1.Refresh;
  form_bb_2.QuickRep1.PreviewModal;
end;

//---------------------------------
// 功能描述:  退出系统
//---------------------------------
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
  close;
end;

//---------------------------------
// 功能描述:  关于..
//---------------------------------
procedure TForm1.N2Click(Sender: TObject);
begin
  form1.ts_about.Show;
  aboutbox.ShowModal;
end;

//---------------------------------
// 功能描述:  学生管理中,按班级检索学生
//---------------------------------
procedure TForm1.DBLookupListBox1Click(Sender: TObject);
begin
  if dblookuplistbox1.SelectedItem <> '' then
  begin
    try
      dm.adot_student.Close;
      dm.adot_student.CommandText:='select * from 学生 where 班级名称 = '''+  dblookuplistbox1.SelectedItem + '''';
      dm.adot_student.Open;
    except
    end;
  end;
end;

//---------------------------------
// 功能描述:  显示所有的学生
//---------------------------------
procedure TForm1.Panel3Click(Sender: TObject);
begin
   try
      dm.adot_student.Close;
      dm.adot_student.CommandText:='select * from 学生';
      dm.adot_student.Open;
    except
    end;
end;


//---------------------------------
// 功能描述:  成绩管理中,按班级检索学生
//---------------------------------
procedure TForm1.DBLookupListBox2Click(Sender: TObject);
begin
  if dblookuplistbox2.SelectedItem <> '' then
  begin
    try
      dm.adot_student.Close;
      dm.adot_student.CommandText:='select * from 学生 where 班级名称 = '''+  dblookuplistbox2.SelectedItem + '''';
      dm.adot_student.Open;
      dm.adot_cj.Close;
      dm.adot_cj.CommandText:='select * from 成绩 where 班级 = '''+  dblookuplistbox2.SelectedItem + '''';
      dm.adot_cj.Open;
    except
    end;
  end;
end;

//---------------------------------
// 功能描述:  成绩管理中,按学生检索成绩
//---------------------------------
procedure TForm1.DBGrid5DblClick(Sender: TObject);
begin
  if dm.adot_student.RecordCount>0 then
  begin
    try
      dm.adot_cj.Close;
      dm.adot_cj.CommandText:='select * from 成绩 where 学号 = '''+ dm.adot_student.FieldValues['学号'] + '''';
      dm.adot_cj.Open;
    except
    end;
  end;
end;

end.