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;
   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;

procedure TfrmMain.N25Click(Sender: TObject);
var
  opm:TOpenPictureDialog;
begin
   opm:=TOpenPictureDialog.Create(nil);
   if opm.Execute then
   begin
     if trim(opm.FileName)<>'' then
     begin
       Settings.BackGroundImage:=opm.FileName;
       Settings.SetImgNo:=0;
       Settings.SaveConfig;
       N25.Checked:=true;
       bgImage.Picture.LoadFromFile(Settings.BackGroundImage);
     end;
   end;
end;

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

end.