unit7.pas

1.学生成绩管理系统的设计与实现 要求有以下文档: (1)概要设计（电子文档） (2)详细设计（电子文档） (3)课程设计的报告（打印文档） 选题,设计,实现,测试,参考文献

end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
if pagecontrol1.ActivePage=tabsheet1 then
begin
if dbgrid1.SelectedIndex>0 then
begin
adodataset1.Delete;
application.MessageBox('你已删除该用户的信息','删除提示',mb_ok);
end
else
application.MessageBox('没有用户可删除或没有选定要删除用户！','删除提示',mb_ok);
end;

if pagecontrol1.ActivePage=tabsheet2 then
begin
if dbgrid2.SelectedIndex>0 then
begin
adoquery1.Delete;
application.MessageBox('你已删除该用户的信息','删除提示',mb_ok);
end
else
application.MessageBox('没有用户可删除或没有选定要删除用户！','删除提示',mb_ok);
end;
end;

procedure TForm7.N10Click(Sender: TObject);
begin
 pagecontrol1.ActivePage:=tabsheet1;
 adodataset1.Refresh;
 adodataset1.Close ;
 adodataset1.CommandText:='select * from 用户表 ';
 adodataset1.Open ;
 application.MessageBox('已刷新','信息提示',mb_ok);
end;

procedure TForm7.SpeedButton6Click(Sender: TObject);
begin
 if pagecontrol1.ActivePage=tabsheet1 then
 begin
 if (DBedit1.Text='')or(DBedit2.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='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
 adodataset1.Prior;
 end;
if pagecontrol1.ActivePage=tabsheet2 then
begin
if (DBedit11.Text='')or(DBedit12.Text='')or(DBedit13.Text='') or (DBedit14.Text='')or (DBedit15.Text='')or (DBedit16.Text='')or (DBedit17.Text='')or (DBedit18.Text='')or (DBedit19.Text='')or (DBedit20.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
 adoquery1.Prior;
 end;
end;

procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
 if pagecontrol1.ActivePage=tabsheet1 then
 begin
 if (DBedit1.Text='')or(DBedit2.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='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
 adodataset1.Next;
 end;
 if pagecontrol1.ActivePage=tabsheet2 then
 begin
 if (DBedit11.Text='')or(DBedit12.Text='')or(DBedit13.Text='') or (DBedit14.Text='')or (DBedit15.Text='')or (DBedit16.Text='')or (DBedit17.Text='')or (DBedit18.Text='')or (DBedit19.Text='')or (DBedit20.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
 adoquery1.Next;
 end;
end;

function IsVaildEmailAddr(EmailAddr:String):boolean;
var
 Number,I:integer;  //Number用于给字符'@'计数
 TempStr:String;
begin
 TempStr:=EmailAddr;
 Number:=0;
   for I:=1 to Length(TempStr) do
   begin
     if (TempStr [I]='@') then
        INC(Number);
   end;

   if ((Number =0)or(Number >1)) then
    Result:=False//如果不含有字符'@'，或者其个数大于１，则不合法
   else
   begin
    if ((TempStr [1]='@')or (TempStr [length(TempStr)]='@')) then
     Result:=False//如果字符'@'的位置在字符串开头或者末尾，则不合法
    else
    begin
     I:=pos('@',TempStr);//获取字符'@'在字符串当中的位置
     delete(TempStr,1,I);//获取字符串中字符'@'后面的剩余子串
     if (Length(TempStr)<3) then
      Result:=False       //如果剩余子串的长度小于3,则不合法
     else
     begin
      if ((pos('.',TempStr)=0)or(pos('.',TempStr)=length(TempStr))
          or (pos('.',TempStr)=1))then
       Result:=False//如果剩余的子串当中不含有字符'.'，或者其位置在//子串的开头或者末尾，则不合法
      else
       Result:=True;      //以上的判断都通过，则表示地址字符串为合法
     end; 
    end;
   end; 
 end;


procedure TForm7.SpeedButton2Click(Sender: TObject);
var
h,k,t,r:string;
begin

if pagecontrol1.ActivePage=tabsheet1 then
 if dbgrid1.SelectedIndex>=0 then
 begin
h:=DBedit2.Text;
k:=DBedit3.Text;
 if (DBedit1.Text='')or(DBedit2.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='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
if h<>k then
begin
application.MessageBox('密码不匹配！','错误操作',mb_ok);
exit;
end
else
if not (IsVaildEmailAddr(DBEdit8.Text)) then
   begin
      ShowMessage('您输入的电子邮件地址格式不合法!');
      exit;
  end
else
 adodataset1.Edit;
 adodataset1.Post;
 application.MessageBox('你已修改该用户的信息','修改提示',mb_ok);
end
else
application.MessageBox('没有用户可修改或没有选定要修改用户！','修改提示',mb_ok);

if pagecontrol1.ActivePage=tabsheet2 then
 if dbgrid2.SelectedIndex>=0 then
 begin
t:=DBedit12.Text;
r:=DBedit13.Text;
 if (DBedit11.Text='')or(DBedit12.Text='')or(DBedit13.Text='') or (DBedit14.Text='')or (DBedit15.Text='')or (DBedit16.Text='')or (DBedit17.Text='')or (DBedit18.Text='')or (DBedit19.Text='')or (DBedit20.Text='')then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else
if t<>r then
begin
application.MessageBox('密码不匹配！','错误操作',mb_ok);
exit;
end
else
if not (IsVaildEmailAddr(DBEdit18.Text)) then
   begin
      ShowMessage('您输入的电子邮件地址格式不合法!');
      exit;
  end
else
 adoquery1.Edit;
 adoquery1.Post;
 application.MessageBox('你已修改该用户的信息','修改提示',mb_ok);
end
else
application.MessageBox('没有用户可修改或没有选定要修改用户！','修改提示',mb_ok);



end;




procedure TForm7.DBComboBox1Change(Sender: TObject);
begin
case DBcombobox1.ItemIndex of
0:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');
1:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');
2:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');
3:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');
4:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');
5:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');
6:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');
7:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');
8:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');
9:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');
10:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');
11:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');
12:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');
13:image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');
end;
 end;
procedure TForm7.PageControl1Change(Sender: TObject);
begin
if pagecontrol1.ActivePage=tabsheet1 then
begin
   pagecontrol2.Visible:=true;
   pagecontrol3.Visible:=false;
   speedbutton1.Font.Color:=clpurple;
   speedbutton2.Font.Color:=clpurple;
   speedbutton3.Font.Color:=clpurple;
   speedbutton5.Font.Color:=clpurple;
   speedbutton6.Font.Color:=clpurple;
   label1.Font.Color:=clpurple;
   label2.Font.Color:=clpurple;
   end
   else
   begin
   pagecontrol3.Visible:=true;
   pagecontrol2.Visible:=false;
   speedbutton1.Font.Color:=clteal;
   speedbutton2.Font.Color:=clteal;
   speedbutton3.Font.Color:=clteal;
   speedbutton5.Font.Color:=clteal;
   speedbutton6.Font.Color:=clteal;
   label1.Font.Color:=clteal;
   label2.Font.Color:=clteal;
   end

end;

procedure TForm7.DBComboBox2Change(Sender: TObject);
begin
case DBcombobox2.ItemIndex of
0:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');
1:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');
2:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');
3:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');
4:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');
5:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');
6:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');
7:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');
8:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');
9:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');
10:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');
11:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');
12:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');
13:image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');
end;
end;

procedure TForm7.DBGrid2CellClick(Column: TColumn);
begin
if dbcombobox2.Text='A' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');
if dbcombobox2.Text='B' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');
if dbcombobox2.Text='C' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');
if dbcombobox2.Text='D' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');
if dbcombobox2.Text='E' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');
if dbcombobox2.Text='F' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');
if dbcombobox2.Text='G' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');
if dbcombobox2.Text='H' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');
if dbcombobox2.Text='I' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');
if dbcombobox2.Text='J' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');
if dbcombobox2.Text='K' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');
if dbcombobox2.Text='L' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');
if dbcombobox2.Text='M' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');
if dbcombobox2.Text='N' then
image2.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');
end;

end.