umainf.pas

图书馆使用的图书管理系统

      ReEditF.Free;
      ReEditF := nil;
    end;

    if UserMgrF <> nil then
    begin
      UserMgrF.Free;
      UserMgrF := nil;
    end;

    if MgrUserF <> nil then
    begin
      MgrUserF.Free;
      MgrUserF := nil;
    end;

    if DataPathF <> nil then
    begin
      DataPathF.Free;
      DataPathF := nil;
    end;

    if AboutF <> nil then
    begin
      AboutF.Free;
      AboutF := nil;
    end;

    if ControlsViewF <> nil then
    begin
      ControlsViewF.Free;
      ControlsViewF := nil;
    end;
  except
  end;
end;

procedure TMainF.Panel2Resize(Sender: TObject);
begin
  Panel3.Width := Panel2.Width;
  Panel3.Height := Panel2.Height;
  Panel3.Top := Panel2.Top +4;
  Panel3.Left := Panel3.Left + 4;
end;

procedure TMainF.cxClick(Sender: TObject);
begin
  if QueryF <> nil then
    if QueryF.Parent <> nil then
      QueryF.Parent := Panel2
    else InitView
  else InitView;
  if QueryF = nil then
  begin
    QueryF := TQueryF.Create(nil);
    QueryF.Parent := nil;
    Caption := '图书管理系统－查询';
    QueryF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.xgClick(Sender: TObject);
begin
  if EditF <> nil then
    if EditF.Parent <> nil then
      EditF.Parent := Panel2
    else InitView
  else InitView;;
  if EditF = nil then
  begin
    EditF := TEditF.Create(nil);
    EditF.Parent := nil;
    Caption := '图书管理系统－修改图书信息';
    EditF.Parent := Panel2;
    EditF.CodeEdit.SetFocus;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.rkClick(Sender: TObject);
begin
  if NewF <> nil then
    if NewF.Parent <> nil then
      NewF.Parent := Panel2
    else InitView
  else InitView;
  if NewF = nil then
  begin
    NewF := TNewF.Create(nil);
    NewF.Parent := nil;
    Caption := '图书管理系统－图书入库';
    NewF.Parent := Panel2;
    NewF.CodeEdit.SetFocus;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.qlClick(Sender: TObject);
begin
  if ReEditF <> nil then
    if ReEditF.Parent <> nil then
      ReEditF.Parent := Panel2
    else InitView
  else InitView;
  if ReEditF = nil then
  begin
    ReEditF := TReEditF.Create(nil);
    ReEditF.Parent := nil;
    Caption := '图书管理系统－修改图书信息';
    ReEditF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.ybyhClick(Sender: TObject);
begin
  if UserMgrF <> nil then
    if UserMgrF.Parent <> nil then
      UserMgrF.Parent := Panel2
    else InitView
  else InitView;
  if UserMgrF = nil then
  begin
    UserMgrF := TUserMgrF.Create(nil);
    UserMgrF.Parent := nil;
    Caption := '图书管理系统－一般用户管理';
    UserMgrF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.tsyhClick(Sender: TObject);
begin
  if MgrUserF <> nil then
    if MgrUserF.Parent <> nil then
      MgrUserF.Parent := Panel2
    else InitView
  else InitView;
  if MgrUserF = nil then
  begin
    MgrUserF := TMgrUserF.Create(nil);
    MgrUserF.Parent := nil;
    Caption := '图书管理系统－特殊用户管理';
    MgrUserF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.sjljClick(Sender: TObject);
begin
  if DataPathF <> nil then
    if DataPathF.Parent <> nil then
      DataPathF.Parent := Panel2
    else InitView
  else InitView;
  if DataPathF = nil then
  begin
    DataPathF := TDataPathF.Create(nil);
    DataPathF.Parent := nil;
    Caption := '图书管理系统－选项';
    DataPathF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.N15Click(Sender: TObject);
begin
  if AboutF <> nil then
    if AboutF.Parent <> nil then
      AboutF.Parent := Panel2
    else InitView
  else InitView;
  if AboutF = nil then
  begin
    AboutF := TAboutF.Create(nil);
    AboutF.Parent := nil;
    Caption := '图书管理系统－关于《图书管理系统》';
    AboutF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.FormPaint(Sender: TObject);
begin
  if ViewBack then
  begin
    if Image2<>nil then
      Image2.Free;
    Image2 := TImage.Create(nil);
    Image2.Parent := Panel1;
    Image2.Align := alClient;
    Image2.Canvas.Brush.Bitmap := Image1.Picture.Bitmap;
    Image2.Canvas.FillRect(Rect(0,0,Screen.Width,Screen.Height));
  end
  else if Image2<>nil then
       begin
         Image2.Free;
         Image2 := nil;
       end;
end;

procedure TMainF.Action1Execute(Sender: TObject);
begin
  InitView;
end;

procedure TMainF.SpeedButton1Click(Sender: TObject);
begin
  N2Click(Sender);
end;

procedure TMainF.SpeedButton2Click(Sender: TObject);
begin
  if MessageBox(Handle,'是否真要退出?','提示',MB_ICONQUESTION
                or MB_YESNO) = idYes then
     N4Click(Sender);
end;

procedure TMainF.SpeedButton3Click(Sender: TObject);
begin
  rkClick(Sender);
end;

procedure TMainF.SpeedButton4Click(Sender: TObject);
begin
  qlClick(Sender);
end;

procedure TMainF.SpeedButton5Click(Sender: TObject);
begin
  xgClick(Sender);
end;

procedure TMainF.SpeedButton6Click(Sender: TObject);
begin
  jhClick(Sender);
end;

procedure TMainF.SpeedButton7Click(Sender: TObject);
begin
  cxClick(Sender);
end;

procedure TMainF.SpeedButton8Click(Sender: TObject);
begin
  ybyhClick(Sender);
end;

procedure TMainF.SpeedButton9Click(Sender: TObject);
begin
  tsyhClick(Sender);
end;

procedure TMainF.SpeedButton10Click(Sender: TObject);
begin
  sjljClick(Sender);
end;

procedure TMainF.SpeedButton11Click(Sender: TObject);
begin
  N15Click(Sender);
end;

procedure TMainF.N11Click(Sender: TObject);
begin
  N11.Checked := not N11.Checked;
  ViewOper := N11.Checked;
  CoolBar1.Bands[0].Visible := N11.Checked;
  CoolBar1.Visible :=(ViewOper)or(ViewSettingMgr)
      or(ViewBookMgr)or(ViewAbout);
  FormPaint(Sender);
end;

procedure TMainF.N13Click(Sender: TObject);
begin
  N13.Checked := not N13.Checked;
  ViewBookMgr := N13.Checked;
  CoolBar1.Bands[1].Visible := N13.Checked;
  CoolBar1.Visible :=(ViewOper)or(ViewSettingMgr)
      or(ViewBookMgr)or(ViewAbout);
  FormPaint(Sender);
end;

procedure TMainF.N14Click(Sender: TObject);
begin
  N14.Checked := not N14.Checked;
  ViewSettingMgr := N14.Checked;
  CoolBar1.Bands[2].Visible := N14.Checked;
  CoolBar1.Visible :=(ViewOper)or(ViewSettingMgr)
      or(ViewBookMgr)or(ViewAbout);
  FormPaint(Sender);
end;

procedure TMainF.N16Click(Sender: TObject);
begin
  N16.Checked := not N16.Checked;
  ViewAbout := N16.Checked;
  CoolBar1.Bands[3].Visible := N16.Checked;
  CoolBar1.Visible :=(ViewOper)or(ViewSettingMgr)
      or(ViewBookMgr)or(ViewAbout);
  FormPaint(Sender);
end;

procedure TMainF.N18Click(Sender: TObject);
begin
  N18.Checked := not N18.Checked;
  ViewBack := N18.Checked;
  //N19.Enabled := N18.Checked;
  FormPaint(Sender);
end;

procedure TMainF.FormShow(Sender: TObject);
begin
  CoolBar1.Bands[0].Visible := N11.Checked;
  CoolBar1.Visible :=(ViewOper)or(ViewSettingMgr)
      or(ViewBookMgr)or(ViewAbout);
end;

procedure TMainF.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_LBUTTONDOWN then
  begin
    if ShowBookF <> nil then
      if ShowBookF.Showing = True then
        if ((Msg.pt.x<ShowBookF.Left)or
           (Msg.pt.x>ShowBookF.Left+ShowBookF.Width)) or
           ((Msg.pt.y<ShowBookF.Top)or
           (Msg.pt.y>ShowBookF.Top+ShowBookF.Height)) then
          ShowBookF.Close;
  end 
end;

procedure TMainF.ApplicationEvents1Deactivate(Sender: TObject);
begin
  if ShowBookF<>nil then
    if ShowBookF.Showing then
      ShowBookF.Close;
end;

procedure TMainF.FormActivate(Sender: TObject);
begin
  if ShowBookF <> nil then
    if ShowBookF.Showing = True then
      ShowBookF.Close;
end;

procedure TMainF.N20Click(Sender: TObject);
begin
  if ControlsViewF <> nil then
    if ControlsViewF.Parent <> nil then
      ControlsViewF.Parent := Panel2
    else InitView
  else InitView;
  if ControlsViewF = nil then
  begin
    ControlsViewF := TControlsViewF.Create(nil);
    ControlsViewF.Parent := nil;
    Caption := '图书管理系统－消息查看';
    ControlsViewF.Parent := Panel2;
    Panel1Resize(Sender);
  end;
end;

procedure TMainF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(0,PChar('确实要退出系统'),'退出系统',MB_ICONQUESTION or MB_YESNO)=IDNO then
    Abort;
end;

end.