//---------------------------------
// 功能描述:  進(jìn)入班級刪除模塊
//---------------------------------
procedure TForm1.sb_class_deleteClick(Sender: TObject);
begin
  if dm.adot_class.RecordCount>0 then
  begin
    if application.MessageBox('你確認(rèn)要刪除這個班級嗎','警告信息',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('請輸入畢業(yè)學(xué)分','提示信息',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;


//---------------------------------
// 功能描述:  進(jìn)入學(xué)生刪除模塊
//---------------------------------
procedure TForm1.sb_student_deleteClick(Sender: TObject);
begin
  if dm.adot_student.RecordCount>0 then
  begin
    if application.MessageBox('你確認(rèn)要刪除這個班級嗎','警告信息',MB_YESNO)=ID_YES then
    begin
      try
        dm.adot_student.Delete;
        dm.adot_student.UpdateRecord;
        dm.adot_student.Refresh;
      except
      end;
    end;
  end;
end;


//---------------------------------
// 功能描述:  進(jìn)入學(xué)生新增模塊
//---------------------------------
procedure TForm1.sb_student_insertClick(Sender: TObject);
begin
  dm.adot_student.Insert;
  form1.set_student_state('open');
  form1.dbe_student_no.SetFocus;
end;

//---------------------------------
// 功能描述:  進(jìn)入學(xué)生修改模塊
//---------------------------------
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;

//---------------------------------
// 功能描述:  進(jìn)入學(xué)生修改模塊
//---------------------------------
procedure TForm1.sb_student_saveClick(Sender: TObject);
begin
  if form1.dbe_student_name.Text = '' then
  begin
    application.MessageBox('請輸入學(xué)生姓名','提示信息',MB_OK);
    form1.dbe_student_name.SetFocus;
    exit;
  end;
  if form1.dbe_student_no.Text = '' then
  begin
    application.MessageBox('請輸入學(xué)號,學(xué)號只能是唯一的','提示信息',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;

//---------------------------------
// 功能描述:  進(jìn)入學(xué)生查詢模塊
//---------------------------------
procedure TForm1.sb_student_searchClick(Sender: TObject);
begin
  if form1.ed_student_search.Text = '' then
  begin
    application.MessageBox('請輸入查詢的學(xué)號','提示信息',MB_OK);
    form1.ed_student_search.SetFocus;
    exit;
  end;

  try
    dm.adot_student.Locate('學(xué)號;姓名',VarArrayOf([form1.ed_student_search.Text]),[loPartialKey]);
  except
  end;

end;


//---------------------------------
// 功能描述:  退出系統(tǒng)模塊
//---------------------------------
procedure TForm1.N3Click(Sender: TObject);
begin
  close;  
end;

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

//---------------------------------
// 功能描述:  放棄學(xué)生修改模塊
//---------------------------------
procedure TForm1.sb_student_canelClick(Sender: TObject);
begin
  form1.set_student_state('close');
end;


//---------------------------------
// 功能描述:  進(jìn)入成績新增模塊
//---------------------------------
procedure TForm1.sb_cj_insertClick(Sender: TObject);
begin
  dm.adot_cj.Insert;
  dm.adot_cj.FieldValues['學(xué)號']:=dm.adot_student.FieldValues['學(xué)號'];
  dm.adot_cj.FieldValues['班級']:=dm.adot_student.FieldValues['班級名稱'];
  form1.set_cj_state('open');
  form1.dblcb_cj_name.SetFocus;
end;

//---------------------------------
// 功能描述:  進(jìn)入成績修改模塊
//---------------------------------
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;

//---------------------------------
// 功能描述:  進(jìn)入成績刪除模塊
//---------------------------------
procedure TForm1.sb_cj_deleteClick(Sender: TObject);
begin
  if dm.adot_cj.RecordCount>0 then
  begin
    if application.MessageBox('你確認(rèn)要刪除這項成績嗎','警告信息',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('請輸入課程所得的學(xué)分','提示信息',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;


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

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

//---------------------------------
// 功能描述:  打開系統(tǒng)設(shè)置
//---------------------------------
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  form1.ts_sm.Show;
end;

//---------------------------------
// 功能描述:  預(yù)覽學(xué)生資料報表
//---------------------------------
procedure TForm1.N4Click(Sender: TObject);
begin
   //ts_bb1.Show;
   //form_bb_1.ShowModal;
   form_bb_1.ADODataSet1.Refresh;
   form_bb_1.QuickRep1.PreviewModal;
end;

//---------------------------------
// 功能描述:  預(yù)覽學(xué)生成績報表
//---------------------------------
procedure TForm1.N5Click(Sender: TObject);
begin
  form_bb_2.ADODataSet1.Refresh;
  form_bb_2.QuickRep1.PreviewModal;
end;

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

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

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

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


//---------------------------------
// 功能描述:  成績管理中,按班級檢索學(xué)生
//---------------------------------
procedure TForm1.DBLookupListBox2Click(Sender: TObject);
begin
  if dblookuplistbox2.SelectedItem <> '' then
  begin
    try
      dm.adot_student.Close;
      dm.adot_student.CommandText:='select * from 學(xué)生 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;

//---------------------------------
// 功能描述:  成績管理中,按學(xué)生檢索成績
//---------------------------------
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 學(xué)號 = '''+ dm.adot_student.FieldValues['學(xué)號'] + '''';
      dm.adot_cj.Open;
    except
    end;
  end;
end;

end.