main.pas

现在家庭藏书越来越多

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, connection, skinform, mybook, ExtCtrls,
  DB, ADODB, ComCtrls;

type
  TForm1 = class(TForm)
    img1: TImage;
    img2: TImage;
    img3: TImage;
    img4: TImage;
    img5: TImage;
    img6: TImage;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    con1: TADOConnection;
    stat1: TStatusBar;
    tmr1: TTimer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure lbl1MouseEnter(Sender: TObject);
    procedure lbl1MouseLeave(Sender: TObject);
    procedure lbl2MouseLeave(Sender: TObject);
    procedure lbl2MouseEnter(Sender: TObject);
    procedure lbl3MouseEnter(Sender: TObject);
    procedure lbl3MouseLeave(Sender: TObject);
    procedure lbl4MouseLeave(Sender: TObject);
    procedure lbl4MouseEnter(Sender: TObject);
    procedure lbl5MouseEnter(Sender: TObject);
    procedure lbl5MouseLeave(Sender: TObject);
    procedure lbl6MouseLeave(Sender: TObject);
    procedure lbl6MouseEnter(Sender: TObject);
    procedure lbl1Click(Sender: TObject);
    procedure lbl2Click(Sender: TObject);
    procedure lbl3Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure lbl4Click(Sender: TObject);
    procedure lbl5Click(Sender: TObject);
    procedure lbl6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    myfontstyle:tfontstyles;
  end;

var
  Form1: TForm1;
  myskin:tskin;
  connect1:tconnect;
implementation
uses
manage,lend,carry,searchbooklist,report,notice;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 myskin:=tskin.create;
 myskin.setimagemode(img1,img2,img3,img4,img5,img6);
 myskin.setformmode(form1);
 myskin.setlabelmode(lbl1,lbl2,lbl3,lbl4,lbl5,lbl6);
 connect1:=tconnect.create;
 connect1.adoconnection:=con1;
 connect1.doconnection;
 stat1.Panels[2].Text:='当前时间:'+formatdatetime('yyyy/mm/dd hh:nn:SS',now);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 myskin.Free;
 myskin:=nil;
 connect1.Free;
 connect1:=nil;
end;

procedure TForm1.lbl1MouseEnter(Sender: TObject);
begin
 lbl1.Font.Style:=myfontstyle+[fsunderline];
 lbl1.Cursor:=crhandpoint;
end;

procedure TForm1.lbl1MouseLeave(Sender: TObject);
begin
 lbl1.Font.Style:=myfontstyle-[fsunderline];

end;

procedure TForm1.lbl2MouseLeave(Sender: TObject);
begin
 lbl2.Font.Style:=myfontstyle-[fsunderline];

end;

procedure TForm1.lbl2MouseEnter(Sender: TObject);
begin
 lbl2.Font.Style:=myfontstyle+[fsunderline];
 lbl2.Cursor:=crhandpoint;
end;

procedure TForm1.lbl3MouseEnter(Sender: TObject);
begin
 lbl3.Font.Style:=myfontstyle+[fsunderline];
 lbl3.Cursor:=crhandpoint;
end;

procedure TForm1.lbl3MouseLeave(Sender: TObject);
begin
 lbl3.Font.Style:=myfontstyle-[fsunderline];
end;

procedure TForm1.lbl4MouseLeave(Sender: TObject);
begin
 lbl4.Font.Style:=myfontstyle-[fsunderline];
end;

procedure TForm1.lbl4MouseEnter(Sender: TObject);
begin
 lbl4.Font.Style:=myfontstyle+[fsunderline];
 lbl4.Cursor:=crhandpoint;
end;

procedure TForm1.lbl5MouseEnter(Sender: TObject);
begin
 lbl5.Font.Style:=myfontstyle+[fsunderline];
 lbl5.Cursor:=crhandpoint;
end;

procedure TForm1.lbl5MouseLeave(Sender: TObject);
begin
 lbl5.Font.Style:=myfontstyle-[fsunderline];
end;

procedure TForm1.lbl6MouseLeave(Sender: TObject);
begin
 lbl6.Font.Style:=myfontstyle-[fsunderline];
end;

procedure TForm1.lbl6MouseEnter(Sender: TObject);
begin
 lbl6.Font.Style:=myfontstyle+[fsunderline];
 lbl6.Cursor:=crhandpoint;
end;

procedure TForm1.lbl1Click(Sender: TObject);
begin
 form2:=tform2.Create(self);
 form2.ShowModal;
end;

procedure TForm1.lbl2Click(Sender: TObject);
begin
 form4:=tform4.Create(self);
 form4.ShowModal;
end;

procedure TForm1.lbl3Click(Sender: TObject);
begin
 form5:=tform5.Create(self);
 form5.ShowModal;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
 stat1.Panels[2].Text:='当前时间:'+formatdatetime('yyyy/mm/dd hh:nn:SS',now);
end;

procedure TForm1.lbl4Click(Sender: TObject);
begin
 form6:=tform6.Create(self);
 form6.ShowModal;
end;

procedure TForm1.lbl5Click(Sender: TObject);
begin
 form7:=tform7.Create(self);
 form7.ShowModal;
end;

procedure TForm1.lbl6Click(Sender: TObject);
begin
 form8:=tform8.Create(self);
 form8.ShowModal;
end;

end.