unit10.pas

学员成绩管理系统可以对学员的成绩进行管理

 form9.ShowModal;
end;

procedure TForm10.N12Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=Tabsheet2;
end;

procedure TForm10.N13Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=Tabsheet3;
end;

procedure TForm10.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
combobox1.Enabled:=true
else
combobox1.Enabled:=false;
end;

procedure TForm10.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
edit2.Enabled:=true
else
edit2.Enabled:=false;
end;

procedure TForm10.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
edit1.Enabled:=true
else
edit1.Enabled:=false;
end;

procedure TForm10.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then
edit3.Enabled:=true
else
edit3.Enabled:=false;
end;

procedure TForm10.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked then
edit4.Enabled:=true
else
edit4.Enabled:=false;
end;

procedure TForm10.RadioButton1Click(Sender: TObject);
begin
 if radiobutton1.Checked then
begin
edit5.Enabled:=true;
bitbtn2.Enabled:=true;
edit6.Enabled:=false;
edit7.Enabled:=false;
edit8.Enabled:=false;
edit9.Enabled:=false;
edit10.Enabled:=false;
edit11.Enabled:=false;
bitbtn3.Enabled:=false;
combobox2.Enabled:=false;
end;
end;

procedure TForm10.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked then
begin
edit5.Enabled:=false;
bitbtn2.Enabled:=false;
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
edit9.Enabled:=true;
edit10.Enabled:=true;
edit11.Enabled:=true;
bitbtn3.Enabled:=true;
combobox2.Enabled:=true;
end;
end;

procedure TForm10.RadioButton3Click(Sender: TObject);
begin
if radiobutton3.Checked then
begin
edit12.Enabled:=true;
bitbtn4.Enabled:=true;
edit13.Enabled:=false;
edit14.Enabled:=false;
edit15.Enabled:=false;
edit16.Enabled:=false;
edit17.Enabled:=false;
edit18.Enabled:=false;
edit19.Enabled:=false;
combobox3.Enabled:=false;
bitbtn5.Enabled:=false;
end;
end;

procedure TForm10.RadioButton4Click(Sender: TObject);
begin
if radiobutton4.Checked then
begin
edit12.Enabled:=false;
bitbtn4.Enabled:=false;
edit13.Enabled:=true;
edit14.Enabled:=true;
edit15.Enabled:=true;
edit16.Enabled:=true;
edit17.Enabled:=true;
edit18.Enabled:=true;
edit19.Enabled:=true;
combobox3.Enabled:=true;
bitbtn5.Enabled:=true;
end;
end;

procedure TForm10.BitBtn2Click(Sender: TObject);
begin
DBgrid1.Visible:=true;
DBgrid2.Visible:=false;
DBgrid1.Font.Color:=clteal;
if  edit5.Text='' then
   begin
   MessageBox(handle,'请输入姓名,不能为空！','提示',MB_OK or MB_ICONINFORMATION);
   exit;
   end
else
   begin
   adoquery2.SQL.Clear;
   adoquery2.Close;
   adoquery2.sql.add('select *from 学生基本信息表 where 学号='''+Edit5.Text+'''');
   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
   adoquery2.Open;
   statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery2.RecordCount)+' 条记录';
   edit5.Text:='';
   end;
end;

procedure TForm10.BitBtn3Click(Sender: TObject);
var
sql:string;
begin
DBgrid1.Visible:=true;
DBgrid2.Visible:=false;
DBgrid1.Font.Color:=clteal;
if (edit6.Text<>'')or (edit7.Text<>'')or (edit8.Text<>'')or (edit9.Text<>'')or (edit10.Text<>'')or (edit11.Text<>'')or (combobox2.Text<>'')then
 sql:='where (学号 like'''+'%'+edit6.Text+'%'') or (姓名 like'''+'%'+edit7.Text+'%'') or (所在系别 like'''+'%'+combobox2.Text+'%'') or (所在专业 like'''+'%'+edit8.Text+'%'') or (所在班级 like'''+'%'+edit9.Text+'%'') or (贯籍 like'''+'%'+edit10.Text+'%'')or (政治面目 like'''+'%'+edit11.Text+'%'')'
 else
 begin
  application.messagebox('没有查询条件！','提示',mb_ok);
  exit;
  end;
   ADOQuery2.Close ;
   ADOQuery2.SQL.Clear ;
   ADOQuery2.SQL.Add('select * from 学生基本信息表');
   ADOQuery2.SQL.Add(sql);
   ADOQuery2.Open ;
   statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery2.RecordCount)+' 条记录';
   edit6.Text:='';
   edit7.Text:='';
   edit8.Text:='';
   edit9.Text:='';
   edit10.Text:='';
   edit11.Text:='';
end;

procedure TForm10.BitBtn4Click(Sender: TObject);
begin
DBgrid2.Visible:=true;
DBgrid1.Visible:=false;
if  edit12.Text='' then
   begin
   MessageBox(handle,'请输入姓名,不能为空！','提示',MB_OK or MB_ICONINFORMATION);
   exit;
   end
else
   begin
   adoquery1.SQL.Clear;
   adoquery1.Close;
   adoquery1.sql.add('select *from 成绩信息表 where 学号='''+Edit12.Text+'''');
   MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
   adoquery1.Open;
    statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery1.RecordCount)+' 条记录';
   edit12.Text:='';
   end;
end;

procedure TForm10.BitBtn5Click(Sender: TObject);
var
sql:string;
begin
DBgrid2.Visible:=true;
DBgrid1.Visible:=false;
DBgrid1.Font.Color:=clteal;
if (edit13.Text<>'')or (edit14.Text<>'')or (edit15.Text<>'')or (edit16.Text<>'')or (edit17.Text<>'')or (edit18.Text<>'')or (combobox3.Text<>'')or (edit19.Text<>'')then
 sql:='where (学号 like'''+'%'+edit13.Text+'%'') or (姓名 like'''+'%'+edit14.Text+'%'') or (所在系别 like'''+'%'+combobox3.Text+'%'') or (所在专业 like'''+'%'+edit15.Text+'%'') or (所在班级 like'''+'%'+edit16.Text+'%'') or (课程名称 like'''+'%'+edit17.Text+'%'')or (课程代号 like'''+'%'+edit18.Text+'%'')or (学期 like'''+'%'+edit19.Text+'%'')'
 else
 begin
  application.messagebox('没有查询条件！','提示',mb_ok);
  exit;
  end;
   ADOQuery1.Close ;
   ADOQuery1.SQL.Clear ;
   ADOQuery1.SQL.Add('select * from 成绩信息表');
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open ;
    statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery1.RecordCount)+' 条记录';
   edit13.Text:='';
   edit14.Text:='';
   edit15.Text:='';
   edit16.Text:='';
   edit17.Text:='';
   edit18.Text:='';
   edit19.Text:='';
end;



procedure TForm10.BitBtn1Click(Sender: TObject);
var
  sqlstr:string;
begin
DBgrid1.Visible:=true;
DBgrid2.Visible:=false;
DBgrid1.Font.Color:=clgreen;
try
 sqlstr:=' where (1=1) ';
if combobox1.Text <>'' then sqlstr:=sqlstr+' and (所在系别 like'''+'%'+combobox1.text+'%'')';


if edit1.Text <>'' then sqlstr:=sqlstr+'and (所在专业 like'''+'%'+edit1.text+'%'')' ;


if edit2.Text <>'' then sqlstr:=sqlstr+'and (所在班级 like'''+'%'+edit2.text+'%'')' ;

if edit3.Text <>'' then sqlstr:=sqlstr+'and (学号 like'''+'%'+edit3.text+'%'')' ;


if edit4.Text <>'' then
sqlstr:=sqlstr+'and (姓名 like'''+'%'+edit4.text+'%'')' ;


   ADOQuery2.Close ;
   ADOQuery2.SQL.Clear ;
   ADOQuery2.SQL.Add('select * from 学生基本信息表');
   ADOQuery2.SQL.Add(sqlstr);
   ADOQuery2.Open ;
   statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery2.RecordCount)+' 条记录';

   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   combobox1.Text:='';
   except
exit;
end;
end;

procedure TForm10.PageControl1Change(Sender: TObject);
begin
if (pagecontrol1.ActivePage=tabsheet1)or(pagecontrol1.ActivePage=tabsheet2)or(pagecontrol1.ActivePage=tabsheet4)then
begin
DBgrid1.Visible:=true;
DBgrid2.Visible:=false ;
end;
if (pagecontrol1.ActivePage=tabsheet3)or(pagecontrol1.ActivePage=tabsheet5)then
begin
DBgrid1.Visible:=false;
DBgrid2.Visible:=true;
end;
end;

procedure TForm10.BitBtn6Click(Sender: TObject);
begin
if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')or (DBedit6.Text='')or (DBedit7.Text='')or (DBedit8.Text='')or (DBedit9.Text='')or (DBedit10.Text='')or (DBedit11.Text='')or (DBedit12.Text='')or (DBedit13.Text='')or (DBedit14.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery2.Prior;
end;

procedure TForm10.BitBtn7Click(Sender: TObject);
begin
if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')or (DBedit6.Text='')or (DBedit7.Text='')or (DBedit8.Text='')or (DBedit9.Text='')or (DBedit10.Text='')or (DBedit11.Text='')or (DBedit12.Text='')or (DBedit13.Text='')or (DBedit14.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery2.Next;
end;

procedure TForm10.BitBtn9Click(Sender: TObject);
begin
if dbgrid2.SelectedIndex>=0 then
if (DBedit21.Text='')or(DBedit22.Text='')or(DBedit23.Text='') or (DBedit24.Text='')or (DBedit25.Text='')or (DBedit26.Text='')or (DBedit27.Text='')or (DBedit28.Text='')or (DBedit29.Text='')or (DBedit30.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery1.Prior;
end;

procedure TForm10.BitBtn10Click(Sender: TObject);
begin
if dbgrid2.SelectedIndex>=0 then
if (DBedit21.Text='')or(DBedit22.Text='')or(DBedit23.Text='') or (DBedit24.Text='')or (DBedit25.Text='')or (DBedit26.Text='')or (DBedit27.Text='')or (DBedit28.Text='')or (DBedit29.Text='')or (DBedit30.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery1.Next;
end;

procedure TForm10.BitBtn12Click(Sender: TObject);
begin
if dbgrid2.SelectedIndex>0 then
begin
if messagedlg('你确定要删除该记录嘛？',mtinformation,[mbyes,mbno],0)=mryes then
adoquery1.Delete;
end
else
application.MessageBox('没有记录可删除或没有选定要删除记录！','删除提示',mb_ok);
end;


procedure TForm10.BitBtn13Click(Sender: TObject);
begin
if dbgrid1.SelectedIndex>0 then
begin
if messagedlg('你确定要删除该记录嘛？',mtinformation,[mbyes,mbno],0)=mryes then
adoquery2.Delete;
end
else
application.MessageBox('没有记录可删除或没有选定要删除记录！','删除提示',mb_ok);

end;

procedure TForm10.BitBtn11Click(Sender: TObject);
begin
if dbgrid2.SelectedIndex>=0 then
if (DBedit21.Text='')or(DBedit22.Text='')or(DBedit23.Text='') or (DBedit24.Text='')or (DBedit25.Text='')or (DBedit26.Text='')or (DBedit27.Text='')or (DBedit28.Text='')or (DBedit29.Text='')or (DBedit30.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
begin
adoquery1.Edit;
adoquery1.Post;
application.MessageBox('你已修改该记录的信息','修改提示',mb_ok);
end
else
application.MessageBox('没有记录可修改或没有选定要修改记录！','修改提示',mb_ok);
end;

procedure TForm10.BitBtn8Click(Sender: TObject);
begin
if dbgrid1.SelectedIndex>=0 then
if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')or (DBedit6.Text='')or (DBedit7.Text='')or (DBedit8.Text='')or (DBedit9.Text='')or (DBedit10.Text='')or (DBedit11.Text='')or (DBedit12.Text='')or (DBedit13.Text='')or (DBedit14.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
begin
adoquery2.Edit;
adoquery2.Post;
application.MessageBox('你已修改该记录的信息','修改提示',mb_ok);
end
else
application.MessageBox('没有记录可修改或没有选定要修改记录！','修改提示',mb_ok);
end;

procedure TForm10.BitBtn15Click(Sender: TObject);
begin
DBgrid2.Visible:=true;
DBgrid1.Visible:=false;
adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.sql.add('select *from 成绩信息表');
MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
adoquery1.Open;
 statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery1.RecordCount)+' 条记录';
end;

procedure TForm10.BitBtn14Click(Sender: TObject);
begin
DBgrid1.Visible:=true;
DBgrid2.Visible:=false;
adoquery2.SQL.Clear;
adoquery2.Close;
adoquery2.sql.add('select *from 学生基本信息表');
MessageBox(handle,'查询完毕！','提示',MB_OK or MB_ICONINFORMATION);
adoquery2.Open;
statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery2.RecordCount)+' 条记录';
end;

procedure TForm10.DBGrid2DblClick(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet5;
end;

procedure TForm10.DBGrid1DblClick(Sender: TObject);
begin
pagecontrol1.ActivePage:=tabsheet4;
end;


procedure TForm10.N6Click(Sender: TObject);
begin
application.CreateForm(Tform11,form11);
 form11.ShowModal;
end;

procedure TForm10.N25Click(Sender: TObject);
begin
 application.CreateForm(Tform12,form12);
 form12.ShowModal;
end;

procedure TForm10.TreeView1Click(Sender: TObject);
var
stext:string;
i:integer;
begin
DBgrid1.Visible:=true;
DBgrid2.Visible:=false;
stext:=treeview1.Selected.Text;

adoquery2.Close;
adoquery2.SQL.Clear;
i:=treeview1.Selected.Index;
if i in [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30] then
adoquery2.SQL.Text:='select * from 学生基本信息表 where 所在系别 like'''+'%'+stext+'%''';
ADoquery2.Open;
ADOquery2.First;
statusbar1.Panels[1].Text:='总共找到 '+inttostr(ADOQuery2.RecordCount)+' 条记录';

if ADOQuery2.RecordCount=0 then
statusbar1.Panels[1].Text:='单击目录树只可查询到各个系别的总体，请使用学生信息查询';


end;

procedure TForm10.N15Click(Sender: TObject);
begin
application.CreateForm(Tform13,form13);
form13.ShowModal;
end;

procedure TForm10.N24Click(Sender: TObject);
begin
application.CreateForm(Tform14,form14);
form14.ShowModal;
end;



procedure TForm10.SpeedButton6Click(Sender: TObject);
begin
application.CreateForm(Tform12,form12);
 form12.ShowModal;
end;

procedure TForm10.SpeedButton5Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=Tabsheet3;
end;

procedure TForm10.SpeedButton4Click(Sender: TObject);
begin
pagecontrol1.ActivePage:=Tabsheet2;
end;

procedure TForm10.SpeedButton2Click(Sender: TObject);
begin
application.CreateForm(Tform6,form6);
 form6.ShowModal;
end;

procedure TForm10.SpeedButton3Click(Sender: TObject);
begin
application.CreateForm(Tform9,form9);
 form9.ShowModal;
end;

procedure TForm10.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(Tform11,form11);
 form11.ShowModal;
end;

end.