unit1.pas

图书管理系统,使用Delphi开发,数据库为Microsoft SQL Server 2

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, StdCtrls, jpeg, ExtCtrls;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    //
    storestr:string;
    //
    function FindForm(caption:string):bool;
  end;

var
  Main: TMain;

implementation

{$R *.dfm}
uses
UserSettingForm,UserDocuForm,UserDocumentForm,BookSettingForm,BookDocuForm,
BookOrderForm,BookBorrowForm,BookReturnForm,BookOverdueForm,
ForfeitForm,Login;

//
function TMain.FindForm(caption:string):bool;
var
i:integer;
begin
  for i:=0 to main.MDIChildCount do
    begin
      //
      if main.MDIChildren[i].Caption=caption then
        begin
        //
        SendMessage(mdichildren[i].Handle,WM_SYSCOMMAND,SC_Maximize,0);
        mdichildren[i].Enabled:=true;
        mdichildren[i].Show;
        mdichildren[i].SetFocus;
        result:=true;
        break;
        end
        else
        //
          result:=false;
    end
end;

//

//
procedure TMain.FormCreate(Sender: TObject);
var
pHandle:^THandle;
begin
pHandle:=@Application.MainForm.ClientHandle;
pHandle^:=ClientHandle;///关键在这一句！
(*
//with TUserSetting.Create(Application) do show;
if  (LoginForm.Edit1.Text='reader')and(LoginForm.Edit2.Text='888')and(LoginForm.RadioButton1.Checked) then
begin
N2.Visible:=false;
N5.Visible:=false;
N8.Visible:=false;
N9.Visible:=false;
N10.Visible:=false;
N12.Visible:=false;
end
else if (LoginForm.Edit1.Text='admin')and(LoginForm.Edit2.Text='888')and(LoginForm.RadioButton2.Checked) then
showmessage('你以管理员身份登录');
//else showmessage('用户名或密码或对应登录身份不一致');
*)
end;


//
procedure TMain.N2Click(Sender: TObject);
var
  newform:TUserSetting;
begin
  if FindForm('读者类别设置')=false then
    begin
      newform:=TUserSetting.Create(application);
      newform.Caption:='读者类别设置';
    end;
end;

procedure TMain.N3Click(Sender: TObject);
var
newform:TUserDocument;
begin
  if FindForm('读者档案管理')=false then
    begin

      newform:=TUserDocument.Create(application);
//      newform.show;
      newform.Caption:='读者档案管理';
    end;

end;

procedure TMain.N5Click(Sender: TObject);
var
  newform:TBookSetting;
begin
  if FindForm('图书类别设置')=false then
    begin
      newform:=TBookSetting.Create(application);
      newform.Caption:='图书类别设置';
    end;
end;

procedure TMain.N6Click(Sender: TObject);
var
newform:TBookDocu;
begin
  if FindForm('图书档案管理')=false then
    begin
      newform:=TBookDocu.Create(application);
      newform.Caption:='图书档案管理';
    end;
end;

procedure TMain.N8Click(Sender: TObject);
var
newform:TBookOrder;

begin
  if FindForm('图书征订')=false then
    begin
      newform:=TBookOrder.Create(application);
      newform.Caption:='图书征订';
      newform.Show;

    end;

end;

procedure TMain.N9Click(Sender: TObject);
var
newform:TBookBorrow;
begin
  if FindForm('图书借阅')=false then
    begin
      newform:=TBookBorrow.Create(application);
      newform.Caption:='图书借阅';
    end;
end;


procedure TMain.N10Click(Sender: TObject);
var
newform:TBookReturn;
begin
  if FindForm('图书归还')=false then
    begin
      newform:=TBookReturn.Create(application);
      newform.Caption:='图书归还';
    end;
end;


procedure TMain.N11Click(Sender: TObject);
var
newform:TBookOverdue;
begin
  if FindForm('逾期清单')=false then
    begin
      newform:=TBookOverdue.Create(application);
      newform.Caption:='逾期清单';
    end;
end;


procedure TMain.N12Click(Sender: TObject);
var
newform:TForfeit;
begin
  if FindForm('图书罚款')=false then
    begin
      newform:=TForfeit.Create(application);
      newform.Caption:='图书罚款';
    end;
end;

procedure TMain.N13Click(Sender: TObject);
begin
//close;
application.Terminate;
end;

end.