mainunit.pas

是一个Delphi的教材管理系统,内容很全面详细

    Settings.ReadConfig;
    ToolBar.Visible:=Settings.ShowToolBar;
    LeftBar.Visible:=Settings.ShowLeftBar;
    LogoImg.Visible:=Settings.ShowLogoImg;
    try
    case Settings.SetImgNo of
      -1:begin bgImage.Picture:=nil; N33.Checked:=true; end;
      0:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N25.Checked:=true; end;
      1:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N110.Checked:=true; end;
      2:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N23.Checked:=true; end;
      3:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N24.Checked:=true; end;
    end;
    Except
      Application.MessageBox('背景图片设置失败!','出错提示',mb_ok);
      bgimage.Picture:=nil;
    end;
    //设置左侧工具栏的样式
    case Settings.SetLeftBarStyle of
      1:begin LeftBar.PreSet:=psOffice2000; N28.Checked:=true; end;
      2:begin LeftBar.PreSet:=psExplorerBar2000; N29.Checked:=true; end;
      3:begin LeftBar.PreSet:=psExplorerBarXP; N30.Checked:=true; end;
      4:begin LeftBar.PreSet:=psExplorerBar; N31.Checked:=true; end;
      5:begin LeftBar.PreSet:=psToolBox; N32.Checked:=true; end;
    end;
    if frmDataModule.Connection.Connected then
       frmDataModule.Connection.Close;
    frmDataModule.Connection.ConnectionString:=Settings.ConnectionString;
    //设置背景图片
   { if Settings.BackGroundImage='' then
        bgimage.Picture:=nil
    else
    begin
      try
        bgimage.Picture.LoadFromFile(Settings.BackGroundImage);
      Except
        Application.MessageBox('背景图片设置失败!','出错提示',mb_ok);
        bgimage.Picture:=nil;
      end;  }
      //设置连接
      if frmDataModule.Connection.Connected then
       frmDataModule.Connection.Open;
end;
//退出
procedure TfrmMain.ExitExecute(Sender: TObject);
begin
  Application.Terminate;
end;
 //更改密码
procedure TfrmMain.ChangePasswordExecute(Sender: TObject);
begin
    frmChangePassword:=TfrmChangePassword.Create(nil);
    frmChangePassword.ShowModal;
end;
//操作员管理
procedure TfrmMain.OperatorManageExecute(Sender: TObject);
begin
    frmOperatorManage:=TfrmOperatorManage.Create(nil);
    frmOperatorManage.ShowModal;
end;
//班级管理
procedure TfrmMain.ClassManageExecute(Sender: TObject);
begin
    frmClassManage:=TfrmClassManage.Create(nil);
    frmClassManage.ShowModal;
end;
//院系统管理
procedure TfrmMain.DepartMentManageExecute(Sender: TObject);
begin
    frmDepartmentManage:=TfrmDepartmentManage.Create(nil);
    frmDepartmentManage.ShowModal;
end;
//交书费
procedure TfrmMain.BookFeeExecute(Sender: TObject);
begin
    frmBookFee:=TfrmBookFee.Create(nil);
    frmBookFee.ShowModal;
end;
//退书费
procedure TfrmMain.ReturnFeeExecute(Sender: TObject);
begin
    frmReturnBookFee:=TfrmReturnBookFee.Create(nil);
    frmReturnBookFee.ShowModal;
end;
//学生领 书
procedure TfrmMain.StudentTakeExecute(Sender: TObject);
begin
    frmStudentTake:=TfrmStudentTake.Create(nil);
    frmStudentTake.ShowModal;
end;
//院系领书
procedure TfrmMain.DepartmentTakeExecute(Sender: TObject);
begin
    frmDepartmentTake:=TfrmDepartmentTake.Create(nil);
    frmDepartmentTake.ShowModal;
end;
//教材入库
procedure TfrmMain.BookInExecute(Sender: TObject);
begin
    frmBookIn:=TfrmBookIn.Create(nil);
    frmBookIn.ShowModal;
end;
//领书查询
procedure TfrmMain.BookFeeQueryExecute(Sender: TObject);
begin
    frmBookFeeQuery:=TfrmBookFeeQuery.Create(nil);
    frmBookFeeQuery.ShowModal;
end;
//教材查询
procedure TfrmMain.BookQueryExecute(Sender: TObject);
begin
    frmBookQuery:=TfrmBookQuery.Create(nil);
    frmBookQuery.ShowModal;
end;
//领书查询
procedure TfrmMain.TakeQueryExecute(Sender: TObject);
begin
    frmTakeQuery:=TfrmTakeQuery.Create(nil);
    frmTakeQuery.ShowModal;
end;
//关于
procedure TfrmMain.AboutExecute(Sender: TObject);
begin
    frmAbout:=TfrmAbout.Create(nil);
    frmAbout.ShowModal;
end;
//帮助
procedure TfrmMain.OperateManualExecute(Sender: TObject);
var
  fn:string;
begin
    fn:='help.chm';
    ShellExecute(handle, 'open',pchar(fn),nil, nil, SW_SHOWNORMAL);
    //Winexec(pchar('DelphiSkill.chm'),0);
end;
//是否显示工具栏
procedure TfrmMain.N20Click(Sender: TObject);
begin
   self.setToolBar;
   self.setToolBarPower;
   Settings.ShowToolBar:=not Toolbar.Visible;
   Settings.SaveConfig;
   Toolbar.Visible:=Settings.ShowToolBar;
   N20.Checked:=Settings.ShowToolBar;
end;
//是否显示系统标志
procedure TfrmMain.N55Click(Sender: TObject);
begin
   Settings.ShowLogoImg:=not Settings.ShowLogoImg;
   Settings.SaveConfig;
   logoImg.Visible:=Settings.ShowLogoImg;
   N55.Checked:=Settings.ShowLogoImg;
end;
//是否显示左侧工具栏
procedure TfrmMain.N26Click(Sender: TObject);
begin
   Settings.ShowLeftBar:=not Settings.ShowLeftBar;
   Settings.SaveConfig;
   LeftBar.Visible:=Settings.ShowLeftBar;
   N26.Checked:=Settings.ShowLeftBar;
end;
//样式1
procedure TfrmMain.N28Click(Sender: TObject);
begin
   Settings.SetLeftBarStyle:=1;
   Settings.SaveConfig;   
   LeftBar.PreSet:=psOffice2000;
   N28.Checked:=true;//Settings.SetLeftBarStyle;
end;
//样式2
procedure TfrmMain.N29Click(Sender: TObject);
begin
   Settings.SetLeftBarStyle:=2;
   Settings.SaveConfig;   
   LeftBar.PreSet:=psExplorerBar2000;
   N29.Checked:=true;//Settings.SetLeftBarStyle;
end;
//样式3
procedure TfrmMain.N30Click(Sender: TObject);
begin
   Settings.SetLeftBarStyle:=3;
   Settings.SaveConfig;   
   LeftBar.PreSet:=psExplorerBarXP;
   N30.Checked:=true;//Settings.SetLeftBarStyle;
end;
//样式4
procedure TfrmMain.N31Click(Sender: TObject);
begin
   Settings.SetLeftBarStyle:=4;
   Settings.SaveConfig;
   LeftBar.PreSet:=psExplorerBar;
   N31.Checked:=true;//Settings.SetLeftBarStyle;
end;
//样式5
procedure TfrmMain.N32Click(Sender: TObject);
begin
   Settings.SetLeftBarStyle:=5;
   Settings.SaveConfig;
   LeftBar.PreSet:=psToolBox;
   N32.Checked:=true;//Settings.SetLeftBarStyle;
end;
//无背景图片
procedure TfrmMain.N33Click(Sender: TObject);
begin
   Settings.BackGroundImage:='';
   Settings.SetImgNo:=-1;
   Settings.SaveConfig;
   N33.Checked:=true;
   bgImage.Picture:=nil;
end;
//背景１
procedure TfrmMain.N110Click(Sender: TObject);
begin
   Settings.BackGroundImage:='bgImages\bgImage1.jpg';
   Settings.SetImgNo:=1;
   Settings.SaveConfig;
   N110.Checked:=true;
   bgImage.Picture.LoadFromFile(Settings.BackGroundImage);
end;
//背景２
procedure TfrmMain.N23Click(Sender: TObject);
begin
   Settings.BackGroundImage:='bgImages\bgImage2.jpg';
   Settings.SetImgNo:=2;
   Settings.SaveConfig;
   N23.Checked:=true;
   bgImage.Picture.LoadFromFile(Settings.BackGroundImage);
end;
//背景３
procedure TfrmMain.N24Click(Sender: TObject);
begin
   Settings.BackGroundImage:='bgImages\bgImage3.jpg';
   Settings.SetImgNo:=3;
   Settings.SaveConfig;
   N24.Checked:=true;
   bgImage.Picture.LoadFromFile(Settings.BackGroundImage);
end;
//自定义khi
procedure TfrmMain.N25Click(Sender: TObject);
var
  fn:string;
  opm:TOpenPictureDialog;
begin
   opm:=TOpenPictureDialog.Create(nil);
   if opm.Execute then
   begin
     if trim(opm.FileName)<>'' then
     begin
       fn:=extractfilename(opm.FileName);
       fn:=ExtractFilePath(paramstr(0))+'bgImages\'+fn;
       //把文件复制到BGimages文件夹下，再使用
       if CopyFile(Pchar(opm.FileName),pchar(fn),false) then
       begin
         Settings.BackGroundImage:=fn;
         Settings.SetImgNo:=0;
         Settings.SaveConfig;
         N25.Checked:=true;
         bgImage.Picture.LoadFromFile(Settings.BackGroundImage);
       end;
     end;
   end;
end;

procedure TfrmMain.UnitManageExecute(Sender: TObject);
begin
    frmUnit:=TfrmUnit.Create(nil);
    frmUnit.ShowModal;
end;

end.