?? unit7.pas

?? 用DELPHI7編的一個(gè)學(xué)成成績(jī)管理系統(tǒng),希望對(duì)你有所幫助
?? PAS
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào):
上一頁(yè)12
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('沒(méi)有用戶可刪除或沒(méi)有選定要?jiǎng)h除用戶！','刪除提示',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('沒(méi)有用戶可刪除或沒(méi)有選定要?jiǎng)h除用戶！','刪除提示',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('信息不完整！','錯(cuò)誤操作',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('信息不完整！','錯(cuò)誤操作',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('信息不完整！','錯(cuò)誤操作',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('信息不完整！','錯(cuò)誤操作',mb_ok);
exit;
end
else
 adoquery1.Next;
 end;
end;

function IsVaildEmailAddr(EmailAddr:String):boolean;
var
 Number,I:integer;  //Number用于給字符'@'計(jì)數(shù)
 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//如果不含有字符'@'，或者其個(gè)數(shù)大于１，則不合法
   else
   begin
    if ((TempStr [1]='@')or (TempStr [length(TempStr)]='@')) then
     Result:=False//如果字符'@'的位置在字符串開(kāi)頭或者末尾，則不合法
    else
    begin
     I:=pos('@',TempStr);//獲取字符'@'在字符串當(dāng)中的位置
     delete(TempStr,1,I);//獲取字符串中字符'@'后面的剩余子串
     if (Length(TempStr)<3) then
      Result:=False       //如果剩余子串的長(zhǎng)度小于3,則不合法
     else
     begin
      if ((pos('.',TempStr)=0)or(pos('.',TempStr)=length(TempStr))
          or (pos('.',TempStr)=1))then
       Result:=False//如果剩余的子串當(dāng)中不含有字符'.'，或者其位置在//子串的開(kāi)頭或者末尾，則不合法
      else
       Result:=True;      //以上的判斷都通過(guò)，則表示地址字符串為合法
     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('信息不完整！','錯(cuò)誤操作',mb_ok);
exit;
end
else
if h<>k then
begin
application.MessageBox('密碼不匹配！','錯(cuò)誤操作',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('沒(méi)有用戶可修改或沒(méi)有選定要修改用戶！','修改提示',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('信息不完整！','錯(cuò)誤操作',mb_ok);
exit;
end
else
if t<>r then
begin
application.MessageBox('密碼不匹配！','錯(cuò)誤操作',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('沒(méi)有用戶可修改或沒(méi)有選定要修改用戶！','修改提示',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.
上一頁(yè)12
?? 文件大小 2506 K
?? 上傳用戶 abc171abc171
?? 所屬分類(lèi) Delphi控件源碼
??? 相關(guān)標(biāo)簽

#DELPHI7 #管理系統(tǒng)
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit7.pas

?? 快捷鍵說(shuō)明
