unit1.pas

玉龙飞雪进销存管理系统,可以帮您管理进销存的软件

unit Unit1;

interface

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

type
  TFormz = class(TForm)
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    PopupMenu2: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    PopupMenu3: TPopupMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    PopupMenu4: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    XPMenu1: TXPMenu;

    procedure Image2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);

  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Formz: TFormz;
  mouse:Tmouse;
implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit14, Unit15, Unit16,
  Unit17, Unit18;

{$R *.dfm}
procedure TFormz.Image2Click(Sender: TObject);
begin
popupmenu1.popup(mouse.CursorPos.x,mouse.CursorPos.Y);
end;
procedure TFormz.N2Click(Sender: TObject);
begin
close;
end;
procedure TFormz.N1Click(Sender: TObject);
begin
formz.WindowState:=wsMinimized;
end;
procedure TFormz.Image5Click(Sender: TObject);
begin
formjin:=Tformjin.create(self);
formjin.show;
end;
procedure TFormz.Image7Click(Sender: TObject);
begin
formxiao:=Tformxiao.create(self);
formxiao.show;
end;
procedure TFormz.Image8Click(Sender: TObject);
begin
formcha:=Tformcha.create(self);
formcha.show;
end;
procedure TFormz.Image3Click(Sender: TObject);
begin
formke:=Tformke.create(self);
formke.show;
end;
procedure TFormz.Image4Click(Sender: TObject);
begin
popupmenu2.popup(mouse.CursorPos.x,mouse.CursorPos.Y);
end;
procedure TFormz.N3Click(Sender: TObject);
begin
formrih:=Tformrih.create(self);
formrih.show;
end;
procedure TFormz.N4Click(Sender: TObject);
begin
formyueh:=Tformyueh.create(self);
formyueh.show;
end;
procedure TFormz.Image9Click(Sender: TObject);
begin
popupmenu3.popup(mouse.CursorPos.x,mouse.CursorPos.Y);
end;
procedure TFormz.Image6Click(Sender: TObject);
begin
popupmenu4.popup(mouse.CursorPos.x,mouse.CursorPos.Y);
end;
procedure TFormz.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messageDLG('建议您每天备份和整理数据',mtcoNfirmation,[mbok,mbcancel],0)=mrcancel
then
canclose:=false;
end;
procedure TFormz.FormShow(Sender: TObject);
begin
Formmima.Visible:=false;
Formmima.table1.Active:=false;

end;

procedure TFormz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
formmima.Close;
end;

procedure TFormz.N11Click(Sender: TObject);
begin
formmix:=Tformmix.create(self);
formmix.show;
end;

procedure TFormz.N6Click(Sender: TObject);
begin
formbei:=Tformbei.create(self);
formbei.show;
end;

procedure TFormz.N7Click(Sender: TObject);
begin
formhui:=Tformhui.create(self);
formhui.show;
end;

procedure TFormz.N10Click(Sender: TObject);
begin
formmemo:=Tformmemo.create(self);
formmemo.show;
end;

end.