mainformunit.pas

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

addgradeform.ShowModal;
end;

procedure Tmainform.N34Click(Sender: TObject);
begin
adduserform:=tadduserform.Create(application) ;
adduserform.ShowModal;
end;

procedure Tmainform.N35Click(Sender: TObject);
begin
deleteuserform:=tdeleteuserform.Create(application) ;
deleteuserform.ShowModal;
end;

procedure Tmainform.N36Click(Sender: TObject);
begin
updatepasswordform:=tupdatepasswordform.Create(application) ;
updatepasswordform.ShowModal;
end;

procedure Tmainform.N31Click(Sender: TObject);
begin
deletestudentform:=tdeletestudentform.Create(application) ;
deletestudentform.ShowModal;
end;

procedure Tmainform.N32Click(Sender: TObject);
begin
deleteteacherform:=tdeleteteacherform.Create(application) ;
deleteteacherform.ShowModal;
end;

procedure Tmainform.N33Click(Sender: TObject);
begin
deletegradeform:=tdeletegradeform.Create(application) ;
deletegradeform.ShowModal;
end;

procedure Tmainform.N38Click(Sender: TObject);
begin
aboutbox:=taboutbox.Create(application) ;
aboutbox.ShowModal;
end;

procedure Tmainform.N30Click(Sender: TObject);
begin
addcourseform:=taddcourseform.Create(application) ;
addcourseform.ShowModal;
end;

procedure Tmainform.N47Click(Sender: TObject);
begin
deletecourseform:=tdeletecourseform.Create(application) ;
deletecourseform.ShowModal;
end;

procedure Tmainform.FormCreate(Sender: TObject);
begin
getdir(0,PATH);
with datamodule1.adoconnection1 do
begin
Close;
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;'
+'Data Source='+PATH+'\data\JiaoXueDB.mdb;'
+'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'
+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
Open;
openbutton:=0;
end;
panel22.Width:=100;
panel24.Width:=100;
Constraints.MaxWidth:=screen.Width-10;
Constraints.MaxHeight:=screen.Height-8;
splashForm.Free;
logform:=tlogform.Create(application) ;
logform.ShowModal;

end;

procedure Tmainform.N46Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://www.caplin.com'),nil,nil,SW_shownormal);
end;

procedure Tmainform.N45Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,SW_shownormal);

end;

procedure Tmainform.N6Click(Sender: TObject);
begin
logform:=tlogform.Create(application) ;
logform.ShowModal;
end;

procedure Tmainform.makeable(var admin: boolean);
begin
   if not admin then
     begin
       n14.Enabled:=false;
       n25.Enabled:=false;
       n49.Enabled:=false;
       n50.Enabled:=false;
       n34.Enabled:=false;
       n35.Enabled:=false;
     end
   else
   begin
       n14.Enabled:=true;
       n25.Enabled:=true;
       n49.Enabled:=true;
       n50.Enabled:=true;
       n34.Enabled:=true;
       n35.Enabled:=true;
   end;
end;

procedure Tmainform.N39Click(Sender: TObject);
begin
sysinfoform:=tsysinfoform.Create(application) ;
sysinfoform.ShowModal;
end;

procedure Tmainform.N37Click(Sender: TObject);
begin
winhelp(handle,'help\helpprj',HELP_FINDER,0);
end;



procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.ADOConnection1.Close;
end;

procedure Tmainform.N7Click(Sender: TObject);
begin
creditreportform:=tcreditreportform.Create(application) ;
creditreportform.ShowModal;
end;

procedure Tmainform.N49Click(Sender: TObject);
var filename,backupname:string;
begin
getdir(0,filename);
filename:=filename+ '\data\jiaoxuedb.mdb';
if savedialog1.Execute then
  begin
  copyfileform:=tcopyfileform.Create(application);
  with copyfileform do
  begin
  label1.Caption:='正在备份数据...';
  show;
  animate1.Active:=true;
  BackupName :=ChangeFileExt(SaveDialog1.FileName,'.mbk');
  copyfile(pchar(filename),pchar(BackupName),false);
  animate1.Active:=false;
  close;
  end;
  end;


end;

procedure Tmainform.N54Click(Sender: TObject);
begin
coursebrowseform:=tcoursebrowseform.Create(application) ;
coursebrowseform.Caption:='开课情况报表';
coursebrowseform.ShowModal;


end;

procedure Tmainform.N50Click(Sender: TObject);
var filename:string;
begin
getdir(0,filename);
filename:=filename+ '\data\jiaoxuedb.mdb';
if opendialog1.Execute then
   begin
  copyfileform:=tcopyfileform.Create(application);
  with copyfileform do
  begin
  label1.Caption:='正在还原数据...';
  show;
  animate1.Active:=true;
  copyfile(pchar(opendialog1.FileName),pchar(filename),false);
  animate1.Active:=false;
  close;
  end;
   end;
end;
procedure Tmainform.beforeclick(tag: integer);
begin
 case tag of
 1: speedbutton1.Click;
 2: speedbutton6.Click;
 3: speedbutton9.Click;
 4: speedbutton19.Click;
 5: speedbutton24.Click;
 6: speedbutton33.Click;
 7: speedbutton30.Click;
end;
end;
procedure Tmainform.SpeedButton1Click(Sender: TObject);
begin
beep;
if openbutton<>1 then
 beforeclick(openbutton);
 panel2.Visible:=not  panel2.Visible;
openbutton:=openbutton-speedbutton1.Tag;
openbutton:=abs(openbutton);
end;

procedure Tmainform.SpeedButton6Click(Sender: TObject);
begin
beep;
if openbutton<>2 then
 beforeclick(openbutton);
 panel4.Visible:=not  panel4.Visible;
openbutton:=openbutton-speedbutton6.Tag;
openbutton:=abs(openbutton);
end;

procedure Tmainform.SpeedButton9Click(Sender: TObject);
begin
beep;
 if openbutton<>3 then
 beforeclick(openbutton);
 panel6.Visible:=not  panel6.Visible;
openbutton:=openbutton-speedbutton9.Tag;
openbutton:=abs(openbutton);
end;

procedure Tmainform.SpeedButton19Click(Sender: TObject);
begin
beep;
  if openbutton<>4 then
 beforeclick(openbutton);
 panel9.Visible:=not  panel9.Visible;
openbutton:=openbutton-speedbutton19.Tag;
openbutton:=abs(openbutton);
end;

procedure Tmainform.SpeedButton24Click(Sender: TObject);
begin
beep;
 if openbutton<>5 then
 beforeclick(openbutton);
 panel12.Visible:=not  panel12.Visible;
openbutton:=openbutton-speedbutton24.Tag;
openbutton:=abs(openbutton);
end;

procedure Tmainform.SpeedButton33Click(Sender: TObject);
begin
beep;
 if openbutton<>6 then
 beforeclick(openbutton);
 panel18.Visible:=not  panel18.Visible;
openbutton:=openbutton-speedbutton33.Tag;
openbutton:=abs(openbutton);
end;

procedure Tmainform.SpeedButton30Click(Sender: TObject);
begin
beep;
 if openbutton<>7 then
 beforeclick(openbutton);
 panel16.Visible:=not  panel16.Visible;
openbutton:=openbutton-speedbutton30.Tag;
openbutton:=abs(openbutton);
end;







procedure Tmainform.SpeedButton25MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var point:tpoint;
begin
with speedbutton25 do
begin
point.X:=x;
point.Y:=y;
point:=ClientToScreen(point);
popupmenu1.Popup(point.X,point.Y);
end;

end;







procedure Tmainform.SpeedButton26MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var point:tpoint;
begin
with speedbutton26 do
begin
point.X:=x;
point.Y:=y;
point:=ClientToScreen(point);
popupmenu2.Popup(point.X,point.Y);
end;
end;



procedure Tmainform.SpeedButton29MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var point:tpoint;
begin
with speedbutton29 do
begin
point.X:=x;
point.Y:=y;
point:=ClientToScreen(point);
popupmenu3.Popup(point.X,point.Y);
end;
end;

procedure Tmainform.m1Click(Sender: TObject);
begin
m1.Checked:=false;
if not m1.Checked then
    begin
     mainmenu1.Free;
    end;



end;

procedure Tmainform.N58Click(Sender: TObject);
begin
with panelback do
 begin
 Visible:=not visible;
 n58.Checked:=visible;

  end;
end;

procedure Tmainform.N59Click(Sender: TObject);
begin
n59.Checked:=not n59.Checked;
panel23.Visible:= not panel23.Visible;
end;

procedure Tmainform.N53Click(Sender: TObject);
begin
statisticsToolform:=tstatisticsToolform.Create(application) ;
 with statisticsToolform do
  begin
   caption:='教师任课成绩分布';
   label4.Visible:=false;
   speedbutton1.Caption:='成绩分布';
  end;
statisticsToolform.ShowModal;
end;

procedure Tmainform.N60Click(Sender: TObject);
begin
statusbar1.Visible:=not statusbar1.Visible;
n60.Checked:=statusbar1.Visible;
end;

end.