main_form.pas

图书管理系统2.0版

unit Main_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, ExtCtrls, Buttons, XPMenu,ImgList,DB,
  DBTables;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    TC_Menu: TMenuItem;
    N3: TMenuItem;
    XSRK_Menu: TMenuItem;
    TSWH_Menu: TMenuItem;
    N6: TMenuItem;
    JSHS_Menu: TMenuItem;
    N8: TMenuItem;
    CX_Menu: TMenuItem;
    N10: TMenuItem;
    QXGL_Menu: TMenuItem;
    BLJSK_Menu: TMenuItem;
    N12: TMenuItem;
    GY_Menu: TMenuItem;
    XPMenu1: TXPMenu;
    BFHY_Menu: TMenuItem;
    ToolBar1: TToolBar;
    XSRK_TB: TToolButton;
    TSWH_TB: TToolButton;
    JSHS_TB: TToolButton;
    ToolButton4: TToolButton;
    BLJSK_TB: TToolButton;
    CX_TB: TToolButton;
    ToolButton7: TToolButton;
    QXGL_TB: TToolButton;
    BFHY_TB: TToolButton;
    ToolButton10: TToolButton;
    GY_TB: TToolButton;
    ImageList1: TImageList;
    TS_Time: TTimer;
    N2: TMenuItem;
    QTSZ_Menu: TMenuItem;
    YHZGL_Menu: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure TC_MenuClick(Sender: TObject);
    procedure XSRK_MenuClick(Sender: TObject);
    procedure TSWH_MenuClick(Sender: TObject);
    procedure BLJSK_MenuClick(Sender: TObject);
    procedure JSHS_MenuClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TS_TimeTimer(Sender: TObject);
    procedure CX_MenuClick(Sender: TObject);
    procedure GY_MenuClick(Sender: TObject);
    procedure QXGL_MenuClick(Sender: TObject);
    procedure BFHY_MenuClick(Sender: TObject);
    procedure QTSZ_MenuClick(Sender: TObject);
    procedure YHZGL_MenuClick(Sender: TObject);
  private
    procedure MinWindow(var Msg: Tmessage);message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses
  XSRK_Form, TSWH_Form, BLJSK_Form, JSHS_Form, Common_Unit, ZDTS_Form,
  CX_Form, About_Form, QXGL_Form, BFHY_Form, QTSZ_Form,IniFiles,
  YHZGL_Form;

{$R *.dfm}

var
  TieTu:TBitMap;

procedure TMainForm.MinWindow(var Msg: Tmessage);
begin
  if msg.WParam=SC_MINIMIZE then Application.Minimize;//self.WindowState:=wsMinimized;
  inherited;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin                                                 //窗口关闭
  Action:=caFree;
end;
//***********************************************************************************
procedure TMainForm.FormDestroy(Sender: TObject);     //窗口销毁
begin
  FreeAndNil(TieTu);
  MainForm:=nil;
  Application.Terminate;
end;
//***********************************************************************************
procedure TMainForm.FormCreate(Sender: TObject);      //窗口创建
begin
  TieTu:=TBitMap.Create;
  TieTu.LoadFromFile('TS.bmp');
end;
//***********************************************************************************
procedure TMainForm.FormPaint(Sender: TObject);       //窗口绘制
var
  x,y:integer;
begin
  y:=0;
  while y<self.ClientHeight do
    begin
      x:=0;
      while x<self.ClientWidth do
        begin
          self.Canvas.Draw(x,y,TieTu);
          x:=x+TieTu.Width;
        end;
      y:=y+TieTu.Height;
    end;
end;
//***********************************************************************************
procedure TMainForm.TC_MenuClick(Sender: TObject);     //关闭窗口
begin
  close;
end;
//***********************************************************************************
procedure TMainForm.XSRK_MenuClick(Sender: TObject);   //新书入库窗口
begin
  with TXSRK_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.TSWH_MenuClick(Sender: TObject);   //图书维护窗口
begin
  with TTSWH_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.BLJSK_MenuClick(Sender: TObject);  //办理借书卡
begin
  with TBLJSK_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.JSHS_MenuClick(Sender: TObject);    //借书还书窗口
begin
  Share_JSHS:=TJSHS_F.Create(nil);         //这句非常重要的
  with Share_JSHS do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.FormShow(Sender: TObject);
var
  myini:TIniFile;
  OldCheckDay:String;
  num,maxnum:integer;
begin
  if QS='1' then
    begin
      XSRK_Menu.Enabled:=false;      //一般用户菜单上的功能很多不能让他用
      TSWH_Menu.Enabled:=false;
      BLJSK_Menu.Enabled:=false;
      JSHS_Menu.Enabled:=false;
      QXGL_Menu.Enabled:=false;
      BFHY_Menu.Enabled:=false;
      QTSZ_Menu.Enabled:=false;

      XSRK_TB.Enabled:=false;       //一般用户工具条上的功能很多不能让他用
      TSWH_TB.Enabled:=false;
      BLJSK_TB.Enabled:=false;
      JSHS_TB.Enabled:=false;
      QXGL_TB.Enabled:=false;
      BFHY_TB.Enabled:=false;

      exit;
    end;
  myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'set.ini');
  OldCheckDay:=myini.ReadString('set','OldCheckDay','');  //已经提示了几次
  maxnum:=myini.ReadInteger('set','MaxCheckNum',0);   //提示的最多次数
  if maxnum=0 then exit;
  if OldCheckDay=DateToStr(date) then
    begin
      num:=myini.ReadInteger('set','Checked',0);
      if num<maxnum then
        begin
          num:=num+1;
          myini.WriteInteger('set','Checked',num);
          TS_Time.Enabled:=true;      //主窗体显示1秒后启动自动提示功能
        end;
    end
    else begin
      myini.WriteString('set','OldCheckDay',DateToStr(date));
      myini.WriteInteger('set','Checked',1);
      TS_Time.Enabled:=true;
    end;

end;
//***********************************************************************************
procedure TMainForm.TS_TimeTimer(Sender: TObject);     //自动提示窗口
var
  JYXX_Q:TQuery;
begin
  TS_Time.Enabled:=false;
  JYXX_Q:=TQuery.Create(nil);
  JYXX_Q.DatabaseName:=DataPath;
  JYXX_Q.SQL.Add('Select 1 From JYXXB Where LastDate<:LastDate and HDate is null');
  JYXX_Q.ParamByName('LastDate').AsDateTime:=date;
  JYXX_Q.Open;
  if JYXX_Q.RecordCount=0 then exit;
  with TZDTS_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.CX_MenuClick(Sender: TObject);    //查询窗口
begin
  With TCX_F.Create(nil)do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.GY_MenuClick(Sender: TObject);    //关于窗口
begin
  With TAbout_F.Create(nil)do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.QXGL_MenuClick(Sender: TObject);   //权限管理窗口
begin
  with TQXGL_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.BFHY_MenuClick(Sender: TObject);    //备份还原窗口
begin
  Share_BFHY:=TBFHY_F.Create(nil);
  with Share_BFHY do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.QTSZ_MenuClick(Sender: TObject);            //其它设置
begin
  with TQTSZ_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;
//***********************************************************************************
procedure TMainForm.YHZGL_MenuClick(Sender: TObject);           //用户组管理
begin
  with TYHZGL_F.Create(nil) do
    try
      ShowModal;
    finally
      Free;
    end;
end;

end.