boot.pas

这是一个三层的进销存系统

unit boot;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MDIbase, jpeg, ExtCtrls, lxactivebtn,
  ComCtrls, StdCtrls;

type
  Tfrmboot = class(TfrmMDIbase)
    imagetop: TImage;
    panelbtn: TPanel;
    Pagea: TPageControl;
    tab1: TTabSheet;
    tab2: TTabSheet;
    tab3: TTabSheet;
    tab4: TTabSheet;
    tab5: TTabSheet;
    tab6: TTabSheet;
    pBtn: TPanel;
    Btn1: TPanel;
    Btn2: TPanel;
    Btn3: TPanel;
    Btn4: TPanel;
    Btn5: TPanel;
    Btn6: TPanel;
    lxactivebtn1: Tlxactivebtn;
    lxactivebtn2: Tlxactivebtn;
    lxactivebtn3: Tlxactivebtn;
    lxactivebtn4: Tlxactivebtn;
    lxactivebtn5: Tlxactivebtn;
    tab1boxA: TGroupBox;
    tab1boxB: TGroupBox;
    Tab2BoxB: TGroupBox;
    Tab2BoxA: TGroupBox;
    Tab3BoxA: TGroupBox;
    Tab3BoxB: TGroupBox;
    Tab4BoxB: TGroupBox;
    Tab5BoxA: TGroupBox;
    Tab5BoxB: TGroupBox;
    Tab6BoxA: TGroupBox;
    Tab6BoxB: TGroupBox;
    lxactivebtn6: Tlxactivebtn;
    lxactivebtn7: Tlxactivebtn;
    lxactivebtn8: Tlxactivebtn;
    lxactivebtn9: Tlxactivebtn;
    lxactivebtn10: Tlxactivebtn;
    Label2: TLabel;
    Label1: TLabel;
    Image1: TImage;
    Image2: TImage;
    lxactivebtn17: Tlxactivebtn;
    lxactivebtn18: Tlxactivebtn;
    lxactivebtn11: Tlxactivebtn;
    lxactivebtn12: Tlxactivebtn;
    lxactivebtn13: Tlxactivebtn;
    lxactivebtn14: Tlxactivebtn;
    lxactivebtn24: Tlxactivebtn;
    lxactivebtn25: Tlxactivebtn;
    lxactivebtn27: Tlxactivebtn;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image15: TImage;
    Image14: TImage;
    Image13: TImage;
    Image12: TImage;
    Image16: TImage;
    Image17: TImage;
    lxactivebtn15: Tlxactivebtn;
    lxactivebtn16: Tlxactivebtn;
    lxactivebtn21: Tlxactivebtn;
    lxactivebtn22: Tlxactivebtn;
    Tab4BoxA: TGroupBox;
    lxactivebtn19: Tlxactivebtn;
    lxactivebtn20: Tlxactivebtn;
    lxactivebtn23: Tlxactivebtn;
    lxactivebtn28: Tlxactivebtn;
    lxactivebtn30: Tlxactivebtn;
    lxactivebtn26: Tlxactivebtn;
    Label10: TLabel;
    Label13: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Label9: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Image6: TImage;
    Image7: TImage;
    Label17: TLabel;
    Label18: TLabel;
    Image18: TImage;
    Image19: TImage;
    Label19: TLabel;
    lxactivebtn29: Tlxactivebtn;
    lxactivebtn31: Tlxactivebtn;
    lxactivebtn32: Tlxactivebtn;
    lxactivebtn33: Tlxactivebtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Btn1Click(Sender: TObject);
    procedure Btn2Click(Sender: TObject);
    procedure Btn3Click(Sender: TObject);
    procedure Btn4Click(Sender: TObject);
    procedure Btn5Click(Sender: TObject);
    procedure Btn6Click(Sender: TObject);
    procedure Label16MouseEnter(Sender: TObject);
    procedure Label17MouseEnter(Sender: TObject);
    procedure Label18MouseEnter(Sender: TObject);
    procedure Label19MouseEnter(Sender: TObject);
    procedure Label10MouseEnter(Sender: TObject);
    procedure Label3MouseEnter(Sender: TObject);
    procedure Label13MouseEnter(Sender: TObject);
    procedure Label4MouseEnter(Sender: TObject);
    procedure Label5MouseEnter(Sender: TObject);
    procedure Label6MouseEnter(Sender: TObject);
    procedure Label7MouseEnter(Sender: TObject);
    procedure Label8MouseEnter(Sender: TObject);
    procedure Label14MouseEnter(Sender: TObject);
    procedure Label12MouseEnter(Sender: TObject);
    procedure Label11MouseEnter(Sender: TObject);
    procedure Label9MouseEnter(Sender: TObject);
    procedure Label15MouseEnter(Sender: TObject);
    procedure lxactivebtn19click(Sender: TObject);
    procedure lxactivebtn4click(Sender: TObject);
    procedure lxactivebtn2click(Sender: TObject);
    procedure lxactivebtn16click(Sender: TObject);
    procedure lxactivebtn18click(Sender: TObject);
    procedure lxactivebtn1click(Sender: TObject);
    procedure lxactivebtn5click(Sender: TObject);
    procedure lxactivebtn20click(Sender: TObject);
    procedure lxactivebtn23click(Sender: TObject);
    procedure lxactivebtn28click(Sender: TObject);
    procedure lxactivebtn10click(Sender: TObject);
    procedure lxactivebtn6click(Sender: TObject);
    procedure lxactivebtn7click(Sender: TObject);
    procedure lxactivebtn8click(Sender: TObject);
    procedure lxactivebtn9click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure lxactivebtn15click(Sender: TObject);
  private
    procedure getactive(const btnid: integer);
    procedure lbtnmousemove(const itag:integer);    
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmboot: Tfrmboot;

implementation

uses Global, itemtype, uemployee, udept, uvipcard, uvip, item, userverproj,
  ufuli, uliaochen, upurchase, upurreturn, upurpayment, ustore, usale,
  upurchasedetail, upurchasetotal, usaledetail, upaymentdetail, uvipfull;

{$R *.dfm}

procedure Tfrmboot.FormCreate(Sender: TObject);
begin
  inherited;
{  if (Screen.Width <> gs_ScreenWidth) then
    begin
      Scaled:=True;
      Height:=Longint(height)*longint(Screen.height) div gs_ScreenHeight;
      Width:=longint(Width)*longint(Screen.width) div gs_ScreenWidth;
      Scaleby(Screen.Width,gs_ScreenWidth);
    end;}
  self.Left:=0;
  self.Top:=0;
  self.Position:=poDesigned;
  Imagetop.Picture.LoadFromFile(gs_appPath+'\TitleGr1.jpg');
end;

procedure Tfrmboot.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmBoot:=nil;
end;

procedure Tfrmboot.FormShow(Sender: TObject);
begin
  inherited;
  Pagea.ActivePage:=Tab1;
end;

procedure Tfrmboot.getactive(const btnid: integer);
var
i:integer;
begin
  for i:=0 to pbtn.ControlCount-1 do
   begin
    (pbtn.Controls[i] as TPanel).Color:=$00198C19;
    (pbtn.Controls[i] as TPanel).BevelInner:=bvLowered;
    (pbtn.Controls[i] as Tpanel).Font.Color:=clWhite;
    if (pbtn.Controls[i] as TPanel).Tag=btnid then
      begin
        (pbtn.Controls[i] as TPanel).Color:=clWhite;
        (pbtn.Controls[i] as TPanel).BevelInner:=bvNone;
        (pbtn.Controls[i] as Tpanel).Font.Color:=clblack;
      end;
   end;
end;

procedure Tfrmboot.Btn1Click(Sender: TObject);
begin
  inherited;
  Getactive(1);
  Pagea.ActivePage:=Tab1;
end;

procedure Tfrmboot.Btn2Click(Sender: TObject);
begin
  inherited;
  Getactive(2);
  Pagea.ActivePage:=Tab2;
end;

procedure Tfrmboot.Btn3Click(Sender: TObject);
begin
  inherited;
  Getactive(3);
  Pagea.ActivePage:=Tab3;
end;

procedure Tfrmboot.Btn4Click(Sender: TObject);
begin
  inherited;
  Getactive(4);
  Pagea.ActivePage:=Tab4;
end;

procedure Tfrmboot.Btn5Click(Sender: TObject);
begin
  inherited;
  Getactive(5);
  Pagea.ActivePage:=Tab5;
end;

procedure Tfrmboot.Btn6Click(Sender: TObject);
begin
  inherited;
  Getactive(6);
  Pagea.ActivePage:=Tab6;
end;

procedure Tfrmboot.lbtnmousemove(const itag: integer);
var
  i:integer;
begin
  for i:=0 to self.ComponentCount-1 do
    begin
      if (self.Components[i] is Tlabel) then
        begin
          (self.Components[i] as Tlabel).Font.Color:=clBlack;
          (self.Components[i] as Tlabel).Font.Style:=[];
          if (self.Components[i] as Tlabel).Tag = itag then
            begin
              (self.Components[i] as Tlabel).Font.Color:=clBlue;
              (self.Components[i] as Tlabel).Font.Style:=[fsUnderline];
            end;
        end;
    end;
end;

procedure Tfrmboot.Label16MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label17MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label18MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label19MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label10MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label3MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label13MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label4MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label5MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label6MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label7MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label8MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label14MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label12MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label11MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label9MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label15MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.lxactivebtn19click(Sender: TObject);
begin
  inherited;
 openform(Tfrmdept,frmdept,self);
end;

procedure Tfrmboot.lxactivebtn4click(Sender: TObject);
begin
  inherited;
  openform(Tfrmitemtype,frmitemtype,self);
end;

procedure Tfrmboot.lxactivebtn2click(Sender: TObject);
begin
  inherited;
  openform(Tfrmemployee,frmemployee,self);
end;

procedure Tfrmboot.lxactivebtn16click(Sender: TObject);
begin
  inherited;
  openform(Tfrmvipcard,frmvipcard,self);
end;

procedure Tfrmboot.lxactivebtn18click(Sender: TObject);
begin
  inherited;
  openform(Tfrmvip,frmvip,self);
end;

procedure Tfrmboot.lxactivebtn1click(Sender: TObject);
begin
  inherited;
  openform(Tfrmvip,frmvip,self);
end;

procedure Tfrmboot.lxactivebtn5click(Sender: TObject);
begin
  inherited;
  openform(Tfrmitem,frmitem,self);
end;

procedure Tfrmboot.lxactivebtn20click(Sender: TObject);
begin
  inherited;
  openform(TfrmServerproj,Frmserverproj,self);
end;

procedure Tfrmboot.lxactivebtn23click(Sender: TObject);
begin
  inherited;
  openform(Tfrmfuli,frmfuli,self);
end;

procedure Tfrmboot.lxactivebtn28click(Sender: TObject);
begin
  inherited;
  openform(Tfrmliaochen,frmliaochen,self);
end;

procedure Tfrmboot.lxactivebtn10click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurchase,frmpurchase,self);
end;

procedure Tfrmboot.lxactivebtn6click(Sender: TObject);
begin
  inherited;
  openform(Tfrmstore,frmstore,self);
end;

procedure Tfrmboot.lxactivebtn7click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurreturn,frmpurreturn,self);
end;

procedure Tfrmboot.lxactivebtn8click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurpayment,frmpurpayment,self);
end;

procedure Tfrmboot.lxactivebtn9click(Sender: TObject);
begin
  inherited;
  openform(Tfrmsale,frmsale,self);
end;

procedure Tfrmboot.Label10Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurchasedetail,frmpurchasedetail,self);
end;

procedure Tfrmboot.Label3Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpurchasetotal,frmpurchasetotal,self);
end;

procedure Tfrmboot.Label4Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmsaledetail,frmsaledetail,self);
end;

procedure Tfrmboot.Label13Click(Sender: TObject);
begin
  inherited;
  openform(Tfrmpaymentdetail,frmpaymentdetail,self);
end;

procedure Tfrmboot.lxactivebtn15click(Sender: TObject);
begin
  inherited;
  openform(Tfrmvipfull,frmvipfull,self);
end;

end.